如何在Excel中，当单元格大于或小于特定值时弹出消息框？

Author: Xiaoyang Last Modified: 2025-07-31

如果一个单元格大于或小于另一个单元格，我需要弹出一个消息框来提醒。如何在Excel中解决这个问题？本文将介绍一些处理此问题的代码。

如果列中的单元格值大于或小于另一个单元格，则弹出消息框

如果单元格中的值大于或小于另一个单元格，则弹出消息框

如果列中的单元格值大于或小于另一个单元格，则弹出消息框

假设我在单元格A1中有一个特定数字100，现在，当在列D中输入的数字大于单元格A1中的100时，应该弹出一个消息框来提醒用户。

下面的VBA代码可以帮助您完成此操作，请按照以下步骤进行：

1. 转到要使用的Excel工作表。

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 一样使用高效标签页！
每天为您节省 50% 的时间，并减少数千次鼠标点击！

如果单元格中的值大于或小于另一个单元格，则弹出消息框

如果您希望在单元格值大于或小于另一个单元格时弹出消息框，请应用以下代码：

1. 转到要使用的Excel工作表。

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