產業別當沖比2022/05/03~2022/05/31

 產業別當沖比2022/05/03~2022/05/31

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

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

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

下載

節錄MACY'S 財報一段話(2022.Q1；2022.05.26)

 節錄MACY'S  財報一段話

存貨增加17%.... ＱＱ

簡報版：

營業額增加642(成長13.64%)，毛利率增加300(增加16.5%)毛利率相對於營業收入由38.6增加到39.6%，行政費用增加131(增加7.49%)

Excel：sumproduct 加總計算指數漲跌幅與天數

最近思考加總指數在周一到周五間指數漲跌幅，作機率計算，但為了這目的，寫程式有點殺雞用牛刀，所以excel 是我們的好朋友，來用用sumproduct函數。

圖1.

練習麻煩自下資料：資料下載BY YAHOO HISTORICAL 

資料長這樣，分別來計算不同工作日漲跌天數與漲跌幅加總。

接下來透過漲跌幅(c行)跟工作日(d行)作sumproduct運算

工作表資料說明：A行日期、B行指數、C行漲跌幅、D行工作日(周一到周五)

語法與相關設定提醒 微軟'S 參考：sumproduct()

簡易版說明：

簡單來說就是，SUMPRODUCT可以設定多組引述，各引數自由設定條件，再將各引數滿足條件的資料作相乘後再加總。

回到男主角"指數整理"，小編想要知道周一到周五那幾天特別容易跌(還真是天馬行空的想法)

以及漲幅多少，怎作呢!!

圖2.設定參照

SUMPRODUCT 數量(跌)：

第一條件判斷漲跌幅<0的部分，再來判斷工作日，小編P行放工作日，最後是計算數量

=SUMPRODUCT((C$3:C$100<0)*1,(D$3:D$100=P3)*1,(D$3:D$100))/P3

延伸，如果是漲<0改為>0即可!!!

怪了為何要最後在除???因為加總工作日等於是工作日如果是5，就是5+5+5+5+5+5+5+5+5+.....因為這樣子，所以要除以工作日等於單純天數加總

SUMPRODUCT  指數：

第一條件判斷漲跌幅<0的部分，再來判斷工作日，小編P行放工作日，最後是計算指數加總

=SUMPRODUCT((C$3:C$100<0)*1,(D$3:D$100=P3)*1,(C$3:C$100)*1)

                                 

圖3.完成品示意圖

周版，指數紀錄(2022.05.22)

 以周為單位整理指數資料。

簡單資料整理，應該沒法作為任何行為依據吧，以及千萬不要昨為投資依據。

下載

傳說中的集保，大股東減持代表作(金鈺其中)

 整理資料發現的：

不作為投資理財參考。

 集保變化：圖由左而右為最新到最舊。

股票紀錄：稅後淨利連3增，6

 紀錄給自己看當提醒

傳說中的集保，大股東減持代表作(一閃一閃亮晶晶)

 整理資料發現的：

圖由左而右為最新到最舊。

不作為投資理財參考。

股票：極品編號2

 營收

財務

股票：極品編號1

5/15晚上整理 

營收：

不錯!成長好

財務面：

Q1連3年增，且比上季度好

現金差點

原來!!

籌碼：

集保：

大戶賣4周了1.3萬張

誰接走了?

本益比更新

存貨營收比分析(111.5.15整理)

  存貨營收比整理，數字小表示持續下滑，下滑表示存貨佔營收越來越低

下載

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

P.S 還差幾百檔等待資料更新中

5/16 更新，還差這幾家但存貨營收比資料已更新。

半導體產業股票營收整理：110/01~111/04

亂整理不作為投資參考

 

股票：總營收月變化(2021/01~2022/04)

 股票：總營收月變化(2021/01~2022/04)

正在思考4月份是我資料錯了，還是看錯了。

反正亂整理，別當投資理財依據

產業股票營收整理：110/01~111/04

 上個月沒整理，趕緊來練功。

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

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

延伸半導體

一點房市看法(2022.05.12)

1.人口增加速度越來越低

2.房子供給量持續增加

3.房貸利息增加速度

4.房子漲價速度

以上4點做小小的我一點看法：

很多電視台都說"人口增加速度越來越低"，房子未來一定越來越便宜，經過幾年觀察，過去台灣錢太好借，借錢買股買房時有所聞，所以"人口增加速度越來越低"此一觀點似乎隨時間推移跟買房政策下，似乎被淡化了。

"房子供給量持續增加"未來會便宜，話說政府這幾年都更出來收土地跟賣土地給建商，有便宜賣過? 自由心證，不予置評。

"房貸利息增加速度"我覺得這個似乎衝擊很大，我曾聽過鄰居分享一個故事，且是真實故事，一對夫妻買3間房子，下班還去擺地攤爭錢，沒聽過在休息的拉，雖然這幾年有疫情，但這是我5年前聽到的故事，人家房子賣掉來度日都爽爽過了，還想酸人家!!!不不不；我想表達的是因為房子價格在當年上漲速度很快阿，真的這樣願意打拼的人，是有的(所以我是魯蛇當年領少少不敢衝)。

小結：房貸利息增加速度>如果房子上漲速度 跟房貸利息增加速度<如果房子上漲速度 小編覺得是影響市場投資客持續炒房跟持有物件的分水嶺。

周版，指數紀錄(2022.05.07)

 以周為單位整理指數資料。

簡單資料整理，應該沒法作為任何行為依據吧，以及千萬不要昨為投資依據。

原物料 商品價格快速連結

紙漿 

https://finance.sina.com.cn/futures/quotes/SP0.shtml

硫酸鉀

http://yte1.com/datas/liusuanjia-pri

尿素

https://finance.sina.com.cn/futures/quotes/UR0.shtml

玉米

https://finance.sina.com.cn/futures/quotes/C0.shtml

鐵

https://finance.sina.com.cn/futures/quotes/I0.shtml

鎳：

https://finance.sina.com.cn/futures/quotes/NI0.shtml

https://finance.sina.com.cn/futures/quotes/NID.shtml

乙二醇

https://finance.sina.com.cn/futures/quotes/EG0.shtml

PTA：

https://finance.sina.com.cn/futures/quotes/TA0.shtml

布伦特原油CFD：

https://finance.sina.com.cn/futures/quotes/OIL.shtml

WTI纽约原油CFD：

https://finance.sina.com.cn/futures/quotes/CL.shtml

豆油(

棕榈油

天然橡膠

https://finance.sina.com.cn/futures/quotes/RU2401.shtml

SM

https://finance.sina.com.cn/futures/quotes/EB0.shtm

伦锌CFD

https://finance.sina.com.cn/futures/quotes/ZSD.shtml

天然橡膠：

https://finance.sina.com.cn/futures/quotes/RU0.shtml

鋼鐵股先行指標：

热轧卷板

https://finance.sina.com.cn/futures/quotes/HC0.shtml

https://www.macromicro.me/charts/906/commodity-hot-rolled-steel

BDI：

https://stockq.org/index/BDI.php#google_vignette

 abs

https://fubon-ebrokerdj.fbs.com.tw/z/ze/zeq/zeqa_D0130041.djhtm

石化綜合

https://just2.entrust.com.tw/z/zh/zhg/zhg_C013990.djhtm

EVA 台塑吹膜級

https://fubon-ebrokerdj.fbs.com.tw/z/ze/zeq/zeqa_D0130890.djhtm

VBA：作作亂數也可以當序號產生器玩玩

要產生亂數，在EXCEL中，可以用亂數的函數RND或RANDBETWEEN來產生，

在VBA中其實也可以依樣畫葫蘆作出亂數的效果。

來看看~~

例如想做一個"數字組合-英文字母-數字組合"的流水號(序號)

怎搞呢!!

EXCEL亂數函數RandBetween，可透過設定資料上下限來界定亂數資料範圍。

ASC碼則是可以透過數字控制要出現數字或英文字母。

CHR函數則是輸入ASC碼來產生資料。

程式碼：

A = WorksheetFunction.RandBetween(1, 9) & WorksheetFunction.RandBetween(1, 9) & "-" &   CHR(WorksheetFunction.RandBetween(65, 90)) & Chr(WorksheetFunction.RandBetween(65, 90)) & "-" &  Chr(WorksheetFunction.RandBetween(65, 90)) & Chr(WorksheetFunction.RandBetween(65, 90))

執行結果

如何不重複產生呢!!

就每次產生完再檢查一次已產生的，重複就再次產生即可

股票：集保庫存變化，400張合併分析(2022/05/06)

   僅供參考不作為投資理財規劃。

股票：外資投信持股變化(2022/05/6)

   僅供參考不作為投資理財規劃。

VBA：工作表 名字 命名 (SHEETS(XXX).NAME)

 簡單例子簡單分享

另外一篇教學中提到新增工作表

今天也會用到歐，但我們先來看看NAME這屬性，此一屬性可以透過等號(=)來取得跟設定歐

A=SHEETS(1).NAME

A變數中透過等號取得等號右手邊的第一張工作表的名稱屬性。

P.S SHEETS(1)表示第一張工作表的意思

相反：SHEETS(1).NAME=A

第一張工作表名稱設定為A變數的儲存結果(A可能儲存1 也可以是文字，但有符號會出現NAME屬性的物件錯誤)

透過儲存格方式命名工作表：

SHEETS(1).NAME=SHEETS(1).RANGE("A1")

執行此行後，即可以將A1儲存格的資料當作名稱用來重新寫入資料來重新設定NAME屬性了。

很簡單吧!!!

組合一下新增工作表的方法做應用

    sheets.Add AFTER:=sheets(sheets.Count)

    sheets(sheets.Count).Name = Sheets("工作表1").Range("F5")

先新增一張工作表到最後的位置，然後根據工作表1的F5儲存格用來重新命名最後一張工作表名稱。

簡單分享。

VBA：新增工作表、新增 X個工作表、控制新增工作表位置 ( Sheets.Add )

簡單例子

簡單分享

MSDN一下

工作表此一物件，用於新增工作表的方法為ADD

以下來簡單練習一下ADD這個方法，以及其參數如何設定

1.新增工作表：

以下例子會產生一張空白工作表到該工作簿內工作表的最後

做一個ACTIVEX 命令按鈕

Private Sub CommandButton1_Click()

    sheets.Add AFTER:=sheets(sheets.Count)

END SUB

2.延伸一下：

如何產生10張空白工作表呢!!!!

簡單，我們來組合迴圈做操作。

小編組合FOR迴圈做操作：

Private Sub CommandButton2_Click()

    For I = 1 To 10 Step 1

        Sheets.Add AFTER:=Sheets(sheets.Count)

    Next I

End Sub

FOR迴圈會重複執行10次!!!簡單八

3.控制新增工作表的位置

例子1內有AFTER參數，以及使用了sheets.Count這個屬性

試想想一下總工作表可以透過Count屬性取得，新增一張工作表在總工作表數量的之後，不就是

新增一張工作表到工作表的最後嗎?很抽象，想像一下。

我們來應用一下怎控制位置，透過BEFORE、AFTER

BEFORE：產生工作表在現有第一張工作表之前

Private Sub CommandButton3_Click()

    sheets.Add BEFORE:=sheets(1)

END SUB

BEFORE：產生工作表在現有第一張工作表之後

Private Sub CommandButton4_Click()

    sheets.Add AFTER:=sheets(1)

END SUB

SHHETS(1)表示位置1的工作表

如果你要產生一張工作表在第七張工作表之前或之後改改數字即可。

應用NAME屬性

試想，每一張工作表都要數位置，很累說，都知道名稱了，就透過名稱來取的位置八

可以透過INDEX跟ITEM屬性的組合作操作歐，這裡用到2個屬性，有點小難，但多練習就駕輕就熟了

sheets.Add BEFORE:=sheets.Item(Sheets("工作表5").Index)

簡單分享

巧合???? BDI 好棒棒

僅供參考不作為投資理財依據歐

BDI V.S 鐵礦石

巧合程度有多高?

可惜我最近都收不到鐵礦石原始資料不然可以做做分析。

BDI圖來自小弟BLOG分享的EXCEL

工具更新資料後的結果。

大盤統計漲跌幅(2022.01~2022.04)

 簡單資料整理，不作為投資理財依據。