§Æ±æ¤j¤jÀ°¦£¤@¤U¤U ¦p¦ó¼Ð°O

lbs1252

¦U¦ì¤j¤j¦n   ¤p§Ì·Q½Ð°Ý¤@¤U  ¦p¦ó¥Î¥¨¶°¨Ó¼ÐµùÃC¦â  
¦pªþ¥ó    §Ú·Q­nÅý«~¦W¬°¦çªA ¾c¤l ªº©³¦â¬°¶À¦â
                ¼Æ¶q1-10ªº¬°¬õ¦â   11-20¬°ºñ¦â 21-30¬°ÂŦâ 31-40¬°²HÂŦâ
               ³o¼Ë¸Ó¦p¦ó¼g   ³Â·Ð¦U¦ì¤j¤j 123.rar (10.94 KB)

¤U¸ü¦¸¼Æ: 11

2012-10-4 16:54

GBKEE

¦^´_ 1# lbs1252
¥Î¤u§@ªí«ü¥O ®æ¦¡->³]©w®æ¦¡¤Æ±ø¥ó, ¤]¥i¹F¨ì§Aªº´Á±æ.
VBAµ{¦¡½X

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng As Range, C As Integer, Font_Color As Integer
   
4.     Set Rng = Sheets("ªF¹B¡Ð¸ê®Æ½d¨Ò").[D2]  '¼Æ¶q
   
5.     ' ¼Æ¶q1-10ªº¬°¬õ¦â   11-20¬°ºñ¦â 21-30¬°ÂŦâ 31-40¬°²HÂŦâ
   
6.     Do
   
7.         Font_Color = xlAutomatic  '¦rÅéÃC¦â
   
8.         Select Case Rng.Value
   
9.             Case 1 To 10       '¼Æ¶q 1-10ªº¬°¬õ¦â
   
10.                 C = 3
    
11.                 Font_Color = 6
    
12.             Case 11 To 20       '¼Æ¶q 11-20¬°ºñ¦â
    
13.                 C = 10
    
14.             Case 21 To 30       '¼Æ¶q 21-30¬°ÂŦâ
    
15.                 C = 5
    
16.                 Font_Color = 2
    
17.             Case 31 To 40       '¼Æ¶q 31-40¬°²HÂŦâ
    
18.                 C = 8
    
19.             Case Else           '¨ä¾l¼Æ¶q
    
20.                 C = xlAutomatic
    
21.         End Select
    
22.         Rng.Interior.ColorIndex = C
    
23.         Rng.Font.ColorIndex = Font_Color
    
24.         Set Rng = Rng.Offset(1)   '¼Æ¶q ¤U²¾¤@¦C
    
25.     Loop While Rng <> ""        'Â÷¶} °j°é : ¼Æ¶q=""
    
26. End Sub

½Æ»s¥N½X

lbs1252

·PÁ¤j¤j¤p§Ì°¨¤W¸Õ¸Õ

lbs1252

ªO¤jÁÂÁ§A   ¤£¹LÃö©ó«~¦W¤è­±ªºÃC¦â¤p§Ì¸Ó¦p¦ó³]©w   ¸U¤À·P¿E

lbs1252

¤p§Ì§ä¨ì¤èªk¤F   ·P®¦ªü

hugh0620

§Q¥ÎG¤jªº¨Ó­×§ï~

1. Option Explicit
   
2. 
   
3. Sub Ex()
   
4. 
   
5.     Dim Rng As Range, C As Integer, Font_Color As Integer
   
6. 
   
7.     Set Rng = Sheets("ªF¹B¡Ð¸ê®Æ½d¨Ò").[D2]  '¼Æ¶q
   
8. 
   
9.     ' ¼Æ¶q1-10ªº¬°¬õ¦â   11-20¬°ºñ¦â 21-30¬°ÂŦâ 31-40¬°²HÂŦâ
   
10. 
    
11.     Do
    
12. 
    
13.         Font_Color = xlAutomatic  '¦rÅéÃC¦â
    
14.         
    
15. If Rng.Offset(0, -2) = "¦çªA" Or Rng.Offset(0, -2) = "¾c¤l" Then
    
16.     Rng.Offset(0, -2).Interior.ColorIndex = 6
    
17. End If
    
18. '===¥[³o¤@¬q§PÂ_«~¦WªºÃC¦â
    
19.         Select Case Rng.Value
    
20. 
    
21.             Case 1 To 10       '¼Æ¶q 1-10ªº¬°¬õ¦â
    
22. 
    
23.                 C = 3
    
24. 
    
25.                 Font_Color = 6
    
26. 
    
27.             Case 11 To 20       '¼Æ¶q 11-20¬°ºñ¦â
    
28. 
    
29.                 C = 10
    
30. 
    
31.             Case 21 To 30       '¼Æ¶q 21-30¬°ÂŦâ
    
32. 
    
33.                 C = 5
    
34. 
    
35.                 Font_Color = 2
    
36. 
    
37.             Case 31 To 40       '¼Æ¶q 31-40¬°²HÂŦâ
    
38. 
    
39.                 C = 8
    
40. 
    
41.             Case Else           '¨ä¾l¼Æ¶q
    
42. 
    
43.                 C = xlAutomatic
    
44. 
    
45.         End Select
    
46. 
    
47.         Rng.Interior.ColorIndex = C
    
48. 
    
49.         Rng.Font.ColorIndex = Font_Color
    
50. 
    
51.         Set Rng = Rng.Offset(1)   '¼Æ¶q ¤U²¾¤@¦C
    
52. 
    
53.     Loop While Rng <> ""        'Â÷¶} °j°é : ¼Æ¶q=""
    
54. 
    
55. End Sub

½Æ»s¥N½X

¦^´_ 4# lbs1252

lbs1252

¤j¤j¤p§Ì¦b½Ð°Ý¤@¤U
¦pªG§Ú¥u­n¦çªA³Q¼Ð°O°_¨Ó  ¨º¥¦¼Æ¶q¤~·|³Q¼Ð°O°_¨Ó¦ýÃC¦â­n¤£¦P¸Ó¦p¦ó°µ
¦p¦çªA³Q¼Ð°O¶À¦â    ¨º¥¦ªº¼Æ¶q1-10ªº¬°¬õ¦â   11-20¬°ºñ¦â 21-30¬°ÂŦâ 31-40¬°²HÂŦâ
¾c¤l³Q¼Ð°O¬°¦Ç¦â    ¨º¥¦ªº¼Æ¶q1-10ªº¬°¬õ¦â   11-20¬°ºñ¦â 21-30¬°ÂŦâ 31-40¬°²HÂŦâ
  ¦b³Â·Ð¤j¤j¤F

hugh0620

¤£ª¾¹D³o¼Ë¬O¤£¬O§A­nªºµ²ªG~

1. Sub Ex()
   
2. 
   
3. 
   
4.     Dim Rng As Range, C As Integer, Font_Color As Integer
   
5. 
   
6. 
   
7.     Set Rng = Sheets("ªF¹B¡Ð¸ê®Æ½d¨Ò").[D2]  '¼Æ¶q
   
8. 
   
9. 
   
10.     ' ¼Æ¶q1-10ªº¬°¬õ¦â   11-20¬°ºñ¦â 21-30¬°ÂŦâ 31-40¬°²HÂŦâ
    
11. 
    
12. 
    
13.     Do
    
14. 
    
15. 
    
16.         Font_Color = xlAutomatic  '¦rÅéÃC¦â
    
17. 
    
18.         
    
19. 
    
20. If Rng.Offset(0, -2) = "¦çªA" Then
    
21.    Rng.Offset(0, -2).Interior.ColorIndex = 6
    
22. ElseIf Rng.Offset(0, -2) = "¾c¤l" Then
    
23.    Rng.Offset(0, -2).Interior.ColorIndex = 15
    
24. Else
    
25.   GoTo 1
    
26. End If
    
27. '===¥[³o¤@¬q§PÂ_«~¦WªºÃC¦â¡A¦pªG¨S¦³²Å¦X«~¦Wªº~ ¨ä¼Æ¶q´N¤£¼ÐÃC¦â
    
28. 
    
29.         Select Case Rng.Value
    
30. 
    
31. 
    
32.             Case 1 To 10       '¼Æ¶q 1-10ªº¬°¬õ¦â
    
33. 
    
34. 
    
35.                 C = 3
    
36. 
    
37. 
    
38.                 Font_Color = 6
    
39. 
    
40. 
    
41.             Case 11 To 20       '¼Æ¶q 11-20¬°ºñ¦â
    
42. 
    
43. 
    
44.                 C = 10
    
45. 
    
46. 
    
47.             Case 21 To 30       '¼Æ¶q 21-30¬°ÂŦâ
    
48. 
    
49. 
    
50.                 C = 5
    
51. 
    
52. 
    
53.                 Font_Color = 2
    
54. 
    
55. 
    
56.             Case 31 To 40       '¼Æ¶q 31-40¬°²HÂŦâ
    
57. 
    
58. 
    
59.                 C = 8
    
60. 
    
61. 
    
62.             Case Else           '¨ä¾l¼Æ¶q
    
63. 
    
64. 
    
65.                 C = xlAutomatic
    
66. 
    
67. 
    
68.         End Select
    
69. 
    
70. 
    
71.         Rng.Interior.ColorIndex = C
    
72. 
    
73. 
    
74.         Rng.Font.ColorIndex = Font_Color
    
75. 
    
76. 1
    
77.         Set Rng = Rng.Offset(1)   '¼Æ¶q ¤U²¾¤@¦C
    
78. 
    
79. 
    
80.     Loop While Rng <> ""        'Â÷¶} °j°é : ¼Æ¶q=""
    
81. 
    
82. 
    
83. End Sub

½Æ»s¥N½X

¦^´_ 7# lbs1252

lbs1252

¤j¤j¬O³o¼Ë¨S¿ù
¹L­Y§Ú·Q§ïÅÜ«~¦Wªº¦ì¸m§Ú¸Ó¦p¦ó§ïÅÜ
·PÁ±оÉ

GBKEE

¦^´_ 9# lbs1252

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng As Range, C As Integer, Font_Color As Integer
   
4.     Set Rng = Sheets("ªF¹B¡Ð¸ê®Æ½d¨Ò").[B2]     '«~¦W
   
5.     Do
   
6.         If Rng = "¦çªA" And Rng.Interior.ColorIndex = 6 Or _
   
7.          Rng = "¾c" And Rng.Interior.ColorIndex = 15 Then  'Rng = "¦çªA" AND(¥B) ¹Ï¼Ë.ÃC¦â­È= 6(¶À¦â)  OR(©Î)  Rng = "¾c" AND(¥B) ¹Ï¼Ë.ÃC¦â­È= 15(¦Ç¦â)
   
8.                                                            '1#ªºÀÉ®× «~¦W ¬O "¾c"  «D "¾c¤l"
   
9.             Font_Color = xlAutomatic            '¦rÅéÃC¦â
   
10.             Select Case Rng.Offset(, 2).Value   '«~¦W ¥k²¾2Ä欰 ¼Æ¶q
    
11.                 Case 1 To 10                    '¼Æ¶q 1-10ªº¬°¬õ¦â
    
12.                     C = 3
    
13.                     Font_Color = 6
    
14.                 Case 11 To 20                   '¼Æ¶q 11-20¬°ºñ¦â
    
15.                     C = 10
    
16.                 Case 21 To 30                   '¼Æ¶q 21-30¬°ÂŦâ
    
17.                     C = 5
    
18.                     Font_Color = 2
    
19.                 Case 31 To 40                   '¼Æ¶q 31-40¬°²HÂŦâ
    
20.                     C = 8
    
21.                 Case Else                       '¨ä¾l¼Æ¶q
    
22.                     C = xlAutomatic
    
23.             End Select
    
24.             Rng.Offset(, 2).Interior.ColorIndex = C
    
25.             Rng.Offset(, 2).Font.ColorIndex = Font_Color
    
26.         End If
    
27.         Set Rng = Rng.Offset(1)                 '«~¦W ¤U²¾¤@¦C
    
28.     Loop While Rng <> ""                        'Â÷¶} °j°é : «~¦W=""
    
29. End Sub

½Æ»s¥N½X