如果目标单元格中​​的公式超过特定值，则显示消息框弹出窗口的 VBA 代码

Question

我正在尝试编写一个简单的宏，以便在单元格中的值超过特定值时显示弹出窗口(vbOKOnly)。

我基本上有一个包含产品和折扣的工作表。我在一个单元格(例如 A1)中有一个公式，该公式将折扣显示为所有条目的有效折扣百分比(50% 或 0.5)。

我正在寻找的是在单元格 A1 的值超过 50% 时显示消息框的代码，因为另一个单元格的输入将折扣推高了 50% 以上。

谢谢!

Answer 1

您可以将以下 VBA 代码添加到您的工作表中:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("A1") > 0.5 Then
        MsgBox "Discount too high"
    End If
End Sub

每次更改工作表上的单元格时，它都会检查单元格 A1 的值。

注释:

• 如果 A1 还依赖于其他电子表格中的数据，则在您更改该数据时将不会调用该宏。
• 每次工作表上发生更改时都会调用该宏。如果它有很多配方(如 1000 多个)，速度可能会很慢。

Widor使用不同的方法(Worksheet_Calculate 而不是 Worksheet_Change):

• 优点:如果 A1 的值链接到其他工作表中的单元格，他的方法就会起作用。
• 缺点:如果您的工作表上有许多引用其他工作表的链接，则该方法的运行速度会慢一些。

结论:如果 A1 仅依赖于同一工作表上的数据，请使用 Worksheet_Change，否则使用 Worksheet_Calculate。