如何用VBA制作不影响原底色的聚光灯效果

wangkai850107

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. 
   
3. Dim rg As Range
   
4. Cells.Interior.Color = xlNone
   
5. Set rg = ActiveCell
   
6. 
   
7. rg.EntireRow.Interior.ColorIndex = 3
   
8. rg.EntireRow.Interior.TintAndShade = 0.5
   
9. rg.EntireColumn.Interior.ColorIndex = 6
   
10. rg.EntireColumn.Interior.TintAndShade = 0.5
    
11. 
    
12. 
    
13. End Sub

复制代码

sxbjzjf110

Private Sub Worksheet_SelectionChange(ByVal Target As Range)     Cells.Interior.Pattern = 1     Target.EntireColumn.Interior.Pattern = xlLightUp     Target.EntireColumn.Interior.PatternColor = 5287936     Target.EntireRow.Interior.Pattern = xlLightUp     Target.EntireRow.Interior.PatternColor = 5287936  End Sub

sxbjzjf110

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.Pattern = 1
    Target.EntireColumn.Interior.Pattern = xlLightUp
    Target.EntireColumn.Interior.PatternColor = 5287936
    Target.EntireRow.Interior.Pattern = xlLightUp
    Target.EntireRow.Interior.PatternColor = 5287936

End Sub

songshihai

!!!!!!!!!!!!!!!!!!!!