VBA_依條件篩選資料

這個代碼用在人工在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_欄位("商業發票號碼"))

in_幣別 = .Cells(i, D_欄位("付款幣別"))

' in_條件 = .Cells(i, D_欄位("付款條件"))

in_付款 = .Cells(i, D_欄位("付款群組"))

in_序號 = .Cells(i, D_欄位("內部序號"))

in_金額 = .Cells(i, D_欄位("商業發票金額"))

D_資料(i) = Array(in_廠商, in_發票日, in_發票號碼, in_幣別, in_付款, in_序號, in_金額)

End If

Next

End With

With sh_樣本

.Cells.Delete

arr_標題 = Array("廠商", "發票日", "發票號碼", "幣別", "付款方式", "請款單序號", "發票金額")

.Range("A1").Resize(, UBound(arr_標題) + 1) = arr_標題

.Range("A2").Resize(D_資料.Count, UBound(arr_標題) + 1) = Application.Transpose(Application.Transpose(D_資料.items))

End With

End Sub

Excel_SQL_Switch使用

以前使用過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

SQL_計算年資(不聰明的方式)

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$]

SQL_基本語法(使用環境_Excel)

     新環境沒有的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實際使用狀況

         最近實際使用中油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元。

其他備註:

1. .中信紅利金(儲值給的2%、4%)，在自助時就能自動扣。
2. 中油點數、中信紅利點數(刷卡的部分，包含用中信卡儲值)、油券只能透過人工加油時使用。

中油APY整理

中油APY實際使用

Word_草稿模式調整欄位大小

 我想我的Word應該也會稍微變強吧從這個月開始...

今天編輯辦法修正對照表時，最後一欄跑掉，用大綱模式無法將最後一欄調整，切換到草稿模式反而可以。

Power Query冷知識

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

VBA_彙整多期BS及IS資料

彙整多期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))

lr = .Range("A1048576").End(xlUp).Row

in_月份 = arr_sh(i_sh)

For i = 6 To lr

If .Cells(i, "B") <> "" And .Cells(i, "B") <> 0 Then

in_科目A = .Cells(i, "A")

in_餘額A = .Cells(i, "B")

D_科目(in_科目A) = in_科目A

in_條件A = in_月份 & in_科目A

D_資料(in_條件A) = in_餘額A

End If

Next

For i = 6 To lr

If .Cells(i, "E") <> "" And .Cells(i, "E") <> 0 Then

in_科目B = .Cells(i, "D")

in_餘額B = .Cells(i, "E")

D_科目(in_科目B) = in_科目B

in_條件B = in_月份 & in_科目B

D_資料(in_條件B) = in_餘額B

End If

Next

End With

Next

With sh_目地

.Cells.Delete

.Range("B1").Resize(, UBound(arr_sh) + 1) = arr_sh

.Range("A2").Resize(D_科目.Count, 1) = Application.Transpose(D_科目.keys)

For c = 2 To UBound(arr_sh) + 2

in_月份 = .Cells(1, c)

For i = 2 To D_科目.Count + 2

in_科目 = .Cells(i, 1)

in_條件 = in_月份 & in_科目

.Cells(i, c) = D_資料(in_條件)

Next

Next

End With

D_資料.RemoveAll

D_科目.RemoveAll

End Sub

Sub A0_IS多年度科目比較()

'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))

lr = .Range("A1048576").End(xlUp).Row

in_月份 = arr_sh(i_sh)

For i = 5 To lr

If .Cells(i, "B") <> "" And .Cells(i, "B") <> 0 Then

in_科目A = .Cells(i, "A")

in_餘額A = .Cells(i, "B")

D_科目(in_科目A) = in_科目A

in_條件A = in_月份 & in_科目A

D_資料(in_條件A) = in_餘額A

End If

Next

End With

Next

With sh_目地

.Cells.Delete

.Range("B1").Resize(, UBound(arr_sh) + 1) = arr_sh

.Range("A2").Resize(D_科目.Count, 1) = Application.Transpose(D_科目.keys)

For c = 2 To UBound(arr_sh) + 2

in_月份 = .Cells(1, c)

For i = 2 To D_科目.Count + 2

in_科目 = .Cells(i, 1)

in_條件 = in_月份 & in_科目

.Cells(i, c) = D_資料(in_條件)

Next

Next

End With

D_資料.RemoveAll

D_科目.RemoveAll

End Sub

VBA_兩年度前十進銷貨彙整

兩年度前十進貨及銷貨比較用

 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_科目 = .Cells(i, "B")

in_對象 = .Cells(i, "C")

in_金額 = .Cells(i, "D")

in_趴數 = .Cells(i, "E")

in_品項 = .Cells(i, "F")

D_對象(in_對象) = Array(in_科目, in_對象)

in_條件A = in_年度 & in_對象

D_資料(in_條件A) = Array(in_金額, in_趴數, in_品項)

Next

End With

Next

With sh_目地

.Cells.Delete

.Range("A2").Resize(D_對象.Count, 2) = Application.Transpose(Application.Transpose(D_對象.items)) '有三個資料

.Range("C1").Resize(, 6) = Array("2021", "2020", "2021", "2020", "2021", "2020")

in_年度數 = UBound(arr_sh) + 1

For i = 2 To D_對象.Count + 2

For ic = 0 To 2 '配合字典******************

For c = 3 + ic * in_年度數 To UBound(arr_sh) + 3 + ic * in_年度數 '這裡要注意起始點

'For c = 3 + ic * 2 To UBound(arr_sh) + 3 + ic * 2 '這裡要注意起始點

in_年度 = .Cells(1, c)

in_對象 = .Cells(i, 2)

in_條件 = in_年度 & in_對象

If D_資料.exists(in_條件) = True Then '字典中使用陣列所以必須使用存在檢查******************

.Cells(i, c) = D_資料(in_條件)(ic)

End If

Next

Next

Next

'最後執行攔未修改

.Range("A1").Resize(, 8) = Array("科目代碼", "供應商", "2021金額", "2020金額", "2021比例", "2020比例", "2021項目", "2020項目")

End With

D_資料.RemoveAll

D_對象.RemoveAll

End Sub

Sub A0_前十銷()

'2021/12/16Application.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_科目 = .Cells(i, "B")

in_對象 = .Cells(i, "C")

in_金額 = .Cells(i, "D")

in_趴數 = .Cells(i, "E")

in_條件 = .Cells(i, "F")

in_品項 = .Cells(i, "G")

D_對象(in_對象) = Array(in_科目, in_對象)

in_條件A = in_年度 & in_對象

D_資料(in_條件A) = Array(in_金額, in_趴數, in_條件, in_品項)

Next

End With

Next

With sh_目地

.Cells.Delete

.Range("A2").Resize(D_對象.Count, 2) = Application.Transpose(Application.Transpose(D_對象.items)) '有三個資料

.Range("C1").Resize(, 8) = Array("2021", "2020", "2021", "2020", "2021", "2020", "2021", "2020")

in_年度數 = UBound(arr_sh) + 1

For i = 2 To D_對象.Count + 2

For ic = 0 To 3 '配合字典******************

For c = 3 + ic * in_年度數 To UBound(arr_sh) + 3 + ic * in_年度數 '這裡要注意起始點

in_年度 = .Cells(1, c)

in_對象 = .Cells(i, 2)

in_條件 = in_年度 & in_對象

If D_資料.exists(in_條件) = True Then '字典中使用陣列所以必須使用存在檢查******************

.Cells(i, c) = D_資料(in_條件)(ic)

End If

Next

Next

Next

'最後執行攔未修改

.Range("A1").Resize(, 10) = Array("科目代碼", "供應商", "2021金額", "2020金額", "2021比例", "2020比例", "2021條件", "2020條件", "2021項目", "2020項目")

End With

D_資料.RemoveAll

D_對象.RemoveAll

End Sub

VBA_針對儲存格特殊字眼標示

下面的代碼用來標示可能存在的辦法，不過要先把辦法的檔案名稱弄到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

                    .Cells(i, 1).Interior.ColorIndex = 6

                    Exit For

                End If

            Next

        Next

    End With

End Sub

VBA_建立檔案目錄

使用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

'---------------------------------------------------------------------------------------------------------

Sub ListDIC(ByRef Folder As Object, DIC)

For Each File In Folder.Files'擷取的內容

        DIC(File.Path) = Array(File.Name, File.Path, (File.Size / 1024), File.DateLastModified, _

            File.DateCreated, File.DateLastAccessed, Split(File.ShortPath, "\" & File.Name)(0), File.Type)

Next File

End Sub

'------------------------------------------------------------------------

Sub GetSubFolders(ByRef SubFolder As Object, DIC)

Dim FolderItem As Object '資料夾

For Each FolderItem In SubFolder.SubFolders

    Call ListDIC(FolderItem, DIC)

    Call GetSubFolders(FolderItem, DIC)   '這個方式沒使用過

Next FolderItem

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 原廠來公司開走，起步怪聲音好了也比較順。板金需要重新約時間處理。

5/21 原廠把車開去將水箱板金重弄，快下班時打趣問原廠說要隔天才好，5/22(六)將車開回。

2021年振興券使用範圍

 

好食券 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

適用於地方創生事業相關業者 (獲國發會核准地方創生事業提案之民間事業及本會規範適用條件之業者)

2021年振興券使用期間

官網 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

小習慣_滾輪運動+hand walking

 

今年下半年開始一些小習慣在這邊做個紀錄。

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_一個或多個循環參照的公式直接或間接參照瞭本身的儲存格

            這兩天收到同事的詢問，說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.差強人意：印刷褪色、模糊或其它更糟之書況。

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

二手書打包/裝箱：
寄送二手書至讀冊生活前，賣家需按照二手書上架申請單[註2]之明細打包/裝箱。一筆申請單可裝成一箱，或分裝多箱(僅適用於郵局或貨運宅配寄送)，但是同一箱內不可裝入多筆申請單之二手書。多筆申請單之二手書混合裝箱，即造成每箱內容物與該箱之申請單明細不符(因為一箱之內容只能對應一個申請單號[註3])，讀冊生活無法代售，將執行本服務條款【第十二條 二手書寄送至讀冊生活後，無法代售情形之後續處理】。

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

二手書寄送

有多種方式可以寄送。請務必把上架申請單號印出貼在外箱，或是手抄單號資訊在外箱上。

1.萊爾富、全家便利商店寄送

萊爾富超商寄書規格：
每一筆申請單以10本、裝成一箱為上限。(每箱材積：長寬高總和在105公分以內，最長單邊長度在45公分以內，其他兩邊長度均在30公分以內，且重量低於5公斤)。假設您欲販賣之二手書籍有25本，須分3次上架產生3筆單號，並裝成3箱。

全家便利商店寄書規格：
每一筆申請單以15本、裝成一箱為上限。(每箱材積：長寬高總和在105公分以內，最長單邊長度在45公分以內，其他兩邊長度均在30公分以內，且重量低於5公斤)。請在TAAZE讀冊生活網站操作二手書上架申請，讀冊APP暫不適用。

操作方式：
將二手書上架申請單據列印或手寫在紙箱上，於超商智慧機台輸入指定單號並列印出寄件單據，再將書籍及單據交付超商店員並支付費用後即完成寄送程序。詳細的說明請參閱全家便利商店寄件或萊爾富超商寄件

注意事項：
●全家與萊爾富之寄件單號不同，因此無法互相通用。
出發前往超商前請您務先確認所選超商。全家便利商店請於FamiPort輸入全家寄件單號(12碼數字)；萊爾富請於LifeET輸入二手書上架申請單號(CE開頭+11碼數字)，方能順利申請寄送。

●一組單號內申請的書籍若超過數量上限，產生之申請單號無法於超商機台列印收費條碼，需請您重新操作上架申請或自行郵寄。

2.自行郵寄
無本數及裝箱限制，可透過郵局或自行聯繫貨運宅配公司，如：黑貓宅急便、台灣宅配通、嘉里大榮物流、新竹物流等前往收送件。因倉庫未對外開放，恕不接受親送。
收件資訊如下:
收件人： TAAZE讀冊生活
地址： 238 新北市樹林區味王街1-25號(37號碼頭1F)
電話：(02)8686-4690

加壓馬達換新

          今天花了5200元換了一顆穩壓的電子加壓馬達，聲音比原本舊式的小很多。剛換完時師父有叫我去開水讓雜質流出，不過我不清楚他的雜質是什麼，除了一開始在頂樓開時有發現水流出來顏色偏白，後來在其他房間放水時沒發現，但我也沒想到去聞水的味道，晚上洗澡時才發現水有膠合劑的味道(mobile01上有網友說本來就是裡外都要塗)，原來塗在水管上的部分要經過一些時間放水才能放掉，味道大概在幾分鐘就沒了。

        原本舊式的馬達，很容易連續運轉沒停，最近一開始發現時以為跟之前依樣水管破了，去看沒有這現象，而且隔天早上開啟加壓馬達時又沒連續運轉，就在前幾天忍不住再去看，出水口在滴水，仔細一看水管有膨脹，後來問了熟識的機車行老闆有沒有可靠的師傅介紹，才由這師傅處理。

        經過幾次馬達問題處理，發現如果馬達練續運轉，就要注意是不是需要去調整壓力開關，注意水管有沒有膨脹，法蘭附近螺絲有沒有生鏽，避免以後要換時鏽死，平常好好注意，可以少花點錢。

PS.原本我是打算自己換法蘭，但因為水管膨脹，沒有相關工具也沒有水管更換的經驗，因此還是選擇交給師傅...

Power Query_自訂函數初探

           在這裡紀錄一下自訂函數使用的兩種起源，一個是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 來源)

in

    自訂each

魔靈召喚_戰鬥鍛鍊場劇本分享（轉載自reddit)

戰鬥鍛鍊場 

第一關:

水仙女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技火上犬>風人魚普攻水狼人>光伊普攻水奧>風獸人普攻水奧>風人魚3技水奧>光獸人3技水奧>光伊2技火上犬

第十關:

水方3技>風上犬普攻水地獄夫人>光伊2技火神秘>水方普攻火神秘>風上犬2技>光伊普攻水地獄夫人>水方普攻水夫人>風上犬普攻水夫人>光伊普攻火小仙>水方普攻水夫人>風上犬水方都普攻>光伊2技火小仙

第十一關:

水琴3技>暗鳥身3技火方>暗魅魔2技火方>風魅魔3技>水琴普攻火賞金>暗鳥身2技火方>暗魅魔3技>風魅魔2技水海盜>水琴2技>暗鳥身普攻水海盜>水琴普攻水海盜>暗魅魔普攻水仙人>風魅魔普攻水仙人>暗鳥身3技水仙人>水琴3技>暗魅魔2技水仙人>水琴2技>暗鳥身2技火賞金>暗魅魔普攻火賞金>水琴普攻水仙人

第十二關:

火熊貓3技光鬥士>暗樹妖3技>火樹妖3技>水格2接3光鬥士>火熊貓普攻光巫>火樹妖2技光巫>暗樹妖2技>水格2接1光巫>火熊貓普攻光仙女>火樹妖普攻光仙女>暗樹妖普攻光仙女>火熊貓3技光瑞奇>水格2技光瑞奇>水格普攻光仙女>火樹妖普攻光仙女>暗樹妖普攻光仙女>火熊貓普攻光瑞奇>火樹妖3技光瑞奇>水格2接3光瑞奇

第十三關:

風球3接2>火丑2技>暗羅3技水人魚>光羅2技水仙>風球普攻水仙人>火丑3技>暗羅2技水人魚>暗羅普攻水仙人>風球普攻水人魚

第十四關:

風鳥身3技風伊>火奧2技>水獸人2技暗伊>光皮2技風伊>光皮3技暗伊>火奧普攻火猴>水獸人普攻火猴>光皮3技火猴>風鳥身普攻水派>火奧普攻水派>水獸人2技水派>光皮3技水派

第十五關:

火最高3技>光MK普攻中間暗地獄火>光最高2技中間暗地獄火>火最高普攻中間暗地獄火>光MK2技左邊暗元素>火最高2技左邊暗地獄火>光最高普攻左邊暗元素>光MK普攻左邊暗地獄火>火最高普攻右邊暗地獄火>光MK普攻右邊暗地獄火>火最高3技>光MK2技右邊暗元素>火最高2技右邊暗地獄火>火最高普攻左邊暗地獄火>光MK普攻暗元素

第十六關:

水刺客2技風巫>水南瓜2技>風企鵝2技火龍騎>火哈3技補血>水南瓜普攻光魁儡>水刺客3技風巫>水南瓜普攻火龍騎>火哈2技火龍騎>水刺客3技光魁儡>水南瓜2技>水刺客3技暗魁儡>水南瓜普攻火龍騎>火哈普攻暗魁儡>水刺客2技暗魁儡

第十七關:

火哈格1技打暗卡>光球2技全體破防>水象2技>我方風鎧秒風僧>火哈格2技給風鎧 2技打死暗卡>其他人打風鎧，我方風鎧打風晶代  光皮有2技記得破防  水象記得加防  第17回合火哈格二技給風鎧 最後風鎧3技收對面風鎧

第十八關:

暗南瓜2技>水雷帝3技水上犬>水馬馬型態2技水撒旦>水熊貓3技水上犬>水雷帝普攻火死騎>水馬馬型態普攻火死騎>水熊貓普攻火死騎>暗南瓜普攻火死騎>暗南瓜普攻火死騎>水雷帝3技風熊貓>水馬變為人型態2技>水熊貓2技>暗南瓜2技>水雷帝3技風熊貓>水馬人型態普攻水撒旦>暗南瓜普攻風熊貓>水馬人型態+水雷帝普攻收下

第十九關：

水羅2技火吸>火伊2技光曼>光卡普攻光術士>火偷2技光曼>水羅3技火吸>火偷普攻風狂>火伊普攻光術士>光卡普攻風狂>火偷普攻光曼>水羅普攻火吸>火偷2技風狂> 火伊普攻風狂>光卡普攻風狂>水羅2技風狂>火伊2技光術士>火偷跟光卡普攻光術士>水羅3技光術士

第二十關:

火樹妖2技火神秘>水樹妖3技水死神>火小仙3技>水樹妖2技火死神>火小仙2技水死神>水樹妖普攻水死神>水樹妖普攻或3技火死神

第二十一關

水魔導2技>水巫3技>火神偷2技暗牛>水魔導普攻暗牛>火神偷普攻暗牛>水巫2技暗撒旦>火神偷2技暗伯爵>水魔導普攻暗撒旦>水巫普攻暗伯爵>火神偷普攻暗伯爵>火神偷2技暗伯爵>水魔導普攻/2技暗撒旦

第二十二關

風殺戮者3技風派>暗魔導2技>水鳥2技暗魔導>暗魔導普攻光龍騎>風貓2技暗伊>風殺戮者2技水霍爾>暗魔導普攻風派>水鳥普攻光龍騎>風殺戮者普攻風派>風貓普攻水霍爾>暗魔導2技

AZ疫苗施打後身體反應紀錄

因為很多新聞包含一些朋友說打疫苗會不舒服，因此做了一下紀錄，看看不舒服的程度到什麼狀況，後來整個狀況感覺很輕微 (難道我老了抵抗力比較差??)。

我紀錄了溫度、心跳及血壓，因為以前感冒比較嚴重時有發現血壓升的特別高，那時頭很痛，因此打疫苗後除了注意溫度我也用血壓計測量。

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施打疫苗紀錄