簡單的取代Sheet內的值

抱歉卡關又來詢問 ,請高手教我一下麻煩了謝謝

以下是我的部分code
EQP_FAB = cells(2,18).value '(值是TG)

File1=dir (path & "*.xls")
Workbooks.open  path & File1
set sh = activeworkbook.worksheets(shname) ' 如以下的ex:

for each word in sh.range(sh.[A1],sh.[F1])
if word = "EQP_ID" Then    (當第一列讀到EQP_ID的時候,EQP_ID的下一列sampl1:TE@123或是sampl2:TF123 要換成TG@123)

CurrentCell= word.address  (想去抓Cell的位址,但這邊不會寫)

end if
next

ex:  兩種檔案,都是要去認 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

(往下還有資料 ,只列三筆)

結果:

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

樓主熱帖

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 109
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-5-11

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2011-12-5 22:39 | 只看該作者

回復 1# ffntldj

Cells.Replace "T*@", "TG@", lookat:=xlPart

學海無涯_不恥下問

TOP

ffntldj

小學生 Rank: 1

帖子: 26
主題: 6
精華: 0
積分: 33
點名: 0
作業系統: XP
軟體版本: OFFICE2003
閱讀權限: 10
性別: 男
註冊時間: 2011-7-19
最後登錄: 2013-5-13

論壇贊助勳章

3^#

發表於 2011-12-5 22:49 | 只看該作者

本帖最後由 ffntldj 於 2011-12-5 22:52 編輯

回復 2# Hsieh

謝謝版大! 抱歉明天才能試~謝謝你每次都要你幫忙~

  請問是加在這裡嘛? 只需要一行? 太神奇了@@ 我想了好久~

  lookat:=xlPart 不太會使用他是只會往下找還是整張SHEET都會去改?

  因為怕改到別的資料~ 謝謝

if word = "EQP_ID" Then    (當第一列讀到EQP_ID的時候,EQP_ID的下一列sampl1:TE@123或是sampl2:TF123 要換成TG@123)

這裡

end if

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 109
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-5-11

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2011-12-5 23:19 | 只看該作者

回復 3# ffntldj