跳到主要内容

如果单元格大于或小于Excel中的特定值,如何弹出消息框?

如果一个单元格大于或小于另一个单元格,我需要弹出一个消息框以在Excel中发出警报。 如何在Excel中解决此问题? 在本文中,我将讨论一些处理它的代码。

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

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


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

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

在这里,下面的VBA代码可以帮助您完成此操作,请执行以下步骤:

1。 转到您要使用的工作表。

2。 右键单击工作表标签,然后选择 查看代码 从上下文菜单中,弹出 Microsoft Visual Basic应用程序 窗口,请将以下代码复制并粘贴到空白的“模块”窗口中,请参见屏幕截图:

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的数字,则会弹出一个消息框,请参见屏幕截图:


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

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

1。 转到您要使用的工作表。

2。 右键单击工作表标签,然后选择 查看代码 从上下文菜单中,弹出 Microsoft Visual Basic应用程序 窗口,请将以下代码复制并粘贴到空白的“模块”窗口中,请参见屏幕截图:

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

备注:在上面的代码中, A1D1 是您要比较的两个单元格。

3。 然后,保存并关闭代码窗口,当输入的值小于单元格A1中的值时,将弹出一个消息框,如下图所示:


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

  • 打开Excel文件时创建弹出消息框
  • 在某些情况下,您可能希望始终弹出一个消息框,以提醒您在打开特定工作簿时首先需要做的事情,这可以帮助您记住在日常工作中要做的最重要的事情。 在本文中,我将讨论在打开Excel文件时如何创建弹出消息框。
  • 在Excel中运行宏之前创建一个是否消息框
  • 在Excel中,可以通过按F5键或在Microsoft Visual Basic for Applications窗口中单击“运行”按钮直接触发宏。 但是,有时,您可能需要创建一个消息框,询问用户是否要运行宏。 如果是,则继续运行代码,如果否,则停止运行代码。 本文,我将讨论在Excel中运行宏之前如何创建是否消息框。
  • 创建消息框计时器以在一定时间后自动关闭消息框
  • 在使用Excel工作簿时,您可能经常使用VBA脚本来解决问题。 在脚本运行期间,将弹出消息框。 在某些情况下,您希望某些指定的消息框在一定时间后自动关闭,而不是手动关闭。 在本文中,我们将向您展示创建消息框计时器的方法,以便在Excel中经过一定时间后自动关闭消息框。

  • 超级公式栏 (轻松编辑多行文本和公式); 阅读视图 (轻松读取和编辑大量单元格); 粘贴到过滤范围...
  • 合并单元格/行/列 和保存数据; 拆分单元格内容; 合并重复的行和总和/平均值...防止细胞重复; 比较范围...
  • 选择重复或唯一 行; 选择空白行 (所有单元格都是空的); 超级查找和模糊查找 在许多工作簿中; 随机选择...
  • 确切的副本 多个单元格,无需更改公式参考; 自动创建参考 到多张纸; 插入项目符号,复选框等...
  • 收藏并快速插入公式,范围,图表和图片; 加密单元 带密码 创建邮件列表 并发送电子邮件...
  • 提取文字,添加文本,按位置删除, 删除空间; 创建和打印分页小计; 在单元格内容和注释之间转换...
  • 超级筛选 (将过滤方案保存并应用于其他工作表); 高级排序 按月/周/日,频率及更多; 特殊过滤器 用粗体,斜体...
  • 结合工作簿和工作表; 根据关键列合并表; 将数据分割成多个工作表; 批量转换xls,xlsx和PDF...
  • 数据透视表分组依据 周号,周几等 显示未锁定的单元格 用不同的颜色 突出显示具有公式/名称的单元格...
kte选项卡201905
  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!
officetab底部
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
could you help me combine multiple of these rules
This comment was minimized by the moderator on the site
is it possible to include the text from a specific cell in the content of the alert message box?
This comment was minimized by the moderator on the site
Thanks for this, it worked great! But I want to know how can I make this work if the cell that I'm monitoring depends on a cell on another Sheet. For example A1 in Sheet 1 changes values if cell A3 in Sheet 2 changes. I have something like this and the pop up message didn't come up, only when manually changed the A1 on Sheet 1.

Thanks!
This comment was minimized by the moderator on the site
In your VB example above a Pop Up Message Box occurs If Cell A1 is Less than D1 which works well however how do I make it also create a Pop up message for cell A2 is Less than D2, A3 is Less than D3 and so on.
This comment was minimized by the moderator on the site
GRACIAS, COMO PUEDO HACER PARA AMPLIARLO A UN RANDO MAS GRANDE ES DECIR O15:O100 Y N15:N100
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations