Re: [算表] VBA ㄧ次修改多個開啟檔案內容
往可能的方向調整,沒有經過測試
2個假設:
1.每個活頁簿需要調整的工作表不只1個
2.每個工作表需要調整的格子不只1個
Dim wb as workbook
Dim ABC as range
Dim firstAddr as String
'依序在已開啟的活頁簿裡執行
For Each wb in Application.Workbooks
'依序在wb裡的每一工作表裡執行
For Each ws in wb
'先試圖找第一筆資料
Set ABC = ws.Cells.Find(
What:="HHH", _
LookIn:=xlFormulas2, _
LookAt:=xlPart, _
SearchOrder: =xlByRows, _
SearchDirection: xlNext, _
MatchCase: =False, _
SearchFormat: =False
)
'確認有找到資料
If Not ABC Is Nothing Then
'紀錄第一筆的位址
firstAddr = ABC.Address
'重複操作直到重新找到第一筆資料
Do
ABC.Offset(, 1).FormulaR1C1 = "000"
Set ABC = ws.Cells.FindNext(ABC)
Loop While ABC.Address <> firstAddr
End If
Next ws
Next wb
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 1.174.17.157 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1682669366.A.F14.html
→
04/28 16:10,
1年前
, 1F
04/28 16:10, 1F
→
04/28 16:10,
1年前
, 2F
04/28 16:10, 2F
→
04/28 16:11,
1年前
, 3F
04/28 16:11, 3F
討論串 (同標題文章)
完整討論串 (本文為第 2 之 2 篇):
Office 近期熱門文章
10
34
PTT數位生活區 即時熱門文章