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

[µo°Ý] find ¬°¦ó nothing ??

[µo°Ý] find ¬°¦ó nothing ??

find ¬°¦ó nothing ?? good.rar (48.01 KB)

¥»©«³Ì«á¥Ñ Hsieh ©ó 2014-4-30 23:47 ½s¿è

¦^´_ 1# t8899

    ¸ÕµÛ¨ú¥XH121­Èªº¸ê®Æ«¬ºA¬Ý¬Ý
³o°ÝÃD§A¤§«eÀ³¸Ó¤w¸g°Ý¹L
¥ÎApplication.Match´N¯à§ä¨ì¸Ó¦ì¸m
­Y¤@©w­n¥ÎFIND´N¥Î­È¨Ó§ä
  1. Sub test()
  2. Dim ang As Range, a$
  3. [H21:H350] = [H21:H350].Value 'Àx¦s®æ¤º¼g¤J­È(¥h¤½¦¡)
  4.     a = Application.Large(Workbooks("good.xls").Sheets("She5555555555555et6").Range("h21:h250"), 1)
  5.     [a11] = TypeName(a)
  6.      [a10] = a
  7. Set ang = Workbooks("good.xls").Sheets("She5555555555555et6").Range("h21:h250").Find(What:=a, LookAt:=xlWhole, LookIn:=xlFormulas, SearchOrder:=xlByColumns)
  8. [a12] = TypeName(ang)
  9. [H21:H350] = "=IF(RC[3]="""","""",RC[4]-RC[3])" 'Á٭줽¦¡
  10. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¤Ó¶§¥ú¤j¡B¤÷¥À®¦¤j¡B§g¤l¶q¤j¡A¤p¤H®ð¤j¡C
ªð¦^¦Cªí ¤W¤@¥DÃD