EXCEL单元格A1大于零时，会自动弹出窗口怎么用VBA设置？

Question

EXCEL单元格A1大于零时，会自动弹出窗口怎么用VBA设置？其中A1的值是用公式求和生成的。请高手们帮帮忙？谢谢咯！

Answer 1

假设你 的表格是sheet1
按ALT+F11，进入VBE，双击左上角的sheet1表，在右边的空白处复制下面的代码。
Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(1, 1).Value > 0 Then
MsgBox Cells(1, 1).Value
End If
End Sub

关闭VBE，回到sheet1.修改数据，让A1的公式小于0，看看效果，再设置大于0，看看效果

Answer 2

你好：
很简单，把按ALT+F11打开编辑框，如果你要变SHEET1中的A1，那么就把下面的代码粘帖进SHEET1中：
Sub Worksheet_Change(ByVal Target As Range)
If Cells(1, 1).Value > 0 Then
MsgBox "已超出通知数"
End If
End Sub
这样当你的A1，超出0时就会提示"已超出通知数"啦
欢迎追问哦！追问

那如果是一个工作表里面，当F1>0时，就弹出“与通知数不符”，如果是当B4>0时，就弹出“已超出通知数”，而且F1和B4是由另一个工作表求和的结果。谢谢了！

本回答被提问者采纳

Answer 3

Private Sub Worksheet_Calculate()
If Sheet1.Cells(1, 1).Value > 0 Then
UserForm1.Show
End If
End Sub追问

我想能够提示“已超出通知数”或“与通知单不符”，该怎么设？谢谢咯！