Excel宏來搜索文本，然後彈出框，如果發現

Question

我不是很有經驗的Excel中，但我想知道，如果它能夠使宏來做到以下幾點：

我想它來搜索整個工作表（工作表名稱是「發票」）單詞「alert」。如果單詞存在，我希望彈出框出現。

請讓我知道它是否可能。

Answer 1

如果發現在表發票「警報」這將創建msbox：

Sub TestFind() 

    Dim found As Variant 

    Set found = Sheets("Invoice").Cells.Find("alert", Sheets("Invoice").Cells(1, 1), xlValues, xlPart) 

    If (Not found Is Nothing) Then 

     'found 
     MsgBox "Found " & found, vbOKOnly, "Found" 
    Else 

     'not found 

    End If 

End Sub