接種疫苗前後注意事項

因為7/30準備要打疫苗了，在網路上搜尋了一些資料，記錄在此方便查詢。

打完疫苗不能揉？錯訊息的更正

打疫苗前

1. 攜帶身分證、健保卡雙證件
2. 帶疫苗通知單或預約成功畫面截圖，作為證明施打資格。
3. 可喝250cc溫開水，不建議劇烈運動，若有感冒症狀者，建議暫緩施打。
4. 使用免疫抑制劑的人，應錯開服藥與打疫苗時間
5. 不鼓勵飲酒。但目前沒有科學證據顯示打疫苗前，喝多少酒會干擾免疫功能。

打完疫苗後

1. 不能揉或拍打施針處(有醫師更正)，需在接種處所停留觀察30分鐘
2. 盡量放鬆手臂並保持活動，以避免僵硬。
3. 若出現嚴重過敏休克、劇烈頭痛、嚴重胸痛、呼吸困難、皮膚出現自發性血點等症狀，請盡速就醫。
4. 盡量放鬆手臂並保持活動，以避免僵硬。
5. 普拿疼服用時機，建議在施打疫苗後出現發燒、頭痛等再服用。(我打算白天有狀況時去到我常看的中醫，用中藥緩解。)
6. 勿在施打疫苗前吃普拿疼、退燒藥或抗組織胺藥物，以免掩蓋過敏症狀，延誤就醫。
7. 不熬夜 睡滿七小時
8. 打完第二劑的疫苗在兩周後才會有較完整的保護力
9. 若身體出現副作用，代表身體正在產生抗體，相關症狀並不會傳染。

打完疫苗後的飲食注意事項：

1. 溫開水，一天建議喝2千cc。
2. 雞湯、魚湯：內含豐富胺基酸、精胺酸，能強健人體細胞和腸胃道。
3. 鮭魚、綠茶、薑黃、莓果：為Omegs-3、多酚類，有助降低發炎情形。
4. 十字花科蔬菜(花椰菜、青花菜、高麗菜、白蘿蔔、油菜)：抑制自由基，保護細胞。
5. 新鮮水果(芭樂、柑橘類、奇異果、蘋果等)：內含植化素及維生素，可幫助抗氧化。(關於這點我打算用高劑量的維生素C發泡錠，有長者打疫苗用這種方式說沒感受到太大副作用，也許是體質問題)

嚴重副作用

1. 大面積的過敏搔癢、頭暈、喘不過氣、超過2天持續發燒等明顯症狀，建議就醫諮詢。
2. 仍需遵守戴口罩、勤洗手、保持社交距離等防疫守則。

AZ疫苗的常見副作用有哪些？

第一劑接種後，主要副作用為

1. 注射部位疼痛(58%)、
2. 疲倦(52%)、
3. 肌肉痛(48%)與頭痛(37%)；
4. 發燒18-49歲約32.7%、50-64歲約13.8%、65歲以上約4.6%，並且不超過2天

第二劑接種後，主要副作用為

1. 注射部位疼痛(45%)、
2. 疲倦(25%)；
3. 發燒約佔3.0%。
4. 常見不良反應低於第一劑。

Moderna疫苗的常見副作用有哪些？

第一劑接種後，主要副作用為

1. 注射部位疼痛(18-49歲約81%、50-64歲約62%、65歲以上39%)、
2. 疲倦(35%)、
3. 肌肉痛(28%)、
4. 頭痛(18%)；
5. 發燒(3.1%)通常不超過2天。

第二劑接種後，三日內常見不良反應高於第一劑，主要有

1. 注射部位疼痛(18-49歲約90%、50-64歲約77%、65歲以上57%)、
2. 發燒有35.6%，
3. 18-49歲接種後疲倦(>57%)、
4. 注射部位腫脹(>52%)、
5. 肌肉痛(>43%)、
6. 頭痛(>37%)、
7. 發冷(>22%)。
8. 這些症狀通常隨年齡層增加而減少，並於數天內消失。

Power Query_挑戰_參數函數

        目前開始學習關於 什麼時候要用each，什麼是要用_，甚至什麼時候用(C)=>，現在看還是有點玄，相關說明也不多，理解上還不是很不到位，但我感覺這是Power Query在使用上，是一個很重要關卡，學會了在處理查詢會精簡很多，使用上也會比較廣泛，在這裡先記錄一下，日後再來看多久學會。

       在書上看到很多函數其實都有參數函數，那個是可以省略也可以使用(c)=>的方式。

     下面就是微軟的資料，在這裡用來做個紀錄。

Table.AddColumn

Table.AddColumn(table as table, newColumnName as text, columnGenerator as function, optional columnType as nullable type) as table

關於

將名為 newColumnName 的資料行新增至資料表 table。 此資料行的值是使用所指定選取函式 columnGenerator 來計算，並將每個資料列視為輸入。

範例 1

將名為 "TotalPrice" 的資料行新增至資料表，其中每個值都是 [Price] 資料行和 [Shipping] 資料行的總和。

powerquery-m

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]

VBA_批次刪除工作表

         本例使用dictionary方式記錄不刪的工作表,然後對檔案中所有工作表檢查，只要不符合就刪掉，用VBA刪除工作表可以不顯示工作表就刪掉，對於檔案瘦身挺好用，這裡還用到inputbox對近期兩個工作表以輸入的方式保留。(2-3個月沒寫，的確有點生疏)

 Sub  批次刪除工作表()

    '2021/7/12 

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False    
    

   Dim D_不刪
    
    Set D_不刪 = CreateObject("scripting.dictionary")
    
    Sh_當期 = InputBox("輸入當其表格名稱", , Format(Date, "yyyymmdd"))
    
    Sh_上期 = InputBox("輸入當其表格名稱", , Format(Date - 7, "yyyymmdd"))
    
    sh_不刪 = Array("月簡表", "簡表", "月比較A", "月明細", "周比較", Sh_當期, Sh_上期)
    
    For i_sh = LBound(sh_不刪) To UBound(sh_不刪)
        D_不刪(sh_不刪(i_sh)) = i_sh
    Next
  
    For i_sh = Sheets.Count To 1 Step -1
        If D_不刪.exists(Sheets(i_sh).Name) = False Then Sheets(i_sh).Delete
    
    Next
End Sub

Power Query_00常用List 清單

下面介紹一下常用清單，日期清單的表達方式比較不一樣，當然表達方式也不是只有一種。(M語言函數大小寫要求很嚴格，須注意該大寫的地方要大寫。)

 

• 日期清單:

List.Dates(    #date(2021,6,28),7,#duration(1, 0, 0, 0)  )  ，從2021/6/28開始逐日遞增1日，建立七個值清單。

List.Dates(   Date.From(DateTime.LocalNow()) ,7,  #duration( 1, 0, 0, 0)  )，從今天開始逐日遞增1日，建立七個值清單。

List.Dates(   Date.From(DateTime.LocalNow()) ,7,  #duration( -1, 0, 0, 0)  ) ，從今天開始逐日遞減1日，建立七個值清單。

• 數字清單：{1..10}，根據輸入開始的數字及結束的數字建立清單，本例與{1,2,3,4,5,6,7,8,9,10}結果依樣。

• 文字格式數字清單:{"1".."10"},與{"1","2","3","4","5","6","7","8","9","10"} 相同。

• 大寫字母清單:{"A".."Z"} ,建立A~Z 26個大寫字母清單。

• 小寫字母清單:{"a".."z"} ,建立a~z 26個大寫字母清單。

• 所有字母清單:{"A".."z"}，建立包含大小寫的字母清單，與{"A".."Z","a".."z"}結果相同。

• 中文清單:{"一".."龢"} 龢音同和，會產生常用的中文，但並非所有中文字。

Power Query_00關於Buffer(2個月沒寫VBA了)

            對於使用Power Query有時很慢、卡住讓我有點困擾，因為在某種程度我認為Power Query比VBA快，而且在不同資料來源彙整上我還是偏好使用Power Query，研究了官方對於重複查詢的問題(這裡)還有用一些關鍵字(Ppwer Query Slow+ Table.Buffer、 List.Buffer、 Table.NestedJoin、Table.Combine)爬了國外的論壇，在Power Query有些情況變慢大概有些理解，在這裡就做個詳細記錄。

      我本身非資訊背景，因此大部分資訊都是在網路上資源看到，在一些國外論壇或部落客大部分是建議以Table.Buffer及List.Buffer方式處理，但這種方式也不是完全有用，官方的建議(這裡)是建立資料流程封裝來源資料，我的理解是將源頭資料比較大的，還有一些中間步驟有使用到比較複雜查詢時另外存檔，這樣後面的步驟在查詢時就不會讓前面的步驟一直讀取，如果來源資料很大，雖然你已經使用Table.Buffer及List.Buffer處理，他仍然會在讀取一次源頭(我觀察是這樣)，如果沒用Bufferr就會讓讓讀取次數滾很多次。

Buffer 概念簡單說明一下，這是我理解的，所以可能說明不是那麼正確，在Power Query中查詢表中的每一個步驟本身都是一個Table或List，如果某些步驟做了很複雜的查詢，這時下一個步驟要飲用時會建議使用Buffer的方式，讓他不會重新計算一次，而是指接引用Buffer裡面的結果，有大陸的網友以計算機的M功能做Buffer做解釋，感覺是幫助了理解。

          就目前查詢到最常使用就是在Table.Comine 或 Table.NestedJoin之前先將相關的Table以Table.Buffer處理，List.Contains則是先用List.Buffer處理。

        不過最有效的方式就是資料流程的規劃，我有一個對同一資料做不同查詢再互相引用，未將步驟切開另外存檔時跑了20幾分鐘，切開後只要1分鐘內，這真的令人驚訝。在VBA中每一個步驟是很明顯的，但在Power Query不同查詢表的先後順序感覺不出它Run的方式，我想這也是其中一個影響到查詢時間的因素。