如何在 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 单元格中的值时，将弹出如下图所示的消息框：

---

更多相关的弹出消息框文章：