[其他] excelVBA 選股 分享

[uoyevoltnodi (shan)]

-------------------------------------------------------------------------
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 : 讚
推 goldberg123 : 推一個
推 ibakax      : 蟹蟹大大分享
推 hsuehsc     : 感謝
推 Yui021      : 推
推 tamama000   : 原來是擅長excel的朋友阿
11/27 12:12 還太淺啦 這方法算是有點偷雞
模擬按下網頁按鈕下載資料的XD
推 X911098     : 要註冊才能下載?@@
 不用註冊~
推 orz942      : 謝謝分享
推 leo00134    : 謝謝分享  但是連結似乎已失效
推 s910211     : 讚
稍後補上載點sorry

推 a18002      : 讚讚讚
推 peiaustin   : 推
推 Yang0227    : 載點掛了，先謝謝
載點更新 https://wsi.li/bqfjHmhlzFH6x

推 wingture    : 感謝大大
推 billionaire : 猛
推 ginsal      : 謝謝大大~~但想請問StockList.html是自建的檔案嗎?
推 ginsal      : 看懂了！！謝謝大大！！
現在才發現個問題，自動下載的檔案
會進到 “下載”，但每個人的目錄位置都不同，所以需要修改一下：

Excel打開，
1.檔案>選項>自訂功能區>開發人員 打勾。
2.右上角 開發人員>左側Visual Basic打開>左側Module1打開>程式碼 workbooks.Open F
ilename:=“xxxxxxxxxxxxxxxx”
xxxxxxx=找自己檔案下載的位置

主要是電腦使用者名稱不同的關係
https://i.imgur.com/o1DuUIm.jpg

電腦裡的IE記得要 登入goodinfo~
※ 編輯: uoyevoltnodi (60.248.94.163 臺灣), 11/27/2019 14:33:14
推 homerun0610 : CreateObject("InternetExplorer.Applictio出現偵錯
有可能因為不是系統管理員的關係
或你電腦裡沒有IE? 重開機再跑一次應該可以

推 leo00134    :  連結好像還是失效耶
推 shasiao     : https://imgur.com/0p2kYLL
→ shasiao     : 這樣就不用再改使用者名稱了
 真的耶 感謝感謝 我又學了一點XD

這邊提供 更新好的版本
應該更方便

https://wsi.li/2URnpVsYTEt2t

推 newton41    : 股版臥虎藏龍。
※ 編輯: uoyevoltnodi (60.248.94.163 臺灣), 11/27/2019 17:26:51
※ 編輯: uoyevoltnodi (60.248.94.163 臺灣), 11/27/2019 17:33:22
推 eddie0729   : 感謝分享 股版的人都太厲害了
希望大家都能用XD
※ 編輯: uoyevoltnodi (60.248.94.163 臺灣), 11/27/2019 18:32:51
推 g0251604    : 謝謝
推 TheNovCloud : 猛 謝謝大大
推 popolili    : 謝謝分享
推 a60332525   : 謝謝分享
推 tenghui     : 推goodinfo 這個平台真的很佛 免錢還能查這麼多歷史
→ tenghui     : 資料
推 carrera181  : 謝謝分享
推 loat        : 推推 感謝分享
11/28/ 12:47:07

在分享個表格給大家~
獻給還在推文內的人XD
可選日退or月退
https://i.imgur.com/Z4cCnWX.jpg

載點 https://wsi.li/5ivQD5Q2UmfxN
※ 編輯: uoyevoltnodi (180.204.163.66 臺灣), 11/28/2019 13:20:15
推 Alchemist123: 推 認真！
※ 編輯: uoyevoltnodi (180.204.163.66 臺灣), 11/28/2019 18:36:54
推 dannana     : 太厲害了
推 Albert24    : 沒辦法下載囉～
有需要的 站內信給我email~
※ 編輯: uoyevoltnodi (49.216.48.225 臺灣), 11/28/2019 21:49:55
推 wirecut     : 推