Excel VBA，如果单元格中的公式值小于零，则 msgbox

Question

当使用公式更新的单元格中的值小于零时，我试图获取一个 msgbox。

例如：

a1= 5

b5=a1

如果 b5 小于零，则 msgbox "your value is less than zero"

希望有人可以帮助我

谢谢！

Answer 1

在工作表代码区域中包含以下 事件 宏：

Private Sub Worksheet_Calculate()
    If [B5] < 0 Then
        MsgBox "your value is less than zero"
    End If
End Sub

因为是工作表代码，所以很容易安装和自动使用：

1. 右键单击 Excel 窗口底部附近的选项卡名称
2. 选择查看代码 - 这将打开一个 VBE 窗口
3. 粘贴内容并关闭 VBE 窗口

如果您有任何疑虑，请先在试用工作表上进行尝试。

如果您保存工作簿，宏将与它一起保存。 如果您使用的是 2003 年以后的 Excel 版本，则必须保存 文件为 .xlsm 而不是 .xlsx

要删除宏：

1. 如上所示打开 VBE 窗口
2. 清除代码
3. 关闭 VBE 窗口

要了解有关宏的更多信息，请参阅：

http://www.mvps.org/dmcritchie/excel/getstarted.htm

和

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

要了解有关事件宏（工作表代码）的更多信息，请参阅：

http://www.mvps.org/dmcritchie/excel/event.htm

必须启用宏才能正常工作！