●基礎2-計算機表單設計

圖二

圖一

根據上圖一說明各物件name屬性：這些屬性可自己定義

數字按鈕1：Num_Button1

數字按鈕2：Num_Button2

‧‧‧

數字按鈕9：Num_Button9

數字按鈕0：Num_Button0

加法按鈕：add_btn

減法按鈕：sub_btn

乘法按鈕：mul_btn

除法按鈕：div_btn

清除按鈕：clear_btn

等號按鈕：equ_btn

square根號按鈕：square_btn

N階層按鈕：norder_btn

Hex按鈕：Hex_btn

Binary按鈕：Binary_btn

文字方塊：Display_Text

以下是部分代碼：

Private Sub Num_Button8_Click()

If (mode = 0) Then Num1 = Num1 + "8"

Display_Text = Num1 Else Num2 = Num2 + "8"

Display_Text = Num2

End IfEnd Sub

Private Sub Num_Button9_Click()

If (mode = 0) Then Num1 = Num1 + "9"

Display_Text = Num1 Else Num2 = Num2 + "9"

Display_Text = Num2

End IfEnd Sub

Private Sub square_btn_Click()

Display_Text = Str(Sqr(Val(Display_Text.Text)))

End Sub

Private Sub sub_btn_Click()

Display_Text = ""

mode = 2

End Sub

Private Sub UserForm_Initialize()

mode = 0

End Sub

我們依照上一篇ㄉ作法在EXCEL開啟時能夠馬上秀出這個計算機表單。實際作法由於我只列出部分程式碼，所以若有興趣您就下載去看看。我們在未來所用範例都是依照Office 2007，若您使用Office 2003，請自行修改成2003的格式。但是這個code，我故意留下N階層及Binary沒作，就留給大家發揮一下。完成畫面如圖二。

●基礎1-EXCEL VBA初體驗

圖一
自定表單/工具箱
屬性視窗

專案視窗
我開使接觸VBA(visual basic application )是從office 2000開始，結果現在2009年office也release到office 2007，而且office也增加ㄌ更多的應用。但綜觀使用者的使用頻率，好像excel、word、power point、Access，才是大家最常用的。連linux也搞open office，但它好像不支援巨集(macro)功能，至少以前不支援，現在我就不知道ㄌ，雖然open office格式相容於MS Office但相容性有限。好ㄌ少說廢話，進入主題ㄅ，我又扯遠ㄌ。反正標題就是要說excel vba，其它就不講ㄌ：
首先學會如何開啟VBA功能，接著就來點簡單ㄉㄅ。以下我們所談內容都表示你已經開啟vba編輯視窗。要會VBA首先要認識專案視窗及屬性視窗；
專案視窗中：This Workbook指ㄉ就是你現在已經開啟ㄉexcel活頁簿，sheet1~sheet3指ㄉ就是活頁簿中的那三個工作表。專案視窗中左上角ㄉ按鈕(檢視程式碼)及(檢視物件)便是切換編輯畫面的功能鍵。
今天我們先來和vba表單見個面ㄅ，因為我ㄉ習慣是若excel沒表單，那它就沒有讓我愛不釋手ㄉ理由ㄌ。在插入/自訂表單就會代出如上圖片。我們透過工具箱/Label，產生一個文字標籤，如上圖一，由屬性視窗我們知道，表單ㄉname屬性是UserForm1(可自行定義)；接著我們今天來寫一行code如下。點選This Workbook，再點選(檢視程式碼)，在程試碼編輯區上方有下拉視窗，目前應該顯示為"一般"，改選為"Workbook"；便會自動帶出兩行code如下，我在中間加入一行：
Private Sub Workbook_Open()
UserForm1.Show
End Sub
大功告成，儲存檔案。記得回excel(2007)設定開發人員/巨集安全性/巨集設定/啟用所有巨集。若是Excel(2003)則是工具/巨集/安全性/安全性層級/中或低。
如此你已完程第一個vba程式，並且會在這ㄍexcel檔開啟時也開啟那個表單視窗。