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 篇)：