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

[µo°Ý] ½Ð±Ð¤WÃC¦â°ÝÃD¡A·PÁÂ!!

[µo°Ý] ½Ð±Ð¤WÃC¦â°ÝÃD¡A·PÁÂ!!

¥»©«³Ì«á¥Ñ david1216jp ©ó 2017-5-30 07:32 ½s¿è

±z¦n¡A½Ð°Ý¤@¤U¦U¦ì«e½ú¡A
§Ú·Q¸ß°Ý¦p¦óÅý¾ã¦CªºÃC¦â~¨Ì¾ÚCÄ檺¤é´Á¤WÃC¦âÂà¤Æ¬°vbaªº¼gªk¡A
§Y¶À(¤é´Á1)¡÷ºñ(¤é´Á2)¡÷ÂÅ(¤é´Á3)¡÷¶À(¤é´Á4)¡÷ºñ(¤é´Á5)¡÷ÂÅ(¤é´Á6)¡÷¶À(¤é´Á7)¡÷ºñ(¤é´Á8)¡÷ÂÅ(¤é´Á9).....
ÁٽЫe½úÀ°¦£¡A«D±`·PÁÂ!!

Color.zip (6.79 KB)

¦^´_ 1# david1216jp

2­Ó¤è¦¡¡A·íCÄ椤ªº¤º®e§ïÅÜ®É(³æ¤@Àx¦s®æ)©M§å¦¸Åܧó
  1. Option Explicit

  2. '·íCÄ椤ªº¤º®e§ïÅÜ®É(³æ¤@Àx¦s®æ)
  3. Private Sub Worksheet_Change(ByVal Target As Range)
  4.     If Target.Count = 1 Then
  5.         If Target.Row > 1 And Target.Column = 3 Then
  6.             Select Case Target Mod 3 '¨D¾l¼Æ
  7.                     Case 1 '·í¾l¼Æ¬°1®É¡ARng©Ò¦b¦æªºA¨ìDÄ欰'²L¶À(«á­±¨Ì¦¹Ãþ±À)
  8.                         Range(Cells(Target.Row, 1), Cells(Target.Row, 4)).Interior.Color = 13434879 '²L¶À
  9.                     Case 2
  10.                         Range(Cells(Target.Row, 1), Cells(Target.Row, 4)).Interior.Color = 13434828 '²Lºñ
  11.                     Case 0
  12.                         Range(Cells(Target.Row, 1), Cells(Target.Row, 4)).Interior.Color = 16777164 '¤ÑÂÅ
  13.             End Select
  14.         End If
  15.     End If
  16. End Sub

  17. '§å¦¸Åܧó
  18. Sub Ex()
  19. Dim Rng As Range
  20.     With Sheets("Color")
  21.         Set Rng = .Cells(2, 3)
  22.         Do While Rng <> ""
  23.             Select Case Rng Mod 3 '¨D¾l¼Æ
  24.                 Case 1 '·í¾l¼Æ¬°1®É¡ARng©Ò¦b¦æªºA¨ìDÄ欰'²L¶À(«á­±¨Ì¦¹Ãþ±À)
  25.                     .Range(.Cells(Rng.Row, 1), .Cells(Rng.Row, 4)).Interior.Color = 13434879 '²L¶À
  26.                 Case 2
  27.                     .Range(.Cells(Rng.Row, 1), .Cells(Rng.Row, 4)).Interior.Color = 13434828 '²Lºñ
  28.                 Case 0
  29.                     .Range(.Cells(Rng.Row, 1), .Cells(Rng.Row, 4)).Interior.Color = 16777164 '¤ÑÂÅ
  30.             End Select
  31.             Set Rng = Rng.Offset(1) '²¾¨ì¤U¤@Àx¦s®æ
  32.         Loop
  33.         Rng.Select
  34.     End With
  35. End Sub
½Æ»s¥N½X

TOP

http://blog.xuite.net/hcm19522/twblog/509695526

3233.png (12.77 KB)

3233.png

google"EXCEL°g"  blog  ©Îgoogleºô§}:https://hcm19522.blogspot.com/

TOP

·PÁ«e½úÀ°¦£¡A§Ú­è­è´ú¸Õ¥i¥H¹F¨ì§Ú­nªº¥Øªº¡A
¯uªº«D±`·PÁÂÀ°¦£¡A¦A¦¸ÁÂÁ«e½ú!!

TOP

¦Ò¶q©¹«á¥i¯à·|·Q©w¸q¤£¦PÃC¦â¡A«Øij¥Î°}¦C¡A­×§ï®É¤£¥²§ï¤@°ï§PÂ_¦¡
  1. Sub GiveColor()
  2. Dim ColorArr(), I%

  3. ColorArr = Array("", "13434879", "13434879", "13434879", "13434828", "13434828", "13434828", "16777164", "16777164", "16777164") '©w¸q±q0~9ªºÃC¦â
  4. I = 2   '°_©l¦C
  5. With ActiveSheet
  6.     Do While .Cells(I, 4) <> ""
  7.         .Range(.Cells(I, 1), .Cells(I, 4)).Interior.Color = ColorArr(.Cells(I, 4))
  8.         I = I + 1
  9.     Loop
  10. End With
  11. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ lpk187 ©ó 2017-5-31 17:39 ½s¿è

¦^´_ 5# prin.huang
¤£¦n·N«ä¡A§Ú¨Ã¤£¬O¨Ó¦R¼Ñªº¡I
°}¦C¤£¬O¦nºûÅ@ªº¡A¤]¤£¬O³Ì¦n©w¸qªº¡I°}¦Cªº³t«×¬O«Ü§Ö¡A¦ý§PÂ_¤]¤£¨£±oºC¦h¤Ö`¡A¼g¥N½X¤£¨£±o§Ö´N¬O³Ì¦n¡A¦Ó¬O¤é«á®e©öºûÅ@¡A
¥i¥H­«¸ü(¦A¨Ï¥Î)ªº¥N½X³Ì¦n¥Î¨ç¼Æ¥h¼g¡A
¥H¤é«áºûÅ@¨Ó»¡¡A¨Ì§Aªº¤èªk§A·|§ï¦ºªº¡A¨Ã¤£«Øij§A¦p¦¹¨Ï¥Î¡A´N¹³¨Ì¥»½g¼Ó¥Dªº°ÝÃD¨Ó»¡¦n¤F¡A¼Ó¥D¬O¨Ì¾Ú"¤é"ªº¤£¦P¨ÓÅܧó¦æªº¦â±m
­Y¨Ì¦p¦¹§A¬O¤£¬O­n©w¸q31­Ó°}¦Cªº­È¡H(°}¦Cªº­È¿é¤J¡A³Ì¦n¬OŪ¨ú½d³ò©Î¦Û°Ê²£¥Í¡A¥i¥Hªº¸Ü³Ì¦n¤£­n¥´¦r¡I¡I)
31­ÓÁÙ¦n¡A¨º300­Ó¡B3000­Ó¬Æ¦Ü30000­Ó©O¡H¨º®ÉªººûÅ@¬O­þ­Ó®e©ö¡H¦Ó¥Bµ{¦¡½X¤]·|«Ü¤¾ªøªº¡C
¨ä¹ê¤é«á­nµ{¦¡½X¦nºûÅ@©Î®e©ö§ó§ï¡A³Ì¦nªº¤è¦¡¬O¼g¨ç¼Æ(¤èªk)´À¥N¡C
¥H§Ú­ì¨Ó¼gªº­ì¥N½X¨Ó»¡¡A¨ä¹ê­Y¬O¦h¤@­Ó¨ç¼Æ(¤èªk)ªº¸Ü¡A¨º©w¸q¦â±m¬O¤£¬O´N®e©ö¦h¤F¡A¤é«á¼W´î¤]®e©ö¡A¥u­n­×§ï¨ç¼Æ§Y¥i
­×§ï«á¥N½X¦p¤U¡G
  1. Option Explicit

  2. '·íCÄ椤ªº¤º®e§ïÅÜ®É(½d³ò)
  3. Private Sub Worksheet_Change(ByVal Target As Range)
  4.     Dim tar As Range
  5.     For Each tar In Target
  6.         If tar.Value <> "" Then
  7.             If tar.Row > 1 And tar.Column = 3 Then
  8.                 Range(Cells(tar.Row, 1), Cells(tar.Row, 4)). _
  9.                 Interior.Color = GetColor(tar.Value)
  10.             End If
  11.         Else
  12.         Range(Cells(tar.Row, 1), Cells(tar.Row, 4)). _
  13.                 Interior.Pattern = xlNone
  14.         End If
  15.     Next
  16. End Sub

  17. '§å¦¸Åܧó
  18. Sub Ex()
  19. Dim Rng As Range
  20. Dim sh As Worksheet
  21.     Set sh = Sheets("Color")
  22.     With sh
  23.         Set Rng = .Cells(2, 3)
  24.         Do While Rng <> ""
  25.             .Range(.Cells(Rng.Row, 1), .Cells(Rng.Row, 4)). _
  26.             Interior.Color = GetColor(Rng.Value)
  27.             Set Rng = Rng.Offset(1) '²¾¨ì¤U¤@Àx¦s®æ
  28.         Loop
  29.         Rng.Select
  30.     End With
  31. End Sub

  32. Public Function GetColor(n As Integer) '¨Ì¾Ú n ­È¨ÓÀò±o¦â½X
  33.     Select Case n Mod 3
  34.         Case 1
  35.            GetColor = 13434879 '²L¶À
  36.         Case 2
  37.            GetColor = 13434828 '²Lºñ
  38.         Case 0
  39.            GetColor = 16777164 '¤ÑÂÅ
  40.         
  41.     End Select
  42. End Function
½Æ»s¥N½X

TOP

¦^´_ 5# prin.huang


    ¦Ó§Aªº¥N½X¤]¥i¥H­×§ï¦¨³o¼Ë
  1. Sub GiveColor()
  2. Dim ColorArr(), I%

  3. ColorArr = Array("13434879", "13434828", "16777164") '©w¸q±q0~9ªºÃC¦â
  4. I = 2   '°_©l¦C
  5. With ActiveSheet
  6.     Do While .Cells(I, 3) <> ""
  7.         .Range(.Cells(I, 1), .Cells(I, 4)).Interior.Color = ColorArr(.Cells(I, 3) Mod 3)
  8.         I = I + 1
  9.     Loop
  10. End With
  11. End Sub
½Æ»s¥N½X
¬O¤£¬O²MªR¦h¤F

TOP

·PÁ«e½ú­Ì´£¨Ñ¤èªk¡AÅý§Ú¾Ç¨ì«Ü¦h¡A¦A¦¸·PÁ«e½ú­Ì¡C
¤]ÁÂÁ³o½×¾ÂÅý¤j®a¦³¤¬¬Û¥æ¬yªº¾÷·|¡A§Ú«Ü·P¿E«e½ú­Ìªº±Ð¾É!!

TOP

¦^´_ 6# lpk187
½T¹ê¡A¥Îfunction¨ÓºûÅ@¡A·|¸û¤£©ö¥X¿ù

TOP

¦^´_ 1# david1216jp


    ±ø¥ó¤£¦h¥Î®æ¦¡¤Æ±ø¥óª±ª±
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¦Û¤v®`¦Û¤v¡A²ö¹L©ó¶ÃµoµÊ®ð¡C
ªð¦^¦Cªí ¤W¤@¥DÃD