[¤w¸Ñ¨M]±Æ§Ç«á¦b¤£¦P°Ï¶ô¹Ï¤WÃC¦â
- ©«¤l
- 86
- ¥DÃD
- 30
- ºëµØ
- 0
- ¿n¤À
- 140
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-2-19
- ³Ì«áµn¿ý
- 2020-8-26
|
[¤w¸Ñ¨M]±Æ§Ç«á¦b¤£¦P°Ï¶ô¹Ï¤WÃC¦â
¥»©«³Ì«á¥Ñ jiuhtsair ©ó 2011-11-22 19:43 ½s¿è
¦U¦ì¤j¤j¦n¡G
Book1_1121.zip (7.72 KB)
¤p§Ì¦³¤@§xÂZ¡A§Ú·Q±Nc4:d22ªº¼Æ¾Ú¥HDÄ欰¥D¥Ñ¤j¦Ó¤p±Æ§Ç..¦A¥ÎD4¨ìD22ªº¼Æ¦r»PD2¤ñ¸û¡AY¬O¤ñD2¤j¶W¹L150ªºÀx¦s®æ¥Î¤@ºØÃC¦â¡A¤ñD4¤j¶W¹L80~100¶¡ªºÀx¦s®æ¥Î¥t¤@ºØÃC¦â¡A¤ñD4¤j¶W¹L30~60¶¡ªºÀx¦s®æ¥Î¥t¤@ºØÃC¦â¡A½Ð°Ý¸Ó¦p¦ó³B²z?
«e±±Æ§Çªº³¡¥÷..¤p§Ì§Q¥Î¿ý»s¥¨¶°ªº¤è¦¡¤w¸g§¹¦¨¡C«á±¤ñ¸û¤j¤p¹ÏÃC¦âªº³¡¥÷..¤p§Ì¸ÕµÛ¼g¤Fµ{¦¡¡A¦ý¿ù»~«Ü¦h..¤£ª¾±q¦ó§ï°_¡AÀµ½Ð½ç±Ð¡I
¤p§Ìªº·Qªk¬O³o¼Ë...
Dim i as integer
For i =4 to 22
If sheet(1).cells(4,2).Value<=sheet(1).cells(4,i).Value-150 Then cell(4,i).select ..¶îÃC¦â
elseif.....
next i
¥i¬OVBA§i¶D§Ú»¡µ{¦¡¿ù»~..±qIf sheet(1).cells(4,2).Value<=sheet(1).cells(4,i).Value-150 Then cell(4,i).select¤@¸ô³£¬O¬õ¦â¿ù»~..
·Q½Ð±Ð¤j®an¦p¦ó¸Ñ¤~¦n?ÁÂÁ¡I |
|
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
|
|
|
|
|
- ©«¤l
- 1572
- ¥DÃD
- 16
- ºëµØ
- 2
- ¿n¤À
- 1521
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2016-1-13
|
¤ñD2¤j¶W¹L150...
¤ñD4¤j¶W¹L80~100¶¡ªºÀx¦s®æ¡K
¤ñD4¤j¶W¹L30~60¶¡ªºÀx¦s®æ¡K
¬Ý±o«Ü½k¶î¡C¸òD2¡AD4¤ñ¶Ü¡H
¤¤¶¡ªº©O¡H100~150¶¡ªº¡A60~80¶¡ªº¡AÁÙ¦³¤p©ó30ªº |
|
|
|
|
|
|
- ©«¤l
- 86
- ¥DÃD
- 30
- ºëµØ
- 0
- ¿n¤À
- 140
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-2-19
- ³Ì«áµn¿ý
- 2020-8-26
|
¦^´_ 2# Hsieh
£~£~...·PÁ¤j¤j¡I¯u¬O¦n¤èªk¡C
¥t¥~¡A·Q½Ð±Ð¤j¤j...¨Ï¥Î®æ¦¡¤Æ±ø¥ó¥i¥H¦³¤T²Õ±ø¥ó..¦pªG¤µ¤Ñ»Ýn¤T²Õ¥H¤W±ø¥ó®É..n¦p¦ó³B²z©O?
·PÁ±zªº¸Ñ´b¡I·P®¦¡I |
|
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
|
|
|
|
|
- ©«¤l
- 86
- ¥DÃD
- 30
- ºëµØ
- 0
- ¿n¤À
- 140
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-2-19
- ³Ì«áµn¿ý
- 2020-8-26
|
¦^´_ 3# oobird
oobird¤j¤j¡G
©êºp¡I¦³¨ÇÃ㤣¹F·N¡I
¤p§Ì¬O·Q¥ÎD4¨ìD22ªº¤º®e»PD2¬Û¤ñ¸û¡AµM«á¤À§O¦b¤£¦Pªº°Ï¶¡¤¤¥Î¤£¦PÃC¦âªí¥Ü,°Ï¶¡»P°Ï¶¡¤£³sÄò¡A¤£¦b°Ï¶¡¤ºªºÀx¦s®æ«h«O«ù쥻ÃC¦â(¥Õ¦â)¡C
·PÁ±z¡IÁÂÁ¡I |
|
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
|
|
|
|
|
- ©«¤l
- 1572
- ¥DÃD
- 16
- ºëµØ
- 2
- ¿n¤À
- 1521
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2016-1-13
|
- Sub Macro4()
- Range("C4:D22").Sort Key1:=Range("D4"), Order1:=xlDescending
- For Each c In Range("d4:D22")
- c.Interior.ColorIndex = Application.VLookup(c - [d2], [{-10000,0;30,5;61,0;80,6;101,0;150,7}], 2)
- Next
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 86
- ¥DÃD
- 30
- ºëµØ
- 0
- ¿n¤À
- 140
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-2-19
- ³Ì«áµn¿ý
- 2020-8-26
|
¦^´_ 6# Hsieh
·PÁÂHsieh¤j¤j¡A³o¥¿¬O¤p§Ì·Qnªº¤è¦¡¡A¥Ñ©ó¥u¬Oªì¾ÇªÌ¡A·Q¯}ÀY¤]·Q¤£¥X¨Ó¡C
·PÁ±zªº¨ó§U¡IÁÂÁ¡C |
|
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
|
|
|
|
|
- ©«¤l
- 86
- ¥DÃD
- 30
- ºëµØ
- 0
- ¿n¤À
- 140
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-2-19
- ³Ì«áµn¿ý
- 2020-8-26
|
¥»©«³Ì«á¥Ñ jiuhtsair ©ó 2011-11-22 19:44 ½s¿è
¦^´_ 7# oobird
·PÁÂoobird¤j¤j¡A³oµ{¦¡½X¯uªº¤Ó´Î¤F¡Iºë²¤S¦³®Ä²v¡Cȱo¤p§Ì³oªì¾ÇªÌ¦h¥[µZ¿i¡B¾Ç²ß¡I·PÁ¡I
ÁÂÁ¡I |
|
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
|
|
|
|
|