excel - Excel宏搜索文本然后弹出框（如果找到）

Question

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

我希望它在整个工作表（工作表名称为“发票”）中搜索“警报”一词。如果工作表上存在这个词，我希望出现一个弹出框。

如果可能，请告诉我。

Answer 1

如果在工作表 Invoice 上找到“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