Question

EXCEL的VBA怎么实现满足条件后触发事件

怎么实现当来料天数达到一定数值，每隔一个小时，自动弹窗发出警示。当来料天数超过一定数值，则发送邮件到指定邮箱（内网）。给个思路给我，谢谢了！

Answer 1

123
Private Sub TextBox2_Enter() TextBox2.Value = TextBox1.ValueEnd Sub

Excel的VBA窗体中，文本框的Enter事件相当于VB6.0里面的GotFocus事件！
通过以上代码，就可以当TextBox2获得焦点的时候，自动复制TextBox1的内容！！

Answer 2

使用单元格事件就可以的。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Value = "" Then '单元格Target满足指定条件时就执行……语句部分。
……………………
End Sub
Target指工作表中的任何一个单元格。