excel»E¥ú灯«ç¼Ë¤£¼vÅTì¨Ó®æ¦¡¤WªºÃC¦â
- ©«¤l
- 32
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 41
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN10
- ³nÅ骩¥»
- office2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¿Dªù
- µù¥U®É¶¡
- 2016-11-29
- ³Ì«áµn¿ý
- 2021-5-17
|
excel»E¥ú灯«ç¼Ë¤£¼vÅTì¨Ó®æ¦¡¤WªºÃC¦â
- Private Sub CheckBox1_Click()
- If CheckBox1.Value = False Then
- CheckBox1.Caption = "Ãö"
- ActiveSheet.Cells.Interior.ColorIndex = xlNone
- Else: CheckBox1.Caption = "¶}"
- End If
- End Sub
- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- If CheckBox1.Caption = "¶}" Then Call Spotlight(Target)
- End Sub
- Sub Spotlight(ByVal Target As Excel.Range)
- On Error Resume Next
- Cells.FormatConditions.Delete
- With Target.EntireColumn
- .FormatConditions.Add xlExpression, , "=true"
- .FormatConditions(1).Interior.ColorIndex = 20
- End With
- With Target.EntireRow
- .FormatConditions.Add xlExpression, , "=true"
- .FormatConditions(2).Interior.ColorIndex = 20
- End With
-
- End Sub
½Æ»s¥N½X «ç¼Ë¸Ñ¨MÃö±¼¤§«á¥i¥H§R°£»E¥ú¿O |
|
|
|
|
|
|
- ©«¤l
- 2834
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2890
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-21
|
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
- 2834
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2890
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-21
|
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 |
|
|
|
|
|
|
- ©«¤l
- 32
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 41
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN10
- ³nÅ骩¥»
- office2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¿Dªù
- µù¥U®É¶¡
- 2016-11-29
- ³Ì«áµn¿ý
- 2021-5-17
|
¦^´_ 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
- 2834
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2890
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-21
|
¦^´_ 4# coke373
¬õ¦â¨º¦æ§R°£ |
|
|
|
|
|
|
- ©«¤l
- 32
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 41
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN10
- ³nÅ骩¥»
- office2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¿Dªù
- µù¥U®É¶¡
- 2016-11-29
- ³Ì«áµn¿ý
- 2021-5-17
|
¦^´_ 5# ã´£³¡ªL
ì¨Ó³o¼Ë§R°£¬õ¦â¨º¤@¦æ´N¥i¥H¤F¡CÁÂÁÂã¤j¤j |
|
|
|
|
|
|