亞瑟的升級過程

這個代碼用在人工在A表格篩選完資料(標色)，然後將篩選完的資料，選取某些欄位將相關資料會到另一個表格中。  Sub A1_發票樣本() '2021/12/24  Application.ScreenUpdating = False 'sh_原則人工篩選 量及單號數較多的 Dim sh_清單 As Worksheet, sh_樣本 As Worksheet Dim D_欄位, D_資料 Set sh_清單 = Sheets("商業發票表頭") '須先由大至小排序 Set sh_樣本 = Sheets("傳票用") '可以設定自動檢查 Set D_欄位 = CreateObject("scripting.dictionary") Set D_資料 = CreateObject("scripting.dictionary") With sh_清單 lc = .Range("A1").End(xlToRight).Column lr = .Range("A1048576").End(xlUp).Row For c = 1 To lc D_欄位(.Cells(1, c).Text) = c Next For i = 2 To lr If .Cells(i, 1) .Interior.ColorIndex <> xlNone Then in_廠商 = .Cells(i, D_欄位("協力廠商")) in_發票日 = .Cells(i, D_欄位("商業發票日期")) in_發票號碼 = .Cells(i, D_欄位("商業發票號碼")) ...

以前使用過Switch方式處理資料，去年底以來一直使用Power Query，對於SQL的語法有點生疏，還好還是試出來了。  select *,int((離職日-到職日)/365) as 年資, switch ( [CF_DEPT_CABBR] like "%AC%","AC課" ,[CF_DEPT_CABBR] like "%RAD%","RAD課" ,[CF_DEPT_CABBR] like "%工程%","工程課" ,[CF_DEPT_CABBR] like "%線外%","線外加工課" ,[CF_DEPT_CABBR] like "%資材%","資材部" ,[CF_DEPT_CABBR] like "%擠%","擠型課" ,[CF_DEPT_CABBR] like "%生技%","生技課" ,[CF_DEPT_CABBR] like "%會計%","財務會計處" ,[CF_DEPT_CABBR] like "%財務%","財務會計處" ,[CF_DEPT_CABBR] like "%管理課%","管理課" ,[CF_DEPT_CABBR] like "%物流課%","物流課" , true ,[CF_DEPT_CABBR]) as 部門 from ['離職名單2020-2021$'] where 到職日 is not null

Excel環境的SQL無法使用更新方式的方式，譬如today 或是 date的方式，也許可以，但目前還沒找到，因此用了下面不聰明的方式處理 DATEDIFF("yyyy",時間,DATE()) select *, #2021/12/29# As 今天 , int((今天-[ENTR_DATE])/365) as 年資,switch( [DEPT_CNAME] like "%AC%","AC課" ,[DEPT_CNAME] like "%RAD%","RAD課" ,[DEPT_CNAME] like "%工程%","工程課" ,[DEPT_CNAME] like "%線外%","線外加工課" ,[DEPT_CNAME] like "%資材%","資材部" ,[DEPT_CNAME] like "%擠%","擠型課" ,[DEPT_CNAME] like "%生技%","生技課" ,[DEPT_CNAME] like "%會計%","財務會計處" ,[DEPT_CNAME] like "%管理課%","管理課" ,true,[DEPT_CNAME]) as 部門 from [在職名單1228$]

     新環境沒有的Office沒有達到Power Query的最低配置office 2016，只能把以前的方法拿出來用，VBA+SQL，現在開始記錄一下各種寫法 select * from ['Select_accounts$'] where 業務 not like "%二%" and 業務 not like "%一%"  select distinct 部門代碼 from [fnd_gf\m_15542471$] where 來源 like "M%" and 部門代碼 not in ('1184','1488','1531','1568','1698','43')

          最近實際使用中油PAY的確是省了挺多，11/27~12/25共省了740(還有一張50元油券還未使用)，下面有一個表是實際抵用狀況以及中油pay優惠整理，實際上與目前DM的9.4%不太依樣，最高應該是9.1%。         因為開車加油支出稍高，因此中油PAY還是有省了一些，如果要盡可能的達到9.1%( 不可能 )，只能盡量自助，但是有一些優惠的使用必須靠人工加油時抵用( 如果讓人工加油剛好接近抵用數，可能就會很接近9.1% )。          第一個月的優惠%數換算約 8.56% ，總共支出6,301+(740-150)=6,891，總共抵740-150，換算後8.56%。(因為12/25的200元是刷卡禮，不能算是原本他的遊戲規則，我是因為盡量降低人工加油金額，所以先選抵用200元，實際有一張50元是儲值送的。) 我的方式: 1.盡可能自助。(每公升0.8元約2.7%比人工產生的會員點數1.5%多) 2. 星期一 儲值3000，50元油票約1.6%。 還會有4%紅利金。 3.人工加油時盡可能接近可以抵的 會員點數+ 中信紅利點數 +油票 。(我還沒做到極致) 4.目前 中信紅利點數 星期六 抵時會由每100點可以抵8元變100點抵10元。 其他備註: .中信紅利金(儲值給的2%、4%)，在 自助時 就能自動扣。 中油點數、中信紅利點數(刷卡的部分，包含用中信卡儲值)、油券只能透過 人工加油 時使用。 中油APY整理 中油APY實際使用

  我想我的Word應該也會稍微變強吧從這個月開始... 今天編輯辦法修正對照表時，最後一欄跑掉，用大綱模式無法將最後一欄調整，切換到 草稿模式 反而可以。

  高版本的exel(如365版)製作的Power  Query如果在低版本excel(如2007版)中不能看到Power Query，於低版本改過excel後存檔再回到高版本中打開，原本編輯的PQ仍然存在。( 365版製作的PQ於2007版excel中修改過工作表存檔，於365開啟時仍能看到PQ查詢表 )-2021/12/18

彙整多期BS及IS資料   Sub A0_BS多年度科目比較 () '2021/12/15  Application.ScreenUpdating = False Dim sh_本期 As Worksheet, sh_前期 As Worksheet, sh_目地 As Worksheet, D_工作表, D_資料 Set D_工作表 = CreateObject("scripting.dictionary") Set D_資料 = CreateObject("scripting.dictionary") Set D_科目 = CreateObject("scripting.dictionary") '---------------------------------------------------------------------- arr_sh = Array("202101", "202102", "202103", "202104", "202105", "202106", "202107", "202108", "202109") For i = 1 To Sheets.Count D_工作表(Sheets(i).Name) = Sheets(i).Name Next If D_工作表.exists("彙整") = False Then Sheets.Add.Name = "彙整" End If Set sh_目地 = Sheets("彙整") For i_sh = LBound(arr_sh) To UBound(arr_sh) With Sheets(arr_sh(i_sh)) ...

兩年度前十進貨及銷貨比較用   Sub A0_前十進() '2021/12/16  Application.ScreenUpdating = False Dim sh_本期 As Worksheet, sh_目地 As Worksheet, D_工作表, D_資料, D_對象 Set D_工作表 = CreateObject("scripting.dictionary") Set D_資料 = CreateObject("scripting.dictionary") Set D_對象 = CreateObject("scripting.dictionary") '---------------------------------------------------------------------- arr_sh = Array("2021", "2020") For i = 1 To Sheets.Count D_工作表(Sheets(i).Name) = Sheets(i).Name Next If D_工作表.exists("彙整") = False Then Sheets.Add.Name = "彙整" End If Set sh_目地 = Sheets("彙整") For i_sh = LBound(arr_sh) To UBound(arr_sh) With Sheets(arr_sh(i_sh)) lr = .Range("A65536").End(xlUp).Row in_年度 = arr_sh(i_sh) For i = 3 To lr in_科目 = ...

下面的代碼用來標示可能存在的辦法，不過要先把辦法的檔案名稱弄到excel中可以參考 這個  VBA_建立檔案目錄  ，如果有項辦法這種原本有紀錄清單的，就。  Sub A1_關鍵字確認_辦法()     '2021/12/10      Application.ScreenUpdating = False          arr_辦法 = Array("制度", "辦法", "循環", "守則", "準則", "規則", "作業", "程序", "規範", "文管", "衍生", "條文", "對照", _   "第1版", "第2版", "第3版", "第4版", "第5版", "第6版", "第-1版", "第-2版", "第-3版", "第-4版", "第-5版", "第一版", "第二版", "第三版", "第四版", "第五版","章程","財務及非財務","資通")          With ActiveSheet         lr = .Range("A1048576").End(xlUp).Row         For i = 2 To lr             For i_arr = LBound(arr_辦法) To UBound(arr_辦法)                 If .Cells(i, 1) Like "*" & arr_辦法(i_arr) & "*" Then                     ....

使用VBA抓取檔案路徑中的清單，用在交接把自己手上檔案移交給人時很好用，當然你從人家手上接到檔案，如果沒清單時也很好用。 Sub A0_檔案清單_DIC() Application.ScreenUpdating = False ' 比ARR慢一點點 t = Timer Dim DIC Set DIC = CreateObject("scripting.dictionary") Range("A:L").ClearContents 'n = 0 Range("A1").Resize(, 8) = Array("檔名", "路徑", "大小", "修改時間", "建立時間", "授權時間", "資料夾", "檔案格式") Dim strPath As String strPath = "D :\稽核工作 " '修改這裡 Dim OBJ As Object, Folder As Object, File As Object Set OBJ = CreateObject("Scripting.FileSystemObject") Set Folder = OBJ.GetFolder(strPath) Call ListDIC(Folder, DIC) Dim SubFolder As Object For Each SubFolder In Folder.SubFolders '子資料夾     Call ListDIC(SubFolder, DIC)     Call GetSubFolders(SubFolder, DIC) Next SubFolder Range("A2").Resize(DIC.Count, 8) = Application.Transpose(Application.Transpose(DIC.Items)) MsgBox Timer - t DIC.RemoveAll End Sub '----------------------...

12/4 防盜器再響，看來不是六角鎖問題，難道是中控??  11/30 去保養廠換副駕駛的六角鎖，當初事故擠壓到副駕駛車門，但副駕駛的六角鎖看起來是舊品，因為跟其他三個門明顯不一樣，而且感覺有點鬆，感覺是這個造成防盜器響，跟外面的保養廠討論後換了六角鎖1800。這問題跟原廠反應時，得到的回應是日子有點久了，可以明顯的感覺到他們不想再處理。 11/21最近假日有聽到防盜器響，每次都是在下午，也有在上班時間發生，因為都是在12:00~16:00之間所以懷疑跟溫度有關，可能是造成門邊的感應到以為沒關好之類。(原廠說防盜晶片可能壞掉，價格大約9000-1萬，可能也沒貨....) 2/11去拿車時，原廠的理賠部門說可能還會有小問題，不過問題是不是真的小就不知...，回我家時拿東西時順便開引擎蓋看發現漏油，開回去說動力的油管硬化，當天換沒另外收。 2/12 原本要去紫南宮，結果引擎故障燈亮了，於是取消行程，怕有其他問題 2/17 開工首日請半天去處理，當下說如果再亮就是含氧感知器問題，因為不是事故造成所以到時候換要錢。後來開回家又亮，問了外面保養廠還有查網路說原廠的零件比較不會有問題，那個問題也沒危險，但看燈亮就礙眼，於是約了2/20換零件。 2/20 換含氧感知器，當下有說理賠要當初說要幫我處理搖臂蓋墊片，要等零件再約( 難怪還有看漏油現象，原來是那邊造成... )。 2/22 上班路途又亮。 2/24 打去問零件來沒順便抱怨故障燈又亮( 說那時電腦帶出去所以沒用電腦消故障碼，搖臂蓋墊片零件來一起處理 )。 2/27 原廠理賠打來說零件來了，說隔週星期二還是星期三請人到我公司來開去修。 3/2(原本要來忘記) 3/3搖臂蓋來了(ABS亮燈順便換電池<貴> 3/8開去看是哪漏油約好3/12要來(原本要來沒來)  3/15 換零件(另一個漏油)  3/16早上開引擎蓋發現搖臂蓋沒索回去(連絡說要來公司鎖) ,這個挺扯的，是師傅做的，竟然沒鎖。 3/19幫忙看d檔燈，後來是將儀表板燈換到D檔，說一個200多元他們沒零件，有報廢車換下來再幫我換，他們會再記得嗎?? 5/14 回外面保養廠保養時，師傅說原廠板金可能拉得不夠水箱跟引擎腳咬太緊。起步時有怪聲音可能哪裡沒鎖緊。 5/18 原廠來公司開走，起步怪聲音好了也比較順。板金需要重新約時間處理。...

  好食券  https://hpm.5000.gov.tw/cp.aspx?n=202 適用於餐飲、糕餅、夜市/市場之攤商及小微店家及百貨美食街、觀光工廠等。 國旅券 https://hpm.5000.gov.tw/cp.aspx?n=203 適用於合作之旅行業、旅宿業及觀光遊樂業、領有溫泉標章之業者、本局國家風景區管理處主辦促參案商家及經濟部核准之觀光工廠消費折抵 農遊券 https://hpm.5000.gov.tw/cp.aspx?n=205 農村好物、農社企業者、休閒農場、農漁特產銷售據點、森林遊樂區等 藝FUN券 https://hpm.5000.gov.tw/cp.aspx?n=206 適用於全國藝文場域及藝文店家，包含藝文展演預購票券等 i原券 https://hpm.5000.gov.tw/cp.aspx?n=204 僅適用於原住民族委員會認證店家 動滋券 https://hpm.5000.gov.tw/cp.aspx?n=207 提供做運動、看比賽相關服務之店家 客庄券 https://hpm.5000.gov.tw/cp.aspx?n=208 全國11縣市70個客家文化重點發展區指定店家。 地方創生券 https://hpm.5000.gov.tw/cp.aspx?n=209 適用於地方創生事業相關業者 (獲國發會核准地方創生事業提案之民間事業及本會規範適用條件之業者)

官網  https://hpm.5000.gov.tw/Default.aspx 各種券的使用期間 藝FUN券 2021/11/10至2022/4/30 農遊券 2021/10/25至2022/4/30 國旅券 2021/11/1至2022/4/30。 好食券 2021/10/8至2022/4/30 地方創生券   規劃於 110/12/1 至111/4/30 客庄券 2021/11中旬 至2022/4/30 i原券   2021/11/5 至 2022/4/30 動滋券 1. 第1、2週中籤(10/14、10/21)：2021/11/01至2022/6/30 2. 第3、4週中籤(10/28、11/04)：2021/11/11至2022/6/30

  今年下半年開始一些小習慣在這邊做個紀錄。 2021/11/21  做40下 2021/10/24 打第二劑AZ 暫停 相關運動 2021/10/20 35下 2021/10/4  在youtube上面看到一個有趣的動作，有點像一種毛毛蟲走路方式。做完滾輪後加一小段這個動作   動作: 彎腰雙手著地慢慢用雙手往前走，等到姿勢有點像棒式或是伏地挺身方式時雙腳再慢慢往雙手靠攏，這個做起來核心肌群有訓練到。 PS.如果用 hand walking搜尋youtube可以看到這動作，不過跑出來大部分都是教你怎麼用雙手倒立走路，這個感覺也挺趣。 2021/8/3 恢復 2021/7/30 打疫苗 2021/7/26  半套可以做25下 2021/7/17感覺左腹有點緊繃，改成半套，以跪姿方式進行 2021/7/14 可以做10下(全套) 2021/6/24  開始做滾輪運動

             這兩天 收到同事的詢問，說excel 中出現奇怪的線，一開始同事只是截個圖，老實說我很久沒看過這種線，因為我都很久不寫函數了。 官方說   數百萬人有相同的問題， 我相信因為我在用函數時也遇過。         下面簡單舉例同工作表直接參照跟間接工作表不同參照。 直接參照_同工作表參照 間接參照_不同工作表參照 就是那條線_間接參照_不同工作表參照 就是那條線_間接參照_不同工作表參照   錯誤訊息: 一個或多個循環參照的公式直接或間接參照瞭本身的儲存格，這可能會造成計算不正確。請嘗試移除或變更這些參照，或將公式移至不同的儲存格。 一個或多個循環參照的公式直接或間接參照瞭本身的儲存格 微軟官方說明   移除或允許循環參照   

  8/20開始想要學英文，不過剛開始還是以不排斥的方式接觸。 8/20~8/22 是拿英文單字起來翻，可能動機跟學生時代不同，所以看的時候有不一樣感覺，會注意到好像某些單字類似想要一起記。 8//22之後開始在洗碗時聽英文，大約聽15~30分左右，以前不感興趣的美劇，反而感覺有點有趣。( 翻單字暫停) 8/23~10/8 仍維持周一~周五會聽youtube上的美劇片段講解，這段期間也有思考如何更進一步學習，譬如把單字拿出來背，或是先去參加測驗測試自己程度，或是以多益為目標弄個可以拿出來看的成績。  -----目前認為背單字是有需要，讓自己持續接觸英文不排斥也是有需要。

        最近在出清一些以前買的書籍，讀冊平台的規定有時要查詢一時找不到，放在這裡方便自己查詢。          第一次用全家寄書時，收據跑出來是退貨，我一開始也有點懷疑問店員，店員回答說看業者怎麼規定...，顯然店員也不清楚，後來寄出後發現收據顯示退貨是正常，因為讀冊有收到書野放到販賣平台上。         發現有些出版社的書不接受代售，雖然有買家需求，譬如 寰宇、聚財、早安財經 --------------------------------------------------------------------------------- 讀冊生活不代售的二手書：請參考 「圖解說明」 (1)中文雜誌、歐美雜誌。 (2)無定價、無出版日期、無ISBN之二手書。 (3)蓋有租書店店章、政府機關學校館藏章、來自租書店及漂書單位之二手書。 (4)高中/國中/國小教科書、參考書、兒童教具類二手書。 (5)書況不佳之二手書：缺書封、缺書衣、缺內頁、裝訂脫落、印刷及裁切瑕疵、有書釘、水痕、殘破、污損、塗鴉、膠貼、蟲穢、異味。( 畫線、註記、贈品遺失或毀損者不在此列，惟上架申請時需註明。 ） (6)不分售之套書，有缺書而不成套之二手書。 (7)已使用過之各類練習簿、測驗簿、著色本或含習題之二手書，以及缺少附件即無法使用之二手書。 (8) 讀冊生活保留其他特定二手書不代售之權利 。 賣家寄送至讀冊生活的二手書，如有上述情形者，讀冊生活將執行本服務條款【第十二條 二手書寄送至讀冊生活後，無法代售情形之後續處理】。 --------------------------------------------------------------------------------- 書況標定 : 二手書「書況」由讀冊生活統一標定，標準如下： A.全新：膠膜未拆，無瑕疵。 B.近全新：未包膜，翻閱痕跡不明顯，如實體賣場陳列販售之書籍。 C.良好：有使用痕跡，不如新書潔白、小範圍瑕疵，如摺角、碰撞、汙點或泛黃等。 D.普通：有使用痕跡，並因時間因素，有大範圍黃、黑斑及瑕疵。 E.差強人意：印刷褪色、模糊或其它更糟之書況。 ------------------...

           今天花了5200元換了一顆穩壓的電子加壓馬達，聲音比原本舊式的小很多。剛換完時師父有叫我去開水讓雜質流出，不過我不清楚他的雜質是什麼，除了一開始在頂樓開時有發現水流出來顏色偏白，後來在其他房間放水時沒發現，但我也沒想到去聞水的味道，晚上洗澡時才發現水有膠合劑的味道( mobile01上有網友說本來就是裡外都要塗 )，原來塗在水管上的部分要經過一些時間放水才能放掉，味道大概在幾分鐘就沒了。         原本舊式的馬達，很容易連續運轉沒停，最近一開始發現時以為跟之前依樣水管破了，去看沒有這現象，而且隔天早上開啟加壓馬達時又沒連續運轉，就在前幾天忍不住再去看，出水口在滴水，仔細一看水管有膨脹，後來問了熟識的機車行老闆有沒有可靠的師傅介紹，才由這師傅處理。         經過幾次馬達問題處理，發現如果馬達練續運轉，就要注意是不是需要去調整 壓力開關，注意水管有沒有膨脹，法蘭附近螺絲有沒有生鏽 ，避免以後要換時鏽死，平常好好注意，可以少花點錢。 PS.原本我是打算自己換法蘭，但因為水管膨脹，沒有相關工具也沒有水管更換的經驗，因此還是選擇交給師傅...

            在這裡紀錄一下自訂函數使用的兩種起源，一個是Record 另一個是Table，目前感覺這部分只能拆解學習，這裡是自訂函數一開始都會看到的方式。 自訂each = Table.AddColumn(來源, "自訂", each _)   與    自訂X = Table.AddColumn(來源, "自訂()", (x) => x)  結果都是一樣 顯示 Record 自定義函數_Record 下面是完整的內容，可以copy自己使用一下。 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 來源) i...

戰鬥鍛鍊場  第一關: 水仙女3技睡水皮>光精巡2技暈暗獸人>光精巡3技打水皮>風流浪3技打水哥魯>水仙女1技打暗獸人>光精巡1技打暗獸人>風流浪1技破防水哥魯>水仙女普攻>光精巡2技接1技 第二關: 風小仙3技>水仙女3技睡火小惡魔>水伊破防風死騎>水仙女2技解水伊>水伊打死風死騎>先打之前睡過的那隻>水伊破防留給最後一隻 第三關: 風蟒2技>水僧2 放在風蟒上 接3>光仙女王3技>風蟒普攻左2火狗>水僧普攻左1火狗>光仙女王普攻右2火狗>風蟒2技>普攻到結束 第四關: 水鳳3技>火精3技>火死神2技>風企鵝2技中間那隻水犬神>光犬1技破防右邊火方>水鳳2技右邊火方>火精2技左邊火方>水鳳1技暈左1水犬神>火死神與火精普攻火方>風企鵝3技>光犬神3技>水鳳3技>火精3技>火死神2技 第五關: 風狼人2技打水鳥頭>暗伯爵3接2放暗龍>風希3技>風丑3技>風狼人普攻光鳥>暗伯爵普攻水鳥頭>風希2技>風狼人普攻水鳥頭>風丑2技>風狼人2技 第六關: 水巫3技>火樹妖1技打風小仙>水雙子2技打暗神偷>火雙子2技>水巫2技火狗頭>火樹妖3技>水雙子2技水上犬>火雙子1技火狗頭>水巫1技水上犬>最後打死風小仙 第七關: 水貓2技暗溫>光卡2技左風熊>火羅2技左風熊>水貓普攻暗溫>光卡普攻左風熊>火活普攻左風熊>水貓普攻暗溫>光卡普攻右風熊>火羅普攻右風熊>水貓2技>光卡2技 第八關: 光海盜3技暗元素>光賞金3技風琴>暗蟒3技>暗亞馬3技水精靈王>光海盜2技風琴>光賞金普攻風琴>暗蟒普攻風琴>光海盜普攻風琴>暗亞馬2技風狗頭 第九關: 光伊普攻火上犬>風人魚3技風刺客>風獸人2技風刺客>光獸人普攻風刺客>光伊2技火上犬>風人魚2技光伊>風獸人3技水狼人>光伊普攻水狼人>光獸人2技火上犬>風獸人2技火上犬...

因為很多新聞包含一些朋友說打疫苗會不舒服，因此做了一下紀錄，看看不舒服的程度到什麼狀況，後來整個狀況 感覺很輕微  ( 難道我老了抵抗力比較差?? )。 我紀錄了溫度、心跳及血壓，因為以前感冒比較嚴重時有發現血壓升的特別高，那時頭很痛，因此打疫苗後除了注意溫度我也用血壓計測量。 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施打疫苗紀錄