2017年1月15日 星期日

今天是勞工大學選課日,不到一小時,就快額滿



今天是勞工大學選課日,不到一小時,就快額滿(文章寫完應該已經額滿了吧), 大家對我的EXCEL VBA大數據自動化課程似乎很感興趣, 這也是我在勞工大學開課的第18年學年了,對這裏有著不同的感覺, 雖然中間有三個學期因為博士班畢業後去當兵無法開課, 退伍後一邊在創業,一邊也把心得分享給大家。 但還好大家沒把我忘了,當時開的AUTOCAD程式設計依舊受歡迎。 最早是經由林翰忠老師的引薦, 得知當時的勞工曹局長有意在當時的台北縣三重勞工活動中心創辦勞工大學, 當時的課程不多,記得只有電腦和語文,但由於當時電腦學習風氣很盛, 而當時也沒有網路選課, 於是半夜凌晨三點,聽說就有人排隊。 那時第一次開的課程是WORD文書處理, 當時是很多人不熟悉的專業, 慢慢地與時俱進,前後在勞大開過非常多種課程, 幾乎都是年年有新課程, 主要要不斷更新勞工的傳業技能, 多半也是應學員要求吧! 開過的課種類很多,從WORD、EXCEL、ACCESS、PHOTOIMPACT影像處理、多媒體剪輯, 後來慢慢轉開AUTOCAD平面和立體設計與VB.NET程式設計,與相關證照課程, ASP.NET程式設計與PHP與MYSQL資料庫都開過, 最近主力慢慢放在APP開發課程,與EXCEL VBA大數據自動化方面。 目前還有在東吳文化大學進修推廣部自強工業基金會台北市公務人員訓練處等地開設相關課程,有興趣的朋友可以關注,或注意部落格、YOUTUBE頻道等。 勞工大學選課網址:https://uni.labor.ntpc.gov.tw/HP0/HP06.asp

相關學習:

2016年11月13日 星期日

如何在EXCEL中自訂函數與用增益集分享VBA自訂函數

如何在EXCEL中自訂函數與增益集分享VBA自訂函數

預覽畫面:


如何自訂函數呢?
可以在VBA中插入模組與插入Function即可,
可以試試成績函數:

Public Function 成績函數(平均成績)

    If 平均成績 >= 60 Then
        成績函數 = "合格"
    Else
        成績函數 = "不合格"
    End If
End Function

在EXCEL寫好了很多的自訂函數,

但要如何在別的電腦使用這些自訂函數呢?
這是很多學會VBA自訂函數的學員常問的問題,

當然如果懂得複製貼上程式碼到VBA的模組那就沒什麼問題了,
但若是給一班完全沒學過VBA的使用者,
那就可以用安裝增益集的方式來安裝所有VBA寫的自訂函數。

不過在分享這些自行撰寫的VBA自訂函數會有智慧權的問題,
建議可以先把自己寫的VBA程式加上密碼。
1.加密


2.然後,可以傳給使用者你的有巨集(XLSM)檔案,

請他另存為增益集


3.接下來記得要啟用增益集,才能使用




最後開啟一個新的檔案,你將會在插入函數時看到這些自訂函數了。

教學影音(完整版在論壇):

教學影音完整版在論壇:
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

EXCEL,VBA,函數東吳進修推廣部,EXCEL VBA 函數 程式設計 線上教學 excel vba 教學 excel vba指令教學 vba範例教學excel  excel vba教學視頻 excel函數教學 excel函數 MYSQL

2016年8月30日 星期二

EXCEL VBA批次查詢清單到新增與刪除工作表

EXCEL VBA批次查詢清單到新增與刪除工作表

預覽畫面:


結果畫面:



如何將單次查詢改為批次查詢,

可以按照分類清單,將資料自動查詢並輸出成為工作表,

這部分可以先從建立清單開始,

其次是,批次新增工作表,

若有舊的查詢結果則先刪除工作表之後,

重新批次查詢一次。



**如何批次查詢資料

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

相關學習:
    1.EXCEL VBA設計(自強基金會2012)第4次上課
    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