Excel宏搜索文本然后弹出框如果找到

Question

我对Excel不是很熟悉，但我想知道是否可以制作一个宏来执行以下操作：

我希望它搜索整个工作表（工作表名称为“Invoice”）以获取“alert”一词。如果工作表上存在该单词，我想要一个弹出框出现。

请告诉我是否可能。

Answer 1

如果在发票单上发现'alert'，这将创建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