如何在Excel中当单元格值等于“X”时弹出消息框？

在指定区域查找特定内容时，弹出消息框非常有用。例如，你需要在A1:C7范围内查找等于50的单元格值，并希望有一个消息框弹出，告诉你该单元格值是否存在。以下两种方法可以帮助你实现这一需求。

使用VBA代码在单元格值等于“X”时弹出消息框
使用Kutools for Excel轻松在单元格值等于“X”时弹出消息框

使用VBA代码在单元格值等于“X”时弹出消息框

以下VBA代码可以在指定区域内存在特定值时创建一个弹出消息框。请按照以下步骤操作：

1. 在需要检查指定范围值的工作表中，右键单击工作表标签栏中的标签名称，然后从右键菜单中选择查看代码。参见截图：

2. 在Microsoft Visual Basic for Applications窗口中，将以下VBA代码复制并粘贴到代码窗口中。

VBA代码：如果单元格值等于“X”，则弹出消息框

Private Sub Worksheet_Change(ByVal Target As Range)
'Update: 2017/7/25
    Dim xCell As Range, Rg As Range
    On Error Resume Next
    Set Rg = Application.Intersect(Target, Range("A1:C7"))
    If Not Rg Is Nothing Then
        For Each xCell In Rg
            If xCell.Value = "50" Then
                MsgBox "guest entered into cell " & xCell.Address, vbInformation, "Kutools for Excel"
                Exit Sub
            End If
        Next
    End If
End Sub
Private Sub Worksheet_selectionChange(ByVal Target As Range)
    Dim xCell As Range, Rg As Range
    On Error Resume Next
    Set Rg = Application.Intersect(Target, Range("A1:C7"))
    If Not Rg Is Nothing Then
        For Each xCell In Rg
            If xCell.Value = "50" Then
                MsgBox "guest entered into cell " & xCell.Address, vbInformation, "Kutools for Excel"
                Exit Sub
            End If
        Next
    End If
End Sub

3. 同时按下Alt + Q键关闭 Microsoft Visual Basic for Applications窗口并返回到工作表。

从现在开始，当A1:C7范围内的单元格值发生变化且有单元格值等于“50”时，你会看到如下截图所示的消息框。

此外，你可以仅选择范围以弹出消息框（如果单元格值存在）。

注意：

使用Kutools for Excel在单元格值等于“X”时弹出消息框

Kutools for Excel的选择指定单元格功能也可以帮助你解决这个问题。请按照以下步骤操作：

1. 选择要查找单元格值是否存在的范围，然后点击 Kutools > 选择 > 选择指定单元格。

2. 在选择指定单元格对话框中，在 选择类型部分选择单元格选项，然后在第一个指定类型下拉列表中选择等于，并在下一个文本框中输入单元格值，最后点击确定按钮。

如果指定范围内存在单元格值，你将看到以下消息框，点击“确定”按钮后，该单元格将被选中。

否则，你将看到如下截图所示的消息框。

相关文章：

• 如何在Excel中删除包含零的整行？
• 如何在Excel中统计选择范围内包含特定文本的单元格数量？