- ©«¤l
- 12
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 64
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN10
- ³nÅ骩¥»
- office 2016
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2018-3-8
- ³Ì«áµn¿ý
- 2019-11-25
|
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Application.CutCopyMode = xlCopy Then Me.Paste
On Error Resume Next
[colorCell].FormatConditions.Delete
Target.Name = "colorCell"
With [colorCell].FormatConditions ' ³]©w®æ¦¡¤Æ±ø¥ó
.Delete ¡@ ¡@
.Add xlExpression, , "TRUE" ' ±ø¥ó(¤@)¤º¤½¦¡¬°
.Item(1).Interior.ColorIndex = 40 ' .Item(1)µ¥©óFormatConditions(1)
.Item(1).Font.Bold = True
End With ¡@ ¡@
End Sub ¡@ ¡@
¤Wzµ{¦¡¬Oºô¸ô¤W©Ò¼gªºµ{¦¡
¡@ ¡@ ¡@ ¡@
Y·Æ¹«²¾¨ì"ªí®æ¤º¤w³]©w®æ¦¡¤Æ±ø¥óªºÀx¦s®æ"ªº¦ì¸m®É¡A¤£·|§ïÅÜì®æ¦¡¤Æªº±ø¥ó
³]©w(¥u¬O§ïÅÜÃC¦â¦Ó¤w)¡C
½Ð±Ð°ª¤ân¦p¦ó§ï¼g¤Wzµ{¦¡¡C |
|