lbs1252

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

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