运行时错误9。 下标超出范围错误

Question

我正在使用代码在同一工作簿中的其他工作表中搜索特定文本，此选项在我的系统上运行良好，但不适用于其他系统。 任何人都可以帮助我为什么。
这是在 excel 和 VBA 上用于创建宏，下面是代码

Sub Search_Macro()
'
' Search Macro
'
    Dim Sheet_Name As String
    Dim Search_string As String
    Dim Rng As Range
    
    Sheet_string = 0
    
    
    Sheet_Name = Sheets("Summary").Range("O23").Value
    Sheet_string = Sheets("Summary").Range("O27").Value
    
    If Sheet_string = 0 Then
        MsgBox "Select correct Product and Topic", vbOKOnly
             
        Exit Sub
    End If
                 
                              
    Sheets(Sheet_Name).Select
    Set Rng = Range("A1:Z500").Find(Sheet_string)

    If Rng Is Nothing Then
        Sheets("Summary").Select
        MsgBox "Select correct Product and Topic", vbOKOnly
    Else
        Cells.Find(What:=Sheet_string, After:=Range("A1"), _
        LookIn:=xlFormulas2, LookAt:=xlPart, SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
    End If
End Sub

Answer 1

这只是一个黑暗的镜头，因为没有关于您在其他系统上遇到什么类型的错误的信息，但我猜您可能在输入单元格 O23 或输入单元格的 position 中拼错了工作表名称已更改并且宏代码获取不同单元格的内容。

特别注意工作表名称中的空格与下划线、工作表名称前后的空格。 它发生了很多:)