River's Footmar And Note: 6月 2021

2021年6月29日星期二

股票：營業利益率分析(2021.1Q)

根據股票：營收數字連6正成長產業別整理(110/05)一文簡單整理，做財務面分析：

分析說明：營業利益率成長，當本季比上季數字上有成長，則+1，上季在與上上季比仍為成長在加1，以此類推則-1表不成長，也就是會計標示的()數字；當數字已+1了，遇到負數時，則停止分析。

整理摘要幾個產業來推敲

食品工業：

塑膠工業：

紡織纖維：

鋼鐵工業：

橡膠工業：

😅😅😅胡亂整理。

似乎分析後的數字越大，走勢越挺，剛好整理這篇資料時，最右手邊的缺口是大跌1700點的缺口；走勢僅截圖30天的走勢做整理。

資料若有匡誤在海涵。

股票：營收數字連6正成長產業別整理(110/05)

很重要!!!不作為投資理財參考歐。

小編自己根據手上資料，簡單作一些整理。

整理要點：

累積營收年增率大於20%

月年增率大於10%

連續6個月年增率為正成長

p.s 生技、金融、金控、金融保險、建材營造等未計入。

資料來源：公開觀測站。

圖1.

以下簡單摘要幾個產業：

圖2.

圖3.

圖4.

圖5.

圖6.

圖7.

圖8.

圖9.

圖10.

圖11.

圖12.

2021年6月25日星期五

VBA：自動畫圖(省時省力)

前一篇文中，最後提到畫出圖，觀察整體趨勢，但小編實在太廢了，所以小編決定連畫圖也自動化。

VBA CODE：

	Sub INCOME_trend_BY_MONTH()
	Set OUT = Sheets("OUT")

	S1 = Sheets("OUT").Range("z2000").End(xlUp).Row

	S2 = Sheets("OUT").Range("Aa2000").End(xlUp).Row

	Tag = Sheets("OUT").Range("Z1:Z" & S1)

	Tag = WorksheetFunction.Transpose(Tag)

	DATAA = Sheets("OUT").Range("AA1:AA" & S2)

	DATAA = WorksheetFunction.Transpose(DATAA)

	FIRST = 找重複值的位置("OUT", DATAA(LBound(DATAA)), 0, 0, "B:B")

	LAST = 找重複值的位置("OUT", DATAA(UBound(DATAA)), 0, 0, "B:B")

	For I = LBound(Tag) - 1 To UBound(Tag) Step 1

	TEMP1 = Split(FIRST(I), "$")

	TEMP2 = Split(LAST(I), "$")

	If LAST(I) = "" Then

	Exit For

	End If

	Set rngSourceData = OUT.Range("E" & TEMP1(2) & ":" & "E" & TEMP2(2))

	Set rngXValues = OUT.Range("B" & TEMP1(2) & ":" & "B" & TEMP2(2))

	If I Mod 2 = 0 Then

	Set MYCHART = OUT.ChartObjects.Add(Left:=OUT.Columns("AB").Left, Width:=320, Top:=OUT.Rows(1 + (I) * 8).Top, Height:=240)

	OUT.Range("AB" & 2 + (I) * 8).Activate

	Else

	Set MYCHART = OUT.ChartObjects.Add(Left:=OUT.Columns("AI").Left, Width:=320, Top:=OUT.Rows(1 + (I - 1) * 8).Top, Height:=240)

	OUT.Range("AI" & 2 + (I - 1) * 8).Activate

	End If

	With MYCHART.Chart

	.ChartType = xlColumnClustered
	.SetSourceData Source:=rngSourceData, PlotBy:=xlColumns
	.HasTitle = True
	.ChartTitle.Text = Tag(I + 1)
	.SeriesCollection(1).XValues = rngXValues
	.ChartGroups(1).GapWidth = 10
	.Legend.Delete


	.PlotArea.Left = 1
	.PlotArea.Top = 0.527
	.PlotArea.Width = 300
	.PlotArea.Height = 292.869

	End With

	With MYCHART.Chart

	'.SeriesCollection(1).ChartType = xlColumnClustered

	With .SeriesCollection(1).Format.Fill

	.Visible = msoTrue

	.Visible = msoTrue
	'.InvertIfNegative = True
	.ForeColor.RGB = RGB(79, 129, 189)
	.Transparency = 0

	MYCHART.Chart.SeriesCollection(1).InvertIfNegative = True

	MYCHART.Chart.SeriesCollection(1).InvertColor = RGB(255, 0, 0)

	.Solid

	End With

	If CheckBox1 = True Then

	newHour = Hour(Now())
	newMinute = Minute(Now())
	newSecond = Second(Now()) + 1
	waitTime = TimeSerial(newHour, newMinute, newSecond)
	Application.Wait waitTime

	.Export Filename:=ThisWorkbook.Path & "\" & "X" & ".jpg", Filtername:="JPG"

	Call Line傳讀圖與訊息(ThisWorkbook.Path & "\" & "X" & ".JPG", Format(Now(), "HH:MM"))

	End If

	End With

	Next

	End Sub

view raw gistfile1.txt hosted with ❤ by GitHub

大概要點：

主要是透過關鍵字查詢相同關鍵字重複位置的作法來設定走勢圖資料來源。

每張圖自動控制位置。

每圖調整一下X軸的尺規資料與繪圖區圖型尺寸，然後設定"負值資料以補色顯示"尺規，然圖型具備兩種顏色。

最後為了有利於圖型的分享，加碼增加了一個LINE自動傳圖功能，讓我好分享資料 XD。

結果

有大神問資料長怎樣，補圖當參考

2021年6月24日星期四

VBA：透過SUMPRODUCT，來分析產業別營收年增率走勢圖

我必須要說，這不是最好，但卻是最方便的做法，對於不熟悉陣列用法的朋友來說，也是一個可以解決問題的做法。

用法：SUMPRODUCT、FORMULA

一、發想：

圖4.

大致上想法是這樣，滿足資料整理好，也好閱讀的想法。

二、原始資料：參圖1. 小小編自己抓下來已預先整理成這樣了

圖1.原始資料

三、期望結果：參圖2.；小編心想透過產業別跟月份掌握營收變化，先簡單模擬一下。

圖2.期望結果

四、實作：

4.1 SUMPRODUCT 公式驗證：

小編在C2儲存格中做如下公式編輯：

= SUMPRODUCT((產業別="水泥工業")*(月份="109/04"),當月營收)

P.S產業別、月份、當月營收等行別要預先做"定義名稱"的設定歐

圖3.

說明：紅框圍比對的字串

4.2 開始來動手做VBA自動化：

規劃：

圖4.

4.3 vba code：作一個按鈕放入以下內容。


	Application.ScreenUpdating = False
	Application.DisplayStatusBar = False
	Application.Calculation = xlCalculationManual
	Application.EnableEvents = False

	S1 = Sheets("OUT").Range("z2000").End(xlUp).Row

	S2 = Sheets("OUT").Range("Aa2000").End(xlUp).Row

	Tag = Sheets("OUT").Range("Z1:Z" & S1)

	Tag = WorksheetFunction.Transpose(Tag)

	DATAA = Sheets("OUT").Range("AA1:AA" & S2)

	DATAA = WorksheetFunction.Transpose(DATAA)

	TOPIC = Array("產業別", "月份", "當月營收", "去年當月營收", "年增減(%)")

	Sheets("OUT").Range("A1:E1") = TOPIC

	For I = LBound(Tag) To UBound(Tag) Step 1

	S3 = Sheets("OUT").Range("A10000").End(xlUp).Row

	For J = LBound(DATAA) To UBound(DATAA) Step 1


	Sheets("OUT").Range("A" & J + S3) = Tag(I)

	Sheets("OUT").Range("B" & J + S3) = DATAA(J)

	Sheets("OUT").Range("C" & J + S3).Formula = "= SUMPRODUCT((產業別=" & Chr(34) & Tag(I) & Chr(34) & ")*(月份=" & Chr(34) & DATAA(J) & Chr(34) & "),當月營收)"

	Sheets("OUT").Range("C" & J + S3).Calculate

	Sheets("OUT").Range("D" & J + S3).Formula = "= SUMPRODUCT((產業別=" & Chr(34) & Tag(I) & Chr(34) & ")*(月份=" & Chr(34) & DATAA(J) & Chr(34) & "),去年當月營收)"

	Sheets("OUT").Range("D" & J + S3).Calculate

	Sheets("OUT").Range("E" & J + S3).Formula = "=(C" & J + S3 & "-D" & J + S3 & ")/D" & J + S3

	Sheets("OUT").Range("E" & J + S3).Calculate

	Next J

	Next I

	S3 = Sheets("OUT").Range("A10000").End(xlUp).Row

	Sheets("OUT").Range("A2:E" & S3).Copy
	Sheets("OUT").Range("A2").PasteSpecial xlPasteValuesAndNumberFormats

	Application.ScreenUpdating = True
	Application.DisplayStatusBar = True
	Application.Calculation = xlCalculationAutomatic
	Application.EnableEvents = True