類股指數整理 2023.12.15

 類股指數整理 2023.12.15

指數變化(2023.12.17)

   指數變化(2023.12.17)

自己整理給自己勘，不作為投資理財參考

REVIEW上周紀錄：

                                              上期 本期

美國消費者物價指數年增率 3.23 3.12

美國消費者物價指數月增率 0.2    0.3

美國核心CPI年增率 3.99 3.91

維持：

美國聯邦基金利率 5.25~5.55

本周指數：

未來一周：

美國消費者信心指數

美國連續申請失業救濟人數

VBA+ACCESS OLEDB 除錯(Microsoft.Jet.OLEDB) VBA ERROR NUMBER 3706

小編沒錢買ACCESS，以前也還沒學會用SQL，所以自己種的瓜，要自己吃；最近開啟舊的應用，發現OLED太慘了，跳出ERROR，就努力一下，做個小升級，不是升級SQL，是升級元件。

做個升級紀錄與分享。

主文：

? ERR.Description

找不到提供者。它可能未被正確安裝

解決方案：

安裝以下元件：

https://www.microsoft.com/zh-tw/download/details.aspx?id=13255

再把原VBA語法做升級：

原：cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" 

新：cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source="

一切都是美妙的體驗，讚啦

錯誤與正常動畫：

和廣路

 

總營收資料整理(109/01~112/11)

  總營收資料整理(109/01~112/10) 

簡單整理的資料，作分享。

.

VBA 入門篇：刪除儲存格並移動 RANGE DELETE

 MSDN

語法很簡單，指定儲存格位置(RANGE(XXXXX))，然後使用DELETE，再設定參數。

參數：SHIFT:=xlUp    與SHIFT:=xlToLeft    來控制移動方向

Private Sub CommandButton1_Click()

    Debug.Print "刪除3到4列，向上移"

    ActiveSheet.Rows("3:4").Delete SHIFT:=xlUp    

    Debug.Print "刪除BC行，向左移"    

    ActiveSheet.Range("B:C").Delete SHIFT:=xlToLeft     

    Debug.Print "刪除B1 C1 F1 儲存格"     

    ActiveSheet.Range("B1,D1,F1").Delete SHIFT:=xlToLeft    

End Sub

股票：數量統計

如果看這張，能有決策別鬧了，那也是你右手配合你大腦思考後的結果。