从另一个工作表上的特定单元格中搜索值

Question

我正在使用用户表单来输入数据，在某一时刻，部分数据被复制到工作簿中的一张工作表中。

然后我的代码需要使用工作表中的一个值来检查该值是否出现在另一张工作表上，如果确实如此，它将链接到该值的值复制到原始工作表，然后填充用户表单，以便进一步的信息可以被俘虏。

如果我激活 on error resume next 一切正常，除了选项卡功能停止在用户窗体上工作，如果我在没有 on error resume next 的情况下运行它，我会收到运行时错误：

'91' 对象变量或未设置块变量。

我该如何解决这个问题？

Sub Find_7_day()

        Dim vfind

        Dim rng As Range

        Sheets("Test Data").Select
        Sheets("Test Data").Range("$E$3").Select
        vfind = ActiveCell

        'On Error Resume Next
        Call Sheet
        Set rng = Cells.Find(What:=vfind, After:=ActiveCell,        LookIn:=xlValues, _
             LookAt:=xlWhole, SearchOrder:=xlByRows,     SearchDirection:=xlNext, _
             MatchCase:=True, SearchFormat:=False).Activate

       If ActiveCell = vfind Then
            Call Old_7_day
            Call Form_7_day_fill
        Else
            Sheets("Test Data").Select
        End If


End Sub

Answer 1

你不能同时声明和.Activate一个变量range：

    Dim rng As Range

    Set rng = Cells.Find(What:=vfind, After:=ActiveCell, LookIn:=xlValues, _
         LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
         MatchCase:=True, SearchFormat:=False).Activate

建议，避免使用.Select和Activate，这里解释How to Avoid the Select Method in VBA & Why

代码：

Sub Find_7_day()

        Dim vfind As String
        Dim rng As Range

        vfind = Sheets("Test Data").Range("$E$3").Value

        Call Sheet

        Set rng = Cells.Find(What:=vfind, LookIn:=xlValues, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, _
        MatchCase:=True, _
        SearchFormat:=False)

        If rng Is Nothing Then
        MsgBox vfind & " " & "dont exist"
        Exit Sub
        End If

       If rng.Value = vfind Then
            Call Old_7_day
            Call Form_7_day_fill
        Else
            Sheets("Test Data").Select
        End If

        Exit Sub

End Sub