[2014 荷比德] 10/18 - Day 2 羊角村 Giethoorn

出了海關，會看到這個牌子指示搭火車往前走

抵達阿姆斯特丹機場，先是要過移民局，這位櫃檯先生穿得超像警察，似乎身上還有防彈背心，開口第一句就是中文“你好”，著實驚了小莎一下，不過第二句就是用英文說，你會不會說英文？笑死，簡單問了幾個問題，來幹嘛啊？待多久？確定你會回去？我還問他要不要拿回程機票給他看，他也說不用，另外就是問帶來的錢夠不夠 support 你的旅程？最後還跟我推薦了一個活動，說是 Amsterdam Dance Festival，說去 google 一下就知道，總之就是一整個閒聊，不必太緊張。

史基普機場推車：藍色手把要向上拉或向下壓輪子才能動喔！

[2014 荷比德] 行程規劃

將近兩年多沒出國玩耍，小莎有種需要暫時抽離一下現在的生活的 Fu，加上又超想去歐洲，經過明察暗訪，聽說歐洲去德國最經濟，且自助旅行交通語言上都比較容易（跟法國比），馬上就把德國納入名單，又看到很多人一次會去好幾個國家，一整個心癢癢，畢竟一趟過去機票這麼貴，當然希望能夠多走一些國家，一般很多人荷比盧會一起走，原本小莎也有考慮是不是要拉過去盧森堡，但時間真的蠻吃緊，且行程上好像也不太順，就說服自己，反正以後去法國還可以順便去，就姑且先放棄盧森堡。

自八月份把機票訂下來後，整個人就啟動放假模式，天天看旅遊書、查資料、排行程，希望能快點把行程定下來，就可以開始訂飯店及車票，畢竟很多朋友一直說要儘早訂比較便宜，德國火車也是要搶早鳥票，曾經一度覺得排行程排到壓力好大，還長出一根白頭髮，身邊朋友直說好誇張，但說實在話，因為是ㄧ個人自己去，沒有人可以討論，什麼都要自己查、自己安排，深怕遺漏什麼，去到當地出大包。

上面是小莎這次排行程用到的旅遊書，有鑒於之前買的旅遊書在旅途結束後，就躺在書架無用，且裡面有些資訊還會過期，因此這次就跑了兩間圖書館，當搬運工，扛了一堆旅遊書回家，也曾好幾天跑到書店坐了兩三個小時研究旅遊書（書局老闆一定很討厭我），因為也無法把全部的書都帶出去，最後挑了兩本出版日期最新的 墨刻-荷比盧（左三）及 地球步方-德國（左一）帶出國，其他就是把會用到的資訊紀錄下來。

德國殘念行程 - 新天鵝堡 ＆ 楚格峰

原本滿心期待要去德國新天鵝堡玩耍，為了排新天鵝堡＋楚格峰的行程路線，參考很多文章，好不容易排出自己覺得比較順的行程，無奈貪小便宜，失手買了阿姆斯特丹進出的機票，經過再三考慮後，決定採納網友們的建議，放棄新天鵝堡，但不甘心好不容易排好的行程就這樣丟掉，本著新天鵝堡是這輩子一定會去一次的精神，為了避免下回又要為排行程煩惱半天，決定把這次收集到的資訊記錄下來。

--------------------------------------

Day 8   斯圖加特                                 宿：富森（Old Kings Fussen Design Hostel ）

   超想去 Stuttgart 的 Mercedes-Benz museum & Porsche museum
   晚上到 Füssen 住（4 個小時車程），這樣隔天就可以一早去新天鵝堡

Day 9   新天鵝堡（＆舊天鵝堡？）     

            宿：Garmisch-Partenkirchen（Hostel 2962 Garmisch ）

[Excel Macro 巨集] 清除含有特定字眼的儲存格

因工作需要，小莎被要求把 Excel 檔案裡面，含有某字眼的儲存格內容全部清除，因為不能只拿掉某字眼，所以不能用全部取代來達成任務，面對數萬筆的資料，一個一個拿會暈倒，這時候就只能用下面這個 Macro 來達陣囉！

在儲存格 F1 到 F100000 與 S1 到 S100000 的範圍，清除含有 1234 的所有儲存格內容

-------------------------------
1.          Sub Remove_PII()
2.          Dim myRange As Range
3.          Dim myCell As Range
4.          Set myRange = Range("F1:F100000,S1:S100000")
5.          For Each myCell In myRange
6.          If myCell Like "*1234*" Or _
7.          myCell Like "*otherword*" Then
8.          myCell.ClearContents
9.          End If
10.      Next myCell
11.      End Sub
-------------------------------

[Excel Macro 巨集] 自動填滿

操作 Excel 表格時，常常利用在格子右下角出現十字時，點兩下，下面的格子就會自動填滿公式或數值到與左邊格子一樣的列數，相同的操作，若使用 Macro 錄製功能，就會產生與下面類似的程式碼，用 Range 去指定自動填滿的範圍。

-----------------------------------

Sub Macro1()

    Range("C2").Select

    Selection.Autofill Destination:=Range("C2:C11")

End Sub

-----------------------------------

但是，很多時候，每個檔案的資料數量不同，即使是相同格式的表格，要執行自動填滿的範圍也不同，若要成功執行自動填滿所有資料，就需要每次改程式碼的範圍，這時候就可以使用下面的程式碼，來解決這個問題 (紅色部分隨著資料表格式不同修改)。

[Excel Macro 巨集] 選取任意文字檔匯入 Excel

若使用 Macro 錄製的功能來產生 Macro，就會得到與下面左邊格子類似的程式碼，連結到特定路徑裡面的特定檔案，這樣的程式碼可以成功運作，但很麻煩的是，每次都要將要匯入的檔案改成特定檔名，放到特定路徑下面，才能成功把文字檔匯進 Excel。

若是要能夠開啟視窗匯入不同路徑/檔名的文字檔，只要在錄製後，把紅色部分的程式碼修改成右邊格子裡紅色的部分，之後就可以選擇匯入任意文字檔。