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

½Ð°Ý¦¹µ{§Ç¬°¦ó¿ù»~???

½Ð°Ý¦¹µ{§Ç¬°¦ó¿ù»~???

½Ð°Ý¦¹µ{§Ç¬°¦ó¿ù»~??? Book2.rar (16.71 KB)

¦^´_ 1# t8899


    µy¬Ý§A±oµ{¦¡½X¡G
    Set A = .Range("I" & ppp & ":I" & qqq).Find(Application.Large(.Range("I" & ppp & ":I" & qqq), 1))
     Find:¬O¥Î¨Ó§ä¨ì²Å¦X§A±ø¥óªº¸ê®Æ¡C
     Range("I" & ppp & ":I" & qqq¡G¬O¤@­Ó°Ï¶¡¡A©Ò¥H³o¼Ëªº¼gªk¦³°ÝÃD¡C
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¦^´_  t8899


    µy¬Ý§A±oµ{¦¡½X¡G
    Set A = .Range("I" & ppp & ":I" & qqq).Find(Application. ...
hugh0620 µoªí©ó 2014-9-29 21:59

ÁÂÁÂ
§Ú¤w¸g§ä¨ì°ÝÃD
I Äæ ¸ò S Äæ®æ¦¡ªº°ÝÃD
¥Î ¥H¤Uµ{§Ç¥i¸Ñ¨M
Dim rng As Range
For Each rng In Range("i3:i60")
abc = rng
rng = CLng(abc)
Next
For Each rng In Range("s3:s60")
abc = rng
rng = CLng(abc)
Next

TOP

        ÀR«ä¦Û¦b : ÀR§¤±`®¦¤v¹L¡B¶¢½Í²ö½×¤H«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD