如何一次从 UserForm 添加多个数据行到 Excel 数据库

Question

我正在制作某种足球数据库，我会在其中使用用户表单输入数据，并且我想从我的 excel 数据库中检索数据。

我有一个名为："wedstrijden" 的工作表包含以下列：Date、HomeTeam、AwayTeam、HomeScore、AwayScore、HomeOdds 和 AwayOdds

我的另一个工作表名为："ingevenuitslagen"此工作表包含我的名为 UitslagenIngeven 的用户表单

使用下面的代码，我可以将我的数据从用户表单输入到我的 "wedstrijden" 工作表

Private Sub putAway_Click()
Dim ingevenuitslagen As Worksheet
Set ingevenuitslagen = ThisWorkbook.Sheets("wedstrijden")
NextRow = ingevenuitslagen.Cells(Rows.Count, 1).End(xlUp).Row + 1
ingevenuitslagen.Cells(NextRow, 1) = CDate(date_txt.Text)
ingevenuitslagen.Cells(NextRow, 2) = UitslagenIngeven.cboHomeTeam
ingevenuitslagen.Cells(NextRow, 3) = UitslagenIngeven.cboAwayTeam
ingevenuitslagen.Cells(NextRow, 4) = UitslagenIngeven.cboHScore
ingevenuitslagen.Cells(NextRow, 5) = UitslagenIngeven.cboAScore
ingevenuitslagen.Cells(NextRow, 6) = Val(UitslagenIngeven.hodds_txt.Text)
ingevenuitslagen.Cells(NextRow, 7) = Val(UitslagenIngeven.aodds_txt.Text)
End Sub

但这只是收起1排。我希望能够一次收起 10 或 15 行。所以我会制作一个用户窗体，可以存放 20 行，但它应该只能存放那些已填写的行。

这可能吗？我应该如何调整我的用户表单？我可以只复制文本和组合框区域吗？

Answer 1

如何使用数据数组

您需要创建一个新按钮，您将拥有：

一个用于将数据集添加到数据数组（此处CommandButton1）和
一个到将数据数组添加到数据库（此处CommandButton2）。

我也更喜欢使用数据库的命名范围，在这里它被称为Db_Val，但您可以重命名它以满足您的需要！ ;)

放置在用户窗体中以填充数据数组的代码：

Public ingevenuitslagen As Worksheet
Public DataA() '----These lines should be at the top of the module

'----Code to Set the dimension of the Data array
Private Sub UserForm_Initialize()
    Dim DataA(7, 0)
    Set ingevenuitslagen = ThisWorkbook.Sheets("wedstrijden")
    '----Rest of your code
End Sub

'----Code to add a data set to the data array
Private Sub CommandButton1_Click()
    UnFilter_DB '----See below procedure

    DataA(1) = CDate(date_txt.Text)
    DataA(2) = UitslagenIngeven.cboHomeTeam
    DataA(3) = UitslagenIngeven.cboAwayTeam
    DataA(4) = UitslagenIngeven.cboHScore
    DataA(5) = UitslagenIngeven.cboAScore
    DataA(6) = Val(UitslagenIngeven.hodds_txt.Text)
    DataA(7) = Val(UitslagenIngeven.aodds_txt.Text)

    ReDim Preserve DataA(LBound(DataA, 1) To UBound(DataA, 1), LBound(DataA, 2) To UBound(DataA, 2) + 1)
End Sub

'----Code to sent the data array to the DB
Private Sub CommandButton2_Click()
    ReDim Preserve DataA(LBound(DataA, 1) To UBound(DataA, 1), LBound(DataA, 2) To UBound(DataA, 2) - 1)

    SetData DataA
End Sub

在数据库中打印您从用户表单传递的数据数组的过程：

这里的数据库是 ingevenuitslagen sheet

中的命名范围 Db_Val

Public Sub SetData(ByVal Data_Array As Variant)
Dim DestRg As Range, _
    A()
'----Find the last row of your DataBase
Set DestRg = ingevenuitslagen.Range("Db_Val").Cells(ingevenuitslagen.Range("Db_Val").Rows.Count, 1)
'----Print your array starting on the next row
DestRg.Offset(1, 0).Resize(UBound(Data_Array, 1), UBound(Data_Array, 2)).Value = Data_Array
End Sub

取消过滤您正在使用的数据库：

Public Sub UnFilter_DB()
'----Use before "print" array in sheet to unfilter DB to avoid problems (always writing on the same row if it is still filtered)
Dim ActiveS As String, CurrScreenUpdate As Boolean
CurrScreenUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
ActiveS = ActiveSheet.Name
    ingevenuitslagen.Activate
    ingevenuitslagen.Range("A1").Activate
    ingevenuitslagen.ShowAllData
    DoEvents
    Sheets(ActiveS).Activate
Application.ScreenUpdating = CurrScreenUpdate
End Sub

Answer 2

大家好。

我也有同样的挑战。我的是能够下客户的订单。使用我拥有的代码，我一次只能为客户的每个订单下一个产品。我希望能够在用户表单中同时为一个客户的每个订单放置多个产品，并且它将更新多行。下面的代码只能为一个客户更新一行，一行中有一个产品：

Private Sub cmdAdd_Click()
Dim lRow As Long
Dim ws As Worksheet
lRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
With ws
    .Cells(lRow, 1).Value = Me.Data1.Value
    .Cells(lRow, 2).Value = Me.Data2.Value
    .Cells(lRow, 3).Value = Me.Data3.Value
    .Cells(lRow, 4).Value = Me.Data4.Value
    .Cells(lRow, 5).Value = Me.Data5.Value
    .Cells(lRow, 6).Value = Me.Data6.Value
    .Cells(lRow, 7).Value = Me.Data7.Value
    .Cells(lRow, 8).Value = Me.Data8.Value
    .Cells(lRow, 9).Value = Me.Data9.Value
    .Cells(lRow, 10).Value = Me.Data10.Value  
End With
End Sub

以上只能为每个客户更新一个产品。一个客户可以下订单购买多个产品。

如何一次从 UserForm 添加多个数据行到 Excel 数据库

How to add multiple data rows at once from UserForm to Excel DataBase

arrays

excel

vba

userform

如何使用数据数组

放置在用户窗体中以填充数据数组的代码：

在数据库中打印您从用户表单传递的数据数组的过程：

取消过滤您正在使用的数据库：