我对你有一点动心 却如此害怕看你的眼睛 有那么一点点动心一点点迟疑 不敢相信我的情不自禁…… 今天和大家分享的VBA小代码功能主题是“聚光灯”。所谓聚光灯,可以简单理解成通过对工作表的行列填充颜色,突出显示被选中的单元格,仿佛该单元格被聚光灯照亮似的。 有动态图示意: 看起来是不是蛮炫酷蛮有趣的? 其实制作这样效果的聚光灯,5~6~句代码就足够了。 Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Application.ScreenUpdating = False Cells.Interior.ColorIndex = -4142 '取消单元格原有填充色,但不包含条件格式产生的颜色。 Rows(Target.Row).Interior.ColorIndex = 33 '活动单元格整行填充颜色 Columns(Target.Column).Interior.ColorIndex = 33 '活动单元格整列填充颜色 Application.ScreenUpdating = True End Sub 小贴士: 1、代码使用了工作簿事件,因此需要复制粘贴在VBE界面ThisWorkbook的代码窗口下(具体操作可见上面的动画),如此才对工作簿的每一张工作表起到聚光灯的效果。如果只需要某一张工作表拥有聚光灯,可以换用工作表事件。 2、聚光灯很有用,比如查看明细行列繁多的数据时,可以提高数据阅读清晰度和数据输入的准确度;但一旦使用VBA代码,Excel将会丧失“后悔”功能,也就是说Ctrl Z的撤销功能会失去;另外它会影响Excel的反应效率。 3、该代码会取消单元格原有设置的填充色,但不取消【条件格式】以及【表】功能设置的单元格填充色…… 关于第3点,回复关键词聚光灯,可以获取另外一种聚光灯制作的方法,该方法可以避免取消单元格原有设置的填充色的问题。 明天上班了,别熬夜,拥抱,致安。 The End 一码不扫, ExcelHome VBA编程学习与实践 |
|
来自: L罗乐 > 《VBA常用小代码》