[其他] excelVBA 選股分享

看板Stock (股票)作者uoyevoltnodi (shan)時間5年前 (2019/11/27 11:43)推噓33(33推 0噓 2→)

留言35則, 31人參與討論串1/2 (看更多)

------------------------------------------------------------------------- 1.發文前請先詳閱[其他]分類發文規範，未依規範發文將受處份。 ----------------------------按ctrl+y可刪除以上內容。--------------------- 一直在找市面上有沒有能達到我要的選股軟體，但基本上都很陽春而且條件很死（可能我沒找到XD），這幾天心血來潮從0開始研究excelVBA、爬蟲，剛好又找到goodinfo的股票篩選（這算是我見過最強大的選股系統），才想說把goodinfo資料撈出來進一步過濾整理。廢話不多說，進正文帶步驟影片 http://sendvid.com/hxz9rbsj?secret=7b34a54b-af85-466e-bea7-7da78b23ad96 1.goodinfo登入，自訂篩選條件儲存，名稱：”自訂濾網”，欄位也自訂最多放滿30欄。 (打錯，vba會跑不動，除非自己會改）我自己就放滿30欄了，但可自己排序，若跟我挑選排序的欄位不同也沒關係，excel裡上面四行標題再自行更改即可） (C欄、AH欄、AI欄會因為每個人設定的欄位排序而錯誤，但如果排序跟我一樣就沒這問題~) 2.開啟excel，雖然提供的檔案名稱、工作表名稱都打好，不過還是提一下，檔案名稱： ” 自動濾網”、工作表名稱：”篩選”。 (打錯，vba會跑不動，除非自己會改） 3.D4、D5欄位一定要有資料才跑的動因為原先就已有資料，所以不影響，但如果想刪除上方資料的人要留意。（在D4、D5欄位隨便打個數字即可，僅第一次跑時會有這個小BUG) https://i.imgur.com/EdtbbAE.jpg

我自己是先在goodinfo設定好一些條件濾出股票，再透過excel做二次過濾，最後面7個欄位使用（if條件式），圖中 1.高則是若今日收盤價低於近三個月最高價30%則顯示”v” ，接著第二欄會幫我統計後面7個欄位符合幾項，當然會高越好。 Ex:2019/11/21 4 - 8086 (就是符合自訂的7個條件中的4個且跌幅大於20%) Ps我的濾網都是過濾來要做多的這部分可以自行編打，因每個人想要的邏輯條件不同，就不獻醜了。 (檔案裡這部分已移除，如真的需要可以再問我）日期部分會自動跳好，影片中，因我是在2019/11/27更新，所以日期會跳當天日期，一般我其實會在大約晚上十點更新（等融資券資料）。大家有興趣可以玩看看，這邊先提供windows版本，雖然我自己是用mac，但mac部分其實前半段需要手動去網頁下載檔案，才能使用。（windows則全程自動，自動載檔案，帶入，刪除）載點： 2019/11/27 17：30更新 https://wsi.li/2URnpVsYTEt2 以上，感謝大家捧場看完 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 49.216.44.73 (臺灣) ※ 文章網址: https://www.ptt.cc/bbs/Stock/M.1574826214.A.9D8.html

推

auliojoi555

11/27 11:49, 5年前 , 1^F

11/27 11:49, 1^F

推

goldberg123

11/27 11:54, 5年前 , 2^F

11/27 11:54, 2^F

推

ibakax

11/27 11:57, 5年前 , 3^F

11/27 11:57, 3^F

推

hsuehsc

11/27 12:03, 5年前 , 4^F

11/27 12:03, 4^F

推

Yui021

11/27 12:06, 5年前 , 5^F

11/27 12:06, 5^F

推

tamama000

, , 6^F

11/27 12:12 還太淺啦這方法算是有點偷雞模擬按下網頁按鈕下載資料的XD

推

X911098

11/27 12:19, 5年前 , 7^F

11/27 12:19, 7^F

不用註冊~

推

orz942

11/27 12:19, 5年前 , 8^F

11/27 12:19, 8^F

推

leo00134

11/27 12:24, 5年前 , 9^F

11/27 12:24, 9^F

推

s910211

11/27 12:29, 5年前 , 10^F

11/27 12:29, 10^F

稍後補上載點sorry

推

a18002

11/27 12:35, 5年前 , 11^F

11/27 12:35, 11^F

推

peiaustin

11/27 12:36, 5年前 , 12^F

11/27 12:36, 12^F

推

Yang0227

11/27 12:45, 5年前 , 13^F

11/27 12:45, 13^F

載點更新 https://wsi.li/bqfjHmhlzFH6x

推

wingture

11/27 12:52, 5年前 , 14^F

11/27 12:52, 14^F

推

billionaire

11/27 13:40, 5年前 , 15^F

11/27 13:40, 15^F

推

ginsal

11/27 13:44, 5年前 , 16^F

11/27 13:44, 16^F

推

ginsal

11/27 13:52, 5年前 , 17^F

11/27 13:52, 17^F

現在才發現個問題，自動下載的檔案會進到 “下載”，但每個人的目錄位置都不同，所以需要修改一下： Excel打開， 1.檔案>選項>自訂功能區>開發人員打勾。 2.右上角開發人員>左側Visual Basic打開>左側Module1打開>程式碼 workbooks.Open F ilename:=“xxxxxxxxxxxxxxxx” xxxxxxx=找自己檔案下載的位置主要是電腦使用者名稱不同的關係 https://i.imgur.com/o1DuUIm.jpg