返回列表 上一主題 發帖

[發問] (已解決)尋找某特定公式在貼上值

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-10-17 13:32 | 顯示全部帖子

[發問] (已解決)尋找某特定公式在貼上值

本帖最後由 freeffly 於 2012-2-22 16:57 編輯
  1.     Cells.Find(What:=".xls", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
  2.         :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
  3.         False, MatchByte:=False, SearchFormat:=False).Activate
  4.     Selection.Copy
  5.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  6.         :=False, Transpose:=False
  7.     Cells.FindNext(After:=ActiveCell).Activate
  8.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  9.         :=False, Transpose:=False
複製代碼
上面是我錄製的巨集
我想找出工作表中對照到其他檔案的公式然後貼上值
我想套用迴圈的方式去跑 我該如何修改
或者有其它方式可以達到我要的結果
不想要每次開檔案都出現問我要不要更新連結(又不確定是哪各工作表)
收藏 分享
字典兩各字 還真難理解

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
2#
發表於 2011-10-17 16:59 | 顯示全部帖子
回復 2# oobird

程式碼比想像中簡單
也快很多
謝謝喔
   
SpecialCells(xlCellTypeFormulas, 23)
請問  ,23  這各用途是什麼?
字典兩各字 還真難理解

TOP

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
3#
發表於 2011-10-17 17:18 | 顯示全部帖子
回復 2# oobird


    大大再問一各問題
      我用迴圈去對每個工作表做這各動作
       如果該工作表沒有符合條件會跳出錯誤
       這各要如何讓他不跳出錯誤繼續執行?
字典兩各字 還真難理解

TOP

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
4#
發表於 2011-10-18 15:38 | 顯示全部帖子
回復 5# oobird


    大大我後來想到 on error resume next
    沒有再跑出來錯誤
       但是還是有出現要不要更新的字眼
      難道更新不是單純因為連結到其他檔案儲存格嗎
字典兩各字 還真難理解

TOP

        靜思自在 : 是非當教育，讚美作警惕。
返回列表 上一主題