關於批次處理儲存格問題 求大家幫忙解惑

帖子: 26
主題: 8
精華: 0
積分: 31
點名: 0
作業系統: WIN7
軟體版本: EXCEL2010
閱讀權限: 10
性別: 男
註冊時間: 2014-11-6
最後登錄: 2017-10-19

3^#

發表於 2015-1-7 10:45 | 只看該作者

感謝Bob幫忙晚點來調試

可否另外再請教如果EXCEL檔案一打開會跳出類似啟用巨集or問要不要更新連結等等之類選項的話,要怎麼讓vba去選擇動作呢? 例如選擇啟動巨集 or 選擇不要更新再次感謝

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

4^#

發表於 2015-1-7 20:40 | 只看該作者

回復 3# rbktwi

一、啟動巨集需要人為操作,避免病毒不需要經過您的同意,執行病毒碼
可在安全性設定,設定完畢後關閉,再打開時就會是您設定的結果,若設定最低,則會無條件直接啟動巨集

二、連結的部分
在ThisWorkbook的模組裡面,Workbook_Open的事件內
設定 Application.AskToUpdateLinks=False '代表不會詢問
設定 Workbook.UpdateLinks =False ''代表不會啟動連結

反之亦如~
試試看,有錯誤請不吝糾正!

PKKO

帖子: 26
主題: 8
精華: 0
積分: 31
點名: 0
作業系統: WIN7
軟體版本: EXCEL2010
閱讀權限: 10
性別: 男
註冊時間: 2014-11-6
最後登錄: 2017-10-19

5^#

發表於 2015-1-8 13:15 | 只看該作者

回復 4# PKKO

原來如此~ 非常感謝Bob幫忙解惑受益良多~

帖子: 26
主題: 8
精華: 0
積分: 31
點名: 0
作業系統: WIN7
軟體版本: EXCEL2010
閱讀權限: 10
性別: 男
註冊時間: 2014-11-6
最後登錄: 2017-10-19

6^#

發表於 2015-1-8 17:51 | 只看該作者

不好意思想再請問Bob
關於搜尋儲存格以下程式碼
  '跑每個EXCEL檔
For Each e In ar
      If e <> w1 Then '不執行原先開啟的檔案
         Workbooks.Open (myfloder & e)
            s = Worksheets.Count
                  For j = 1 To s
                  Find = ActiveWorkbook.sheets(j).cells.Find(What:="Exchange Rate:", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
Next
      End If
Next
我想做的是參照作用中活頁簿接著輪流搜尋參照作用中活頁簿的各工作表
但excel顯示物件不支援此功能請問我該用哪一種屬性呢?

帖子: 26
主題: 8
精華: 0
積分: 31
點名: 0
作業系統: WIN7
軟體版本: EXCEL2010
閱讀權限: 10
性別: 男
註冊時間: 2014-11-6
最後登錄: 2017-10-19

7^#

發表於 2015-1-9 10:59 | 只看該作者

已解決~
Dim fr As Range
Dim sh As Worksheet
For Each e In ar
If e <> w1 Then
Workbooks.Open (myfloder & e)
         For Each sh In ActiveWorkbook.Worksheets
            Set fr = sh.Cells.Find(what:="Exchange Rate:", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=False)
                  If Not fr Is Nothing Then
                           Msgbox fr.Name
                  End If
         Next sh
ActiveWindow.Close saveChanges:=True '關閉且儲存
End If
Next e