通过【数据有效性】功能为单元格设置有效数据为1 ~ 10 的整数时,再输入100,就会的警告对话框,提示输入值为非法数值。对话框中的图标即是本节所说的对话框提示图示。
一、对话框提示图示
1、通过【数据有效性】功能为单元格设置有效数据为1~10 时,再输入100,就会的警告对话框,提示输入值为非法数值。对话框中的图标即是本节所说的对话框提示图示。
2、为了让操作者对MsgBox 对话框的提示内容一目了然,同样可以为对话框中添加图示。添加的方法也是通过MsgBox 函数的第2 个参数来设置。
3、Sub 数据有效性()MsgBox "发现了非法数据存在", 16End Sub
4、上述代码执行结果如下图所示:
5、在介绍配置对话框按钮时,也是通过MsgBox 第2 个参数来设置的。这和本节所介绍的设置图示冲突吗?答案:不冲突。如果需要同时设置图示和配置按钮,可以用以下方法来实现。MsgBox "发现了非法数据存在", 图示代码+对话框形式代码
6、举例如下:”Sub 数据有效性()MsgBox "发现了非法数据存在", 16 + 1End Sub二者用加号连接。
7、执行结果如下图所示:
二、对话框标题
1、每一个对话框或信息框都有标题栏,它可以提示对话框的功能或对话框的信息提供者。在使用MsgBox 函数显示对话框时, MsgBox 函数利用第3 个参数可以设置标题的内容
2、msgbox"提示粝简肯惧内容",图示代码码+对话框形式代码,”对话框标题”Sub 数据有效性()MsgBox "发现了非法数据存在", 1鲂番黟谊6 + 1, "数据有效性"End Sub
3、执行结果如下图所示:
删除列时的提示
1、所示的商品信息表中,要求在删除A 至D 列中任一列时提示禁止删除,并恢复为原来的表格样式。
2、Private Sub Worksheet_Change(ByVa盟敢势袂l Target As Range) If Range烫喇霰嘴("d1") <> "金额" Then MsgBox "禁止删除列", 16, "删除提示" Application.Undo End IfEnd Sub
3、执行结果如下图所示: