預覽畫面:
結果畫面:
如何將單次查詢改為批次查詢,
可以按照分類清單,將資料自動查詢並輸出成為工作表,
這部分可以先從建立清單開始,
其次是,批次新增工作表,
若有舊的查詢結果則先刪除工作表之後,
再重新批次查詢一次。
**如何批次查詢資料
1.建立清單
2.批次新增工作表
Public Sub 批次新增工作表()
For i = 2 To Sheets("清單").Range("A2").End(xlDown).Row
X = Sheets("清單").Cells(i, "A")
'1.新增工作表
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = X
Next
End Sub
3.批次刪除工作表
Public Sub 批次刪除工作表()
Application.DisplayAlerts = False
For i = Sheets.Count To 3 Step -1
Sheets(i).Delete
Next
Application.DisplayAlerts = True
End Sub
4.批次篩選
Sub 批次篩選業務()
'關閉畫面更新
Application.ScreenUpdating = False
Sheets(1).Select
Call 批次刪除工作表
For i = 2 To Sheets("清單").Range("A2").End(xlDown).Row
X = Sheets("清單").Cells(i, "A")
'1.游標放B1
Range("B1").Select
'2.篩選
Selection.AutoFilter
ActiveSheet.Range("$A$1:$L$2500").AutoFilter Field:=3, Criteria1:=X
'3.複製
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
'4.新增工作表
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = X
'5.貼上
Range("A1").Select
ActiveSheet.Paste
'6.自動調整欄寬
Selection.Columns.AutoFit
Range("A1").Select
'7.切回原工作表
Sheets(1).Select
Application.CutCopyMode = False
'8.取消篩選
Selection.AutoFilter
Range("A1").Select
Next
Application.ScreenUpdating = True
End Sub
**如何增加狀態列訊息(Application.StatusBar)
5.共用程序與傳遞參數
Sub 批次篩選(清單 As String, 欄位 As Integer)
'On Error Resume Next
Application.ScreenUpdating = False
Call 批次刪除工作表
r = Sheets("清單").Range(清單 & "2").End(xlDown).Row
For i = 2 To r
Application.StatusBar = "目前進度:總共筆數:" & r - 1 & " 進行筆數:" & i - 1
X = Sheets("清單").Cells(i, 清單)
'1.游標放B1
Range("B1").Select
'2.篩選
Selection.AutoFilter
ActiveSheet.Range("$A$1:$L$2500").AutoFilter Field:=欄位, Criteria1:=X
'3.複製
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
'4.新增工作表
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = X
'5.貼上
Range("A1").Select
ActiveSheet.Paste
'6.自動調整欄寬
Selection.Columns.AutoFit
Range("A1").Select
'7.切回原工作表
Sheets(1).Select
Application.CutCopyMode = False
'8.取消篩選
Selection.AutoFilter
Range("A1").Select
Next
Application.ScreenUpdating = True
End Sub
6.呼叫共用程序
Sub 批次篩選業務()
Call 批次篩選("A", 3)
End Sub
Sub 批次篩選產業別()
Call 批次篩選("B", 4)
End Sub
Sub 批次篩選產品()
Call 批次篩選("C", 5)
End Sub
Sub 批次篩選客戶名稱()
Call 批次篩選("D", 12)
End Sub
教學影音(完整版在論壇):
教學影音完整版在論壇:
https://groups.google.com/forum/#!forum/scu_excel_vba2_86
課程特色:
1.如何將函數轉成VBA2.VBA與資料庫快速結合
EXCEL函數、 VBA程式設計與資料庫是分別屬於三個領域的知識,
但卻是目前大家都需要的一項專業技能,要把三者融合的很好實在非常不容易,
剛好我有近20年的VB程式設計與資料庫設計的經驗,
教EXCEL函數與相關課程也有多年,因此清楚如何把最重要的知識教給大家,
ADO資料庫設計的知識非常多,但根據我多年的設計實務經驗,
覺得最重要的是掌握SQL語言,就可以輕易的完成查詢、新增、修改與刪除等功能,
就可以輕易的完成自己想處理的大量資料,大大提高工作效率了!
上課用書是:
Excel函數&VBA其實很簡單(http://www.books.com.tw/exep/prod/booksfile.php?item=0010457292)
Excel VBA 與資料庫整合大活用(http://www.books.com.tw/exep/prod/booksfile.php?item=0010463634)
完整教學影音DVD申請:http://goo.gl/ZlBZE
論壇:http://groups.google.com/group/labor_excel_vba?hl=zh-TW
相關學習:
- 2019智慧科技旅遊自由行懶人包分享
- EXCEL下拉清單用VBA自動查詢與顯示不同資料
- 最新的完整VBA與Python教學影音DVD分享
- 讓EXCEL VBA具有進度狀態條功能(表單設計)
- PYTHON開發網站技術用Django框架
- EXCEL當資料庫VLOOKUP與TEXT函數做飯店管理
- 從VBA到Pyhton用懶人包快速建立開發環境分享
- 利用LARGE與SAMLL函數計算前後三名工資與轉VBA
- SUMIF函數計算苗栗和宜蘭總人數與用VBA累加
- EXCEL VBA進階範例尋找與判斷負0到9的值
- 使用VBA製作銷貨訂購單與儲存資料(EXCEL當資料庫)
- EXCEL太複雜工作還是交給VBA吧!範例班級成績查詢
- EXCEL快速資料分欄用INDEX函數與VBA
- EXCEL VBA動態取消工作表保護與VBA專案保護設定
- EXCEL匯出資料到MYSQL與PHP、Phthon、R、APP共用資料
- EXCEL VBA用XMLHTTP物件抓取外匯資料
- 如何在EXCEL中自訂函數與用增益集分享VBA自訂函數
- EXCEL VBA批次查詢清單到新增與刪除工作表
- EXCEL2013版VBA如何快速建立查詢系統
- EXCEL VBA改用MYSQL當成資料庫存放大量資料
- EXCEL VBA自動化與自動繪製框線(樣式顏色粗細)
- VBA處理大數據如何自訂留下數字函數
- VBA處理大數據政府開放與快速做出查詢系統
- 如何將大量EMAIL自動串接與用OUTLOOK自動批次寄信
- 如何用VLOOKUP函數做飯店管理分享
- 東吳進修廣部88期的EXCEL VBA課又額滿了
- 如何計算年齡並格式化與用VLOOKUP查詢時數
- 如何在EXCEL VBA中快速刪除空白列
- EXCEL VBA大數據自動化設計上課心得分享
- 如何用EXCEL統計樂透彩中獎機率範例
- 如何用COUNTIF函數篩選黑名單(無須撰寫VBA)
- 如何將EXCEL公式改直接貼上修改為VBA
- 如何用EXCEL VBA設計銷貨單將EXCEL當資料庫
- 如何撰寫自動日期格式化的VBA程式
- 如何增加EXCEL VBA按鈕(86)
- 如何用VBA搜尋關鍵字後上色與複製到新工作表
- 如何用VBA搜尋關鍵字後上色與複製到新工作表
- EXCEL函數與VBA設計第6次上課(證照106與110)
- 如何增加EXCEL VBA按鈕
- 如何利用日期函數製作年曆VBA範例
- 如何用EXCEL VBA設計銷貨單分享
- 如何學會欄列鎖定技巧與VBA設計之二(範例:大型試算表)
- 如何學會欄列鎖定技巧與VBA設計之一(範例:大型試算表)
- 從EXCEL函數到VBA自動化(函數應用大升級)
- 如何將檢視與參照函數函數轉EXCEL VBA設計
- 提高工作效率_黑名單篩選範例分享
- 北市公訓處EXCEL函數進階班第1天上課
- 公訓處EXCEL進階課程分享
- 如何用VBA呼叫Outlook郵寄信件
- 如何顯示進度狀態列(ProgressBar)
- 如何批次下載股市資料到EXCEL中
- 如何建立表單與將EXCEL當成資料庫
- 如何讓用ACCESS將EXCEL的資料
- 如何排序工作表
- 如何將單次查詢改為批次查詢(EXCEL VBA自動化)
- 如何在EXCEL VBA的工作表隨機上顏色
- 如何快速在EXCEL中建立查詢系統(免資料庫)之2
- 如何精簡VBA程式與傳遞引數
- 如何快速在EXCEL中建立查詢系統(免資料庫)之1
- 如何將大量工作表整合在一個工作表
- 如何在EXCEL VBA新增沒有重複名稱工作表
- 如何自動下載YAHOO股市資料到EXCEL中
- 如何建立表單與將EXCEL當成資料庫使用
- 如何在EXCE VBA中複製工作表
- 如何在EXCEL VBA如何保護工作表
- 如何在EXCEL VBA新增沒有重複名稱工作表
- 如何在EXCEL工作表中移動
- EXCEL VBA辦公自動化_如何建立查詢系統
http://terry55wu.blogspot.tw/2012/03/excel-vba20124.html
2.如何把EXCEL"函數"變為 "VBA"?自強基金會2012第5次上課
http://terry55wu.blogspot.tw/2012/04/excel-vba.html
3.自強基金會2012第8次上課
http://terry55wu.blogspot.tw/2012/05/excel-vba20128.html
4.自強基金會2012第9次上課
http://terry55wu.blogspot.tw/2012/05/excel-vba20129.html
5.EXCEL_VBA與資料庫--自強基金會2012(Ending)
http://terry55wu.blogspot.tw/2012/07/excelvba-2012ending.html
EXCEL,VBA,函數東吳進修推廣部,EXCEL VBA 函數 程式設計 線上教學 excel vba 教學 excel vba指令教學 vba範例教學excel excel vba教學視頻 excel函數教學 excel函數 MYSQL