玉山行(二)、玉山前峰

這個路牌，注意玉山前峰(旁邊還標示很難爬，來回2.5小時)

另外12萬分感謝一起爬山得山友火力支援我這一張照片。

玉山前鋒的鐵牌!!!

玉山前峰僅僅從叉路口爬上來約800M，來回約要2.5小時，且一定要有手套，因為實在有難爬，相機都不敢拿出來。

先來看登玉山前峰的全景與美圖

還有小傢伙會出來 陪登頂的我們(其實是在等餵食)

害怕她還是會躲起來的。

開始下山摟，沒看錯，下山都是這樣的路(上山也是)；手套務必準備。
還好有高杉遮陰，不會太熱，但我水還是喝的超快。

攀岩過程取的景。

終於走出前鋒的攀岩石區

回頭再補一張藍天白雲。

玉山行(一)

第一天的清晨，在水里的艾渡民宿渡過了一晚，筆者起了個大早，沒想到早晨的陽光透過淡薄的雲層，以及此刻的寧靜，或許是真的要做到遠離都市才能體悟的感動。

吃飽早餐後，一路驅車前往塔塔加鞍部的停車場(開車開了快2小時，有點暈車xd)

這個停車場有廁所歐，超乾淨的。

大夥努力整理裝備中；導遊在這千萬叮寧有猴子包包要看緊。

在遊客中心拍個玉山入園申請給大家看一下，掌握一下流程(筆者是跟團的，懶人一個。)

話說這裡也有印章可以蓋歐，有收集印章的記得帶個小本子歐。

下面的地圖是跟你說走路到塔塔加入山口的距離。

在遊客中心這裡，有合作的車輛可以接駁到塔塔加登山口，1人100元，領隊說這段路用走的要走40分鐘，坐車比較快，體力留著爬山。

啟程的地點

海拔3952公尺

塔塔加入山口同時也是不同入山口的起點。

入山口處有一塊大理石做了森林大火的紀錄，請大家未來在這裡爬山除了垃圾帶走，要一起愛護這片美麗的山林。

往玉山前峰的叉口出發，一路上都是類似這樣的石頭+泥巴路，強烈建議要帶登山杖歐，這樣走路比較輕鬆些。

 

走著走著都會有這樣的路標，看其他網友的文章也有人分享，算走橋的數量(編號)這也是好方法 讚。

離塔塔加有0.5km的路標

木橋(下面是鋼管)

p.s忘了拍編號牌 Orz。這橋的結構很特別，下面都是鐵管歐，聽導遊說很多短的，都是原住民扛上來的。

今天天氣真的很棒，萬里無雲!!!
接下來用力賞圖吧，一同來感受一下。

  

導遊大哥教我們怎樣分辯樹的油脂。

玉山行(二)玉山前峰

VBA：EXCEL 管理規則導入應用（檢查票防呆機制建立）(FormatConditions)

故事起源：
這段時間產品出貨的隨附檢查票（又稱COA)居然發生一件天大的慘案!!

慘案！慘案！慘案！（因為被客戶追殺所以重複了3次），有鑒於於此所以到製造現場了解為

何會發生這類的事，經過教育訓練老師過去的指導，透過三現主義(現時、現地、現況)作掌握

後，原因就是人沒確認檢查票就給他蓋章出貨了，故事到此為止後文就不提了。 為了避免再

發，小小的我就發現檢查票是用EXCEL製作跟維護的，就立馬寫了管理規則，透過管理規則

導入上下限的防呆機制，也進一步建立資料為文字與數字的判斷機制。但是!!!算一算近X千張

客製化檢查票ㄝ，怎可能一張一張建立阿。 開始思考使用EXCEL 內建的VBA來建立管理規

則得念頭，鑽研了一段時間，發現這類文章，尤其是中文的資料有點少，當然單純手動新增

管理規則的文章就超多，所以筆者決定透過本篇文章的記錄作分享。

物件：RANGE
屬性：FormatConditions
方法：FormatConditions.ADD

 MSDN 原文 1.管理規則寫入公式：(2個例子)
1.1公式
 ActiveSheet.Range(儲存格位置).FormatConditions.Add Type:=xlExpression, Formula1:="=" & 公式 
ActiveSheet.Range(儲存格位置).FormatConditions(1).Interior.ColorIndex = 3 '我是設定公式成立時反紅
1.2引用EXCEL函數
 ActiveSheet.Range(儲存格位置).FormatConditions.Add Type:=xlExpression, Formula1:="=" & EXCEL函數

 ActiveSheet.Range(儲存格位置).FormatConditions(1).Interior.ColorIndex = 3 

2.管理規則寫入格式化內容：
2.1 不介於(參數設定：xlNotBetween)
 ActiveSheet.Range(R1).FormatConditions.Add Type:=xlCellValue, Operator:=xlNotBetween, Formula1:=10, Formula2:=20

 ActiveSheet.Range(R1).FormatConditions(1).Interior.ColorIndex = 3

看到此，有沒有一種脫褲子放屁的感覺，VBA寫好了，怎導入？該不會還是要手動建立吧!!!等等這樣的疑問產生。 其實僅有導入管理規則的VBA CODE是不夠的歐，還需要配合檔案開啟等等的VBA指令才能滿足"自動建立的目標"。

 
再請參筆者文章：

EXCEL 開啟檔案 VBA (一) FileDialog應用

EXCEL 開啟檔案 VBA (一) FileDialog應用

開啟EXCEL 開發人員教學：ONEDRIVE 下載

 透過上列網址文件教學，我們可以在"命令按鈕"中貼入以下 VBA CODE。

 Dim FILE_OPEN As FileDialog '宣告FILE_OPEN為檔案對話框

 Set FILE_OPEN= Excel.Application.FileDialog(msoFileDialogFilePicker) '設定FILE_OPEN為選取檔案功能 

補充說明："msoFileDialogFilePicker"指選取檔案若要選取資料夾請改
為"msoFileDialogFolderPicker "

FILE_OPEN.InitialFileName = Excel.ActiveWorkbook.Path '對話框開始目錄的設定

FILE_OPEN.Filters.Add "Excel File", "*.xls*" '設定對話框要顯示的副檔名

 FILE_OPEN.Filters.Add "所有檔案", "*.*" FILE_OPEN.Show '顯示對話框

圖1.對話框產生

但僅僅這樣還不夠，還需要以下的VBA CODE 才能開啟檔案歐

 For i = 1 To FILE_OPEN.SelectedItems.Count

 Source = Excel.ActiveWorkbook.NAME '儲存目前作業中檔案名稱

 FILE_OPEN_PATH = FILE_OPEN .SelectedItems(i) '取的檔案路徑

 Workbooks.Open Filename:=FILE_OPEN_PATH '開啟案路徑

 WORKNAME = Excel.ActiveWorkbook.NAME '儲存新開檔案的檔案名稱

 Windows(WORKNAME).Activate '啟用新開檔案的檔案名稱

 Windows(Source).Activate '啟用目前作業中檔案名稱

 NEXT I

 完整版：

功能說明：透過對話框打開一個或多個檔案後，自動開啟檔案，制於要開啟檔案作那些"加工"，就看需求作增加了。