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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

可以參考：

https://www.kurotetu.co.jp/tw/timetable/

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

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

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

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

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

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

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

當天的YOUTUBE影片清單

一、黑部峽谷小火車

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

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

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

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

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

來回套票長這樣

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

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

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

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

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

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

沒多久就到了小火車車站

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

票價

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

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

紅鐵橋加綠水

抵達黑薙車站

這裡似乎只有黑薙溫泉

抵達黑部水庫

在貓又車站會車

抵達鐘釣車站

鐘釣車站附近景點不多

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

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

喝個牌酒很棒

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

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

走累了剛好泡個足湯

泡腳真舒服

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

二、金澤兼六園

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

等車的人不少

不到三分鐘車就來了

車上常有人穿和服

下車後往前走就是售票口

門票一人310日幣

在兼六園合影

很弱的噴水

徽軫燈籠

雁行橋

明治紀念之標（日本武尊像）

霞ヶ池

内橋亭

ひがし茶屋街

志摩藝妓屋（重要文化財）

東山一久咖啡店

金澤烏鶏庵東山店

不免俗的來個金箔冰淇淋

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

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

AEON商場超市

AEON商場

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

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

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

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

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

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

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

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

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

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

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

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

個人分類：08_其他

▲top

Sep 20 Fri 2019 11:28
範例_字串切割與Do_While迴圈不定數量結果

範例_字串切割與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

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

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

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

反之就離開迴圈了。

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

'1.迴圈範圍

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

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

a1 = 1

b1= 1

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

'當找到關鍵字就執行以下程序

Do While InStr(a1, Cells(i, "A"), "【<") <> 0

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

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

S = S & Mid(Cells(i, "A"), a + 1, b - a) & Chr(10)

a1 = a + 1

b1 = b + 1

Loop

'輸出到B欄

Cells(i, "B") = S

'清空變數資料

S = ""

以下是清除資料的程式碼

Public Sub 清除()

Range("B2:B" & Range("B2").End(xlDown).Row).ClearContents

End Sub

以上範例主要學會如何用 VBA的 Instr與Mid函數取出要的資料，

如果範圍不定，一定要懂得使用 Do While迴圈了。

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

教學影音完整版在論壇：

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

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) 人氣()

個人分類：02_EXCEL VBA自動化教學

▲top

Sep 20 Fri 2019 11:22
直接用VBA取得儲存格中的數字或英文資料

直接用VBA取得儲存格中的數字或英文資料

之前常有同學問到，若是儲存格中，中、英、數字資料夾雜，

若只想留下數字部分，該怎麼做，有沒有函數可以解決，

不懂VBA，這個問題將非常麻煩，資料少還可以土法煉鋼，

慢慢複製貼上，但若資料非常巨量，將是巨大麻煩，

本文分享如何簡單解決這個問題，

雖然用MID、CODE、ROW、IFFERROR、SUM加上陣列計算數字個數，

已經夠複雜的了，若要再取出數字部分，那就更加困難，

建議，這麼複雜的事情，還是改為VBA來做會比較適合，

也許直接跳過 EXCEL裡的函數，

直接寫 VBA 回更簡單，以下簡單說明如下。

預覽畫面：

VBA部分：

階段一：

Sub 數字個數()

For i = 2 To 9

c = 0

For j = 1 To Len(Cells(i, "A"))

If VBA.Asc(Mid(Cells(i, "A"), j, 1)) > 47 And VBA.Asc(Mid(Cells(i, "A"), j, 1)) < 58 Then

c = c + 1

End If

Sub 非數字個數()

For i = 2 To 9

'1.字數迴圈範圍

c = 0

For j = 1 To Len(Cells(i, "A"))

'2.判斷是否為數字

If VBA.Asc(Mid(Cells(i, "A"), j, 1)) <= 47 Or VBA.Asc(Mid(Cells(i, "A"), j, 1)) >= 58 Then

'3.如果是就+1

c = c + 1

End If

Cells(i, "C") = c

Sub 留下數字()

For i = 2 To 9

'1.字數迴圈範圍

S = ""

For j = 1 To Len(Cells(i, "A"))

'2.判斷是否為數字

If VBA.Asc(Mid(Cells(i, "A"), j, 1)) > 47 And VBA.Asc(Mid(Cells(i, "A"), j, 1)) < 58 Then

'3.如果是就+1

S = S & Mid(Cells(i, "A"), j, 1)

End If

Cells(i, "D") = S

Sub 留下英文()

For i = 2 To 9

'1.字數迴圈範圍

S = ""

For j = 1 To Len(Cells(i, "A"))

'2.判斷是否為數字

If VBA.Asc(VBA.UCase(Mid(Cells(i, "A"), j, 1))) > 64 And VBA.Asc(VBA.UCase(Mid(Cells(i, "A"), j, 1))) < 91 Then

'3.如果是就+1

S = S & Mid(Cells(i, "A"), j, 1)

End If

Cells(i, "E") = S

Public Sub 留下中文()

For i = 2 To 9

'1.字數迴圈範圍

S = ""

For j = 1 To Len(Cells(i, "A"))

'2.判斷是否為數字

If VBA.Asc(Mid(Cells(i, "A"), j, 1)) < 0 Or VBA.Asc(Mid(Cells(i, "A"), j, 1)) > 127 Then

'3.如果是就+1

S = S & Mid(Cells(i, "A"), j, 1)

End If

Cells(i, "F") = S

Public Sub 清除()

Range("B2:F9").ClearContents

End Sub

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

教學影音完整版在論壇：

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

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) 人氣()

個人分類：02_EXCEL VBA自動化教學

▲top

Sep 20 Fri 2019 09:53
2019從北陸玩到京都旅行心得分享(二)

2019從北陸玩到京都旅行心得分享(二)

今天主要就兩個行程，

一個是原來計畫內的白川鄉的合掌村，

一個是看到系魚川新幹線車站旁剛好有個鐵道博物館，

還有附近十分鐘路程有個可以遠眺日本海的觀景台。

一、事前準備

一直很想去白川鄉的合掌村走走，

剛開始還真的以為只有白川鄉有合掌村，

其實在北陸地區，至少有三個比較有名的合掌村，

但最大的還是白川鄉，其他的就是五箇山和菅沼，

但要怎麼去合掌村最便利，費用也比較節省呢？

其實到白川鄉沒有鐵路，所以只能搭巴士，

最遠的是從名古屋出發，但至少三小時，

其次是金澤出發，大約一個半小時，但如果沒預約，

容易坐不上車，

在其次是從高山出發，大約一小時，是最近的路程，

可是要到高山，還是要先到名古屋中部機場，

在轉高山，其實也很花時間，

最後一個，就是比較少人知道的，

從新高岡站出發，大約一小時五十五分鐘抵達，

而且車站就在東橫飯店旁邊，再者坐的人沒那麼多，

感覺一定有位子坐，所以這次的旅程才會訂飯店在不是很知名的新高岡車站旁。

原本想一天走三個，或兩天走三個，

因為買的票可以兩天無限使用，

但因為天氣實在太熱，

而且其他兩個的規模也都相似，

也就調整了行程，

把第二天的行程改去黑部峽谷坐小火車避暑了。

白川鄉官網：http://ml.shirakawa-go.org/tw/

路線圖

時刻表，有紅點的是六日才有開

從飯店看出去世巴士站和新幹線車站

坐8:25分的巴士，準時大約8:20就抵達了，外觀有世界遺產巴士

上車就跟司機說要買車票，我是拿網路上的圖給司機看，

一人3500日幣

拿到兩張車票，直接坐第一排，可以順便看風景

車上有WIFI可以使用

大約1小時55分抵達白川鄉

第一站步行到天守閣展望台，大約步行十分鐘，沿途都有好風景

左上角就是展望台

在這裡步行者最大

遇到的第一個不收費的合掌屋

快到展望台就有好風景

再往上一點

終於抵達天守閣展望台

這裡不指合掌屋美，花也很美

難得不用錢參觀的松井家的合掌屋

好厚的屋簷，都是天然的稻稈，據說可以四十年不換

細部近照

神田家

參觀費用300日圓

長的都蠻像的

號稱最大級的長瀨家

屋簷

最超乾淨，裡面魚也超大

旁邊小販把飲料放水裡，天然的冰箱，水超冰的

明善寺庫裡

一樣收費300元

長的有點像，但似乎多了一些木材結構

和田家

一樣收費

結構和明善寺庫裡有點像

風景雖然秀立，但太陽實在太烈，原本以為北陸會比較涼快點，

結果比台灣還熱，也許冬天再來看雪會更不一樣，

所以搭1:50的巴士回新高岡飯店休息一下。

回程的乘客剛開始很多，但到了中間似乎就越來越少

大約3:30抵達飯店，從飯店看出去就可以看到巴士站和新幹線車站

稍微休息一下坐17:04分的新幹線去系魚川鐵道博物館

抵達的時間其實只剩不到20分鐘可以逛了

裡面有許多的小火車模型模型都非常細緻，讓我很想玩看看

也有一台退役的老火車廂，可以上去拍照

車上有讓人懷念的電風扇

不免俗地拍個合照

往日本海展望台移動，這可是GOOGLE地圖上沒有的景點

上來觀景台真的開闊，可惜和台灣一樣，好多消波塊

可惜沒能看到太陽下山，只看到一點點夕陽

回程的新幹線只有晚上8:28的車，所以就先去逛一下超市，步行約15分鐘

這是當地的超市，人很少，東西很新鮮

也有台灣香蕉

明天的點心，怕旅程車上餓了，可以吃點好吃的日本麵包

鮮奶真的便宜又好喝，我都買回去當水喝

日本泡麵也是不錯吃又比台灣買便宜太多

系魚川鐵道博物館與日本海展望台看日本海夕陽雖然是多出來的行程，

到CP值很高，因為搭新幹線本來就包括在JR PASS裡，

又可以看到免門票的鐵道博物館的許多用心小火車，

也有舊火車可以拍拍照，真的是不錯的行程。

TAG:日本旅行,心得分享, 交通, 吳老師, JR關西＆北陸地區鐵路周遊券(七日券),白川鄉,

系魚川鐵道博物館與日本海展望台

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

▲top

Sep 20 Fri 2019 09:19
2019從北陸玩到京都旅行心得分享(一)

2019從北陸玩到京都旅行心得分享(一)

一、動機：

這次的旅行離上次去東北看雪已經有九個多月沒出國，

這段時間並不是不想出國，

而是在每次回國之後，就有很多覺得課已讓下次旅行更好的念頭，

諸如，我的日語能力，如果能多點語言能力，

應該更能讓旅行更有不同，和當地人直接溝通等，

行程安排更緊湊，不用浪費時間在不需要的交通和次要的景點上，

當然費用能更省，住宿能更舒適，離車站更近點，

每個環節都很花時間，

就先確定出發時間，接著買機票，訂飯店，再來就是交通問題，

確定用省錢的JR關西＆北陸地區鐵路周遊券(七日券)，

這次最重要的行程是北陸的白川鄉、黑部峽谷和金澤兼六園，

和京都的天橋立、伊根船屋、城崎溫泉、京都周邊。

二、機票：

想說飛關西機場的時間比較多選擇，

早中晚都可以自己挑，費用也很便宜，

於是選早出深夜歸的方案，這樣可以玩整整七整天，

雖然隔日一早都要上班，但心情是開心的。

但缺點就是需要坐長途的列車，不然其實可以直飛小松機場，

但只有虎航星期四、日有飛，而且機票很貴，至少是一倍吧。

訂了樂桃 https://booking.flypeach.com/tw/flight_search

去程訂9/5日的9點15分

回程訂9/11的11:25班機

因為加上選座位一人360台幣，我選第二排2D、2E，可以最早上下飛機，座位也比較大，

加上一個人行李托運900台幣，共計14440台幣。

另外，我習慣下載影片，並攜帶藍芽耳機和手機小腳架，可以在飛機上不無聊。

三、交通票卷

交通是日本最貴的一部份，還好JR PASS可以省非常多費用，

尤其是我們想去的地方相距遙遠，

光從關西機場坐到新高岡飯店，火車票的費用只少就要大約4000元台幣，

於是我選擇買JR關西＆北陸地區鐵路周遊券(七日券)，

台灣買大約4300元，可以在七天使用以下所有新幹線和JR快車，

可惜不能劃位，只能做自由座，不過這次還好都沒遇到沒位置的問題，

只有抵達關西機場到新大阪時的 HARUKA快車人比較多些，

其他的路線甚至沒幾個人坐。

我是跟雄獅買的，費用 TWD 4,317

https://activity.liontravel.com/detail?productCode=153018&Foreign=1

JR關西＆北陸地區鐵路周遊券(七日券)購買及使用如何HARUKA轉雷鳥號直達金澤

https://travel98.com/article/20680

四、住宿：

前三晚住東横INN新高岡駅新幹線南口

https://www.toyoko-inn.com/search/detail/00264/

因為有辦會員卡，所以一晚有便宜一點，

價格沒有特別便宜，但新高岡東橫很新，房間也很大，離車站又超近。

後三晚住京都塔飯店，這也是這次行程最期待的，

一來很喜歡京都，再來京都塔算是京都的地標，

沒有找不到的問題，離車站又超近，真的非常的滿意，

價格也非常親民，加上一晚京都住宿稅200日圓，

總共三晚18125日幣，是在AGODA訂的。

五、9/5第一天出發住新高岡東橫

一早飛往關西機場，順利抵達，先去換實體的JR PASS七日卷，

就開始四小時的長途轉車，先搭HARUKA列車到新大阪，

再轉雷鳥列車到金澤，

再轉北陸新幹線到新高岡車站，

雖然要四小時時間，但因為日本列車都很準時，車上也很舒服，

所以完全沒感覺到疲憊。

出車站馬上就看到飯店，因為距離大約50公尺，也是當地最高的建築物。

飯店真的很乾淨也很大，

六、前往富山號稱世界最美的星巴克

出站就有新幹線的感覺真好，又是2015才通車的北陸新幹線，

大約12分鐘就抵達大約相聚30公里外的富山站，

新幹線抵達，幾乎不用等車，車上人也不多，

GOOGLE地圖上找了一家評價不錯的在地拉麵店，享用晚餐

小菜

蔥超多的拉麵

超鹹的拉麵

今夜最重要的任務，世上最美的星巴克，

環山公園

星巴克

七、逛超市

到日本最好買的莫過於當地人常逛的超市，

價錢也十分親民，買了一些明天在長途車上的點心糧食與飲料，鮮奶和啤酒。

第一天算是非常的順利，大多在計畫中，

只是覺得坐樂桃有個缺點，就是需要做接駁車從T2坐到T1，

雖然不需等太久，但總覺得還是需要多花時間接駁，

另外，因為之前習慣JR PASS可以劃位，預約座位，

但這張PASS只能做自由座，還是有點不習慣，

也擔心沒座位，不過似乎很快就習慣，甚至覺得自由座省的去JR的辦公室畫位的時間。

看到這天的時間軸，飛1702公里，火車373公里，但一切感覺都還愉快的，

感謝日本便利可靠的交通工具，又提供省錢的JR PASS。

TAG:日本旅行,心得分享, 交通, 吳老師, JR關西＆北陸地區鐵路周遊券(七日券),白川鄉,黑部峽谷,金澤,兼六園,京都,天橋立,伊根船屋,城崎溫泉,京都周邊

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

▲top

Sep 20 Fri 2019 09:17
2019智慧科技旅遊自由行懶人包分享

2019智慧科技旅遊自由行懶人包分享

最近上課和學生分享利用智慧科技雲端技術輔助旅遊的一些心得，

得到蠻多學生的回響，感到相當的有興趣，

能將所學用在旅行上，真的可以讓旅行的品質大大提升，

也可以輕易的愜意的抵達自己想去的景點，

並可大大降低旅行的費用，除了省費用，又可以有很棒的自主性，

不會像跟團，花大錢卻去了一堆自己不想去的景點，

自己想去的景點又停留時間太短的問題。

可惜因為整理旅遊心得很花時間，

所以好幾次的旅行的照片影片尚未整理，

像是去北海道兩次的心得也還沒空整理。

下個月又要去日本北陸地區，

探訪黑部立山和合掌村與關西的天橋立和城崎溫泉，

之後有機會在和大家分享，以下整理之前的部落格文。

另也可以參考我的GOOGLE地圖，隨時都會更新我的旅行相簿與評論心得。

AI人工智慧與深度學習紀錄花東自由行

https://terry55wu.blogspot.com/2019/04/ai.html

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

https://terry55wu.blogspot.com/2018/04/20180417-22.html

2018追雪日記公開(一)千里踏雪與盛岡的夜

https://terry55wu.blogspot.com/2018/12/2018.html

20180418第二天在岩手縣賞櫻

https://terry55wu.blogspot.com/2018/04/20180418.html

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

https://terry55wu.blogspot.com/2018/01/20180117-23.html

如何用APP征服全世界自由行(日本、香港與韓國)心得分享

https://terry55wu.blogspot.com/2015/04/app.html

目前我是在地嚮導第9級

我的GOOGLE地圖所有旅行地點與評論：

http://gg.gg/map_reviews

我的GOOGLE地圖上傳的照片(相簿轉傳)：

http://gg.gg/map_photos

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

▲top

May 27 Mon 2019 16:59
EXCEL下拉清單用VBA自動查詢與顯示不同資料

EXCEL下拉清單用VBA自動查詢與顯示不同資料

這是延伸之前撰寫的一篇文章：

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

預覽畫面：

雖說用EXCEL的內建函數也可以做出類似的效果，

但要用IF、SMALL、IFERROR函數，還要會在EXCEL中執行陣列，

授課的結果，大多學員幾乎陣亡。

反而用VBA來撰寫自動查詢與顯示不同資料，

似乎就變簡單了，

只要會撰寫簡單的 For迴圈，用Cells物件，

將B到E欄資料，複製到G到J欄，

配合變數 k ,就可以逐一的將資料複製過來，

當然資料也可以是在不同的工作表或工作簿。

反而用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

再來就是可以配合事件驅動，就可以省去按鈕動做了。

Private Sub Worksheet_Change(ByVal Target As Range)

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

Call 班級

End If

End Sub

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

教學影音完整版在論壇：

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

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

個人分類：01_EXCEL函數與VBA

▲top

May 27 Mon 2019 01:40
最新的完整VBA與Python教學影音DVD分享

最新的完整VBA與Python教學影音DVD分享

一直以來習慣上課完整錄音錄影，回上傳雲端並提供給上實體課的學員，

主要的目的時希望學習我的課的學員都能學會，

提升上課的品質，學員只需抽空重複聽講，

並不斷練習，再將所學反覆用在工作上，

成效良好，除了效率提高外，

自己的專業技能信心提高，工作自然勝任無虞，

對未來的職涯規劃也更有希望。

但若非上課學員，也可以考慮選讀我2018年整理的完整上課 DVD，

裡面有完整上課錄影，講義和練習檔案，

實在沒有時間前來上實體課，或是不住在大台北地區的學員，

也可以參考這樣的方式，上課若有疑問，

也可以藉由EMAIL、FB或YOUTUBE等方式提問，

只要問題明確，幾乎會在第一時間回應。

最新課程整理如下，

光碟51_EXCEL VBA與資料庫雲端設計(入門2018) http://gg.gg/DVD_51

光碟52_EXCEL VBA與資料庫雲端設計(進階2018) http://gg.gg/DVD_52

光碟53_EXCEL VBA樞紐基礎與進階2018 http://gg.gg/DVD_53

光碟54_自強_從EXCEL VBA自動化到Python程式開發入門2018 http://gg.gg/DVD_54

光碟55_從EXCEL VBA自動化到Python程式開發入門 http://gg.gg/DVD_55

VBA自動化到Python程式開發合輯：光碟50、54、55

EXCEL VBA入門+進階自動化合輯之三(光碟47、48、49)

EXCEL VBA入門+進階合輯2018(光碟51、52、53) NT$4500元，送(光碟47、48、49)

EXCEL VBA入門+進階+PYTHON合輯2018(光碟51、52、53、54、55) ，送(光碟47、48、49、50)

主要以EXCEL VBA入門到進階，中間加入製作報表最常用的樞紐分析表應用教學，

再到Python程式開發入門，並推進到Python網站架設用Django框架，

讓學習可以除了橫向連貫，也可以縱向連結，會VBA就會Python，

並務求程式學習邏輯最簡單，程式撰寫最少化的原則。

所以，為了讓中南部或無法配合上課的網路學員也能享受在台北上課一樣的便利，

想無痛學會 EXCEL VBA入門與進階、從VBA到Python程式設計等最新課程，

又無法遠地奔波的學員所建立的機制，可以依自己的時間學習，

完整收錄上課影音，也提供上課講義、範例與補充資源等。

此外，最近來上課的學員，其實一次要聽懂實在有點難度，

如果想重聽，或想聽吳老師其他地方上課的內容，可以選擇入門課程合集，

除可多次學習外，也可以聽到不同面向的解法。

或建議先在家學習，然後在來上實體課(東吳、文化、自強)，效果也會更好。

最近很多學員來學習，幾乎沒基礎，上課實在很辛苦，

尤其是VBA程式進階班，建議可以先選讀入門班課程，再來學習，

效果會更好，更容易學會。

申請與價格表:gg.gg/DVD_apply

填寫以下後，先不要匯款給我，我會回信給您，等候同意後，

再去匯款，避免彼此不必要的麻煩。

吳老師 2019/5/27

tag:EXCEL,VBA,Python,教學影音DVD,吳老師,線上學習

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

個人分類：08_其他

▲top

May 21 Tue 2019 23:30
讓EXCEL VBA具有進度狀態條功能(表單設計)

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

示意畫面：

緣起：

由於範例黑名單篩選，需要查詢兩個範圍是否有相同資料，

需要耗費時間比對，因此會有一小段時間需要讓使用者等待，

此時若是有個進度狀態調出現，就可以讓使用者知道所需等待時間，

與進行的進度，這樣可以讓VBA程式更加友善。

但是該如何做，從那下手呢？

首先需要知道的事VBA的表單設計，

其次是當啟動表單之後，會觸發Activate事件，

所以需要將狀態條的程式寫在這裡，

讓迴圈中加入更新狀態條的比例。

以下是詳細步驟截圖：

1.設計表單

加入Label控制項(大A)

2.增加啟動表單功能

Public Sub 查詢黑名單_表單()

home.Show

End Sub

3.在Activate事件裡撰寫程式

Private Sub UserForm_Activate()

PB.Width = 0

r = Sheets(1).Range("A2").End(xlDown).Row

k = 1

'1.取查詢名單和黑名單字串比對

For i = 2 To r

Sheets(1).Cells(i, "B") = "=CountIf(黑名單, A" & i & ")"

'2.將結果寫到查詢結果

If Sheets(1).Cells(i, "B") >= 1 Then

Sheets(3).Cells(k, "A") = Sheets(1).Cells(i, "A")

k = k + 1

End If

PB.Width = (i - 1) * (200 /r)

Me.Repaint

End Sub

4.在EXCEL中增加啟動表單按鈕

所以如果按下按鈕，就會啟動進度狀態條表單，

並觸發Activate事件裡的程式，

此時就會到進度狀態條表單畫面會出現了。

也就是將來如果有需要等待的VBA程式，

就可以加入進度狀態條，讓程式更加專業有趣。

教學影片：

其他相關學習：

教學論壇：

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

與前幾期的課程雖然用的是相同的範例，但最大的不同在：

1.除了解說建函數公式，並將之轉成自訂函數，把複雜的公式變簡單。

2.如何將複雜的公式變成簡單的按鈕，按下按鈕就自動完成工作。

內容主要分成：

1.常用函數

2.進階函數應用

3.從函數到VBA設計

4.如何自訂函數

5.VBA程式設計入門

6.如何錄製巨集與修改

7.如何將大量資料轉存到資料庫

8.如何讀取資料庫資料

詳細目錄：http://goo.gl/eQptxx

有講義與範例和完成的畫面公式與程式碼，

只要按照每周的順序學習，學會EXCEL VBA自動化絕非難事，

優點：

1.可非線性學習：可按照自己最不熟的部分多次學習。

2.可反覆學習：有疑問可以多次聽講，保證學的會。

3.可攜帶學習：只要有瀏覽器就可以播放SWF檔，MAC電腦也沒問題。

課程理念:

1.以循序漸進的方式, 透過詳細的說明和實用的Excel VBA範例, 逐步了解整個 VBA 的架構與輪廓,進而學習 VBA 變數、函式及邏輯的觀念, 即使沒有任何程式設計基礎, 也能自己親手撰寫 VBA 程序來提昇工作效率, 晉身職場 Excel 高手！ 2.進而解說EXCEL與資料庫的結合，將EXCEL當成資料庫來使用，結合函數、VBA等更深入的功能，讓資料處理和分析的應用更上層樓。 3.將結合GOOGLE雲端試算表，教您如何將EXCEL函數雲端化與網路化。

更多EXCEL VBA連結：

01_EXCEL函數與VBA(入門) http://terry55wu.blogspot.tw/p/excelvba.html

02_EXCEL VBA自動化教學(進階) http://terry55wu.blogspot.tw/p/excel-vba.html

吳老師 2019/5/21

大數據, 巨集錄製, 函數東吳進修推廣部, 表單, 處理, 資料庫, ADO, EXCEL, excel函數教學, excel函數應用, SQL, VBA, vba教學視頻