VBA運行時錯誤13使用Msgbox

Question

我對VBA很陌生，只有基本的知識水平。

我一直在嘗試創建一個宏，以便在同一工作簿中的多張其他工作表上交叉引用一張工作表上的數據。如果找到記錄，我希望msgbox出現以提醒用戶數據的位置。

後幾個小時搜索互聯網和碼位拼湊這是我

Sub search() 
Dim ws As Worksheet, found As Range 
Dim TextToFind(1 To 20) As String 
Dim iText As Long 

TextToFind(1) = "Jade Smith" 
TextToFind(2) = "Bob Collins" 
TextToFind(3) = "Jemima Smythe" 

For Each ws In ThisWorkbook.Worksheets 
    With ws 
     If .Name <> "Blacklisted Candidates" Then 'Do not search blacklist candidates! 
      iText = 1 
      Do While iText <= UBound(TextToFind) 
       If TextToFind(iText) <> "" Then 'Do not search blank strings! 
        Set found = .UsedRange.Find(what:=TextToFind(iText), LookIn:=xlformulas, LookAt:=xlPart, MatchCase:=False) 

        If Not found Is Nothing Then 
         MsgBox "Proxy Candidate Found at " & found.Address 
        Else 
         MsgBox "No Proxy Candidates Found ", vbOKOnly, "Success!" 
        End If 
        iText = iText + 1 
       End If 
      Loop 
     End If 
    End With 
Next ws 

End Sub 

此代碼但不從其他表查找值。

當測試這個時，我只是得到msgbox時沒有數據被發現，即使有測試數據那裏。

我有一個約9張工作簿（不斷增長），我想搜索每個工作簿的前9列的指定數據，你可以看到我已經手動輸入到宏但運行宏即使有數據可以找到，我也不會返回任何結果。

Answer 1

您試圖在兩個字符串上使用二元運算符And。您可能打算使用&來代替連接字符串。

文檔：

• And
• &

（該文檔是VB.Net，但他們的工作同樣在兩種語言）

因此，要解決這個問題，替換

MsgBox ("Proxy Candidate Found at " And rngX.Address) 

通過

MsgBox ("Proxy Candidate Found at " & rngX.Address) 

Answer 2

編輯佔細胞，其內容從一個公式，得到了

既概括所有什麼評論和litelite答案被早已指出並添加一些0.02美分搜索，這裏是一個工作代碼

Option Explicit 

Sub search() 
    Dim ws As Worksheet, found As Range 
    Dim TextToFind(1 To 20) As String 
    Dim iText As Long 

    TextToFind(1) = "xxxx" 
    TextToFind(2) = "xxxx" 
    TextToFind(3) = "xxxxx" 

    For Each ws In ThisWorkbook.Worksheets 
     With ws 
      If .name <> "Blacklisted Candidates" Then 'Do not search blacklist candidates! 
       iText = 1 
       Do While iText <= UBound(TextToFind) 
        If TextToFind(iText) <> "" Then 'Do not search blank strings! 
         Set found = .UsedRange.Find(what:=TextToFind(iText), LookIn:=xlFormulas, LookAt:=xlPart, MatchCase:=False) 

         If Not found Is Nothing Then 
          MsgBox "Proxy Candidate Found at " & found.Address 
         Else 
          MsgBox "No Proxy Candidates Found ", vbOKOnly, "Success!" 
         End If 
         iText = iText + 1 
        End If 
       Loop 
      End If 
     End With 
    Next ws 
End Sub