Question

excel工作表中如何自动跳出提醒框

一个工作表一行加减乘除后，计算结果显示在AA3单元格内，要求计算结果在小于20后自动弹出对话框警示内容“无效的数据”，而且我在改变前面单元格的数字 在AA3中的计算结果变化，一旦记过小于20 仍会自动弹出，结果大于等于20就不会弹出

Answer 1

可以使用“数据验证”（office2013版，office2013之前的版本叫做”数据有效性“）。

1.先选择需要设定数值的区域，如图。

2.点击数据验证右下角的小倒三角，出现数据验证...，点击进去，弹出下图数据验证窗口。

3.选择允许的类型，如下图，我们以整数为例。

4.选择数据范围，如下图。

5.假设需要设定的数值范围为0~10，如下图，设置完成点击确定。

6.可以看到，在该区域输入0~10是没有弹出对话框，当输入超过0~10范围的整数时，弹出提示框。

Answer 2

选中输入计算数据的单元格区域,点击菜单栏(数据)->有效性->有效性条件:自定义->"公式(F)"里输入:=AA3>=20 ->确定;OK了

Answer 3

Private Sub workbook_Open()

Dim d1 As Date

d1 = Now()

If Year(d1) = 2010 And Month(d1) = 6 And Day(d1) = 15 Then

MsgBox ("今天要跳出此对话框")

End If

End Sub

当你打开此文件，并且日期恰好是2010年6月15日就跳出对话框

Answer 4

'把以下这段代码放在sheet表的代码窗中
Private Sub Worksheet_Change(ByVal Target As Range)
If Val(ActiveWorkbook.ActiveSheet.Range("AA3")) < 20 Then MsgBox "无效数据！", vbCritical, "警告"
End Sub

'把以下这段代码放在thisworkbook代码窗中
Private Sub Workbook_Open()
If Val(ActiveWorkbook.ActiveSheet.Range("AA3")) < 20 Then MsgBox "无效数据！", vbCritical, "警告"
End Sub