今天花了5200元換了一顆穩壓的電子加壓馬達，聲音比原本舊式的小很多。剛換完時師父有叫我去開水讓雜質流出，不過我不清楚他的雜質是什麼，除了一開始在頂樓開時有發現水流出來顏色偏白，後來在其他房間放水時沒發現，但我也沒想到去聞水的味道，晚上洗澡時才發現水有膠合劑的味道(mobile01上有網友說本來就是裡外都要塗)，原來塗在水管上的部分要經過一些時間放水才能放掉，味道大概在幾分鐘就沒了。
原本舊式的馬達，很容易連續運轉沒停，最近一開始發現時以為跟之前依樣水管破了，去看沒有這現象，而且隔天早上開啟加壓馬達時又沒連續運轉，就在前幾天忍不住再去看，出水口在滴水，仔細一看水管有膨脹，後來問了熟識的機車行老闆有沒有可靠的師傅介紹，才由這師傅處理。
經過幾次馬達問題處理，發現如果馬達練續運轉，就要注意是不是需要去調整壓力開關，注意水管有沒有膨脹，法蘭附近螺絲有沒有生鏽，避免以後要換時鏽死，平常好好注意，可以少花點錢。
PS.原本我是打算自己換法蘭，但因為水管膨脹，沒有相關工具也沒有水管更換的經驗，因此還是選擇交給師傅...
在這裡紀錄一下自訂函數使用的兩種起源，一個是Record 另一個是Table，目前感覺這部分只能拆解學習，這裡是自訂函數一開始都會看到的方式。
自訂each = Table.AddColumn(來源, "自訂", each _)
與
自訂X = Table.AddColumn(來源, "自訂()", (x) => x)
結果都是一樣顯示 Record
 |
| 自定義函數_Record |
let
來源 = Table.FromRecords({[姓名="雷文",數學=83,國文=91],[姓名="蔣滔",數學=73,國文=81],[姓名="馮小諒",數學=63,國文=78],[姓名="農融融",數學=89,國文=75],[姓名="柴飛云",數學=88,國文=65]}),
自訂each = Table.AddColumn(來源, "自訂", each _),
自訂X = Table.AddColumn(來源, "自訂()", (x) => x)
in
自訂X
-----------------------------------------------------分隔線
自訂each = Table.AddColumn(來源, "自訂", each 來源)
在這裡顯示的是Table
 |
| 自定義函數_Table |
下面是完整的內容，可以copy自己使用一下。
let
來源 = Table.FromRecords({[姓名="雷文",數學=83,國文=91],[姓名="蔣滔",數學=73,國文=81],[姓名="馮小諒",數學=63,國文=78],[姓名="農融融",數學=89,國文=75],[姓名="柴飛云",數學=88,國文=65]}),
自訂each = Table.AddColumn(來源, "自訂", each 來源)
in
自訂each
戰鬥鍛鍊場
第一關:
因為很多新聞包含一些朋友說打疫苗會不舒服，因此做了一下紀錄，看看不舒服的程度到什麼狀況，後來整個狀況感覺很輕微 (難道我老了抵抗力比較差??)。
我紀錄了溫度、心跳及血壓，因為以前感冒比較嚴重時有發現血壓升的特別高，那時頭很痛，因此打疫苗後除了注意溫度我也用血壓計測量。
7/28 開始以發泡錠方式補充高單位維他命C。
7/30 15:30打AZ疫苗。
7/31 14:30開始有點頭痛微燒。
7/31 17:10 飯後吃了醫生給的退燒藥。(想說晚上應該可以好睡點)
7/31 半夜突然覺得很冷，拉緊被子後冷的感覺又不見...
8/1 大約早上9點開始微微出汗，排便也正常(7/30沒)，開始感覺胃口正常。
PS.醫生給三顆退燒止痛藥，只有7/31晚飯後吃一顆，其他時間沒吃。
 |
| AZ施打疫苗紀錄 |
因為7/30準備要打疫苗了，在網路上搜尋了一些資料，記錄在此方便查詢。
目前開始學習關於 什麼時候要用each，什麼是要用_，甚至什麼時候用(C)=>，現在看還是有點玄，相關說明也不多，理解上還不是很不到位，但我感覺這是Power Query在使用上，是一個很重要關卡，學會了在處理查詢會精簡很多，使用上也會比較廣泛，在這裡先記錄一下，日後再來看多久學會。
在書上看到很多函數其實都有參數函數，那個是可以省略也可以使用(c)=>的方式。
Table.AddColumn(table as table, newColumnName as text, columnGenerator as function, optional columnType as nullable type) as table
將名為 newColumnName 的資料行新增至資料表 table。 此資料行的值是使用所指定選取函式 columnGenerator 來計算，並將每個資料列視為輸入。
將名為 "TotalPrice" 的資料行新增至資料表，其中每個值都是 [Price] 資料行和 [Shipping] 資料行的總和。
Table.AddColumn(
Table.FromRecords({
[OrderID = 1, CustomerID = 1, Item = "Fishing rod", Price = 100.0, Shipping = 10.00],
[OrderID = 2, CustomerID = 1, Item = "1 lb. worms", Price = 5.0, Shipping = 15.00],
[OrderID = 3, CustomerID = 2, Item = "Fishing net", Price = 25.0, Shipping = 10.00]
}),
"TotalPrice",
each [Price] + [Shipping]本例使用dictionary方式記錄不刪的工作表,然後對檔案中所有工作表檢查，只要不符合就刪掉，用VBA刪除工作表可以不顯示工作表就刪掉，對於檔案瘦身挺好用，這裡還用到inputbox對近期兩個工作表以輸入的方式保留。(2-3個月沒寫，的確有點生疏)
Sub 批次刪除工作表()
'2021/7/12
本週我嘗試使用 AI 來測試「蹺蹺板投資策略」。有趣的是，付費版 ChatGPT 在撰寫較複雜的策略程式碼時，表現並不如預期，反而是免費版的 Gemini 表現更為出色。不僅能快速生成可執行的程式，還能在我進行策略修正的過程中，協助將提示詞進一步結構化，讓程式更貼近我原本的投資...
