工作太枯燥,来得小刺激,用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的同学点左下角“阅读原文” |
|
来自: JIANGJINGBO123 > 《我的图书馆》