如果在Excel中單元格值等於“ X”，如何彈出消息框？

查找指定範圍內的某些內容時，彈出消息框會很有幫助。 例如，您在範圍A50：C1中找到等於7的單元格值，並且需要彈出一個消息框來告訴您該單元格值是否存在。 以下兩種方法可以為您提供幫助。

如果單元格值等於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。 按 其他 + Q 同時關閉按鍵 Microsoft Visual Basic for Applications 窗口，然後返回工作表。

從現在開始，當單元格值在A1：C7範圍內更改並且單元格值等於“ 50”時，您將得到一個消息框，如下圖所示。

此外，如果單元格值存在，則只需選擇範圍即可彈出消息框。

筆記:

如果用Kutools for Excel單元格值等於“ X”，則彈出消息框

選擇特定的單元格 的效用 Excel的Kutools 也可以幫助您解決此問題。 請執行以下操作。

1.選擇要查找是否存在單元格值的範圍，然後單擊 庫工具 > 選擇 > 選擇特定的單元格. 

2。 在裡面 選擇特定的單元格 對話框中，選擇 細胞 在選項 選擇類型 部分，然後選擇 等於 在第一 特定類型 下拉列表，然後在下一個文本框中鍵入單元格的值，最後單擊 OK 按鈕。

如果單元格值存在於指定範圍內，則將顯示以下消息框，單擊 OK 按鈕，將選中該單元格。

否則，您將得到如下所示的消息框，如屏幕截圖所示。

相關文章：

• 如果單元格在Excel中包含零，如何刪除整行？
• 如何在Excel中的選擇中對具有特定文本的單元格進行計數？