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

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

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

µ{¦¡½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

¤£¦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¨Ó

©Ç©Ç~

TOP

¤£¦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
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡µLªk¾B¾×¡j©È®É¶¡®ø³u¡Aªá¤F³\¦h¤ß¦å¡A·QºÉ¦U¦¡¤èªk­n¾B¾×®É¶¡¡Aµ²ªG¬O¡G®ö¶O¤F§ó¦h®É¶¡¡A¥B¤@µL©Ò¦¨¡I
ªð¦^¦Cªí ¤W¤@¥DÃD