Excel 循环工作表单元格。仅在手动选择工作表时查找工作

朋友们，你好！在过去的一周里，我一直在尝试各种可以想象的方法来解决我面临的问题。这是我的密码：

子循环测试（）

端接头

我正在寻找“AAIDL00”在测试工作簿与8页。该字符串位于第8张单元格R22上。当我在工作簿上手动选择（单击）sheet8时，脚本工作。但是，当我选择任何其他工作表时，脚本返回“搜索词未找到！”

---

谁能帮我一下吗？我已经在所有的论坛，似乎代码或多或少是“标准”的结构。我不明白为什么我会犯这个错误。有人告诉我，这是我的电脑或excel安装的全局设置问题。不确定。任何想法都很感激

使用一个或多个与。。。以块结束，以提供最终的父工作表和工作簿参考

Sub LoopTest()
    Dim w As Long, range3 As Range

    With Workbooks("Book2.xlsm")
        For w = 1 To .Worksheets.Count
            With .Worksheets(w)
                Set range3 = .Cells.Find(What:="AAIDL00", After:=.Range("A1"), LookIn:=xlValues, _
                                         LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                                         MatchCase:=False, SearchFormat:=False)
                If Not range3 Is Nothing Then
                    Debug.Print range3.Value
                    Exit For
                Else
                    Debug.Print "Search term not found in " & .Name
                End If
            End With
        Next w
    End With
End Sub

注意工作表、单元格和区域上的

前缀。这提供了来自前一个的亲子关系。。。以block结尾。

使用

current.Cells.Find（…）

Sub LoopTest()
    Dim w As Long, range3 As Range

    With Workbooks("Book2.xlsm")
        For w = 1 To .Worksheets.Count
            With .Worksheets(w)
                Set range3 = .Cells.Find(What:="AAIDL00", After:=.Range("A1"), LookIn:=xlValues, _
                                         LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                                         MatchCase:=False, SearchFormat:=False)
                If Not range3 Is Nothing Then
                    Debug.Print range3.Value
                    Exit For
                Else
                    Debug.Print "Search term not found in " & .Name
                End If
            End With
        Next w
    End With
End Sub