VBA弹出消息代码

Question

我试图找出如果单元格中的值超过某个值时如何显示弹出窗口。

我有一张工作表可以追踪每天员工的缺席情况。名称在列A中，而日期在行D到AH中。我在D15中有一个公式，计算D33到D50的员工缺勤情况。

我正在寻找的是如果单元格D15的值超过4则显示消息框的代码。然后将弹出消息从D15应用到AH15。然后我想限制每个单元格的消息。我还需要设置E16到AH16。

然后我如何将它应用于每个月但都在同一工作表中？

Answer 1

你至少可以采取两种方式：

1. 使用VBA：将工作表更改事件添加到工作表（http://msdn.microsoft.com/en-us/library/office/ff839775(v=office.15).aspx）并添加if语句以检查所需单元格中的更改，例如D15。在回应中显示消息。这有1次挫折 - 您将无法执行CTRL + Z（撤消）操作，因为当VBA执行时取消修改操作的日志。

2. 只需在D15中添加一个声明该条件的公式的列。作为回应，公式可以简单地显示带有消息的文本。您还可以使用条件格式来更改单元格背景（例如，更改为红色）。