使用Visual Basic編輯器撰寫VBA程式碼
----- OFFICE 2000與VBA程式開發設計 -----

恆逸資訊教育訓練中心首頁
作者：恆逸資訊 許薰尹
使用VBA撰寫程式碼似乎越來越流行了!VBA是什麼?VBA是Office產品的開發工具，透過內嵌在Office 2000家族任一產品上的VBA開發工具，你也可以撰寫漂亮的程式碼，讓你日常使用Word、Excel、或者是PowerPoint時，能將重複的動作透過程式自動地完成，以便提高工作效率 (這樣就有更多時間摸魚了….不要告訴我老闆喔!)。除此之外我們也可以使用Excel設計統計圖表，然後再放到公司內部的網站上。更妙的是我們可以寫VBA程式動態地從資料庫中抓取資料，再顯示在網頁上，那麼老闆就可以直接上網查看統計圖了。這是不是很方便呢?不過，上面所述的這麼多開發技巧，決非三言兩語可以形容，為了介紹Office提供的這些技術，我將這個OFFICE 2000與VBA程式開發設計專欄中，以Excel為基本的開發工具逐步介紹相關的開發技術。

VBA編輯器
VBA是以微軟的Microsoft Visual Basic程式語言為基礎，提供在應用程式環境中進行應用程式開發的能力。Office 2000中，Visual Basic編輯器提供一個建立程式、除錯程式碼的錯誤，以及執行程式碼的整合開發環境。那麼要怎麼使用這個工具呢?只要你安裝了Office 2000的任一產品，你都可以使用Visual Basic編輯器，這個編輯器在Office 2000的每個產品中都是一樣的。
使用VBA編輯器

接下來我們將以Excel為範例，開啟VBA編輯器，以便進行程式的開發。 O 啟用VBA編輯器 1. 啟動EXCEL。 2. 在[工具]功能表，使用滑鼠按一下[巨集]，再按下[Visual Basic編輯器]。 或者是 同時按下鍵盤的 [ALT] + [F11]鍵 然後你就可以看到EXCEL中的VBA編輯器，如圖一所示：


圖一：EXCEL中的VBA編輯器

VBA的開發工具分為幾個主要的視窗：專案、屬性、程式碼視窗。我們先分別探討一下這幾個視窗的主要功能。
l. [專案]視窗

[專案]視窗中顯示了包含在這個專案中的所有元素。專案的基本元素包含應用程式物件、表單、模組、物件類別，或者引用的其他文件、範本與增益集，等等。 當你開啟一份EXCEL文件，它的基本元素會有四個工作表物件：即Sheet1、Sheet2、Sheet3、與ThisWorkbook。Sheet1就對應到EXCEL文件的三個工作表，參考圖二所示。 ThisWorkBook就是指這一份EXCEL活頁簿本身。


圖二：EXCEL文件

2. [屬性]視窗
[屬性]視窗是用來設定物件的資料。舉例來說，假設你不希望使用者看到Sheet3這個活頁簿，你可以使用這個[屬性]視窗讓它隱藏起來，只要將[屬性]視窗Sheet3物件的[visible]屬性設定為0就行了。 VBA編輯器中允許你自己定義給使用者使用的介面，稱之為表單。屬性視窗可用在設計表單時，對表單進行一些初始化的設定，我們將在後面的文章中介紹這些使用的細節。

3.[程式碼]視窗
顧名思義，[程式碼]視窗就是用來寫程式碼的嘛!只要在欲寫程式的物件上，使用滑鼠雙擊，就會將程式碼視窗開啟。舉例來說，在[專案]視窗上，使用滑鼠雙擊[ThisWorkBook]物件，就會開啟[程式碼]視窗。這個視窗中包含兩個主要的部份，一為[物件]清單，一為[程序]清單，參考圖一。


我的第一行程式
你是否開始蠢蠢欲動了呢?光是介紹工具各位一定不過癮吧?那就隨我磨刀霍霍寫程式去! 我希望撰寫一小段程式碼，儲存起來，每當我打開這份EXCEL文件時，我就希望能顯示一個訊息，請使用猜猜今天的日期。若使用者猜對了，就讓他使用這份文件，若猜錯了…嘿嘿嘿，就把這份文件連同EXCEL都關閉掉。 從上面的需求中，我們知道每當打開這份EXCEL文件就要進行檢查的動作，所以要在那裏撰寫程式碼，才能夠在每回開啟此文件時執行呢?答案就是打開活頁簿時，自動觸發的Open事件中撰寫。

開啟Workbook的Open事件

  • 使用滑鼠雙擊[專案]視窗中的[ThisWorkBook]物件，然後你就會看到[程式碼]視窗。
  • 在[程式碼]視窗中，下拉[物件]清單，你便可以看到有一個[Workbook]的選項，參考圖三。然後按一下[Workbook]。


圖三：選取Workbook物件
圖四：Open事件的程式碼
  • 一個步驟完成後，便會幫你產生下面的程式碼區塊 (參考圖四)，你會在[程式碼]視窗右上方的[程序]清單上找到Open。 圖四：Open事件的程式碼
  • 撰寫驗證的程式碼。在上一步驟的區塊中，輸入下面的程式碼：
    If InputBox("請輸入今天的日期") = Day(Now) Then MsgBox "歡迎使用EXCEL VBA" Else Application.Quit End If
  • 儲存這份文件，在[檔案]功能表，按一下[儲存檔案]，然後將檔案取名為[MyExcelVBA.xls]。
這段程式碼是什麼意思呢? InputBox是VBA提供的一個函數，這個函數用來顯示一個對話盒，讓使用者輸入一些基本資料。對話盒上顯示的文字就是呼叫Inputbox時傳入的參數。以我們的例子而言，就是顯示「請輸入今天的日期 (只輸入日)」。
Day也是VBA提供的一個計算函數，它可以傳回某個日期的某一天。舉例來?，假設今天是2000年五月一日，那麼day函數就會傳回 1。NOW也是VBA的函數，用來取得目前系統的時間與日期。
IF THEN ELSE，是一個VBA程式語法，它的意思就是：
如果 (IF) 條件成立了
就做某件事
否則 (ELSE)
就做某件事

所以上面的程式碼的意思就是說，如果你輸入的日期 (透過InputBox取得)，等於系統的日期 (日)，那麼就顯示出「歡迎使用EXCEL VBA」訊息，否則就呼叫EXCEL提供的函數Application.Quit結束EXCEL。

測試前的準備

由於在EXCEL中寫了VBA，為了怕你撰寫的VBA會破壞別人的電腦 (就是常聽到的病毒，或稱巨集病毒)，所以在Office 2000中可以設定巨集保護，以便讓你選擇要不要執行VBA的程式碼。為了要讓程式可以運作，所以我們要先把巨集安全設定成中等層度，以便發現文件中有VBA時，讓使用者決定要不要執行VBA中的程式碼。

啟動巨集執行能力

  1. 在[工具]功能表上，按一下[巨集]，再按一下[安全性]，然後在[安全性層級]頁中選取[中-您可以選擇是否要執行具有潛在危險性的巨集
  2. 按[確定]按鈕離開這個畫面。


圖五：啟動巨集執行能力


測試

OK!進入測試階段囉!將我們完成的MyExcelVBA.xls檔關閉，然後再從EXCEL中把此文件打開。你就可以看到EXCEL詢問你要不要執行巨集的畫面，參考 圖六所示。然後按下[開啟巨集]按鈕。 如果你在這個畫面上選擇[關閉巨集]，那麼我們剛剛撰寫的程式碼就不會運作了。這個方式可以用來減少中病毒的機率!所以奉勸各位看官，如果是來歷不明的人寄了有含VBA巨集的文件給你，你可得好好的利用這個防護罩ㄚ!免得中毒後就求天天不應，求地地不靈囉。


圖六：開啟巨集

緊接著你就會看到一個顯示出輸入日期的對話方塊，如圖七所示：


圖七：輸入日的對話盒

如果你已經山中無甲子，寒盡不知年了，那就猜猜看今天是五月的幾號了，假設今天是五月十號，當你輸入「10」時，就可以看到如圖八的畫面：
那如果猜錯了呢?EXCEL就跟你說881 (Bye bye)，跳出了。
各位看倌，是否成功的完成第一個VBA程式了呢?沒有想像中難吧?什麼?有問題?什麼問題?

圖八：歡迎的訊息
Q： 我希望在寫好程式後，就測試一下程式是不是可以運作，我不想跳出EXCEL的VBA編輯器外，或是重新開起這份文件要怎麼辦呢?
A： 我們可以直接在VBA編輯器中測試程式是否撰寫正確。開啟你撰寫的文件，當然要啟動巨集!然後跳到EXCEL中的VBA編輯器 (還記得吧，按ALT+F11)，不過你得先猜對今天的日期才進得去。
圖九，你可以看到畫面上方有三個按鈕，其中有一個三角型符號 (}) 的按鈕就可以用來執行程式。不過要按下這個按鈕之前，有一件事很重要的事便是得先將游標停留在[程式碼]視窗中的Private Sub Workbook_Open() 與End Sub之間的任一行程式碼之上。然後按三角型符號(})按鈕，你的程式便開始執行了。


圖九：除錯工具

總結
嘿!是否有學到一些功夫了?什麼?這樣學得還不夠?沒關係!下回，我要介紹好用的巨集錄製工具，還有讓你自訂自己喜歡的使用者界面。再透過巨集錄製一些程式碼，取得資料庫中的資料，最後再把取回的資料顯示在我們自訂的表單上顯示。敬請期待喔!