当鼠标移动时，出现一个大十字来定位

︶ㄣ寒冰

如鼠标点击D6时，出现一个类似的十字，便于对应表头和左侧的项目名。
鼠标可以点击表格中任意位置，点击后出现十字。

扯淡子

【聚光灯效果】http://club.excelhome.net/thread-1014616-1-1.html
版主老师有详细的附件，自行下载使用。

︶ㄣ寒冰

扯淡子 发表于 2016-2-24 00:02
【聚光灯效果】http://club.excelhome.net/thread-1014616-1-1.html
版主老师有详细的附件，自行下载使用 ...

非常感谢！原来叫“聚光灯”，呵呵

bajifeng

你要的效果：

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Target.Count > 1 Then End
   
3. Cells.Interior.ColorIndex = xlColorIndexNone
   
4. Target.EntireColumn.Interior.ColorIndex = 6
   
5. Target.EntireRow.Interior.ColorIndex = 6
   
6. End Sub

复制代码

bajifeng

更先进的效果，您看看区别在哪里哦？

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. 
   
3. If Target.Count > 1 Then End
   
4. 
   
5. Cells.Interior.ColorIndex = xlColorIndexNone
   
6. 
   
7. Target.EntireRow.Interior.ColorIndex = 6    '15
   
8. 
   
9. Target.EntireColumn.Interior.ColorIndex = 6 '15
   
10. 
    
11. Target.Interior.ColorIndex = 0
    
12. 
    
13. End Sub

复制代码

bajifeng

>>>>>>>>>>>>>

bajifeng

补充说明》：
效果1 在表1
效果2 在表2

︶ㄣ寒冰

bajifeng 发表于 2016-2-24 21:26
补充说明》：
效果1 在表1
效果2 在表2

非常感谢，这个是我需要的代码哈！

bajifeng

︶ㄣ寒冰 发表于 2016-2-25 21:20
非常感谢，这个是我需要的代码哈！

恩
你可以自己制定颜色
3为红色，6为黄色，15为灰色。。。

meishishen

非常非常感谢，我只用行就好了，列屏蔽了