2022年5月31日 星期二

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

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

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

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

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

下載



2022年5月26日 星期四

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

 節錄MACY'S  財報一段話





存貨增加17%.... QQ

簡報版:



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


2022年5月23日 星期一

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年5月22日 星期日

周版,指數紀錄(2022.05.22)


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

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

下載




2022年5月18日 星期三

2022年5月15日 星期日

股票:極品編號2

 營收


財務









股票:極品編號1

5/15晚上整理 

營收:

不錯!成長好

財務面:

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


現金差點

原來!!

籌碼:

集保:
大戶賣4周了1.3萬張


誰接走了?
本益比更新



















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

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

下載

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

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



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







2022年5月14日 星期六

2022年5月11日 星期三

一點房市看法(2022.05.12)

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

2.房子供給量持續增加

3.房貸利息增加速度

4.房子漲價速度

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

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

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

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

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



周版,指數紀錄(2022.05.07)

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

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



2022年5月8日 星期日

一點經濟面局勢看法紀錄(2022.05.09)

試分析目前局勢如下:

金融:台幣28.3跌到29.75跌掉5%等於台灣升息打通膨效果全沒。

其二台幣貶值買國外東西又要再貴,等於製造業成本上升

然後對台灣製造來說航運成本大漲,無法轉嫁。

第一個小結論,本身股市金融股已無升息利基點支撐。

第二個結論 電子血流成河:

都死一大片了,因為中國供應鍊問題,PCB電路板上少東西就是不能出貨阿,TSMC再強,有本事你自己印電路板  XD

傳產沒展望:石油大漲能源效應以及通膨緊縮開始

所有原物料全跟著漲,除了石化"產業"自動化程度高,人力成本結構的改變,以及疫情影響(常態性請假人員應該會佔企業營運的15%人力)。

通貨緊縮:

這部分我參考美國麥當勞跟亞馬遜財報,利潤增加速度低於成本增加速度。

台灣是出口導向,這局勢很險峻。


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))

執行結果

如何不重複產生呢!!
就每次產生完再檢查一次已產生的,重複就再次產生即可









2022年5月7日 星期六

股票:集保庫存變化,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)


簡單分享



2022年5月5日 星期四

巧合???? BDI 好棒棒

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

BDI V.S 鐵礦石

巧合程度有多高?
可惜我最近都收不到鐵礦石原始資料不然可以做做分析。
BDI圖來自小弟BLOG分享的EXCEL
工具更新資料後的結果。



數字統計:20240223

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