遍历用户表单并粘贴到偏移单元格

Question

又是我！

我正在尝试通过遍历每个控件并通过带有计数器的偏移量将其粘贴到单元格中来使用用户窗体将数据输入到数据库中。我在实际将数据输入到单元格的行上遇到错误，无法弄清楚如何通过循环执行此操作。一个字段一个字段做很容易，但我不想写那么多行代码。

这是我最近的尝试：

Option Explicit

Sub cbSubmit_Click()
' Set worksheet
Dim dbFood As Worksheet
Set dbFood = Sheets("dbFood")

'Set last row and column
Dim lRow As Long
lRow = Cells(Rows.Count, 1).End(xlUp).Row

Dim lCol As Long
lCol = Cells(1, Columns.Count).End(xlLeft).Row

'Define idCell as Range type
Dim idCell As Range

' If no records exit, add first record
If Cells(lRow, 1).Value = "ID" Then
    Set idCell = dbFood.Range("A2")
    idCell.Value = 1

' Add Data
Dim ufControl As Control
Dim Counter As Long
Counter = 1

For Each ufControl In Me.Controls

If TypeOf ufControl Is MSForms.ComboBox Or MSForms.TextBox Then
idCell.Offset(0, Counter).Value = ufField.Value
Counter = Counter + 1

End If

Next ufControl

MsgBox "Added to database!"

' Else add next record
ElseIf Cells(lRow, 1).Value >= 0.1 Then
    Dim lastID As Long
    lastID = Cells(lRow, 1).Value

    Set idCell = dbFood.Cells(lRow + 1, 1)
    idCell.Value = lastID + 1

' Add Data


' If none of the above display ERROR and exit sub
Else: MsgBox ("ERROR - Cannot Create Record")
Exit Sub

End If

End Sub

如果有人能帮我弄清楚如何解决这个问题，那就太好了！

Answer 1

我看到了一些我在下面改编的东西。我可以请你测试一下这段代码吗？

Option Explicit

Sub cbSubmit_Click()

    Dim dbFood As Worksheet
    Set dbFood = ActiveWorkbook.Sheets("dbFood")

    Dim lRow As Long
    lRow = dbFood.Cells(dbFood.Rows.Count, 1).End(xlUp).Row

    Dim lCol As Long
    lCol = dbFood.Cells(1, dbFood.Columns.Count).End(xlLeft).Row

    Dim idCell As Range


    If dbFood.Cells(lRow, 1).Value = "ID" Then
        Set idCell = dbFood.Range("A2")
        idCell.Value = 1

        Dim ufControl As Control
        Dim Counter As Long
        Counter = 1

        For Each ufControl In Me.Controls

            If TypeOf ufControl Is MSForms.TextBox Then
                idCell.Offset(0, Counter).Value = ufControl.Result
                Counter = Counter + 1
            ElseIF TypeOf ufControl Is MSForms.ComboBox
                idCell.Offset(0, Counter).Value = ufControl.SeletedItem.Value
            End If

       Next ufControl

       MsgBox "Added to database!"

    ElseIf dbFood.Cells(lRow, 1).Value >= 0.1 Then
        Dim lastID As Long
        lastID = dbFood.Cells(lRow, 1).Value

        Set idCell = dbFood.Cells(lRow + 1, 1)
        idCell.Value = lastID + 1

    Else
        MsgBox ("ERROR - Cannot Create Record")
        Exit Sub
    End If

End Sub

如您所见，我已经划分了 ufcontrol 的类型，因为我不确定使用组合框是否可以直接说 .Value，因此您必须添加 .SelectedItem。你至少可以尝试一次:)

Answer 2

我设法使用 Kathara 向我建议的方法解决了这个问题，但对其进行了编辑以避免 438 错误。以下是我为使其正常工作所做的小调整：

For Each ufControl In Me.Controls

        If TypeOf ufControl Is MSForms.TextBox Then
            idCell.Offset(0, Counter).Value = ufControl.Text
            Counter = Counter + 1
        ElseIf TypeOf ufControl Is MSForms.ComboBox Then
            idCell.Offset(0, Counter).Value = ufControl.Text
            Counter = Counter + 1
        End If

    Next ufControl

非常感谢您的帮助:)

遍历用户表单并粘贴到偏移单元格

Loop Through Userform & Paste to Offset Cells

each

controls

vba

for-loop

userform