公告版位

學員想學卻苦無名額因此整理上課的影音和講義分享

 

最近文化大學、東吳推廣部、自強工業基金會、新北市勞工大學等單位開課狀況良好,

上課人數經常是秒殺居多,尤其是VBA和PHTHON課程,

最近在文化大學推廣部

http://my.sce.pccu.edu.tw/MS/Detail.aspx?ProdId=8IS4sample

新北市勞工大學將開:

https://uni.labor.ntpc.gov.tw/HP0/HP06.asp

 

很多學員反應想學卻苦無名額,

因此這幾天整理了去年2017年上課的影音和講義等資料

首先是從EXCEL進階函數到VBA入門課程

自強從Excel函數到VBA雲端巨量資料庫應用班

課程詳細內容:https://goo.gl/umvBys 


VBA進階到資料庫的兩個不同單位課程,因學習對象不同課程也稍異:

自強Excel VBA辦公室提升效率自動化實務班

課程詳細內容:https://goo.gl/Ffh4uj 

勞大EXCEL VBA大數據自動化進階

課程詳細內容:https://goo.gl/BEBext 


最後是大家都很有興趣的PHTHON入門課程:

從EXCEL VBA自動化到Python程式開發入門 

課程詳細內容:https://goo.gl/tXXqXF


大家都有很大學習需求的用網頁概念作APP的:

跨平台APP開發使用Visual Studio2015與PhoneGap 

課程詳細內容:https://goo.gl/xnV6mo

 

並將課程整理為DVD或是雲端下載課程,

有興趣的網路學習者,也可以有學習的機會。


可以參考:

https://terry55wu.blogspot.tw/p/dvd.html

文章標籤

吳老師 發表在 痞客邦 留言(4) 人氣()

最新吳老師教學超完整懶人包

祝  大家新春如意,學習愉快

android教學, AUTOCAD 3D教學, e, EXCEL, EXCEL VBA 函數 程式設計, VBA, 大數據, 提升效率, 教學視頻 excel函數教學 excel函數, 

 

 

 
文章標籤

吳老師 發表在 痞客邦 留言(0) 人氣()

用COUNT相關函數與VBA統計樂透彩中獎機率

 

完成結果:

 

 

 

 

昨天在東吳進修推廣部講到數學函數單元,最重要的用到COUNTIF函數

並舉到樂透彩中獎機率範例

分享幾個好用的EXCEL應用技巧,

1.定義名稱範圍

2.自訂格式化

3.用公式設定格式化條件

這個範例可以用再只要需要統計機率

就可以用COUNTIF函數快速的統計出機率,

當然這些資料來自網路上的開放資料,

也可以配合VBA自動下載網路資料

 

上課畫面:

01_完成結果畫面

02_定義名稱所有的101年號碼

03_用COUNTIF與COUNT算出機率

04_格式化成10000分之多少

05_算出排名

06_前7名格式化

 

完整的教學影片:

 

請先看之前的課程:

如何用EXCEL統計樂透彩中獎機率範例

https://terry55wu.blogspot.com/2015/08/excel.html

如何將數學函數轉EXCEL VBA設計之一

http://terry55wu.blogspot.tw/2014/09/excel-vba_19.html

如何將數學函數轉EXCEL VBA設計之二

http://terry55wu.blogspot.tw/2015/01/excel-vba.html

提高工作效率_黑名單篩選範例分享

http://terry55wu.blogspot.tw/2015/06/blog-post.html

雲端問卷調查及EXCEL統計分析研習分享

http://terry55wu.blogspot.tw/2014/11/excel.html

 

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函數

文章標籤

吳老師 發表在 痞客邦 留言(0) 人氣()

如何在EXCEL中錄製巨集與精簡為VBA程式(範例黑名單篩選)

 

請先看之前的課程:

如何用COUNTIF函數篩選黑名單(無須撰寫VBA) [連結]

提高工作效率_黑名單篩選範例分享  [連結]

讓EXCEL VBA具有進度狀態條功能(表單設計)   [連結]

 

完成結果:

 

昨天在東吳進修推廣部講到數學函數單元,最重要的用到COUNTIF函數

並舉到黑名單篩選範例,實際上,這有點類似資料庫的應用

只要未來需要查詢大量清單資料,就可以使用CONTIF來查詢,

只要結果大於1,就表示有找到資料,

但是,無法比對關鍵字查詢等的簡易查詢,

若要進階查詢,還是要用VBA的Instr函數

或是篩選的功能VBA,或是SQL語法等,

不過COUNTIF算是最簡單的。

若是要將整個動作變為按鈕一件重複完成,

可以利用錄製巨集完成,

但如何錄製巨集還是需要注意幾個重點:

1.錄製巨集前要彩排

2.錄製執行後記得要加上註解

3.可以關閉畫面更新

4.看懂VBA程式並進行精簡

 

上課畫面:

01_下載黑名單範例

 

02_建立黑名單名稱範圍

 

03_用COUNTIF函數判斷是在黑名單

 

04_篩選結果為0並刪除列

 

 

完整的教學影片:

 

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函數

文章標籤

吳老師 發表在 痞客邦 留言(0) 人氣()

班級資料工作表的分割與合併(用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函數

吳老師 發表在 痞客邦 留言(0) 人氣()

開課訊息:

東吳推廣部 從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

吳老師 發表在 痞客邦 留言(0) 人氣()

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函數

文章標籤

吳老師 發表在 痞客邦 留言(0) 人氣()

用EXCEL VBA快速將大量的EXCEL檔轉為PDF檔

 

這是EXCEL VBA進階課程的單元七的大量工作表的分割時講到,

剛好有學員問道如果想把大量的工作表,直接分割為PDF檔,

該怎麼做?其實只要一個For迴圈配合ExportAsFixedFormat方法,

就可以快速的將大量的工作表輸出為一個一個的PDF檔,

省去人工所要花費的時間,如果你每天都需要將工作表轉為PDF,

這個分享,應該可以幫到您很多的忙,節省大量時間。

 

其他可參考

如何用EXCEL VBA批次轉PDF檔  [連結]
[問題詢問]如何修改VBA讓EXCEL自動轉存成PDF時不會出現副檔名 [連結]
先學會如何用EXCEL VBA批次另存成2003與CSV等格式 [連結]
如何用EXCEL VBA自動批次匯入圖片與超連結 [連結]
如何增加EXCEL VBA按鈕 [連結]

 

預覽:


大數時代來臨如果不懂得裡用自動化方式處理資料,

處理資料將非常沒有效率,

至於處理大數據的方案很多,

但最通行也沒有額外費用的大概只剩VBA了。

而且開啟EXCEL就包含VBA,除了在Windows外,

MAC蘋果電腦一樣也有EXCEL,

VBA也可以沿用以前VB的資源,這樣看來VBA處理大數據應該沒有什麼對手了。

 

 

 

程式碼:

Public Sub 批次將工作表轉存為工作簿_PDF()

    If Dir("C:\Users\SCU\Desktop\VBA\*.xlsx") <> "" Then Call 刪除檔案

    

    Application.FileDialog(msoFileDialogFolderPicker).Show

    sPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)

 

    Application.ScreenUpdating = False

    For i = 2 To 14

        x = Sheets("甲班").Cells(i, "I")

        Sheets(x).Copy

        ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sPath & "\" & x & ".pdf"

        ActiveWorkbook.Close False

    Next

    Sheets("甲班").Select

    Application.ScreenUpdating = True

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函數

文章標籤

吳老師 發表在 痞客邦 留言(0) 人氣()

2019從北陸玩到京都旅行(二)黑部峽谷小火車與兼六園

 

今天主要就兩個行程,兩個行程都不是原本規畫之內的,

本來在繼續把合掌村的五箇山與菅沼走完,但因為天氣實在太熱

老婆覺得合掌村也都長的很接近,於是我就想到備案,

剛好查了黑部峽谷的天氣真的就比其他地方來的低個五度

很適合避暑,但因為網路上查到的分享文章實在不多,

似乎也不是很推薦的樣子,另外,坐過台灣的小火車,

之前的感覺很不穩,時速也很慢,又有柴油味很重,實在不舒服,

但這次我坐了黑部峽谷的小火車後,

以上對小火車的負面觀感完全改觀,

另外可能是我們一早大約不到十點就抵達小火車站,

當時的人很少,買了車票就上車了。

這天的行程的交通部分,需要先坐北陸新幹線從新高岡到黑部宇奈

再搭富山鐵道的火車到宇奈月溫泉站,出站後左迴後轉後,

會先看到泡足湯的地方,然後100公尺就抵達黑部車站了。

抵達後排隊買票,一個人大約2820日圓,

可以參考:

我們只是避暑,所以坐到鐘釣車站,停留一小時左右,

在那裏的溪邊泡泡腳,喝個啤酒就回程了。

回來後去逛逛黑部川電力博物館,之後泡泡足湯

就搭快車回黑部與耐心幹線站,時間還蠻多的,

於是搭下午2:32的車直接再去逛逛金澤的兼六園了。

兼六園逛完後轉往東山茶屋街,不免俗的吃個金箔冰淇淋

就回飯店,放個東西又出門去逛附近的AEON商場了。

 

當天的YOUTUBE影片清單

 

一、黑部峽谷小火車

 

一早吃完早餐就到對面新高岡新蓋線車站搭上8:32分的車前往黑布宇奈站

沒多久大約35鐘就可抵達黑布宇奈站

出站後過馬路就是富山鐵道的新黑布站

坐9:17分的直達車到宇奈月溫泉車站

建議可以買來回套票日幣1100日幣(單程680日幣)

來回套票長這樣

上月台後就有很多人在月台上等車,面前就是一片綠油油的稻田

不免俗的再老火車上來個合照

感覺得出來火車很老了,但那部裝潢可都很新,並不會讓人有什麼安全上的問題

大約不到半小時就抵達宇奈月溫泉車站

左後迴轉200公尺就會抵達小火車車站

車站旁就有免費可以泡足湯的地方,想說回程再來泡

沒多久就到了小火車車站

售票處人不多,一下子就買完票

票價

出發前合照,我們是坐普通車廂,後面是特別客車要加370日元

再一張合照,後面還蠻多特別客車,其實侯蠻空的

紅鐵橋加綠水

紅鐵橋加綠水

抵達黑薙車站

這裡似乎只有黑薙溫泉

抵達黑部水庫

在貓又車站會車

抵達鐘釣車站

鐘釣車站附近景點不多

河原露天風呂的溪邊,聽說溫泉要自己挖,想說泡冷泉就好

泡腳很舒服,很多人來這泡泡水消暑

喝個牌酒很棒

這就是小火車的車頭,看到是川崎坐的電車頭,和阿里山是姊妹車

順道可以進入黑部川電氣紀念館逛逛

走累了剛好泡個足湯

泡腳真舒服

搭回新幹線站後,搭14:32前往金澤

 

二、金澤兼六園

出車站就會看到6號月台往兼六園,平日200假日100日圓

等車的人不少

不到三分鐘車就來了

車上常有人穿和服

下車後往前走就是售票口

門票一人310日幣

在兼六園合影

很弱的噴水

徽軫燈籠

雁行橋

明治紀念之標(日本武尊像)

霞ヶ池

霞ヶ池

内橋亭

ひがし茶屋街

志摩藝妓屋(重要文化財)

東山一久咖啡店

東山一久咖啡店

金澤烏鶏庵 東山店

不免俗的來個金箔冰淇淋

逛完天色已晚,回到金澤車站坐先幹線回新高岡車站

回飯店放了東西就去旁邊的AEON商場超市逛逛

AEON商場超市

AEON商場超市

AEON商場

從遠處看東橫INN飯店,是新高岡車站附近最明顯的地標

 

這一天等於一天跑好幾個行程,原本最不看好的黑部峽谷小火車,

卻是讓人印象非常深刻,尤其夏天避暑應該是蠻好的,

但冬天應該要加錢買特別車廂,否則應該會被凍到受不了吧。

也許是我們早點出發,所以人很少,連回程幾乎都是我們兩人坐一車廂,

但看上山的旅客幾乎坐滿,所以去坐黑部峽谷小火車建議還是要早點。

做完小火車還有時間就把隔天的去兼六園提前,

但說實在,有點失望,也許是之前去看過幾個林園,

像是岡山後樂園,實在太美,兼六園似乎被比下去了,

不是兼六園不更美,也許冬天來訪會有不同風景吧。

 

TAG:日本旅行,心得分享, 交通, 吳老師, JR關西&北陸地區鐵路周遊券(七日券),黑部峽谷,小火車,兼六園

 

 

 

文章標籤

吳老師 發表在 痞客邦 留言(0) 人氣()

範例_字串切割與Do_While迴圈不定數量結果

 

練習檔 [下載]

這個範例是學員工作上的問題,

每天都需要將儲存格中的超連結取出到B欄中,

若儲存格中只有一個超連結還好解決,

可以用Find函數找中括弧位置,再用Mid函數切割,

剛好這個範例裡面不只一個超連結,

可能有兩個、三個甚至更多,

也就是數量不定,如果要用For迴圈,也要知道數量範圍,

所以只能用 Do While 迴圈了,

從第一個字找起,之後再從找到的位置加一再找了,該如何做。

預覽影片:

 

一、函數

=FIND(C$1,A2)

=FIND(D$1,A2)

=MID(A2,C2+1,D2-C2-1)

 

如果用VBA撰寫的程式

 

一、階段一,先撰寫只取一個超連結

外面的For迴圈是跑每一列,用 Instr函數找"【<"和">】",

分別放在將找到位置的值放在 a和b 中,

如果a或b為0,表示找不到。

 

Sub 字串切割()

    '1.迴圈範圍

    For i = 2 To Range("A2").End(xlDown).Row

        '2.取得頭尾位置與切割字串

        a = VBA.InStr(Cells(i, "A"), "【<")

        b = VBA.InStr(Cells(i, "A"), ">】")

        If a <> 0 Then

            '5.輸出結果

            Cells(i, "B") = Mid(Cells(i, "A"), a + 1, b - a)

        End If

    Next

End Sub

 

如果多個超連結,可以先多產生 a1和b1變數,預設值為 1,

即從頭找起,找到之後再把  a1和b1 加1之後繼續找,

直到找不到為止,Do While 後面就是邏輯,為 True 就繼續找,

反之就離開迴圈了。

 

Sub 字串切割_所有超連結()

    '1.迴圈範圍

    For i = 2 To Range("A2").End(xlDown).Row

        '兩個位置初始值,從1開始找