½Ð°Ý if ªº¥Îªk ¡A­þÃä¥X¿ù¤F

gkld

µ{¦¡½X¦p¤U

1.        for i = 2 to 8
   
2.              If Sheets(i).Range("d23") >= Sheets(i).Range("e23") >= Sheets(i).Range("f23") And Sheets(1).Range("q" & i) >= 0.25 And Sheets(i).ragne("ak4") >= 0.17 Then
   
3.             Sheets(1).Range("n" & i) = "A"
   
4.             Sheets(1).Range("n" & i).HorizontalAlignment = xlCenter '¸m¤¤¹ï»ô
   
5.         End If
   
6.         next

½Æ»s¥N½X

·Q°Ýªº¬O¡Kifªº±ø¥ó¦pªG¸û¦h¡A¬O·|¥X²{§PÂ_¿ù»~ªº±¡§Î¶Ü¡H¡H

¦]¬°§Úªºµ{¦¡½X¦p¤W¡A©ú©ú§ÚªºSheets(i).ragne("ak4")­È¬O¤p©ó0.17ªº¡A¬°¤°»ò§PÂ_¥X¨ÓSheets(1).Range("n" & i) ÁÙ¦³¥X²{"A"ªº±¡ªp¡H¡H

¤£ª¾¹D¦U¦ì°ª¤âªº¬Ýªk¦p¦ó¡H

kimbal

¤£¦n·N«ä¡K

§Ú¦Û¤w§ä¨ì­ì¦]¤F   

ÁÙ¦nÁÙ¨S³Â·ÐªO¤Wªº°ª¤H ^^"

­ì¨Ó¬O§Úªºµ{¦¡½X¡y Sheets(i).Ra ...
gkld µoªí©ó 2013-1-17 18:17

½s¼g®É¦h¥Î½sĶ¥\¯à, ¥i¥H¦Û°Ê§ä¥X¿ù»~­ì¦].
°»¿ù->½sĶVBA Project
http://kimbalko-chi.blogspot.hk/ ... xcel-1997-2010.html

gkld

¤£¦n·N«ä¡K

§Ú¦Û¤w§ä¨ì­ì¦]¤F  :L

ÁÙ¦nÁÙ¨S³Â·ÐªO¤Wªº°ª¤H ^^"

­ì¨Ó¬O§Úªºµ{¦¡½X¡y Sheets(i).Range("ak4")¡z¼g¦¨¡y Sheets(i).Ragne("ak4")¡z ¨ä¤¤ªºrange ¼g¦¨ragne¥h¤F

¥i¬O¦n©_©Ç~

°õ¦æ®É¡A«o¨S¦³¥X²{¿ù»~¡A¶]¥X¨Óªºµ²ªG¬O ¨C¤@­Ó Sheets(1).Range("n" & i) ³£¶]¥X" A" ¦r¨Ó

©Ç©Ç~