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

«e½ú!½Ð¶i!!

«e½ú!½Ð¶i!!

¥»©«³Ì«á¥Ñ Hsieh ©ó 2011-2-25 13:30 ½s¿è

hsieh«e½ú§A¦n!
       °¸¹³«e½ú!¤£¦n·N«ä½ÐÀ°¦£¬Ý¬Ý
       ¬°¦ó°õ¦æ³o­Óµ{¦¡
       With Sheet1
          Set Rng = .Cells.Find(Format(Date, "[$-404]m/d"), LookIn:=xlValues, LookAt:=xlWhole)
          .Select
          If Not Rng Is Nothing Then Rng.Offset(, 1).Select Else MsgBox "§ä¤£¤u§@¤Ñ"
       End With
       End Sub
       ´N½Ä¬ð¨ì¥¦
       Set Age_Rng(0) = Range(Age_Rng(1).Offset(, 6), Age_Rng(2).Offset(, 6))
       °ÝÃD¦pªþÀÉ»¡©ú
       ½Ð³Â·Ð«ü¾ÉÁÂÁ¦A¤T!!

Leov48.rar (96.12 KB)

¦^´_ 1# myleoyes
Find (´M§ä) ¿ï¶µ³]©w¨S«ü©w²M·¡   
VBAªº»¡©ú¦³»¡
³Æµù
¨C¦¸©I¥s¥»¤èªk«á¡A±NÀx¦s LookIn¡BLookAt¡BSearchOrder ¤Î MatchByte ªº³]©w¡C¦pªG¤U¤@¦¸©I¥s®É¥¼«ü©w³o¨Ç¤Þ¼Æ¡A±N¨Ï¥ÎÀx¦sªº³]©w¡C³]©w³o¨Ç¤Þ¼Æ±N§ïÅÜ [´M§ä] ¹ï¸Ü¤è¶ô¤¤ªº³]©w¡A¦Ó­×§ï [´M§ä] ¹ï¸Ü¤è¶ô¤¤ªº³]©w¡A¤]±N§ïÅܨt²Î¦b¬Ù²¤³o¨Ç¤Þ¼Æ®É©Ò¨Ï¥ÎªºÀx¦s­È¡C¬°ÁקK¥X²{³Â·Ð¡A¨C¦¸©I¥s¥»¤èªk®É¡A½Ð©ú½T«ü©w³o¨Ç¤Þ¼Æªº­È¡C

´M§äÀx¦s®æªº¤º®e  LookIn:=xlValues
´M§äÀx¦s®æªº¤½¦¡  LookIn:=xlFormulas)

µ{¦¡«áºÝ ¦³¨â³B Find (´M§ä) ¿ï¶µ³]©w¬°xlValues ¦p¤U
§ä¨ì¤u§@¤Ñ()
With Sheet1
Set Rng = .Cells.Find(Format(Date, "[$-404]m/d"), LookIn:=xlValues, LookAt:=xlWhole)

Sub §ä¨ì¤µ¤Ñ()
   With Sheet2
     Set Rng = .Cells.Find(Format(Date, "#,##0 "), LookIn:=xlValues, LookAt:=xlWhole)

¾É­P­«·s¦A°õ¦æ®É§ä¤£¨ì¶}©lµn¤J¦ì¸m¤Î²×¤îµn¤J·|²£¥Í¿ù»~
­×¥¿¤U¨â³Bµ{¦¡½X¥i§ïµ½
Set Age_Rng(1) = Age_Rng(0).Find(Age, LookAt:=xlWhole, LookIn:=xlFormulas)   ¤½¦¡ªº­È   
Set Age_Rng(2) = Age_Rng(0).Find(Age, LookAt:=xlWhole, LookIn:=xlFormulas)   ¤½¦¡ªº­È

TOP

¦^´_ 2# GBKEE
GBKEE«e½ú§A¦n!
     ¡@ ¨}®v!ÁÂÁÂ!!....
        ¤ï¶Õ°Õ!¤SÅý§A¨¯­WÁÂÁ¦A¤T!!

TOP

        ÀR«ä¦Û¦b : ªY½à§O¤H´N¬O²øÄY¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD