2019年12月30日 星期一

班級資料工作表的分割與合併(VBA)

班級資料工作表的分割與合併(用EXCEL VBA)

最常遇到學員問到如何將工作表分割與合併為同一個工作表

若是用人工方式複製貼上,真的非常浪費時間,
工作表越多越麻煩,
其實只要一個迴圈,加上範圍複製,與資料篩選,
其實就可以在瞬間完成工作,
以下分享用VBA直接撰寫程式,將工作表分割合併的方法。

完成畫面:

分割工作表

程式碼
 合併工作表

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

教學影音完整版在論壇:
https://groups.google.com/forum/#!forum/scu_excel_vba2_86

EXCEL VBA進階班的課程規劃

主要是延伸入門課,延伸資料庫、多工作表、工作簿、網路爬蟲、視覺化報表等應用並與Python程式協同應用
單元01_資料拆解相關(VBA)
單元02_輸入自動化與表單設計
單元03_用ADO匯入與匯出資料庫
單元04_大量工作表合併與分割
單元05_資料查詢(篩選與分割工作表)
單元06_下載網路資料(YAHOO股市)
單元07_活頁簿與檔案處理(工作表分割與合併活頁簿)
單元08_視覺化報表與快速匯入圖片

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

    2019年12月29日 星期日

    開課訊息:東吳推廣部 從EXCEL VBA到Python開發

    開課訊息:
    東吳推廣部 從EXCEL VBA到Python開發

    上課日期
    2020-02-10 時數 32節

    上課內容:
    因應大數據分析、物聯網與AI智慧辦公室的需求,能更容易的學會網路爬蟲、機器學習、物聯網、影像辨識、自動圖像報表等需求,其中以EXCEL VBA與Python程式開發最為熱門,因此將VBA的自動化延伸到PYTHON設計,讓學員能夠比較兩個工具的長處,並能相互協同應用。

    教學內容
    單元01_建置Python開發環境與程式測試
    單元02_基本語法與結構控制件
    單元03_迴圈資料結構與自訂函數
    單元04_串列、字典與檔案與資料庫處理
    單元05-1_開放資料處理CSV和JSON資料處理(停車與PM2.5)
    單元05-2_開放資料處理練習題_新北市開放資料JSON
    單元05-3_GOOGLE雲端當CSV來源與CSV處理
    單元05-4_網頁資料擷取基礎與外匯
    單元05-5_網頁資料擷取台彩與股市資料
    單元05-6_擷取網頁上櫃股票行情
    單元06_使用Pandas與處理_Excel_試算表
    單元07_VBA與Phython連結MYSQL資料庫
    單元08_視覺化報表使用圖表繪製Matplotlib
    備註:本課程上課即時錄製教學,並於課後提供學員線上數位學習。

    連結:
    https://www.ext.scu.edu.tw/courses1.php?gid=7f9f1389-1fa1-11ea-abcd-000c29ad6982





    吳老師  108/12/30

    2019年12月28日 星期六

    AUTOCAD 3D入門機械繪圖(如何將2D圖轉成3D圖)

    AUTOCAD 3D入門機械繪圖(如何將2D圖轉成3D圖)

    分享從AUTOCAD 2D繪製轉換為3D的簡單直覺的技巧,本課程在是以基礎的作圖為主,並進階繪圖與目標取得證照。用最容易的學習的方式教學,輔以影音教學,用最新版本授課兼顧舊版本又能跟上時代,並結合智慧潮流。

    授課大綱 
    ‧由於科技發達,使各行業設計得以透過電腦輔助設計更加的方便與精確。
    ‧無論是就業培養第二專長者,或使用電腦腦輔助繪圖者(工業設計、商業設計、建築設計),或對專業執照及個人實力培養有興趣者,都對CAD的學習有很大的需要。
    ‧AUTOCAD是目前各行各業進行必須具備的基本技能。
    ‧Auto CAD入門與證照考題解析的規劃,將電腦製圖大部份必須具備的知識,融合到試題演練中,術科則是以上機實作的方式,考驗受測者軟體操作與實際應用之熟練度。
    ‧若能充份練習,依照課程學習的範圍和進度,將練習題反覆練習,必能掌握電腦輔助製圖的精髓,為未來進一步深入學習奠定堅實的基礎。
    較完整資訊可以參考吳老師教學論壇:http://www.tqc.idv.tw/


    這次上課重點是先畫好2D圖之後,再轉成3D的過程做介紹,
    步驟為按拉-->多重擠出-->先內後外按拉-->移動-->3D旋轉-->移動
    -->圓角

    1.2D繪製
     2.按拉
     3.多重擠出
     4.先內後外按拉
     5.移動
    6. 3D旋轉
    7.移動
    8.圓角

    上課內容:
    01_範例8解說
    02_範例8_2D畫法
    03_範例8_3D畫法



    完整論壇:
    https://groups.google.com/forum/?hl=zh-TW#!forum/cad2012_3d_2014

    相關影音:
    發表時間文章標題
    2015-05-30AUTOCAD 3D 入門懶人包
    2014-11-27如何解第三篇範例7(AUTOCAD 3D入門)
    2014-07-14如何解第三篇範例7(AUTOCAD 3D入門)
    2014-07-14如何解第三篇範例8(AUTOCAD 3D入門)
    2014-07-14如何解第三篇範例10(AUTOCAD 3D入門)
    2014-07-14如何繪製公寓大廈範例(AUTOCAD 3D入門)
    2014-07-13AUTOCAD 2012 3D入門(範例14)
    2014-07-13AUTOCAD 3D入門(2014)第12次上課
    2014-07-13AUTOCAD 3D入門(2014)第6次上課
    2014-04-13AUTOCAD 3D入門(2014)第4次上課
    2014-03-22AUTOCAD 3D入門(2013)第2次上課
    2014-03-22AUTOCAD 3D入門(2014)第1次上課
    2013-01-14AUTOCAD2012 3D入門第18次上課
    2013-01-06AUTOCAD2012 3D入門第17次上課
    2012-12-22AUTOCAD2012 3D入門第15次上課
    2012-12-22AUTOCAD2012 3D入門第14次上課
    2012-12-22新北市勞工大學AUTOCAD 2012 3D入門成果展
    2012-12-08AUTOCAD2012 3D入門第13次上課
    2012-12-06AUTOCAD2012 3D入門第12次上課
    2012-11-24AUTOCAD2012 3D入門第11次上課
    2012-11-18AUTOCAD2012 3D入門第10次上課分享
    2012-10-28AUTOCAD2012 3D入門第8次上課
    2012-10-20AUTOCAD2012 3D入門第7次上課
    2012-10-15AUTOCAD2012 3D入門教學之6
    2012-09-29AUTOCAD2012 3D入門第4次上課分享
    2012-09-15AUTOCAD2012 3D入門第2次上課
    2012-04-08AUTOCAD 3D入門第18次上課
    2012-02-01AUTOCAD 3D入門第18次上課
    2011-12-11新北市勞工大學AUTOCAD 3D入門成果展
    2011-12-09AUTOCAD 3D入門第11次上課分享
    2011-12-09AUTOCAD 3D入門第7次上課
    2011-12-09AUTOCAD 3D入門第4次上課
    2011-12-09AUTOCAD 3D入門第3次上課
    2011-12-09AUTOCAD 3D入門第2次上課
    2011-11-28AUTOCAD 3D入門第11次上課分享
    2011-11-20AUTOCAD 3D入門第11次上課分享
    2011-11-13AUTOCAD 3D入門第10次上課
    2011-10-24AUTOCAD 3D入門第7次上課
    2011-10-08AUTOCAD 3D入門第4次上課
    2011-09-24AUTOCAD 3D入門第3次上課
    2011-09-21AUTOCAD 3D入門第2次上課


    所有完整上課影音已收錄於
    *完整教學影音DVD分享申請 http://goo.gl/lsqo7

    autocad 2d轉3d,autocad教學pdf,autocad 3d tutorial,autocad教學網站,autocad 2008 3d教學,autocad 3d 範例,autocad 2010 3d 教學,autocad 3d 教程,autocad 3d教學影片,autocad 2012 3d教學

    2019年11月29日 星期五

    EXCEL VBA網路爬取大樂透歷史資料

    EXCEL VBA網路爬取大樂透歷史資料

    如果想將網路上總共有57頁網頁資料複製到EXCEL工作表中,
    如果用土法煉鋼是非常花時間的事,如果每天需要經常性抓取網路資料,
    真的非常必要用VBA程式來完成
    其實就是目前很夯的網路爬蟲,
    Python 程式相比,VBA相對比較親民一些,
    直接抓取到EXCEL相對的好處理後續的動作
    利用VBA程式,配合 For迴圈+If邏輯判斷一下
    基本上程式就可以快速一鍵完成資料下載。
    接下來要產生報表作統計分析,或是視覺化圖表就更簡單了。
    以下有六個步驟如下,
    1.錄製巨集與修改VBA程式
    2.VBA寫刪除日期列
    3.VBA寫複製日期
    4.VBA寫刪除列
    5.VBA寫增加中獎號碼

    6.VBA寫剖析資料

    完成畫面:


    統計結果:


    大樂特歷史資料下載程式碼





    **利用資料的從WEB功能下載資料,再利用錄製巨集產生基本VBA程式加以修改

    1.資料的從WEB功能



    程式碼:

    Sub 大樂透下載()
        With ActiveSheet.QueryTables.Add(Connection:= _
            "URL;https://www.lotto-8.com/listltobigbbk.asp?indexpage=1&orderby=new", _
            Destination:=Range("$A$1"))
            .WebFormatting = xlWebFormattingNone
            .WebTables = "5"
            .Refresh BackgroundQuery:=False
        End With
    End Sub


    Sub 批次大樂透下載()

        For i = 1 To 57
            '1.匯入WEB資料
            If Range("A1") = "" Then
                r = 1
            Else
                r = Range("A1").End(xlDown).Row + 1
            End If
            With ActiveSheet.QueryTables.Add(Connection:= _
                "URL;https://www.lotto-8.com/listltobigbbk.asp?indexpage=" & i & "&orderby=new" _
                , Destination:=Range("$A$" & r))
                .WebFormatting = xlWebFormattingNone
                .WebTables = "5"
                .Refresh BackgroundQuery:=False
            End With
        Next
    End Sub


    VBA程式碼

    Sub 刪除日期列()

        For i = Range("A1").End(xlDown).Row To 2 Step -1
            If Cells(i, "A") = "日期" Then
                Rows(i).Delete
            End If
        Next
    End Sub

    Sub 複製日期()

        For i = 2 To Range("A1").End(xlDown).Row
            If (i - 2) Mod 3 = 0 Then
                Cells(i, "A") = Cells(i + 1, "A")
                Cells(i, "A").NumberFormatLocal = "yyyy/m/d"
            End If
        Next
    End Sub

    Sub 刪除列()

        For i = Range("A1").End(xlDown).Row To 4 Step -3
            Rows(i).Delete
            Rows(i - 1).Delete
        Next
    End Sub

    Sub 增加中獎號碼()

        For j = 1 To 6
            Cells(1, j + 3) = j
        Next
    End Sub

    Sub 剖析資料()

        For i = 2 To Range("A1").End(xlDown).Row
            Range("D" & i & ":I" & i) = VBA.Split(Cells(i, "B"), ",")
        Next
    End Sub

    Sub 刪除B欄()

        Columns("B").Delete
        Columns.AutoFit
    End Sub

    Sub 大樂透下載()

        Call 批次大樂透下載
        Call 刪除日期列
        Call 複製日期
        Call 刪除列
        Call 增加中獎號碼
        Call 剖析資料
        Call 刪除B欄
    End Sub

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

    教學影音完整版在論壇:
    https://groups.google.com/forum/#!forum/scu_excel_vba2_86

    EXCEL VBA進階班的課程規劃

    主要是延伸入門課,延伸資料庫、多工作表、工作簿、網路爬蟲、視覺化報表等應用並與Python程式協同應用
    單元01_資料拆解相關(VBA)
    單元02_輸入自動化與表單設計
    單元03_用ADO匯入與匯出資料庫
    單元04_大量工作表合併與分割
    單元05_資料查詢(篩選與分割工作表)
    單元06_下載網路資料(YAHOO股市)
    單元07_活頁簿與檔案處理(工作表分割與合併活頁簿)
    單元08_視覺化報表與快速匯入圖片

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