Search
用EXCEL VBA合併12個月工作表到總表
這是在東吳大學進修推廣部的VBA進階課上課的範例，
先學會如何將大量工作表整合在一個工作表 [連結]
接下來補充網路學員問到如何匯整12個月資料捐款明細到總表的問題，
他是先用錄製巨集之後再來修改為迴圈，
給1到12月工作表範圍，於是就可以自動將資料"貼到"總表之中。
但是，
最大的問題是：
1.如何錄製巨集，可以參考：如何學會EXCEL VBA錄製與修改巨集系列之一[連結]
2.解決三個邏輯問題，就是如果1.沒有資料 2.只有一筆 3.有一筆以上
就需要用多重邏輯判斷
VBA裡有兩種陳述式：If 與ElseIf，另一種是Select Case
我比較建議用前者，因為可以比較容易學習，和IF也很接近，無需多學一種。
範例連結 [下載]
結果畫面：
上課內容：
01_需求畫面共13個工作表
02_完成畫面
03_複製工作表整合程序來修改
04_修改為多重邏輯
05_關閉畫面閃動畫面
程式碼：
Excel 在使用過程，大量使用到複製、貼上功能，重複性操作，都可以利用VBA應用程式改為自動化操作。不僅可以減少重複性操作導致的人為錯誤，還可以大幅提升工作效率。
辦公室人員將每日每月產生的表格或資料，集結放在資料庫，這些資料可能經過很長時間，需要分析、整理。如何利用VBA應用程式，完成自動輸入、處理、分析，變成很重要的一件事。
VBA不難。VBA方法是將操作過程錄製後，自動轉成程式碼。所以真的沒有在寫程式碼。除非不會操作Excel，才能說VBA很難。
孫在陽老師主講，[email protected]
範例、講義下載：https://goo.gl/ytzRxT
Excel 在使用過程，大量使用到複製、貼上功能，重複性操作，都可以利用VBA應用程式改為自動化操作。不僅可以減少重複性操作導致的人為錯誤，還可以大幅提升工作效率。
辦公室人員將每日每月產生的表格或資料，集結放在資料庫，這些資料可能經過很長時間，需要分析、整理。如何利用VBA應用程式，完成自動輸入、處理、分析，變成很重要的一件事。
VBA不難。VBA方法是將操作過程錄製後，自動轉成程式碼。所以真的沒有在寫程式碼。除非不會操作Excel，才能說VBA很難。
孫在陽老師主講，[email protected]
範例、講義下載：https://goo.gl/ytzRxT
Excel 在使用過程，大量使用到複製、貼上功能，重複性操作，都可以利用VBA應用程式改為自動化操作。不僅可以減少重複性操作導致的人為錯誤，還可以大幅提升工作效率。
辦公室人員將每日每月產生的表格或資料，集結放在資料庫，這些資料可能經過很長時間，需要分析、整理。如何利用VBA應用程式，完成自動輸入、處理、分析，變成很重要的一件事。
VBA不難。VBA方法是將操作過程錄製後，自動轉成程式碼。所以真的沒有在寫程式碼。除非不會操作Excel，才能說VBA很難。
孫在陽老師主講，[email protected]
範例、講義下載：https://goo.gl/ytzRxT
EXCEL VBA 程式設計第8次上課完整影音在論壇：http://groups.google.com/group/excelvba_cloud?hl=zh-TW 上 學期 上 的算是EXCEL函數與 VBA 入門， ... ... <看更多>
透過影片【超級感謝】可以支持我們的頻道創作~ 感謝有你【加入頻道會員】支持電腦學習 ... ... <看更多>
vba 迴圈 複製 貼 上 在 [問題] VBA 複製貼上到指定工作表For迴圈- 看板Office 的推薦與評價
軟體:Excel
版本:365
一開始會將資料篩選的結果複製到新增的工作表中
並且依照迴圈範圍更改工作表名稱
For i = 2 To Range("A2").End(xlDown).Row
ActiveSheet.ListObjects("訂單").Range.AutoFilter
Field:=3, Criteria1 :=Sheets("篩選區").Range("A" & i)
複製貼上的範圍這邊就不打上了
Sheets.Add After:=ActiveSheet
Sheets(ActiveSheet.Name).Select
Sheets(ActiveSheet.Name).Name = Sheets("篩選區").Range("A" & i)
這前面都沒問題
接下來想從xx工作表中選取某範圍的資料貼到剛剛新增的工作表
Sheets("xx").Select
Rows("1:6").Select
Selection.Copy
Sheets(Sheets("篩選區").Range("A" & i)).Select
跑到這段會顯示型態不符
請問要怎麼改呢?
前面篩選可以用Sheets("篩選區").Range("A" & i)為什麼這邊就不能?
Next i
研究好久還是不會...
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 115.165.192.143 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1635183484.A.BEA.html
※ 編輯: bank89902595 (115.165.192.143 臺灣), 10/26/2021 01:40:29
※ 編輯: bank89902595 (114.44.176.178 臺灣), 10/27/2021 09:15:08
... <看更多>