Excel VBA代码编译时出现无效的限定符错误
这是我需要帮助的基本VBA, 我正在创建一个Excel VBA代码编译时出现无效的限定符错误,excel,vba,Excel,Vba,这是我需要帮助的基本VBA, 我正在创建一个userForm,它接收用户条目,并将输入放入工作表(sheet3)列中的下一个空闲单元格。 我要添加的输入是,我有一个给出整数的标签, 然而,我总是得到编译错误“无效限定符”,我不知道为什么。我以前做过,而且成功了,但是这次我弄不清楚我错过了什么。 希望有人能帮忙 Private Sub CommandButton1_Click() Dim vendorNumLabel As String Dim eRow As Integer
userForm
,它接收用户条目,并将输入放入工作表(sheet3)
列中的下一个空闲单元格。
我要添加的输入是,我有一个给出整数的标签,
然而,我总是得到编译错误<代码>“无效限定符”,我不知道为什么。我以前做过,而且成功了,但是这次我弄不清楚我错过了什么。
希望有人能帮忙
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
这应该起作用:
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
尝试将
eRow
的定义更改为eRow,只要。此外,它应该是Sheet3。单元格(eRow,3)=vendorNumLabel
错误中指示了哪一行?vendorNumLabel
是一个字符串,没有Text
属性。