如何在Excel中，當儲存格大於或小於特定值時彈出訊息框？

Author: Xiaoyang Last Modified: 2025-05-12

如果一個儲存格大於或小於另一個儲存格，我需要彈出一個訊息框來提醒。該如何在Excel中解決這個問題呢？本文將介紹一些用於處理此問題的程式碼。

當某一列中的儲存格值大於或小於另一個儲存格時，彈出訊息框

當某個儲存格的值大於或小於另一個儲存格時，彈出訊息框

當某一列中的儲存格值大於或小於另一個儲存格時，彈出訊息框

假設我在A1儲存格中有個特定數字100，現在，當在D列中輸入的數字大於A1中的100時，應該彈出一個訊息框來提醒使用者。

以下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

注意：在上述程式碼中，Sheet1是您要使用的工作表；A1 是您要比較的儲存格值；D:D是要與A1進行比較的列。

3. 然後，保存並關閉程式碼窗口，從現在開始，如果您在D列中輸入一個大於100的數字，將會彈出一個訊息框，見截圖：

pop up message box if cell greatern or less than a specific value

太棒了！在 Excel 中像 Chrome、Edge、Firefox 和 Safari 一樣使用 Efficient Tabs！
每天為您節省 50% 的時間，並減少數以千計的滑鼠點擊！

當某個儲存格的值大於或小於另一個儲存格時，彈出訊息框

如果您希望當某個儲存格值大於或小於另一個儲存格時彈出訊息框，請應用以下程式碼：

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

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儲存格中的值時，將會彈出如下截圖所示的訊息框：

pop up message box if cell greatern or less than another cell value