可以让领导崩溃的Excel表格，你敢让他看吗？

工作太枯燥，来得小刺激，用excel小小恶搞一下你的同事和领导。

新建一个Excel文档。在工作表标签右键 - 查看代码。

在弹出的窗口的右上角“工程资源管理器” 双击Sheet1，在左边下拉框中选取worksheet后，会自动生成2句代码。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

然后把下面的代码粘贴到开始和结束语句之间。

MsgBox '电脑温度正在急速升温中！点确定降温', 16 + vbOKOnly, '高温报警'

MsgBox '由于温渡过高，电脑即将爆炸，请在3秒内离开电脑100米距离', 16 + vbOKOnly, '高温报警'

（注：msgbox后 的文字可以自已更改，但注意文字两边要带双引号。也可以增加更多msgbox行）

完工！

然后，你让sheet1工作表设置为正在查看状态。然后喊你的同事过来帮你看看公式为什么设置的不对。

当你的同事选取表中的单元格，接下来的场景......

看到上面的提示，你同事/领导的反应是什么呢? ：）

兰色说：VBA中有一种特殊的程序叫“事件程序”，此类程序可以由你操作excel的动作自动触发运行。本例中的Worksheet_SelectionChange就是当选取的单元格发生改变时自动运行，而msgbox语句则可以弹出一个对话框。

由Excel精英培训创办，VBA入门班6期（在线培训）将于11日（本周日）正式开课。现正在报名中，后天截止。想学习VBA的同学点左下角“阅读原文”