[其他] excelVBA 選股 分享
-------------------------------------------------------------------------
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
推
11/27 11:49,
4年前
, 1F
11/27 11:49, 1F
推
11/27 11:54,
4年前
, 2F
11/27 11:54, 2F
推
11/27 11:57,
4年前
, 3F
11/27 11:57, 3F
推
11/27 12:03,
4年前
, 4F
11/27 12:03, 4F
推
11/27 12:06,
4年前
, 5F
11/27 12:06, 5F
推
, , 6F
11/27 12:12 還太淺啦 這方法算是有點偷雞
模擬按下網頁按鈕下載資料的XD
推
11/27 12:19,
4年前
, 7F
11/27 12:19, 7F
不用註冊~
推
11/27 12:19,
4年前
, 8F
11/27 12:19, 8F
推
11/27 12:24,
4年前
, 9F
11/27 12:24, 9F
推
11/27 12:29,
4年前
, 10F
11/27 12:29, 10F
稍後補上載點sorry
推
11/27 12:35,
4年前
, 11F
11/27 12:35, 11F
推
11/27 12:36,
4年前
, 12F
11/27 12:36, 12F
推
11/27 12:45,
4年前
, 13F
11/27 12:45, 13F
推
11/27 12:52,
4年前
, 14F
11/27 12:52, 14F
推
11/27 13:40,
4年前
, 15F
11/27 13:40, 15F
推
11/27 13:44,
4年前
, 16F
11/27 13:44, 16F
推
11/27 13:52,
4年前
, 17F
11/27 13:52, 17F
現在才發現個問題，自動下載的檔案
會進到 “下載”，但每個人的目錄位置都不同，所以需要修改一下：
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
推
11/27 14:51,
4年前
, 18F
11/27 14:51, 18F
有可能因為不是系統管理員的關係
或你電腦裡沒有IE? 重開機再跑一次應該可以
推
11/27 15:46,
4年前
, 19F
11/27 15:46, 19F
推
11/27 16:24,
4年前
, 20F
11/27 16:24, 20F
→
11/27 16:24,
4年前
, 21F
11/27 16:24, 21F
推
11/27 17:03,
4年前
, 22F
11/27 17:03, 22F
※ 編輯: uoyevoltnodi (60.248.94.163 臺灣), 11/27/2019 17:26:51
※ 編輯: uoyevoltnodi (60.248.94.163 臺灣), 11/27/2019 17:33:22
推
11/27 18:24,
4年前
, 23F
11/27 18:24, 23F
希望大家都能用XD
※ 編輯: uoyevoltnodi (60.248.94.163 臺灣), 11/27/2019 18:32:51
推
11/27 18:53,
4年前
, 24F
11/27 18:53, 24F
推
11/27 19:29,
4年前
, 25F
11/27 19:29, 25F
推
11/27 19:31,
4年前
, 26F
11/27 19:31, 26F
推
11/27 21:43,
4年前
, 27F
11/27 21:43, 27F
推
11/27 21:46,
4年前
, 28F
11/27 21:46, 28F
→
11/27 21:46,
4年前
, 29F
11/27 21:46, 29F
推
11/28 07:58,
4年前
, 30F
11/28 07:58, 30F
推
, , 31F
11/28/ 12:47:07
在分享個表格給大家~
獻給還在推文內的人XD
可選日退or月退
https://i.imgur.com/Z4cCnWX.jpg
推
11/28 14:18,
4年前
, 32F
11/28 14:18, 32F
※ 編輯: uoyevoltnodi (180.204.163.66 臺灣), 11/28/2019 18:36:54
推
11/28 20:52,
4年前
, 33F
11/28 20:52, 33F
推
11/28 21:04,
4年前
, 34F
11/28 21:04, 34F
有需要的 站內信給我email~
※ 編輯: uoyevoltnodi (49.216.48.225 臺灣), 11/28/2019 21:49:55
推
11/29 06:58,
4年前
, 35F
11/29 06:58, 35F
討論串 (同標題文章)
完整討論串 (本文為第 1 之 2 篇)：
