[µo°Ý] ¤u§@ªíÃC¦â¨Ì°Ñ¼ÆÅܤÆÅã¥Ü(«æ»Ý¨ó§U)

landylin

Dear ¦U¦ì¤j¤j
          ¦]«æ¤u§@¤W»Ý­n
          ½Ð°Ý¦p¦ó¦b¤u§@ªí¤W ,¬O¥Î¹F¦¨²vµ²ªG°Ï¤ÀÃC¦â  ,¯àª½±µ³sµ²§ïÅÜ«ü©wªº¤u§@ªíÃC¦âÅã¥Ü  
          ·Ð½Ð¨ó§U ,ÁÂÁ !!

¤u§@ªí.rar (1.64 KB)

¤u§@ªíÃC¦â
¤U¸ü¦¸¼Æ: 9

2013-3-11 23:19

landylin

Dear  Hsieh :
           ·PÁ±zªº¨ó§U ,¥i¥H¨Ï¥Î¤F !!

Hsieh

¦^´_ 3# landylin
Åܧó¤uªí¯Á¤Þ¼ÐÅÒÃC¦â¥²¶·¨Ï¥ÎVBA»²§U
­n¹F¨ì¦Û°Ê¤Æ­n¬Ý§AÁ`ªíE6:E8¸ê®Æ¨ú±o¤è¦¡¬°¦ó?
°t¦X¨Æ¥óµ{§Ç¨ÓIJµoVBA
¨Ò¦p:E6:E8¬O¤â°Ê¿é¤J
Á`ªí¤u§@ªí¼Ò²Õ¿é¤J

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Intersect(Target, [E6:E8]) Is Nothing Then Exit Sub
   
3. For Each a In [E6:E8]
   
4.    k = Application.Lookup(a, Array(0, 0.9, 1), Array(3, 6, 4))
   
5.    a.Interior.ColorIndex = k
   
6.    Sheets(Right(a.Offset(, -1), 1)).Tab.ColorIndex = k
   
7. Next
   
8. End Sub

½Æ»s¥N½X

­Y¬°¤½¦¡¨ú±o

1. Private Sub Worksheet_Calculate()
   
2. For Each a In [E6:E8]
   
3.    k = Application.Lookup(a, Array(0, 0.9, 1), Array(3, 6, 4))
   
4.    a.Interior.ColorIndex = k
   
5.    Sheets(Right(a.Offset(, -1), 1)).Tab.ColorIndex = k
   
6. Next
   
7. End Sub

½Æ»s¥N½X

landylin

Dear  Hsieh :
           ÁÂÁ±zªº¦^ÂÐ ,
           ¦ý§Ú­nªº¬O¯à¦P®É¯àÅܧó«ü©wªº¤u§@ªí¯Á¤Þ¼ÐÅÒªºÃC¦â !

Hsieh

¦^´_ 1# landylin
³]©w®æ¦¡¤Æªº±ø¥ó

¤U¸ü (36.12 KB)

2013-3-11 23:56