ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] §ïÅÜÀx¦s®æÃC¦â

[µo°Ý] §ïÅÜÀx¦s®æÃC¦â

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        ¡@        ¡@
¤W­zµ{¦¡¬Oºô¸ô¤W©Ò¼gªºµ{¦¡
¡@        ¡@        ¡@        ¡@
­Y·Æ¹«²¾¨ì"ªí®æ¤º¤w³]©w®æ¦¡¤Æ±ø¥óªºÀx¦s®æ"ªº¦ì¸m®É¡A¤£·|§ïÅÜ­ì®æ¦¡¤Æªº±ø¥ó
³]©w(¥u¬O§ïÅÜÃC¦â¦Ó¤w)¡C
½Ð±Ð°ª¤â­n¦p¦ó§ï¼g¤W­zµ{¦¡¡C

Àx¦s®æÃC¦â§ïÅÜ.zip (10.9 KB)

¦^´_ 2# n7822123

ÁÂÁ¤j¤jªºÀ°¦£¡C§¹¥þ²Å¦X§Úªº»Ý¨D¡A¦ý¬O§Úµo²{¥t¤@­Ó°ÝÃD:
·í´å¼Ð²¾°Ê¨ìÀx¦s®æ®É¤ÏÀ³¦³ÂIºC¤£¦ÛµM(¦n¹³¦b¹B§@¤@ª½¦b¥´°é°é¡A¦pªG¸ê®Æ¦h®É§óºC)¡C
¦A½Ð±Ð¤j¤j¸Ñ¨M¡C

TOP

¦^´_ 5# n7822123

¦A¦¸ÁÂÁ¤j¤jªºÀ°¦£¡A¸Ñ¨M¤F§Úªº°ÝÃD¡C

TOP

        ÀR«ä¦Û¦b : ¤f»¡¤@¥y¦n¸Ü¡A¦p¤f¥X½¬ªá¡F¤f»¡¤@¥yÃa¸Ü¦p¤f¦R¬r³D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD