香港腕表价格交流群

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

2022-07-26 08:26:22

点击上方  "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文档,可以看到上述的提示信息。


友情链接

Copyright © 2023 All Rights Reserved 版权所有 香港腕表价格交流群