除非注明，文章均为 战战如疯 原创，转载请保留链接: http://www.zhanzhanrufeng.com/cat1/380.html，VBA交流群273624828。
本节来看一个工作表的基础事件-SelectionChange，当选择一个新的单元格时会触发该事件，下面来看一个应用。现在要求是当选择一个新的单元格时该单元格的背景色会变成红色，而其他单元格则变为无色。下面看代码
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.Pattern = 0 '去除背景色
Target.Interior.Color = vbRed '当前单元格设为红色
End Sub
SelectionChange事件是针对工作表的事件，只在当前工作表中起作用，参数Target代表当前的活动单元格。如果需要将所有的工作表都设置成这样的事件，你可以在每个工作表对象中都添加相同的代码，当然也可以用类模块来实现，免去重复代码的麻烦，这个我们在后面还会有相应的实例。
本节示例文件下载地址：http://pan.baidu.com/s/1eQqxZzW。
网友评论