Excel表格实现聚光灯功能-VBA方法

yuezheng710

        最近研究了下Excel表格针对单个单元格实现聚光灯的方法，这样在表中行列数据很多的时候，可以准确定位到对的单元格，效果如下图：

        网上找到很多方法，基本原理大都是使用“条件格式”中自定义公式，然后在sheet的change事件中加入Calculate进行易失性处理，但是该方法只适用于一个sheet，多一个sheet就要多一次设定，条件设置也比较麻烦。

       本文给出只需简单的几句VBA语句来实现“聚光灯”功能，并且适用于Workbook中的所有Sheet，具体方法如下：

• Alt+F11组合键，调出VBE编译界面；
  
• 点中“工程”栏中的“ThisWookbook”
  
  

    3. 再按下图选择“Workbook”中的“SheetSelectionChange”事件

    4. 此时代码编译窗口就会自动出现子过程：

1. Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
   
2. End Sub

复制代码

    在这两句中输入/复制如下代码：

1. Dim v() As String, m As String
   
2.    
   
3. v = Split(Target.Address, ":")
   
4. If UBound(v) - LBound(v) = 0 Then
   
5.     v = Split(v(0), "[        DISCUZ_CODE_1        ]quot;)
   
6.     m = v(1) & ":" & v(1) & "," & v(2) & ":" & v(2)
   
7.     Range(m).Select
   
8.     Target.Activate
   
9. End If

复制代码

    5. 实际效果如下图：

    6. 至此，回到表格中愉快的操作吧
    7. 当然，操作结束后另存为启用宏的工作簿（xlsm）格式，即可将此VBA代码保存到工作簿中；
    8. 如果保存为xlsx格式，则不会保存此VBA代码，当然由于代码很简单，每次需要的时候操作复制下也很简单，依个人喜好自定。

lwz2019

整体运行效果不错，就是选定单个单元格后 “+”没有显示了！一个以上可以！

wych12

请教楼主，这个方法如何修改显示颜色和高亮所选单元格呢？希望完善！

huanghai22

复制粘贴回怎么样？

ャ想想ャ

请问楼主，这个代码，如果是遇上合并的单元格。

当表头上是有一行合并单元格时，
那么会选中整个这个被合并的区域，这能怎么分开呢？

xiaomils

试一试，感谢！

gwjkkkkk

还不错，学习下。。。

smiletwo

wych12 发表于 2020-10-19 21:21
请教楼主，这个方法如何修改显示颜色和高亮所选单元格呢？希望完善！

添加 一句  Range(m).Interior.Color = vbGreen '可改成自己想要的颜色
问题是，失去焦点后如何恢复为原来的颜色

aecn

不错，已应用，已收藏

李宏刚

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