§Æ±æ¤j¤jÀ°¦£¤@¤U¤U ¦p¦ó¼Ð°O
- ©«¤l
- 18
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 29
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFUCE 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW¥x¥_
- µù¥U®É¶¡
- 2012-8-29
- ³Ì«áµn¿ý
- 2016-7-17
|
§Æ±æ¤j¤jÀ°¦£¤@¤U¤U ¦p¦ó¼Ð°O
¦U¦ì¤j¤j¦n ¤p§Ì·Q½Ð°Ý¤@¤U ¦p¦ó¥Î¥¨¶°¨Ó¼ÐµùÃC¦â
¦pªþ¥ó §Ú·QnÅý«~¦W¬°¦çªA ¾c¤l ªº©³¦â¬°¶À¦â
¼Æ¶q1-10ªº¬°¬õ¦â 11-20¬°ºñ¦â 21-30¬°ÂŦâ 31-40¬°²HÂŦâ
³o¼Ë¸Ó¦p¦ó¼g ³Â·Ð¦U¦ì¤j¤j
123.rar (10.94 KB)
|
|
|
|
|
|
|
- ©«¤l
- 18
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 29
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFUCE 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW¥x¥_
- µù¥U®É¶¡
- 2012-8-29
- ³Ì«áµn¿ý
- 2016-7-17
|
|
|
|
|
|
|
- ©«¤l
- 18
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 29
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFUCE 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW¥x¥_
- µù¥U®É¶¡
- 2012-8-29
- ³Ì«áµn¿ý
- 2016-7-17
|
ªO¤jÁÂÁ§A ¤£¹LÃö©ó«~¦W¤è±ªºÃC¦â¤p§Ì¸Ó¦p¦ó³]©w ¸U¤À·P¿E |
|
|
|
|
|
|
- ©«¤l
- 18
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 29
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFUCE 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW¥x¥_
- µù¥U®É¶¡
- 2012-8-29
- ³Ì«áµn¿ý
- 2016-7-17
|
|
|
|
|
|
|
- ©«¤l
- 559
- ¥DÃD
- 58
- ºëµØ
- 0
- ¿n¤À
- 626
- ÂI¦W
- 0
- §@·~¨t²Î
- win8
- ³nÅ骩¥»
- office2013
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- TW
- µù¥U®É¶¡
- 2010-11-22
- ³Ì«áµn¿ý
- 2024-6-14
|
§Q¥ÎG¤jªº¨Óקï~- Option Explicit
-
- Sub Ex()
-
- Dim Rng As Range, C As Integer, Font_Color As Integer
-
- Set Rng = Sheets("ªF¹B¡Ð¸ê®Æ½d¨Ò").[D2] '¼Æ¶q
-
- ' ¼Æ¶q1-10ªº¬°¬õ¦â 11-20¬°ºñ¦â 21-30¬°ÂŦâ 31-40¬°²HÂŦâ
-
- Do
-
- Font_Color = xlAutomatic '¦rÅéÃC¦â
-
- If Rng.Offset(0, -2) = "¦çªA" Or Rng.Offset(0, -2) = "¾c¤l" Then
- Rng.Offset(0, -2).Interior.ColorIndex = 6
- End If
- '===¥[³o¤@¬q§PÂ_«~¦WªºÃC¦â
- Select Case Rng.Value
-
- Case 1 To 10 '¼Æ¶q 1-10ªº¬°¬õ¦â
-
- C = 3
-
- Font_Color = 6
-
- Case 11 To 20 '¼Æ¶q 11-20¬°ºñ¦â
-
- C = 10
-
- Case 21 To 30 '¼Æ¶q 21-30¬°ÂŦâ
-
- C = 5
-
- Font_Color = 2
-
- Case 31 To 40 '¼Æ¶q 31-40¬°²HÂŦâ
-
- C = 8
-
- Case Else '¨ä¾l¼Æ¶q
-
- C = xlAutomatic
-
- End Select
-
- Rng.Interior.ColorIndex = C
-
- Rng.Font.ColorIndex = Font_Color
-
- Set Rng = Rng.Offset(1) '¼Æ¶q ¤U²¾¤@¦C
-
- Loop While Rng <> "" 'Â÷¶} °j°é : ¼Æ¶q=""
-
- End Sub
½Æ»s¥N½X ¦^´_ 4# lbs1252 |
|
¾Ç²ß¤~¯à´£¤É¦Û¤v
|
|
|
|
|
- ©«¤l
- 18
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 29
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFUCE 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW¥x¥_
- µù¥U®É¶¡
- 2012-8-29
- ³Ì«áµn¿ý
- 2016-7-17
|
¤j¤j¤p§Ì¦b½Ð°Ý¤@¤U
¦pªG§Ú¥un¦çª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 |
|
|
|
|
|
|
- ©«¤l
- 559
- ¥DÃD
- 58
- ºëµØ
- 0
- ¿n¤À
- 626
- ÂI¦W
- 0
- §@·~¨t²Î
- win8
- ³nÅ骩¥»
- office2013
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- TW
- µù¥U®É¶¡
- 2010-11-22
- ³Ì«áµn¿ý
- 2024-6-14
|
¤£ª¾¹D³o¼Ë¬O¤£¬O§Anªºµ²ªG~- Sub Ex()
-
- Dim Rng As Range, C As Integer, Font_Color As Integer
-
- Set Rng = Sheets("ªF¹B¡Ð¸ê®Æ½d¨Ò").[D2] '¼Æ¶q
-
- ' ¼Æ¶q1-10ªº¬°¬õ¦â 11-20¬°ºñ¦â 21-30¬°ÂŦâ 31-40¬°²HÂŦâ
-
- Do
-
- Font_Color = xlAutomatic '¦rÅéÃC¦â
-
-
-
- If Rng.Offset(0, -2) = "¦çªA" Then
- Rng.Offset(0, -2).Interior.ColorIndex = 6
- ElseIf Rng.Offset(0, -2) = "¾c¤l" Then
- Rng.Offset(0, -2).Interior.ColorIndex = 15
- Else
- GoTo 1
- End If
- '===¥[³o¤@¬q§PÂ_«~¦WªºÃC¦â¡A¦pªG¨S¦³²Å¦X«~¦Wªº~ ¨ä¼Æ¶q´N¤£¼ÐÃC¦â
-
- Select Case Rng.Value
-
- Case 1 To 10 '¼Æ¶q 1-10ªº¬°¬õ¦â
-
- C = 3
-
- Font_Color = 6
-
- Case 11 To 20 '¼Æ¶q 11-20¬°ºñ¦â
-
- C = 10
-
- Case 21 To 30 '¼Æ¶q 21-30¬°ÂŦâ
-
- C = 5
-
- Font_Color = 2
-
- Case 31 To 40 '¼Æ¶q 31-40¬°²HÂŦâ
-
- C = 8
-
- Case Else '¨ä¾l¼Æ¶q
-
- C = xlAutomatic
-
- End Select
-
- Rng.Interior.ColorIndex = C
-
- Rng.Font.ColorIndex = Font_Color
-
- 1
- Set Rng = Rng.Offset(1) '¼Æ¶q ¤U²¾¤@¦C
-
- Loop While Rng <> "" 'Â÷¶} °j°é : ¼Æ¶q=""
-
- End Sub
½Æ»s¥N½X ¦^´_ 7# lbs1252 |
|
¾Ç²ß¤~¯à´£¤É¦Û¤v
|
|
|
|
|
- ©«¤l
- 18
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 29
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFUCE 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW¥x¥_
- µù¥U®É¶¡
- 2012-8-29
- ³Ì«áµn¿ý
- 2016-7-17
|
¤j¤j¬O³o¼Ë¨S¿ù
¹LY§Ú·Q§ïÅÜ«~¦Wªº¦ì¸m§Ú¸Ó¦p¦ó§ïÅÜ
·PÁÂ±Ð¾É |
|
|
|
|
|
|