River's Footmar And Note: 2月 2023

2023年2月25日星期六

產業別當沖比2023/02/01~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周變化

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

重點：

20臺灣外銷訂單年增率

20臺灣外銷訂單

21美國成屋銷售月增率

22德國商業氣候點

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

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

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

24美國個人支出月增率

24美國新屋銷售率月增率

很在意中國pmi(link macromicro )

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

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

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

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

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

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

例子：東

例子：聯

例子：台

例子：聯X

2023年2月13日星期一

神秘數字研讀

2023年2月11日星期六

112/01 營收創新高家數

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

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

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

2023年2月10日星期五

總營收資料整理(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

2023年2月5日星期日

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

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

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

到頂了沒?

訂閱：文章 (Atom)

2023年2月25日 星期六

2023年2月20日 星期一

2023年2月19日 星期日

2023年2月13日 星期一

2023年2月11日 星期六

2023年2月10日 星期五