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

Excel是一個功能強大的程式，具有許多提高生產力和自動化流程的功能。根據特定情況顯示個性化訊息的彈出訊息框是一個方便的功能。在本文中，我們將瞭解如何使用Excel構建一個彈出訊息框，當單元格值滿足特定條件（例如“X”）時顯示該訊息框。當您希望根據電子表格中輸入的特定資料通知使用者或提供說明時，此技術特別有用。您可以按照本教程中提供的說明，透過向Excel電子表格新增互動式元件來增強使用者體驗。讓我們開始學習如何在Excel中建立彈出訊息框。

如果單元格值等於“X”，則彈出訊息框

在這裡，我們將向工作表中新增VBA程式碼。讓我們來看一個簡單的過程，瞭解如何在Excel中單元格值等於“X”時彈出訊息框。

步驟1

考慮任何Excel工作表。

首先，右鍵單擊工作表名稱，然後選擇“檢視程式碼”以開啟VBA應用程式。

右鍵點選 > 檢視程式碼。

步驟2

然後將下面的程式碼複製到文字框中。

程式碼

Private Sub Worksheet_Change(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 "X Value is Used" & xCell.Address, vbInformation, "Pop Up Message"
            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 "X Value is Entred" & xCell.Address, vbInformation, "Pop Up Message"
            Exit Sub
         End If
      Next
   End If
End Sub

在程式碼中，A1:C7是單元格範圍，50是X的值。(此處應提供具體的VBA程式碼示例)