excel»E¥ú灯«ç¼Ë¤£¼vÅT­ì¨Ó®æ¦¡¤WªºÃC¦â

coke373

1. Private Sub CheckBox1_Click()
   
2. If CheckBox1.Value = False Then
   
3. CheckBox1.Caption = "Ãö"
   
4. ActiveSheet.Cells.Interior.ColorIndex = xlNone
   
5. Else: CheckBox1.Caption = "¶}"
   
6. End If
   
7. End Sub
   
8. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
9. If CheckBox1.Caption = "¶}" Then Call Spotlight(Target)
   
10. End Sub
    
11. Sub Spotlight(ByVal Target As Excel.Range)
    
12. On Error Resume Next
    
13. Cells.FormatConditions.Delete
    
14. With Target.EntireColumn
    
15. 
    
16.             .FormatConditions.Add xlExpression, , "=true"
    
17. 
    
18.             .FormatConditions(1).Interior.ColorIndex = 20
    
19. 
    
20.         End With
    
21. 
    
22.         With Target.EntireRow
    
23. 
    
24.             .FormatConditions.Add xlExpression, , "=true"
    
25. 
    
26.             .FormatConditions(2).Interior.ColorIndex = 20
    
27. 
    
28.         End With
    
29. 
    
30. End Sub

½Æ»s¥N½X

«ç¼Ë¸Ñ¨MÃö±¼¤§«á¥i¥H§R°£»E¥ú¿O

­ã´£³¡ªL

Private Sub CheckBox1_Click()
If CheckBox1.Value = False Then
   CheckBox1.Caption = "Ãö"
  'ActiveSheet.Cells.Interior.ColorIndex = xlNone
  Cells.FormatConditions.Delete
Else: CheckBox1.Caption = "¶}"
End If
End Sub

­ã´£³¡ªL

Sub Spotlight(ByVal Target As Excel.Range)
Cells.FormatConditions.Delete
With Union(Target.EntireColumn, Target.EntireRow)
     .FormatConditions.Add xlExpression, , "=true"
     .FormatConditions(1).Interior.ColorIndex = 20
End With
End Sub

coke373

¦^´_ 2# ­ã´£³¡ªL
ÁÂÁ­ã¤j¤j
§Ú¸Õ¹L¥[¤W³o¤@¥y¡GCells.FormatConditions.Delete
¦ý¬O·|§â§Ú­ì¨Óªí®æ¤Wªº©Ò¥HÃC¦â³£§R°£¡A½Ð°Ý­ã¤j¬O¤£¬O¤£¯à³æ¿W§R°£»E¥ú¿Oªº¤Q¦r¦ì¡C

­ã´£³¡ªL

¦^´_ 4# coke373


¬õ¦â¨º¦æ§R°£

coke373

¦^´_ 5# ­ã´£³¡ªL
­ì¨Ó³o¼Ë§R°£¬õ¦â¨º¤@¦æ´N¥i¥H¤F¡CÁÂÁ­ã¤j¤j