[已解决]哪位老师能帮忙用VBA帮忙写一个聚光灯的代码啊?

eking_tang

因为数据处理量大,经常看错行,求哪位老师能帮忙用VBA帮忙写一个聚光灯的代码啊?
感谢先

最佳答案

月排行榜 / 总排行榜

那么的帅

2014-3-24 11:20

eking_tang 发表于 2014-3-24 08:08
大師~~要的就是這個效果~~太感謝了~~
請問如果要加上列也顯示高亮要怎麼加啊?
不勝感激

1. Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
   
2.     On Error Resume Next
   
3.     Sh.Cells.FormatConditions.Delete
   
4.     With Target.EntireRow.FormatConditions
   
5.         .Delete
   
6.         .Add xlExpression, , "TRUE"
   
7.         .Item(1).Interior.ColorIndex = 28
   
8.     End With
   
9.     With Target.EntireColumn.FormatConditions
   
10.         .Delete
    
11.         .Add xlExpression, , "TRUE"
    
12.         .Item(1).Interior.ColorIndex = 28
    
13.     End With
    
14. End Sub

复制代码

跳转到最佳答案楼层

风林火山

工作表改变事件，网上收集的

1. Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
   
2.     On Error Resume Next
   
3.     Cells.FormatConditions.Delete
   
4.     With Target.EntireRow.FormatConditions
   
5.         .Delete
   
6.         .Add xlExpression, , "TRUE"
   
7.         .Item(1).Interior.ColorIndex = 28
   
8.     End With
   
9. End Sub

复制代码

eking_tang

风林火山 发表于 2014-3-23 13:41
工作表改变事件，网上收集的

感谢版主大人伸手相助
不过我复制进去怎么一点反应都没有啊?

我直接打开excel 然后ALT+F11
点ThisWorkbook然后复制代码进去保存之后一点反应都没有
是不是我操作有问题啊?
求版主大人再科普~感谢

qh8600

没有附件，版主怎么帮你写啊

那么的帅

eking_tang 发表于 2014-3-23 13:59
感谢版主大人伸手相助
不过我复制进去怎么一点反应都没有啊?

如果写在 THISWORKBOOK 里，使用下面的代码

1. Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
   
2.     On Error Resume Next
   
3.     Sh.Cells.FormatConditions.Delete
   
4.     With Target.EntireRow.FormatConditions
   
5.         .Delete
   
6.         .Add xlExpression, , "TRUE"
   
7.         .Item(1).Interior.ColorIndex = 28
   
8.     End With
   
9. End Sub

复制代码

风林火山

eking_tang 发表于 2014-3-23 13:59
感谢版主大人伸手相助
不过我复制进去怎么一点反应都没有啊?

参看附件，代码控制sheet2

eking_tang

那么的帅 发表于 2014-3-23 17:32
如果写在 THISWORKBOOK 里，使用下面的代码

大師~~要的就是這個效果~~太感謝了~~
請問如果要加上列也顯示高亮要怎麼加啊?
不勝感激

eking_tang

风林火山 发表于 2014-3-23 19:07
参看附件，代码控制sheet2

也再次感謝版主大人,不過我的工作表比較多~所以是需要在thisworkbook裡邊寫~~感謝版主大人的撥冗相助

那么的帅

eking_tang 发表于 2014-3-24 08:08
大師~~要的就是這個效果~~太感謝了~~
請問如果要加上列也顯示高亮要怎麼加啊?
不勝感激

1. Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
   
2.     On Error Resume Next
   
3.     Sh.Cells.FormatConditions.Delete
   
4.     With Target.EntireRow.FormatConditions
   
5.         .Delete
   
6.         .Add xlExpression, , "TRUE"
   
7.         .Item(1).Interior.ColorIndex = 28
   
8.     End With
   
9.     With Target.EntireColumn.FormatConditions
   
10.         .Delete
    
11.         .Add xlExpression, , "TRUE"
    
12.         .Item(1).Interior.ColorIndex = 28
    
13.     End With
    
14. End Sub

复制代码

eking_tang

那么的帅 发表于 2014-3-24 11:20

帥哥~~你真帥
I 服了 YOU
真心佩服
不勝感激