VBA入門實作基礎篇：抓財務比率季表 +進階篩選，

聲明：請大家尊重網路資源，勿濫用內文教學內容。

這篇可以說是以前作品的延伸版，前些日子有網友在以前的部落格留言，問關於這方面問題，所以寫一寫當作分享跟紀錄。

架構：

要設定3頁，3個ACRIVEX命令按鈕。

圖1.命令按鈕在那?

說明：

1.先點選設計模式。

2.在點選小紅框的命令按鈕，然後隨意於工作表上點選後，在按住滑鼠左鍵控制大小即可。(參圖2)

P.S因為小編有設定標題的習慣，程式碼預設是從第2列開始抓資料歐。

圖2.按鈕參考

第一頁名稱隨意(可以參考圖1做航別設定)，先設定1個ACRIVEX命令按鈕。

之後設定第二頁工作表為TEMP，第三頁工作表為總表。

大概參圖3這樣子

圖3.工作表名稱設定

第二頁設定2個按鈕並設定欄位名稱，如圖4。

圖4.總表設定

說明：要改按鈕顯示的標籤名稱，點選開發人員>屬性之後再對話框做修改。

圖5.屬性修改

接下來是程式部分

有4個副程式要處理，副程式1請先按以下5步驟做處理：

1.鍵盤上的ALT+F11這兩個鍵同時按下，出現如圖6.

圖6.

2.點選專案總管：

圖7.

3.新增模組：

圖8.新增模組

圖9.專案管理確認

4.複製CODE：

複製卷_財務比率季表_DOWNLOAD 的CODE，點選剛剛產生的模組1，點開後貼上即可。

圖10.CODE貼在模組1

5.副程式1網址設定：

圖11.副程式網址設定段落

圖12.網址取得(紅框處)

說明：透過 IE瀏覽器，在某卷商的網站中，找到財務分析比率季表，點選滑鼠左鍵，選內容會跳出如圖10的對話框，再複製紅框標記處即可。

補充：請大家尊重網路資源，恕不提供卷商網址，僅做教學參考。

https://XXXXXXX.com/z/zc/zcr/zcr.djhtm?a=XXXX

圖13.副程式1補上網址。

VBA CODE流程:

副程式1：

圖14.副程式1：卷_財務比率季表_DOWNLOAD流程

副程式2~4：

比照前面的"4.複製CODE：" 操作即可

接著，在總表的工作表中新增2個ACTIVEX命令按鈕，如圖5.

針對"篩選"按鈕如下編輯內容

CALL C2

針對"取消篩選"按鈕如下編輯內容

CALL C3

圖15.按鈕的VBA CODE

可以開始測試瞜。