如何在 Excel 中，當儲存格數值大於或小於特定值時，自動彈出訊息方塊？

若某儲存格的數值大於或小於另一儲存格，您希望 Excel 自動彈出訊息方塊發出警示嗎？本文將提供實用的程式碼，協助您輕鬆實現此功能！

當欄位中的儲存格數值大於或小於另一儲存格時彈出訊息方塊

當某儲存格數值大於或小於另一儲存格時彈出訊息方塊

---

當欄位中的儲存格數值大於或小於另一儲存格時彈出訊息方塊

假設儲存格 A1 中的數值為 100，當您在 D 欄輸入的數值大於此值時，系統將自動彈出訊息方塊提醒您。

以下 VBA 程式碼可協助您完成此功能，請依照下列步驟操作：

1. 前往您要使用的試算表。

2. 以滑鼠右鍵點選工作表標籤，並從快捷選單中選擇檢視程式碼。在彈出的 Microsoft Visual Basic for Applications 視窗中，請將下列程式碼複製並貼上至空白的模組視窗中，如下圖所示：

VBA 程式碼：當欄位中的儲存格數值大於或小於某儲存格時彈出訊息方塊

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Dim xC As String
Dim xWSName As String
Dim xA As String
xC = "D:D"
xWSName = "Sheet1"
xA = "A1"
    If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
    If IsEmpty(Target) Then Exit Sub
    xNum = (Sheets(xWSName).Range(xA).Value)
    If (Target.Value) > (Sheets(xWSName).Range(xA).Value) Then
        MsgBox Prompt:="The entered number is greater than cell A1, please enter again! ", Title:="Kutools for Excel"
    End If
End Sub

注意：上述程式碼中，Sheet 1 為您要使用的試算表；A1 為您要比較的儲存格數值；D:D 為您要與 A1 儲存格進行比對的欄位。

3. 接著，儲存並關閉程式碼視窗。從現在起，當您在 D 欄輸入大於 100 的數值時，將自動彈出訊息方塊，如下圖所示：

---

---

當某儲存格數值大於或小於另一儲存格時彈出訊息方塊

若您希望在儲存格數值大於或小於另一儲存格時彈出訊息方塊，請使用以下程式碼：

1. 前往您要使用的試算表。

2. 以滑鼠右鍵點選工作表標籤，並從快捷選單中選擇檢視程式碼。在彈出的 Microsoft Visual Basic for Applications 視窗中，請將下列程式碼複製並貼上至空白的模組視窗中，如下圖所示：

VBA 程式碼：當儲存格數值大於或小於另一儲存格時彈出訊息方塊

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
On Error GoTo ExitSub
Dim One As Long
Dim Two As Long
One = Range("A1").Value
Two = Range("D1").Value
If Not (Application.Intersect(Range("A1:D1"), Target) Is Nothing) Then
If (One < Two) Then
MsgBox "The value in cell D1 cann't be greater than cell A1!", vbInformation, "Kutools for Excel"
End If
End If
ExitSub:
End Sub

注意：上述程式碼中，A1 與 D1 為您要相互比較的兩個儲存格。

3. 接著，儲存並關閉程式碼視窗。當您在儲存格中輸入的數值小於 A1 儲存格中的數值時，將彈出如下圖所示的訊息方塊：

---

更多相關的彈出式訊息方塊文章：