Search
Office辦公室應用軟體在使用過程，大量使用到複製、貼上功能，重複性操作，都可以利用VBA應用程式改為自動化操作。不僅可以減少重複性操作導致的人為錯誤，還可以大幅提升工作效率。
辦公室人員將每日每月產生的表格或資料，集結放在資料庫，這些資料可能經過很長時間，需要分析、整理。如何利用VBA應用程式，完成自動輸入、處理、分析，變成很重要的一件事。
VBA不難。VBA方法是將操作過程錄製後，自動轉成程式碼。所以真的沒有在寫程式碼。除非不會操作Excel，才能說VBA很難。
講師:孫在陽,[email protected]
... 將 所有工作表 的數據會整至同一個 工作表 是常用需求。 詳情可參考部落格文章，如下列網址。https://hy-chou.blogspot.com/2019/04/excel- vba.html. ... <看更多>
使用多個開啟的工作簿時，每個工作簿可能有多個工作表，最安全的是定義和設定對所有工作簿和工作表的引用。 不要依賴 ActiveWorkbook 或 ActiveSheet ... ... <看更多>
vba所有工作表 在 [算表] vba選取所有工作表並移到新的活頁簿- 看板Office 的推薦與評價
軟體:Excel 2010
參考網路教學選取不同活頁簿的單一工作表並移到新的活頁簿後,
嘗試用錄製巨集選取不同活頁簿的所有工作表並移到新的活頁簿,
黃字為我覺得要修改的部分,
因不同活頁簿中工作表數目都不同,名稱也不一樣,
請問要怎麼修改黃字的語法?
' openfile2 巨集
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
ActiveCell.Value, TextToDisplay:= _
ActiveCell.Value
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Sheets(Array("sheet1", "sheet2", "Sheet3")).Select
Sheets("sheet1").Activate
Sheets(Array("sheet1", "sheet2", "Sheet3")).Copy
Before:=Workbooks("Sbin map_(Security C).xlsm").Sheets(2)
Sheets("工作表1").Select
Windows(ActiveCell.Value).Activate
ActiveWindow.Close
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.39.24.62
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1459659498.A.ED8.html
Sheets.Select
Sheets.Copy
這樣會變成第一行出現error
※ 編輯: scynic (114.47.87.210), 04/06/2016 21:44:38
... <看更多>