错误424对象需要 – 不能发现错误

我对VBa非常陌生，并且正在尝试通过构build或复制现有的VBA表进行学习。 在这一个，我收到以下代码中的错误：

Private Sub lstLookup_DblClick(ByVal Cancel As MSForms.ReturnBoolean) 'declare the variables Dim cPayroll As String Dim I As Integer Dim findvalue 'error block On Error GoTo errHandler: 'get the select value from the listbox For I = 0 To lstLookup.ListCount - 1 If lstLookup.Selected(I) = True Then cPayroll = lstLookup.List(I, 1) End If Next I 'find the payroll number Set findvalue = Sheet2.Range("F:F").Find(What:=cPayroll, LookIn:=xlValues).Offset(0, -3) 'add the database values to the userform cNum = 21 For X = 1 To cNum Me.Controls("Reg" & X).Value = findvalue Set findvalue = findvalue.Offset(0, 1) Next 'disable adding Me.cmdAdd.Enabled = False Me.cmdEdit.Enabled = True 'error block On Error GoTo 0 Exit Sub errHandler:: MsgBox "An Error has Occurred " & vbCrLf & "The error number is: " _ & Err.Number & vbCrLf & Err.Description & vbCrLf & _ "Please notify the administrator" End Sub 

这是给我的错误：“424对象需要”

我似乎无法find错误

有人能帮我吗？

提前致谢。

Answer 1

更改

 Me.cmdAdd.Enabled = False Me.cmdEdit.Enabled = True 

至

 Me.Controls("cmdAdd").Enabled = False Me.Controls("cmdEdit").Enabled = True