2023年2月25日 星期六

產業別當沖比2023/02/01~2023/02/24

 產業別當沖比2023/02/01~2023/02/24

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

資料分類:根據公開觀測站營收資料的產業分類 

藍色是交易張數;紅色是當沖



神秘數字研讀 產業別

 紀錄


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

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

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

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





2023年2月20日 星期一

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

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

但也太多巧合了。


整理資料要紀:
例如台gg如果有4周下滑,那程式在跑得時候就會用4周的變化去計算。

計算結果 xd:




2023年2月19日 星期日

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







2023年2月10日 星期五

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

 

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

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

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





2023年2月7日 星期二

懶懶教學文: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




數字統計:20240223

成交量大  漲幅大 統計: 演算法模擬: