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

2024-11-23 03:22:40

推荐回答（4个）

回答（1）：

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

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

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

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

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

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

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

回答（2）：

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

回答（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日就跳出对话框

回答（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