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

²³æªº¨ú¥NSheet¤ºªº­È

²³æªº¨ú¥NSheet¤ºªº­È

©êºp ¥dÃö ¤S¨Ó¸ß°Ý ,½Ð°ª¤â±Ð§Ú¤@¤U ³Â·Ð¤F ÁÂÁÂ

¥H¤U¬O§Úªº³¡¤Àcode
EQP_FAB = cells(2,18).value '(­È¬OTG)

File1=dir (path & "*.xls")
Workbooks.open  path & File1
set sh = activeworkbook.worksheets(shname)   ' ¦p¥H¤Uªºex:

for each word in sh.range(sh.[A1],sh.[F1])
if word = "EQP_ID" Then      (·í²Ä¤@¦CŪ¨ìEQP_IDªº®É­Ô,EQP_IDªº¤U¤@¦Csampl1:TE@123©Î¬Osampl2:TF123 ­n´«¦¨TG@123)

CurrentCell= word.address  (·Q¥h§ìCellªº¦ì§},¦ý³oÃ䤣·|¼g)

end if
next


ex:  ¨âºØÀÉ®×,³£¬O­n¥h»{ EQP_ID
1.                                                2.
  PDID      EQP_ID    ACTION                    PDID    RE_ID   EQP_ID    ACTION
  xxx         TE@123    xxx                         xxx      xx       TF@123    xxx
  xxx         TE@645    xxx                         xxx      xx       TF@645    xxx
  xxx         TE@124    xxx                         xxx      xx       TF@124    xxx

(©¹¤UÁÙ¦³¸ê®Æ ,¥u¦C¤Tµ§)

µ²ªG:

1.                                                2.
  PDID      EQP_ID    ACTION                    PDID    RE_ID   EQP_ID    ACTION
  xxx         TG@123    xxx                         xxx      xx       TG@123    xxx
  xxx         TG@645    xxx                         xxx      xx       TG@645    xxx
  xxx         TG@124    xxx                         xxx      xx       TG@124    xxx

¦^´_ 1# ffntldj


    Cells.Replace "T*@", "TG@", lookat:=xlPart
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ ffntldj ©ó 2011-12-5 22:52 ½s¿è

¦^´_ 2# Hsieh


    ÁÂÁª©¤j! ©êºp©ú¤Ñ¤~¯à¸Õ~ÁÂÁ§A ¨C¦¸³£­n§AÀ°¦£~

  ½Ð°Ý¬O¥[¦b³o¸Ì¹À? ¥u»Ý­n¤@¦æ? ¤Ó¯«©_¤F@@ §Ú·Q¤F¦n¤[~

  lookat:=xlPart ¤£¤Ó·|¨Ï¥Î ¥L¬O¥u·|©¹¤U§ä ÁÙ¬O¾ã±iSHEET³£·|¥h§ï?

  ¦]¬°©È§ï¨ì§Oªº¸ê®Æ~ ÁÂÁÂ

if word = "EQP_ID" Then      (·í²Ä¤@¦CŪ¨ìEQP_IDªº®É­Ô,EQP_IDªº¤U¤@¦Csampl1:TE@123©Î¬Osampl2:TF123 ­n´«¦¨TG@123)

³o¸Ì

end if

TOP

¦^´_ 3# ffntldj
  1. Sub ex()
  2. MyPath = "D:\" '¸ê®Æ¥Ø¿ý
  3. shname = "­n§äªº¤u§@ªí" '­n°µ¨ú¥N°Ê§@ªº¤u§@ªí¦WºÙ
  4. fs = Dir(MyPath & "*.xls") '§ä¬¡­¶Ã¯
  5. Do Until fs = ""
  6. With Workbooks.Open(MyPath & fs) '¶}±ÒÀÉ®×
  7. Set sh = .Worksheets(shname)  '«ü©w­n°µ¨ú¥N°Ê§@ªº¤u§@ªí
  8. Set a = sh.Rows(1).Find("EQP_ID").EntireColumn '§ä¨ì¼ÐÃDªº¾ãÄæ½d³ò
  9. a.Replace "T*@", "TG@", lookat:=xlPart '¦bÄæ¦ì¤¤°µ¨ú¥Nªº¤u§@
  10. .Close 1 'Àx¦s«áÃö³¬ÀÉ®×
  11. End With
  12. fs = Dir '¤U¤@­Ó¬¡­¶Ã¯
  13. Loop
  14. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# Hsieh


    Set a = sh.Rows(1).Find("EQP_ID").EntireColumn '§ä¨ì¼ÐÃDªº¾ãÄæ½d³ò

  ¦³¤F³o¦æ §Ú¤S¶i¨B¤F ÁÂÁÂ!! «D±`·PÁÂ~

TOP

        ÀR«ä¦Û¦b : ¤p¨Æ¤£°µ¡B¤j¨ÆÃø¦¨¡C
ªð¦^¦Cªí ¤W¤@¥DÃD