V003 利用 Change 事件自動執行程式碼

我們在 V002 可以修改 Web 外部資料的網址, 在 Monitor 輸入股票代碼後按 Ctrl-Y 就可以變更資料. 每次都要按 Ctrl-Y 絕對不是一個好的程式. 好的程式需要將所有固定的動作由程式來執行, 簡化人工作業才對. 所以我們需要一個可以在輸入網址之後, 自動更新資料的功能.

首先在 Visual Basic 編輯器的專案總管上, 點選兩次 Sheet1(Monitor)

在右邊的程式碼文字處理器上方有兩個下拉方塊. 在左邊選擇 Worksheet 物件

在右邊選擇 Change 事件

Excel 會自動填入 Change 事件處理函式的程式碼. 在 Monitor 這個工作表有任何變動的時候會自動執行這裡的程式. 在 Worksheet_Change 函式裡輸入如下的程式碼

Worksheet_Change 有一個參數 Target. 這個參數傳回變動的儲存格位址. 我們使用 If...Then...End If 敘述判斷目前變動的儲存格位址是否為 $B$3. 如果是的話, 執行 ChangeY 函式.
現在可以到 Monitor 工作表修改 B3 的內容, Excel 就會自動更新 Web 外部資料了.

延伸實作

1. 實作 X 股票自動更新歷史資料