公告版位

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

 

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

上課人數經常是秒殺居多,尤其是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

文章標籤

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

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

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

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

 

 

 
文章標籤

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

使用VBA製作銷貨訂購單與儲存資料(EXCEL當資料庫)

 

預覽畫面:

 

本範例主要分享銷貨訂單的自動化EXCEL當成輸入介面

當然也可以利用VBA裡的表單來製作,難度會比較高些,

不過感覺會更專業些,但是無論哪種方式,

最主要是可以輔助輸入的效率與正確性

讓輸入資料不易出錯,

也無法隨意竄改,

所以需要最後配合保護工作表

除了四個區域(單號、客戶、商品、數量)可以修改外,

其他都不能修改,避免輸入資料正確性

另外下拉清單也可以自動帶出其他資料

這樣就可以加快輸入效率,

最後,可以再利用VBA程式

將所有資料存在銷貨明細一筆紀錄單號也自動加一之後,

又可以繼續輸入資料,達到類似進銷存系統的目的。

 

以下分享流程:

1.訂單日期

02_到貨日期

03_到貨日期(避開六日)

04_客戶

05_序號

06_商品

07_小計

08_保護工作表

09_增加訂單明細工作表

10_VBA程式畫面

Public Sub 新增資料()

   '1.判斷在哪一列

   If Sheets("銷貨明細").Range("A2") = "" Then

       r = 2

   Else

       r = Sheets("銷貨明細").Range("A1").End(xlDown).Row + 1

   End If

   '2.輸出資料

   '單號

   Sheets("銷貨明細").Cells(r, "A") = Range("B2")

   '訂單日期

   Sheets("銷貨明細").Cells(r, "B") = Range("D2")

   '到貨日期

   Sheets("銷貨明細").Cells(r, "C") = Range("G2")

   '客戶編號

   Sheets("銷貨明細").Cells(r, "D") = Range("B3")

   '客戶名稱

   Sheets("銷貨明細").Cells(r, "E") = Range("C3")

   '連絡電話

   Sheets("銷貨明細").Cells(r, "F") = Range("G3")

   '地址

   Sheets("銷貨明細").Cells(r, "G") = Range("B4")

   '銷貨總額

   Sheets("銷貨明細").Cells(r, "H") = Range("G4")

  

   '3.清空資料

   'Range("B2") = ""

   Range("B3") = ""

   Range("E2") = ""

   Range("B7:B16").ClearContents

   Range("F7:F16").ClearContents

 

   '4.單號加1

   Range("B2") = Range("B2")+ 1

End Sub

 

**如果編號為S000X

   Range("B2") = Left(Range("B2"), 1) & Format(Right(Range("B2"), 4) + 1, "0000")

 

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

 

教學影音完整版在論壇:

https://groups.google.com/forum/#!forum/scu_excel_vba2_86

 

課程特色:

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

 

其他相關學習:

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

文章標籤

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

EXCEL太複雜工作還是交給VBA吧!範例班級成績查詢

 

預覽畫面:

 

關於下拉清單快速查詢班級資料是常見問題,

但是要做到這樣的結果,

如果用EXCEL內建函數

需要用到函數分別有:

IF(比對)、SAMLL(改範圍比對與排序)、INDEX(抓資料)、IFERROR(過濾錯誤)

而且還需要用陣列來執行,

光複雜度,就令人卻步

每每講完這部分,再講VBA的解法,

反而用VBA來處理顯得更加簡便

所以,

若有更複雜的工作,要提高工作效率,

建議,還是用VBA為佳。

 

如何用VBA來做:

 

Public Sub 班級()

   '1.刪除舊資料

   Range("G5:J12").ClearContents

   '1.輸出的列數

   k = 5

   '2.迴圈判斷班級

   For i = 2 To 12

       If Cells(i, "A") = Range("H2") Then

           Cells(k, "G") = Cells(i, "B")

           Cells(k, "H") = Cells(i, "C")

           Cells(k, "I") = Cells(i, "D")

           Cells(k, "J") = Cells(i, "E")

           k = k + 1

       End If

   Next

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

   If Target.Address = "$H$2" Then

       Call 班級

   End If

End Sub


補充用EXCEL內建函數:

以下是用IF(比對)、SAMLL(改範圍比對與排序)、INDEX(抓資料)、IFERROR(過濾錯誤)

=IF($A2=$H$2,ROW()-3,"N")

{=SMALL(IF($A$2:$A$12=$H$2,ROW($A$2:$A$12),"N"),ROW()-4)}

**注意SMAIL的比對為範圍,所以需要將比對條件改為範圍,另返回的列數也要是範圍,並且一定要用陣列執行(CTRL+SHIFT+ENTER)

 

{=INDEX($A$1:$E$12,SMALL(IF($A$2:$A$12=$H$2,ROW($A$2:$A$12),"N"),ROW()-4),COLUMN()-5)}

 

 

 

{=IFERROR(INDEX($B$1:$E$12,SMALL(IF($A$2:$A$12=$H$2,ROW($A$2:$A$12),"N"),ROW(A1)),COLUMN(A1)),"")}

 

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

 

教學影音完整版在論壇:

https://groups.google.com/forum/#!forum/scu_excel_vba2_86

 

課程特色:

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

 

其他相關學習:

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

文章標籤

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

EXCEL快速資料分欄用INDEX函數與VBA

 

預覽畫面:

 

常遇到儲存格中若有單欄資料要分為四欄多欄資料,

若不懂的用INDEX等查詢函數,配合COLUMN與ROW參照函數

可能要用非常多的時間才能完成工作,

但若懂得用INDEX或INDIRECT函數

馬上就可以輕易完成結果,

需要先用Column與Row函數取得位置,再利用INDEX函數讀取資料,

最後多餘的標題與冒號,可以用REPLACE函數或是MID函數去除。

不過比較函數與VBA的執行效率,

當然VBA程式寫出來,按下按鈕執行似乎比較直接,

所以若資料量大或是需要重複動作的應用,

還是建議用VBA來完成

 

1.Column與Row函數:

=COLUMN()-3+(ROW()-2)*4

 

2.INDEX函數

=INDEX($B$2:$B$33,COLUMN()-3+(ROW()-2)*4,1)

3.MID與LEN函數

=MID(INDEX($B$2:$B$33,COLUMN()-3+(ROW()-2)*4,1),LEN(D$1)+2,99)

**補充用REPLACE切割=REPLACE(INDEX($B$2:$B$33,COLUMN()-3+(ROW()-2)*4,1),1,LEN(D$1)+1,"")

 

 

4.INDIRECT函數

=INDIRECT("B"&COLUMN()-2+(ROW()-2)*4)

=REPLACE(INDIRECT("B"&COLUMN()-2+(ROW()-2)*4),1,LEN(D$1)+1,"")

 

**用INDIRECT轉為VBA的RANGE物件輸出資料

 

Public Sub 人事分欄()

'    Cells(2, 4) = Range("B2")

'    Cells(2, 5) = Range("B3")

   k = 2

   For i = 2 To 9

       For j = 4 To 7

           Cells(i, j) = Mid(Range("B" & k), Len(Cells(1, j)) + 2, 99)

           k = k + 1

       Next

   Next

End Sub

 

Public Sub 清除()

   Range("D2:G9").ClearContents

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

 

其他相關學習:

 

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

文章標籤

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

20180417-22日本東北新幹線追櫻自由行分享

 

繼上一次的關西九州新幹線自由行分享[連接],有上次的經驗,

 

讓這次旅行更順利,想說依照之前的經驗應該就可以讓旅行更順利,

這次旅行的規劃想說剛好日本東北櫻花開,於是就看老婆有沒有時間一起前往,

但她的時間只能4/17(二)到4/22(日),

想說JR PASS的東北周遊卷(14日內5天使用),

於是就找了仙台進,東京出的方向,

訂了樂桃11點飛機,與捷星東京晚上10點飛回,

剛好可以睡飽再出發,玩到晚上再回家的概念,

另外,利用JR PASS新幹線移動,最好可以住離車站近點的飯店,

最好要有溫泉,於是訂了APA仙台店,有免費溫泉離車站不遠

步行約十分鐘,最後一天轉進高崎,可以玩輕井澤

訂了華盛頓高崎飯店,旁邊也有AEON百貨和超市,

高崎車站真的超近,僅三分鐘距離。

 

之後幾天就追著櫻花開的情形移動,大制訂出JR PASS的使用,

20180418第一天抵達仙台車站旁APA飯店

[連結] https://terry55wu.blogspot.tw/2018/04/20180418apa.html

20180418在岩手縣賞櫻:

20180419往青森縣賞櫻,雖說弘前城似乎還沒開,但也值得一去

20180420往秋田賞櫻與盛岡夜櫻,先到田澤湖坐觀光巴士,

在前往千秋公園,回來去盛岡公園看夜櫻:

20180421輕井澤騎腳踏車,住高崎車站旁,先把行李放飯店,

在去輕井澤騎腳踏車

20180422第六天鐵道博物館與川越看古代街景,雖說有搭錯車,

但還是順利從東京回台灣

 

結論:

這次旅行因為有JR東北新幹線套票,因為車班很多,

所以幾乎可以把新幹線當地鐵坐,但和關西山陽新幹線還是有蠻多的不同,

雖然都是日本人,但東北人感覺好安靜,連我們都不敢太大聲說話,

首先東北與秋田新幹線幾乎都是指定車廂,沒有自由座,

所以最好前一天把所有行程的車票先預約好。

賞夜櫻去盛岡城的蝸牛公車記得去坐左向,回坐右向,

票價日幣100元,準備好下車投即可。

一切都很順利,只是遇到幾個要注意卻沒注意的事,

票價日幣100元,準備好下車投即可,

雖然有搭錯車,但兩人同心與熟悉APP的操作,自然可以化險為夷。

另外,

弘前城跑最遠最久,反而櫻花還沒開,這是不相信櫻花官網的訊息,

不過也沒白跑一樣,只是時間投資部那麼值得。

此外,

這張JRPASS可以在14天內挑5天使用,就可以長途移動後休息幾天再使用,

旅遊中遇到退休的台灣人,就是這樣在玩,用幾天休幾天,

可以遠距離移動,也可以在當地深度旅行與漫遊,

不過這樣可能需要有很長的假期,蠻適合退休生活的。

 

時間表

 

4/17 Day1

7:05出門/11:20登機/15:45(日本時間)抵達仙台機場/16:50搭鐵道到仙台站/

17:30到APA飯店/18:50伊達的牛吃晚餐(牛舌)/逛AEON超市/飯店溫泉

4/18 Day2

8:10出門/換JR pass新幹線票/9:37搭往ㄧ之關/10:21搭地鐵到平泉車站/毛越寺/

水澤公園(賞櫻)/北上展勝地(賞櫻)/AEON超市/飯店溫泉

4/19 Day3

9:12東北新幹線到新青森/弘前星巴克/弘前公園(賞櫻)/三八城公園野餐(賞櫻)/

仙台車站吃拉麵/AEON超市

4/20 Day4

9:12~10:26搭往秋田新幹JR到「田澤湖站」,下車後購買【田澤湖巴士環湖一周乘車券】

10:45~12:16田澤湖ㄧ周(巴士)/午餐-車站旁拉麵及定食/

13:11~14:08搭往秋田新幹JR到秋田車站/走路5分鐘到千秋公園(賞櫻,草地野餐)/

16:12搭新幹線到盛岡/盛岡城跡公園(賞夜櫻)/19:50新幹線到仙台/

仙台站將明天的車票劃位/晚餐-喜治郎牛舌

4/21 Day5

仙台朝市/10:30仙台搭新幹線到大宮/大宮站轉往高琦/到華盛頓飯店check in寄行李/

AEON百貨購物吃午餐/14:05搭新幹線到輕井澤/輕井澤騎車2小時/高崎城跡

4/22 Day6=9:11搭雙層新幹線到大宮站/從大宮站轉鐵道博物館站/參觀鐵道博物館/

到川越站/搭巡迴觀光巴士/川越冰川神社/glin咖啡館喝下午茶/

搭錯車,不小心搭到長岡站/長岡站搭回高崎約49分鐘/

高崎站拿行李劃位及icoca加值/18:22搭往上野/上野搭電車到成田機場/

22:00飛回台灣


TAG:

 

日本東北,秋田新幹線,東北新幹線,上越新幹線,北陸新幹線,自由行分享,新幹線,

東日本JR套票,弘前城,青森,秋田,田澤湖,毛越寺,水澤公園,北上,盛岡城,夜櫻,輕井澤,

川越地區,鐵道博物館

 

文章標籤

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

20180117-23日本關西九州新幹線自由行分享

想去日本坐新幹線這念頭已經好幾年了,剛好看到西日本JR官網的套票

讓我大大心動,於是在閒時就開始規劃8天的旅遊行程

至少要確認機票飯店交通,剩下的景點可以再安排。

至於那些景點最值得去,

很多都是交給GOOLGE地圖

搜尋至少4顆星,評論都是大大的讚,當然就是第一順位,

於是宮島的嚴島神社的4.6顆星就雀屏中選,

其他的也就類似的方式找尋景點,

其次是最好離新幹線車站不會太遠,

畢竟旅遊的時間有限,先把最熱門的先玩一輪,

之後有時間再訪,就可以玩深度之旅,

這次,其實本來想去吳市的海上自衛隊吳史料館看大和號,

與吳市海事歷史科學館看看,與廣島的大久野島看兔兔,

但那裏的交通不便,所以也許下次可以再次深度到廣島旅行了。

接下來針對機票、飯店與交通做詳細介紹。

 

機票:

坐廉航去坐捷星中午的班機,可以睡飽再出門,

回來坐香草深夜班機,可以玩到傍晚,回到家剛好昏睡,

配合作息,比較不用沒睡飽出門,也可以玩到最後一刻,

雖說價格沒有特別便宜,但還在可接受範圍。

飯店:

前四晚在 HOTEL APP訂購的,用APP比網站便宜很多,

住日本連鎖飯店 APA岡山店

原本訂的是風評很好的瑪麗亞飯店

但用GOOGLE地圖查了一下離車站的距離,

還是APA比較近些,步行5-7分鐘

旁邊有AEON MALL與超市可以逛,

價格因為用HOTEL APP訂購的,划算很多,一晚大約台幣1600。

後兩晚在AGODA網站訂的新大阪飯店,一晚大約新台幣2000,

離新大阪車站超近,步行三分鐘就到了。

 

其實坐新幹線,住新大阪或岡山,甚至是廣島都沒什麼差,

因為新幹線的車班超密集五到十分鐘就一班

車上也有位子可以很舒服的休息,所以關鍵應該是離車站近最好,

另外,最好旁邊有物價便宜的超市

三餐比較好搞定,價格也會省很多。

最推薦的還是AEON超市,7點以後就有很多熟食已經開始打折。

吃的喝的都比便利商店便宜非常多。

交通:

日本交通便利準時有口皆碑,但價格昂貴也是事實,

大約是台灣的2-3倍以上,

統計這次我們搭新幹線費用,大約3.5萬台幣

其他的交通費大約5000台幣,加總起來大約4萬,

若沒有省錢的JRPASS新幹線套票,真的吃不消,

所以出發前剛好看到西日本JR新推出的山陽&山陰地區鐵路周遊券

可以七日內無限次的搭乘新大阪到博多之間新幹線,還有JR的電車宮島的渡輪

光新幹線坐一趟遠程的到博多或小倉就回本了,甚至搭快速列車,

機場到新大阪站的HARUKA列車

最讓人心動的是,這張套票是可以劃位的,

也就是可以在出發前,去JR櫃台指定位置,

也就是保證有位子,不用去跟別人為了搶自由坐,要提前排隊。

但自由坐非上班時間似乎也很空,

但往返機場可以劃HARUKA就很重要,

因為HARUKA最近有很多優惠票,

不過僅限自由坐,所以可以看到自由坐排隊的人超多,

但劃位的位子去很空。

所以最後會買這張JR套票的最大誘因,

1.可以搭七天,比其他的套票五天似乎很優惠。

2.可以劃位,也就是指定座位,這點很重要,可以不用和別人搶自由坐,

不過劃為部分一訂只能去西日本JR櫃台劃位,

新大阪車站因為還有東海JR櫃台,我就跑錯了,無法劃位,

博多車站有九州JR也無法劃位。

3.價格很優惠,日幣19000,大約台幣5000用七天,平均一天700台幣

在日本坐新幹線,算很便宜,況且還可以搭快速列車與渡輪。

另外,在台灣網站買又比去日本買便宜很多,我最後是在KKDAY網站購買,

價格4820,又更優惠些。

 

APP工具:

這部分我用最多還是GOOGLE地圖,

甚至搭新幹線的時刻表也都是在地圖查詢,

原本擔心會有不準確的問題,

但這幾天的實際使用結果,發現擔心是多餘的,

幾乎不需要再看查新幹線時刻表,

另外,GOOGLE的導航也是非常好用,

但建議一訂要先校正手機的指南針,這點非常重要,

甚至地下室也可以用指南針導航,不用擔心迷航問題。

 

看天氣可以用WINDY

 

看潮汐可以知道什麼時候可以看海上鳥居何時可以露出海面

查新幹線時速

 

天時地利都確定了,剩下就是確定之後的旅遊景點

1.參訪嚴島神社,海上鳥居,嚴島寶物館,紅葉谷公園,插曲是坐車去博多吃ㄧ蘭拉麵


 

 

2.參訪廣島城與和平紀念公園與吃廣島燒與尾道千光寺

 

 

 

3.參訪岡山城,岡山後樂園與倉敷美觀地區,插曲再遊博多屋台與運河城


 

 

4.參訪小倉城,旦過市場吃午餐與轉移新大阪逛心齋橋

 

5.參訪姬路城,插曲東廣島賞雪

 

 

6.搭JR電車參訪彥根城與玄宮園與準備回國

 

 

以下分享出發、抵達、時間、車型車號、起點、目的地與金額(日幣與台幣)

 

以下是我們七天的行程時間表給大家參考:

2018/1/17 (Day1)

9:10出發,10:00到機場,12:45起飛15:58抵達關西機場,

16:35換JR山陽山陰周遊卡,17:16搭JR到新大阪,

18:25新大阪到岡山,19:40抵達飯店,

20:00 AEON MALL 小豆島拉麵,逛AEON MALL超級市場

 

2018/1/18 (Day2)

8:00起床,9:00出門到AEON MALL吃早餐,

9:55搭乘新幹線到廣島,10:51廣島到宮島口站,

11:40搭乘JR渡輪,

12:00嚴島神社,海上鳥居,嚴島寶物館,紅葉谷公園,中餐,

15:30搭渡輪到宮島口站,宮島口到廣島,

16:00廣島到博多,17:33抵達北九州博多福岡,ㄧ蘭拉麵與逛地下街,

19:25搭乘JR到岡山,21:00抵達岡山逛超市,飯店休息

 

2018/1/19 (Day3)

9:15出發,9:46搭JR到廣島,廣島城,

12:40若貴廣島燒,廣島和平紀念公園,16:10 尾道千光寺

20:00逛AEON MALL

 

2018/1/20 (Day4)

9:00出門,19:18搭電車,9:25到岡山城,

岡山後樂園,12:00離開岡山後樂園,12:30博多拉麵,

13:00搭電車到倉敷車站,倉敷川,15:30離開倉敷站往岡山,

15:56從岡山站搭乘新幹線到博多,

17:41到博多福岡,屋台,中州,飯店

 

2018/1/21 (day5)

9:00出門,小倉中央商店街,魚町銀天街,小倉城,旦過市場吃午餐,

14:50搭新幹線到岡山站,至飯店拿行李後搭乘,

16:51新幹線到新大阪,18:00新大阪飯店Check in,

19:40至心齋橋吃金龍拉麵,大阪王將餃子,逛松本清藥妝品店

 

2018/1/22 (day6)

9:18搭新幹線到姬路城,姬路城,搭新幹線到廣島,

到東廣島車站附近賞雪,回岡山到AEON MALL,回飯店,去梅田逛

 

2018/1/23 (day7)

10:30出門,搭電車到彥根城,12:00彥根城,玄宮園

 

結論:

這次旅行因為有新幹線套票,因為車班很多,所以幾乎可以把新幹線當地鐵坐,

可以在大城市間快速穿梭,從大阪玩到九州是很容易的事,至於住那裡不是問題,

就看最想玩的景點在哪個城市附近,這次在廣島待的時間最多,

所以如果下次再去,應該會想訂房在廣島吧,不過岡山的物價真的是最低,

吃喝的品質也很好,又是都市的中心,所以岡山也是住的最好地點。

另外,這次還有很多照片和影片都還整理上網,

之後也還會陸續整理上船分享,

當然也歡迎對行程有問題提出建言。

 

日本關西,九州新幹線,自由行分享,新幹線,,西日本JR套票,嚴島神社,海上鳥居,嚴島寶物館,紅葉谷公園,博多ㄧ蘭拉麵,廣島城,和平紀念公園,廣島燒,岡山城,岡山後樂園,倉敷美觀地區,博多屋台,博多運河城小倉城,旦過市場,姬路城,東廣島賞雪,彥根城,玄宮園

文章標籤

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

EXCEL VBA動態取消工作表保護與VBA專案保護設定

 

最新課程:EXCEL高階函數與大數據VBA自動化 提昇工作效率,晉身職場 Excel 高手!http://my.sce.pccu.edu.tw/MS/business/Detail.aspx?ProdId=8IP1_A6090&Source=HotClas

 

預覽畫面:

 

若設定了工作表保護之後,

無論是人工輸入或是VBA輸入

但會失敗,VBA則會跳出錯誤畫面,

因此,

可以動態的將保護取消,之後再動態的加上保護,

ActiveSheet.Unprotect ("1234")


不過,因為會需要將密碼寫到程式之中,

所以保護VBA專案裡的程式碼,又是另一個問題,

因此,此次的分享主要是如何VBA動態取消工作表保護與VBA專案保護設定

 

 

教師研習時數

=SUMIF(Sheet2!$B$3:$B$16,B2,Sheet2!$C$3:$C$16)+SUMIF(Sheet3!$B$3:$B$14,B2,Sheet3!$C$3:$C$14)

 

如何保護公式與資料:

 

**如何動態輸入公式到儲存格中

 

 

Public Sub 研習總時數()

   ActiveSheet.Unprotect ("1234")

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

       Cells(i, "C") = "=SUMIF(Sheet2!$B$3:$B$16,B" & i & ",Sheet2!$C$3:$C$16)+SUMIF(Sheet3!$B$3:$B$14,B" & i & ",Sheet3!$C$3:$C$14)"

   Next

   ActiveSheet.Protect ("1234")

End Sub

Public Sub 研習總時數清除()

   ActiveSheet.Unprotect ("1234")

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

       Cells(i, "C") = ""

   Next

   ActiveSheet.Protect ("1234")

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

 

其他相關學習:

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

文章標籤

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

EXCEL匯出資料到MYSQL與PHP、Phthon、R、APP共用資料

 

將資料存放在MYSQL可以解決多平台不同開發工具共用資料問題,

PHP、Phthon、R、APP的共用資料,EXCEL又是最普遍的辦公室應用程式,

所以若能將兩者串連,相信可以讓資料運用更加彈性。

此外,一般會和EXCEL VBA連接的大多都是用到ACCESSMS SQL資料庫

但ACCESS資料庫與MS SQL資料庫都不是自由軟體,所以會有授權費用

另外ACCESS資料庫基本上是單機型的資料庫,對於多台電腦連線就會有問題

雖然可以透過網芳共用來解決,但還是非常的麻煩的,

所以改用MYSQL資料庫,似乎就可以解決前兩者資料庫的問題,

首先它是自由軟體,再者它也可以讓大家在同個網路區段裡連線。

以下介紹如何安裝EXCEL VBA連線

這篇文章主要是在VBA中呼叫ADO,並用SQL語言和MYSQL溝通,

淺顯易懂,而且容易操作,和大家分享,

不過比較困難的部分,

可能要注意:

1.Windoms有沒有安裝IIS,有就一定要停止,或換PORT號。

2.執行ADO一定要安裝MYSQL的驅動程式。

3.連線字串可以參考 ConnectionStrings 網站:https://www.connectionstrings.com/

 

預覽畫面: