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

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

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

¦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)

¦^´_ 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

TOP

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

TOP

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

TOP

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

TOP

§Q¥ÎG¤jªº¨Ó­×§ï~
  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.         
  9. If Rng.Offset(0, -2) = "¦çªA" Or Rng.Offset(0, -2) = "¾c¤l" Then
  10.     Rng.Offset(0, -2).Interior.ColorIndex = 6
  11. End If
  12. '===¥[³o¤@¬q§PÂ_«~¦WªºÃC¦â
  13.         Select Case Rng.Value

  14.             Case 1 To 10       '¼Æ¶q 1-10ªº¬°¬õ¦â

  15.                 C = 3

  16.                 Font_Color = 6

  17.             Case 11 To 20       '¼Æ¶q 11-20¬°ºñ¦â

  18.                 C = 10

  19.             Case 21 To 30       '¼Æ¶q 21-30¬°ÂŦâ

  20.                 C = 5

  21.                 Font_Color = 2

  22.             Case 31 To 40       '¼Æ¶q 31-40¬°²HÂŦâ

  23.                 C = 8

  24.             Case Else           '¨ä¾l¼Æ¶q

  25.                 C = xlAutomatic

  26.         End Select

  27.         Rng.Interior.ColorIndex = C

  28.         Rng.Font.ColorIndex = Font_Color

  29.         Set Rng = Rng.Offset(1)   '¼Æ¶q ¤U²¾¤@¦C

  30.     Loop While Rng <> ""        'Â÷¶} °j°é : ¼Æ¶q=""

  31. End Sub
½Æ»s¥N½X
¦^´_ 4# lbs1252
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¤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

TOP

¤£ª¾¹D³o¼Ë¬O¤£¬O§A­nªºµ²ªG~
  1. Sub Ex()


  2.     Dim Rng As Range, C As Integer, Font_Color As Integer


  3.     Set Rng = Sheets("ªF¹B¡Ð¸ê®Æ½d¨Ò").[D2]  '¼Æ¶q


  4.     ' ¼Æ¶q1-10ªº¬°¬õ¦â   11-20¬°ºñ¦â 21-30¬°ÂŦâ 31-40¬°²HÂŦâ


  5.     Do


  6.         Font_Color = xlAutomatic  '¦rÅéÃC¦â

  7.         

  8. If Rng.Offset(0, -2) = "¦çªA" Then
  9.    Rng.Offset(0, -2).Interior.ColorIndex = 6
  10. ElseIf Rng.Offset(0, -2) = "¾c¤l" Then
  11.    Rng.Offset(0, -2).Interior.ColorIndex = 15
  12. Else
  13.   GoTo 1
  14. End If
  15. '===¥[³o¤@¬q§PÂ_«~¦WªºÃC¦â¡A¦pªG¨S¦³²Å¦X«~¦Wªº~ ¨ä¼Æ¶q´N¤£¼ÐÃC¦â

  16.         Select Case Rng.Value


  17.             Case 1 To 10       '¼Æ¶q 1-10ªº¬°¬õ¦â


  18.                 C = 3


  19.                 Font_Color = 6


  20.             Case 11 To 20       '¼Æ¶q 11-20¬°ºñ¦â


  21.                 C = 10


  22.             Case 21 To 30       '¼Æ¶q 21-30¬°ÂŦâ


  23.                 C = 5


  24.                 Font_Color = 2


  25.             Case 31 To 40       '¼Æ¶q 31-40¬°²HÂŦâ


  26.                 C = 8


  27.             Case Else           '¨ä¾l¼Æ¶q


  28.                 C = xlAutomatic


  29.         End Select


  30.         Rng.Interior.ColorIndex = C


  31.         Rng.Font.ColorIndex = Font_Color

  32. 1
  33.         Set Rng = Rng.Offset(1)   '¼Æ¶q ¤U²¾¤@¦C


  34.     Loop While Rng <> ""        'Â÷¶} °j°é : ¼Æ¶q=""


  35. End Sub
½Æ»s¥N½X
¦^´_ 7# lbs1252
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

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

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-10-5 18:36 ½s¿è

¦^´_ 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

TOP

        ÀR«ä¦Û¦b : ¨ü¤HÂI¤ô¤§®¦¡A¶··í´é¬u¥H³ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD