Question

这是我需要帮助的基本VBA，我正在创建一个userForm，它接受人们的输入并将输入的内容放到sheet (sheet3)上一列的下一个空闲单元格中。我要在此处添加的输入是，我有一个给出整数的标签，但是我总是得到编译错误。 "Invalid qualifier"，但我不确定为什么。我之前已经做过并且成功了，但是这一次让我感到迷惑。希望有人可以帮忙。

Private Sub CommandButton1_Click()


    Dim vendorNumLabel As String
    Dim eRow As Integer

    'adding the value of the textboxes to the assigned variables

    vendorNumLabel = Me.VendorNumberLBL.Caption


    ' working out next empty row

    eRow = Sheet3.Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Row



    'applying values to cells in regards to the empty row worked out above.

    Sheet3.Cells(eRow, 3) = vendorNumLabel.Text


    Unload Me


End Sub

Answer 1

这应该有效：

Private Sub CommandButton1_Click()


Dim vendorNumLabel As String
Dim eRow As Integer

vendorNumLabel = Me.VendorNumberLBL.Text    
eRow = Sheet3.Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Row    
Sheet3.Cells(eRow, 3).Value = vendorNumLabel


Unload Me


End Sub

带有无效限定符错误的VBA代码编译

1 个答案: