Excel VBA工具應用篇-黃國華選股SOP
黃國華書中有列出明確的選股SOP，我們一般投資人可以利用一些小工具來協助我們選股，這邊用到的工具是Excel VBA、網站-撿股讚。
以下為製作過程，並附檔案。
步驟1.首先先列出選股條件
- 選出上市公司股價前40名與上櫃公司股價前30名。(投資人這部分可自行放寬或限縮)
- 丟棄掛牌不到2年的公司及KY股。
- 將過去四年內曾經產生虧損的公司剔除。
- 剔除在過去八季，單季營業利益率曾大幅度上下起伏與連續大幅度下滑的公司。
- 剔除過去三年累積自由現金流量為負數者。
- 最近三個月營收年增率至少要維持正數(嚴苛標準20%以上)
- 剔除過去三年曾辦理過現金增資的公司。
- 剔除市值50億元以下的公司。
- 剔除存貨周轉率連續下滑的公司。
- 剔除成交量過低的公司。
- 最近兩季EPS年增率為正
步驟2.打開撿股讚，在撿股區挑選我們需要的選股條件
日指標-股價、成交量
基本資料-發行張數
年指標-(年)每股稅後淨利(EPS)(元)、(年-1)每股稅後淨利(EPS)(元)、(年-2)每股稅後淨利(EPS)(元)、(年-3)每股稅後淨利(EPS)(元)、(年)來自營運之現金流量(百萬)、(年)投資活動之現金流量(百萬)、(年-1)來自營運之現金流量(百萬)、(年-1)投資活動之現金流量(百萬)、(年-2)來自營運之現金流量(百萬)、(年-2)投資活動之現金流量(百萬)
月指標-(月)營收年增率(%)、(月-1)營收年增率(%)、(月-2)營收年增率(%)
季指標-(季)每股稅後淨利(EPS)(元)、(季-4)每股稅後淨利(EPS)(元)、(季-1)每股稅後淨利(EPS)(元)、(季-5)每股稅後淨利(EPS)(元)
這邊有我選好的[連結]
步驟3.接著製作VBA將剛剛網址內容抓到我們的Excel
分頁名稱：資料更新、巨集名稱：資料更新，以下巨集內容
Sub 資料更新()
'
' 資料更新 巨集
'
Range("A2:V2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;https://stock.wespai.com/p/53098", Destination:=Range("$A$1"))
.RefreshStyle = xlOverwriteCells
.WebTables = "1"
.WebFormatting = xlWebFormattingNone
.Refresh 0
.Delete
Columns("A:V").Select
Selection.ColumnWidth = 8#
End With
End Sub
製作好如下：
步驟4.新增欄位
各項的公式
- 市值(億元)=股價*張數*1000/100000000
- 成交量可略過
- 自由現金流=(年)來自營運之現金流量(百萬)+(年)投資活動之現金流量(百萬)
- 3年累積自由現金流不為負=(我這邊較嚴苛，每年都要是正的才會顯示TRUE)公式=IF(AND(Y2>0,Z2>0,AA2>0), "TRUE")
- 最近3個月合併營收年增率20%=(P3+Q3+R3)/3
- 最近3個月合併營收年增率不為負=IF(AND(P2>0,Q2>0,R2>0), "TRUE")
- 本季年增率=(S2-T2)/T2
- 前一季年增率=(U2-V2)/V2
- 兩季為正=IF(AND(AE2>0,AF2>0),"TRUE")
- 4年內不虧損=IF(AND(F2>0, G2>0, H2>0, I2>0),"TRUE")
步驟5.可以用篩選的方式選股
我會另外再開新分頁，用VLOOKUP的方式將資料抓到新分頁後篩選，畫面會比較簡潔，另外可以自行加入公司的產業、掛牌日、上市櫃等資訊
步驟6.最後檢視
3年內現金增資、存貨周轉率下滑、應收帳款周轉率不連續下滑、單季營業利益率大幅變動等條件，這邊需要開啟財報自行研究，可以從公開資訊觀測站、CMONEY等網站查詢
步驟7.月更新
如有每個月的資料更新可以用VLOOKUP的方式將資料整理進去，一個月檢視一次找尋投資標的(財報通常在每月10日前更新)。
最後
附上自行製作的[檔案連結]
使用方式：
1.在資料更新分頁中按下資料更新按鈕
2.複製[資料更新A-V資料]覆蓋[資料整理頁面A-V]
3.在總表中篩選條件，月營收年增率可以看需求更改
4.撿股讚每個月更新資料通常不會準時，可以每個月10日後按下月更新按鈕嘗試，若有更新可以自行修改資料整理頁面內的月資料，去掉月-2，並加入新資料
留言列表
