Excel函数公式：消息提示框的制作方法

在职场办公中，很多时候，自己的工作表会给别人使用，偶尔给出消息提示也能起到恰到好处的作用。当然也可以捉弄一下同时，例如：

当别人打开工作表的时候，自动弹出一个窗口。

窗口文字：你的电脑严重感染病毒！系统急剧升温中，点确定查查病毒。

点确定后：病毒顽固，无法查杀，受病毒影响，CPU将在10分钟内开启自爆模式，请远离你的电脑200米距离。

继续点确定：点击确定，立刻引爆CPU。

如果遇到不懂电脑的，肯定下一跳……

下面我们看一下制作过程：

1、新建Excel文档，【文件】-【选项】-【信任中心】-【信任中心设置】-【宏设置】-【启用所有宏（不推荐，可能会运行潜在危险的代码）】。

2、快捷键：Alt+F11打开VBA窗口，双击【ThisWorkBook】，输入下列代码：

Private Sub Workbook_Open()

MsgBox "你的电脑严重感染病毒！系统急剧升温中，点击确定查杀病毒", vbOKOnly, "高温报警"

MsgBox "病毒顽固，无法查杀，受病毒影响，CPU将在10分钟内开启自爆模式，请远离你的电200米距离脑", vbOKOnly, "自爆报警"

MsgBox "点击确定，立刻引爆CPU", vbOKOnly, "一级报警"

End Sub

可以将上述代码保存到Word或TXT文档中，直接复制到VBA窗口中。

3、【保存】-【关闭】。

4、【文件】-【另存为】-保存格式为【Excel启用宏的工作簿*.xlsm】。

5、打开刚才保存的Excel文档，可以看到上述的提示信息。