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

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

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

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)

¦^´_ 1# landylin
³]©w®æ¦¡¤Æªº±ø¥ó
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

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

TOP

¦^´_ 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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

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

TOP

        ÀR«ä¦Û¦b : °ß¨ä´L­«¦Û¤vªº¤H¡A¤~§ó«i©óÁY¤p¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD