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

david1216jp

±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ÁÂ!!

¤U¸ü (72.69 KB)

2017-5-30 07:24

Color.zip (6.79 KB)

¤U¸ü¦¸¼Æ: 15

2017-5-30 07:32

lpk187

¦^´_ 1# david1216jp

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

1. Option Explicit
   
2. 
   
3. '·íCÄ椤ªº¤º®e§ïÅÜ®É(³æ¤@Àx¦s®æ)
   
4. Private Sub Worksheet_Change(ByVal Target As Range)
   
5.     If Target.Count = 1 Then
   
6.         If Target.Row > 1 And Target.Column = 3 Then
   
7.             Select Case Target Mod 3 '¨D¾l¼Æ
   
8.                     Case 1 '·í¾l¼Æ¬°1®É¡ARng©Ò¦b¦æªºA¨ìDÄ欰'²L¶À(«á­±¨Ì¦¹Ãþ±À)
   
9.                         Range(Cells(Target.Row, 1), Cells(Target.Row, 4)).Interior.Color = 13434879 '²L¶À
   
10.                     Case 2
    
11.                         Range(Cells(Target.Row, 1), Cells(Target.Row, 4)).Interior.Color = 13434828 '²Lºñ
    
12.                     Case 0
    
13.                         Range(Cells(Target.Row, 1), Cells(Target.Row, 4)).Interior.Color = 16777164 '¤ÑÂÅ
    
14.             End Select
    
15.         End If
    
16.     End If
    
17. End Sub
    
18. 
    
19. '§å¦¸Åܧó
    
20. Sub Ex()
    
21. Dim Rng As Range
    
22.     With Sheets("Color")
    
23.         Set Rng = .Cells(2, 3)
    
24.         Do While Rng <> ""
    
25.             Select Case Rng Mod 3 '¨D¾l¼Æ
    
26.                 Case 1 '·í¾l¼Æ¬°1®É¡ARng©Ò¦b¦æªºA¨ìDÄ欰'²L¶À(«á­±¨Ì¦¹Ãþ±À)
    
27.                     .Range(.Cells(Rng.Row, 1), .Cells(Rng.Row, 4)).Interior.Color = 13434879 '²L¶À
    
28.                 Case 2
    
29.                     .Range(.Cells(Rng.Row, 1), .Cells(Rng.Row, 4)).Interior.Color = 13434828 '²Lºñ
    
30.                 Case 0
    
31.                     .Range(.Cells(Rng.Row, 1), .Cells(Rng.Row, 4)).Interior.Color = 16777164 '¤ÑÂÅ
    
32.             End Select
    
33.             Set Rng = Rng.Offset(1) '²¾¨ì¤U¤@Àx¦s®æ
    
34.         Loop
    
35.         Rng.Select
    
36.     End With
    
37. End Sub

½Æ»s¥N½X

hcm19522

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

david1216jp

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

prin.huang

¦Ò¶q©¹«á¥i¯à·|·Q©w¸q¤£¦PÃC¦â¡A«Øij¥Î°}¦C¡A­×§ï®É¤£¥²§ï¤@°ï§PÂ_¦¡

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

½Æ»s¥N½X

lpk187

¦^´_ 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. 
   
3. '·íCÄ椤ªº¤º®e§ïÅÜ®É(½d³ò)
   
4. Private Sub Worksheet_Change(ByVal Target As Range)
   
5.     Dim tar As Range
   
6.     For Each tar In Target
   
7.         If tar.Value <> "" Then
   
8.             If tar.Row > 1 And tar.Column = 3 Then
   
9.                 Range(Cells(tar.Row, 1), Cells(tar.Row, 4)). _
   
10.                 Interior.Color = GetColor(tar.Value)
    
11.             End If
    
12.         Else
    
13.         Range(Cells(tar.Row, 1), Cells(tar.Row, 4)). _
    
14.                 Interior.Pattern = xlNone
    
15.         End If
    
16.     Next
    
17. End Sub
    
18. 
    
19. '§å¦¸Åܧó
    
20. Sub Ex()
    
21. Dim Rng As Range
    
22. Dim sh As Worksheet
    
23.     Set sh = Sheets("Color")
    
24.     With sh
    
25.         Set Rng = .Cells(2, 3)
    
26.         Do While Rng <> ""
    
27.             .Range(.Cells(Rng.Row, 1), .Cells(Rng.Row, 4)). _
    
28.             Interior.Color = GetColor(Rng.Value)
    
29.             Set Rng = Rng.Offset(1) '²¾¨ì¤U¤@Àx¦s®æ
    
30.         Loop
    
31.         Rng.Select
    
32.     End With
    
33. End Sub
    
34. 
    
35. Public Function GetColor(n As Integer) '¨Ì¾Ú n ­È¨ÓÀò±o¦â½X
    
36.     Select Case n Mod 3
    
37.         Case 1
    
38.            GetColor = 13434879 '²L¶À
    
39.         Case 2
    
40.            GetColor = 13434828 '²Lºñ
    
41.         Case 0
    
42.            GetColor = 16777164 '¤ÑÂÅ
    
43.         
    
44.     End Select
    
45. End Function

½Æ»s¥N½X

lpk187

¦^´_ 5# prin.huang


    ¦Ó§Aªº¥N½X¤]¥i¥H­×§ï¦¨³o¼Ë

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

½Æ»s¥N½X

¬O¤£¬O²MªR¦h¤F

david1216jp

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

prin.huang

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

Hsieh

¦^´_ 1# david1216jp


    ±ø¥ó¤£¦h¥Î®æ¦¡¤Æ±ø¥óª±ª±

¤U¸ü (27.63 KB)

2017-6-15 10:44