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函數
      沒有留言:
      訂閱： 文章 (Atom)