指數變化(2023.12.08)
自己整理給自己勘，不作為投資理財參考
REVIEW上周紀錄：
上期 本期
美國密西根大學信心指數 61.3 69.4
美國首次申請失業救濟人數 219 220
美國ISM非製造業採購經理人指數 51.8 52.7
美國30年期房貸利率 最高 7.9 7.17
美國非農業就業人數變化 297 150
本周指數：
未來一周：
美國消費者物價指數年增率
美國消費者物價指數月增率
美國核心CPI年增率
美國聯邦基金利率
2023年12月9日 星期六
2023年12月5日 星期二
2023年12月4日 星期一
vba陣列 不連續寫入大量資料技巧
說明一次寫入與copy 方式時間差距：
Sub CommandButton1_Click()
Debug.Print "陣列大量資料寫入"
t = Timer
DD = ActiveSheet.Range("A1:E1337")
Debug.Print "資料筆數" & Application.CountA(DD)
Sheets(2).Range("A1:E1337") = DD
Debug.Print "花費時間" & Timer - t
Debug.Print "copy 資料寫入"
t = Timer
ActiveSheet.Range("A1:E1337").Copy Sheets(2).Range("A1")
Debug.Print "花費時間" & Timer - t''
DD = Array(1, 2, 3)
ActiveSheet.Range("h1:j1") = DD
Debug.Print "一維陣列不支援不連續"
ActiveSheet.Range("h3,i3,l5") = DD
End Sub
資料分散時怎辦?
用FOR EACH IN，於不連續儲存格寫入技巧，解說SET物件的技巧
Sub 寫入陣列到儲存格a()
Dim 資料陣列 As Variant
Dim i As Integer
' 將資料存入陣列
資料陣列 = Array(1, 2, 3)
' 將設置 range 物件
Set myrange = ActiveSheet.Range("a1,b3,a10")
i = 0
For Each a In myrange
ActiveSheet.Range(a.Address).Value = 資料陣列(i)
i = i + 1 '
Next
End Sub
2023年12月2日 星期六
2023年11月28日 星期二
2023年11月25日 星期六
周指數變化(2023.11.24)
指數變化(2023.11.24)
自己整理給自己勘，不作為投資理財參考
REVIEW上周紀錄：
前期 本期
臺灣外銷訂單年增率 臺灣外銷訂單11/20 -15.6 -4.6
臺灣貨幣供給額M1B(期底)年增率 11/24 3.33 3.03
美國首次申請失業救濟人數 11/23 209 233
美國耐久財訂單月增率 11/22 4.0 -5.4
美國芝加哥FED景氣指數 11/21 -0.49 -0.02
美國30年期房貸利率 11/22 7.61 7.41
本周指數：
表1.周表現整理
漲幅似乎已不如前幾週了，要注意摟
未來一周重要大事：
美國消費者信心指數 11/28
美國M2貨幣供給額年增率 11/28
美國首次申請失業救濟人數 11/30
美國個人所得月增率 11/30
美國芝加哥採購經理人指數 11/30
中國製造業採購經理人指標(PMI) 11/30
訂閱：
文章 (Atom)
etf：我很弱，才10%不到
20261005 紀錄，今年度透過自主開發的演算法，做個小紀錄，之前我的雷達紀錄關閉了，用低調的方式作紀錄，看懂就看懂，單純紀錄；目前美國雷達開始上線測試。 我與ai互動： 問：0050 我今年 9.5%年報酬 006208 9.98%年報酬，你覺得? ai： 我覺得成績不錯，...
-
美國實質可支配所得 利率與黃金 消費者信心 利率PK DW PK FED紐約分行 上海貨櫃指數 BDI CRB 美國m 1 m2 s&p 美國 非農 美國 非農就業職務空缺率 美國股市 行事曆 fomc 會議紀要與開會時間 全球股市行事曆 全球股市 巴菲特指數 外...
-
流程(IPO) ：Input、Process、Output 流程：一個流程，只要具備有輸入(INPUT)、處理(PROCESS)與輸出(OUTPUT)，即可稱為IPO，各流程IPO的掌握不論是在製造業、服務業應用，其實道理都是相同的，應用在程式設計上，更是如此，解析出各流程IP... -
寫給自己速查 垂直屬性：HorizontalAlignment 水平屬性：VerticalAlignment 置中：xlCenter 靠左靠右：XLLEFT、XLRIGHT Sheets("工作表1").Range("m2").Ve...