VBA查找功能引发错误

Question

我无法获取此代码以停止引发错误

'所需对象'

我必须将.Activate放在所有内容的前面，现在转到设置cf。 找到然后抛出一个错误。 我正在尝试根据输入框搜索信息，然后根据搜索条件将用户表单中的信息放入单元格中。 请有人帮忙。 谢谢

Worksheets(" MthruF Schedule").Activate     
Dim Req As Variant
Req = InputBox("Please Enter Requisition Number", "Information")    

'Worksheets(" MthruF Schedule").Range("A1").Activate   

Dim FirstAddress As String, cF As Range

With ThisWorkbook.Sheets(" MthruF Schedule").Range("A1").Cells(3, 1).Activate 

    'First, define properly the Find method
    Set cF = .Find(What:=Req, _
              after:=ActiveCell, _
              LookIn:=xlFormulas, _
              LookAt:=xlPart, _
              SearchOrder:=xlByColumns, _
              SearchDirection:=xlNext, _
              MatchCase:=False, _
                    SearchFormat:=False)                    

    'If there is a result, keep looking with FindNext method
    If Not cF Is Nothing Then
        FirstAddress = cF.Address
        Do
            cF.Offset(0, 9).Value = EmpInfo.FirstName.Value & " " & EmpInfo.LastName.Value
            cF.Offset(0, 10).Value = EmpInfo.ComboBox3.Value & "/" & EmpInfo.ComboBox20.Value & "/" & EmpInfo.YearCmb.Value
            cF.Offset(0, 11).Value = EmpInfo.AgencyBox.Value
            cF.Offset(0, 12).Value = EmpInfo.AgencyName.Value
            Set cF = .FindNext(cF)
        'Look until you find again the first result
        Loop While Not cF Is Nothing And cF.Address <> FirstAddress
    End If

End With

Answer 1

我需要激活工作表，而不是工作表中的单元格。 我在上面的代码之前添加了以下内容，以完成这一漫长而烦人的过程：

    Dim ws As Worksheet


 Set ws = Sheets(" MthruF Schedule")

 ws.Activate

Answer 2

您的with块正在使用.Activate声明。 .Activate没有更多方法，因此它不知道如何使用.Find 。 如果将.Activate放入with块中，则将获得所需的结果

Worksheets(" MthruF Schedule").Activate

Dim Req As Variant
Req = InputBox("Please Enter Requisition Number", "Information")


'Worksheets(" MthruF Schedule").Range("A1").Activate

Dim FirstAddress As String, cF As Range

With ThisWorkbook.Sheets(" MthruF Schedule").Range("A1").Cells(3, 1)
    ' .Activate has no further objects so it is throwing the error.
    ' Put it on a separate line and it should work
    .Activate
    'First, define properly the Find method
    Set cF = .Find(What:=Req, _
    after:=ActiveCell, _
    LookIn:=xlFormulas, _
    LookAt:=xlPart, _
    SearchOrder:=xlByColumns, _
    SearchDirection:=xlNext, _
    MatchCase:=False, _
    SearchFormat:=False)

    'If there is a result, keep looking with FindNext method
    If Not cF Is Nothing Then
        FirstAddress = cF.Address
        Do
            cF.Offset(0, 9).Value = EmpInfo.FirstName.Value & " " & EmpInfo.LastName.Value
            cF.Offset(0, 10).Value = EmpInfo.ComboBox3.Value & "/" & EmpInfo.ComboBox20.Value & "/" & EmpInfo.YearCmb.Value
            cF.Offset(0, 11).Value = EmpInfo.AgencyBox.Value
            cF.Offset(0, 12).Value = EmpInfo.AgencyName.Value
            Set cF = .FindNext(cF)
            'Look until you find again the first result
        Loop While Not cF Is Nothing And cF.Address <> FirstAddress
    End If
End With