神秘數字研讀 產業別

 紀錄

股票：集保庫存變化，400張合併分析(2023/02/24)

股票：集保庫存變化，400張合併分析(2023/02/24) 

資料整理僅供參考，不作為投資理財依據。

目前資料股票家數為1784家的原始資料。

集保分析紀錄，怎都有半導體阿(2023.02.18)

 自己做給自己看的紀錄，不作為投資理財依據參考。

但也太多巧合了。

整理資料要紀：

例如台gg如果有4周下滑，那程式在跑得時候就會用4周的變化去計算。

計算結果 xd：

VBA：懶人畫圖法 (使用Shapes 物件、AddChart方法、ChartArea與SeriesCollection物件等)

 有多懶，設定資料來源，尺標來源後，就可以畫圖了，就是這樣懶。

1.首先資料長這樣，目標為a與b行

2.設定程式碼：

    X_VALUE、Y_VALUE

               SET  X_VALUE= ActiveSheet.Range("A1:A10") '設定這裡為x軸

                SET  Y_VALUE= ActiveSheet.Range("B1:B10")   '設定這裡為y軸    

3.插入以下CHART_DO的code，例如，作一個按鈕如下。

4.副程式：

SUB CHART_DO()

temp1 ="TEST"

               SET  X_VALUE= ActiveSheet.Range("A1:A10") '設定這裡為x軸

                SET  Y_VALUE= ActiveSheet.Range("B1:B10")   '設定這裡為y軸             

                ymAXAX = Application.Max(Y_VALUE)

                yMINAX = Application.Max(Y_VALUE)

                 ActiveSheet.Shapes.AddChart.Select

                 Set ch = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)                

                 ch.Name = temp1                 

                 If ActiveChart.SeriesCollection.Count > 0 Then

                        ActiveChart.ChartArea.ClearContents                 

                 End If                 

                ActiveChart.SeriesCollection.NewSeries

                ActiveChart.SeriesCollection(1).Values = Y_VALUE

                 ActiveChart.SeriesCollection(1).ChartType = xlLine      '畫折線圖 圖形種類GOOGLE           

                ActiveChart.SeriesCollection(1).Name = temp1                

                ActiveChart.SeriesCollection(1).XValues = X_VALUE

     With ActiveSheet.ChartObjects(ch.Name).Chart.Axes(xlValue)

                         .MinimumScale = yMINAX 

                        .MaximumScale = ymAXAX 

                 End With

END SUB

'缺點，沒有控制位置 哈。

基本上就是先不管資料先新增一張圖，然後清除所有資料後，再來新增要的資料，繪製成圖。

周指數變化(2023.02.17)+4周變化

周指數變化(2023.02.17)+4周變化

自己看得紀錄，簡單整理不作為投資理財參考。

重點：

20臺灣外銷訂單年增率

20臺灣外銷訂單

21美國成屋銷售月增率

22德國商業氣候點

23美國首次申請失業救濟人數

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

24臺灣貨幣供給額M1B(期底)年增率

24美國個人支出月增率

24美國新屋銷售率月增率

很在意中國pmi(link macromicro )

股票：集保庫存變化，400張合併分析(2023/02/17)

 股票：集保庫存變化，400張合併分析(2023/02/17) 

資料整理僅供參考，不作為投資理財依據。

目前資料股票家數為1784家的原始資料。

集保+ VBA：10~400張、400~1000張應用(4個例子)

 一切僅在不言中，看圖就知道。

工商服務廣告：全自動化VBA工具自動繪製

例子：東

例子：聯

例子：台

例子：聯X

神秘數字研讀

 

112/01 營收創新高家數

 112/01 營收創新高家數

營收產業資料整理(108/01~112/01)

 營收產業資料整理(108/01~112/01) 

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

單純資料分享，不作為投資理財參考

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

 

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

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

單純資料分享，不作為投資理財參考。

懶懶教學文：VBA 抓上櫃收盤(vba+internetexplorer.application)

昨天學生朋友來問，因為時間有限，弄個簡易爬蟲給他玩玩，順便寫寫教學文，沒有很複雜。

標題為何寫懶懶得，因為沒太多內容。

溫馨提醒：尊重網路資源

msdn

參考網站：上櫃公開收盤資料："上櫃股票每日收盤行情(不含定價)"

元件：internetexplorer.application

工具：vba

工作表：temp合計1頁

Sub ie_surface_data()

            Set ie = CreateObject("internetexplorer.application") '引用

             With ie

            

                  .Visible = False

             

            Urla = "https://www.tpex.org.tw/web/stock/aftertrading/otc_quotes_no1430/stk_wn1430_result.php?l=zh-tw&d=112/02/07&se=AL&s=14,desc,0&o=htm"

     

                   .navigate Urla

                  

                  Do While .readyState <> 4 '等待網頁開啟

                   

                               Application.Wait DateAdd("s", 2, Now)

                               

                     DoEvents

                     

                  Loop

                      

                      .ExecWB 17, 2 'Select All

                      .ExecWB 12, 2 'Copy selection

                      Sheets("TEMP").Activate

                      Sheets("TEMP").Cells.Clear

                      Sheets("TEMP").Range("A1").Select

'處理資料

                      Sheets("TEMP").PasteSpecial Format:="HTML", LINK:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True

                      

                      End With

                                            

                      Exit Sub

                      

End Sub

周指數變化(2023.02.03)+4周變化

 自己看得紀錄，簡單整理不作為投資理財參考。

重點：2/10 美國密西根大學信心指數、2/8 美國蠆售存貨

到頂了沒?