返回列表 上一主題 發帖

簡單的取代Sheet內的值

ffntldj

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

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-12-5 20:16 | 顯示全部帖子

簡單的取代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
收藏 分享

ffntldj

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

論壇贊助勳章
2#
發表於 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

ffntldj

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

論壇贊助勳章
3#
發表於 2011-12-5 23:49 | 顯示全部帖子
回復 4# Hsieh


    Set a = sh.Rows(1).Find("EQP_ID").EntireColumn '找到標題的整欄範圍

  有了這行 我又進步了 謝謝!! 非常感謝~

TOP

        靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候，卻被這種隨心所欲的自由蒙蔽，虛擲時光而毫無覺知。
返回列表 上一主題