運行時錯誤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 中拼錯了工作表名稱已更改並且宏代碼獲取不同單元格的內容。

特別注意工作表名稱中的空格與下划線、工作表名稱前后的空格。 它發生了很多:)