2024年8月31日 星期六

指數變化(2024.08.30)

      指數變化(2024.08.30)

上周焦點:

    美國就業 4.3%

    日本17年來首次升息半碼   

    美國生產者物價指數月增率 8/13 0.1%

    美國生產者物價指數年增率 8/13 2.74%

    美國消費者物價指數年增率 8/14 2.9%

    美國消費者物價指數月增率  8/14 0.2%

    美國密西根大學信心指數 8/ 16  up 67.8

    美國耐久財訂單月增率 8/27 9.9% up

    美國芝加哥採購經理人指數 8/29 46. 1 up

     美國首次申請失業救濟人數 8/28 23.1萬人下滑

本周愛看:

美國房貸綜合指數 9/4

美國失業率 9/6

美國非農人數就業人數 9/6

 本周指數變化:


本周台股似乎有逃不掉nvda影響的宿命


指數趨勢:







營業利益:某檔化工股

 自己整理給自己勘








2024年8月24日 星期六

指數變化(2024.08.23)

     指數變化(2024.08.23)

上周焦點:

    美國就業 4.3%

    日本17年來首次升息半碼   

    美國生產者物價指數月增率 8/13 0.1%

    美國生產者物價指數年增率 8/13 2.74%

    美國消費者物價指數年增率 8/14 2.9%

    美國消費者物價指數月增率  8/14 0.2%

    美國密西根大學信心指數 8/ 16  up 67.8

本周愛看:

美國耐久財訂單月增率 8/27
美國芝加哥採購經理人指數 8/29
美國首次申請失業救濟人數 8/28


 本周指數變化:

日股上漲3300多點ㄝ,台灣這兩周下來反而漲最少。


指數趨勢:






我的雷達:2024/08/23

真真假假,假假真真, 一切勘演算法




2024年8月18日 星期日

我的雷達:2024/08/19

 增加一條線0050走勢(淺藍)

自己話給自己看,我僅能控制自己買0050,別亂入亂跟風。


VBA:如何檢查各行資料數量是否一致(非連續資料)

例子長這樣:

 





編寫一個vba如下:

 Private Sub CommandButton1_Click()

Set my_range = ActiveSheet.Range("a1:C1")

For Each a In my_range 

IF A.VALUE<>"" THEN   

    temp1 = Split(a.Address, "$")   

    s1 = Application.CountA(ActiveSheet.Range(temp1(1) & ":" & temp1(1)))    

    MsgBox temp1(1) & "行" & s1 - 1 & "筆" & "資料"

END IF 

Next

End Sub

運作:


2024年8月17日 星期六

我的雷達:2024/08/16

 

未來怎走,我也不知道,當作練習畫圖,自己畫給自己勘。


更新:

這波有人AI了馬?






指數變化(2024.08.16)

    指數變化(2024.08.16)

上周焦點:

    美國就業 4.3%

    日本17年來首次升息半碼   

    美國生產者物價指數月增率 8/13 0.1%

    美國生產者物價指數年增率 8/13 2.74%

    美國消費者物價指數年增率 8/14 2.9%

    美國消費者物價指數月增率  8/14 0.2%

    美國密西根大學信心指數 8/ 16  up 67.8

本周愛看:


 沒啥好刊的,但中東似乎準備停火了

 本周指數變化:



指數趨勢:



指數變化(2024.09.27)

   指數變化(2024.09.27) 上周焦點:      美國房貸綜合指數 9/4     美國失業率 9/6 4.2%     美國非農人數就業人數 9/6 14200      美國核心CPI年增率 9/11 降 2.5%      美國消費者物價指數月增率 9/11 月...