VBA 中的用戶窗體就是指帶 UI 的用戶界面,在運行的時候會單獨彈出一個視窗,類似於在 windows 系統中運行的一個可執行程式一樣(這個說法不太嚴謹,因為可執行程式也可能是只有命令視窗而沒有 UI 的)。再具體一點,就是一個視窗界面當中,有可能會包含有文本框、覆選框、單選按鈕、下拉列表,就如在 ...
VBA 中的用戶窗體就是指帶 UI 的用戶界面,在運行的時候會單獨彈出一個視窗,類似於在 windows 系統中運行的一個可執行程式一樣(這個說法不太嚴謹,因為可執行程式也可能是只有命令視窗而沒有 UI 的)。再具體一點,就是一個視窗界面當中,有可能會包含有文本框、覆選框、單選按鈕、下拉列表,就如在網頁中填寫的表單一樣。再具體一點,就是如下圖這樣的:
1. 用戶界面設計
如上圖,UI 設計的部分其實是很簡單的,微軟的特色,直接拖拉拽就可以實現了。而每一個控制項(或者稱為元素,也即放進窗體中的各種按鈕、輸入框等等)的屬性,可以在選中它之後,在預設位於左下角的 “屬性” 列表框中進行設置,可設置項包含按鈕的名字、前景色、背景色、顯示出來的文本、寬度、高度、字體顏色、字型大小、距離左側的距離、距離頂部的距離等等,很簡單。如果這個 “屬性” 框沒有出現的話,可以在頂部菜單欄的 “視圖” 中選擇 “屬性視窗”,它就會出現了。
2. 用戶交互
2.1 按鈕事件
直接在窗體中雙擊放進去的按鈕,就可以進入到按鈕的事件開發界面,預設的是單擊事件,如下圖
留意上圖中的紅框部分,左上角顯示的是該按鈕的名稱,右上角顯示的是該按鈕的事件,這裡是單擊事件 Click
,這兩個都是下拉選擇框,分別點擊它們右邊的倒三角可以看到其它的控制項和各控制項對應的其它方法,如下
如果你選中了其它事件,則 VBE 會自動給你生成這個事件的函數簽名,它是根據按鈕的名稱和事件名稱來命名的,所以這個函數名字應該是不能改動的(我沒有試過改)
其它按鈕的事件也類似,就不贅述了。
2.2 獲取控制項的值
因為控制項很多,就不能一一舉例了,只舉幾具做為示例,其它也類似的,通常都是它在屬性列表中叫什麼,就能通過這個名字來取到它的值
文本框
假設文本框名為 tbx,則通過 tbx.Value
或者 tbx.Text
都能得到輸入到文本框中的內容
多選按鈕
假設多選按鈕名為 cbx,則通過 cbx.Value
可以得到這個多選按鈕的值,如果它被選中了,則值為 True,否則為 False。通過 cbx.Caption
可以得到這個多選按鈕對應的文本
單選按鈕
假設單選按鈕名為 obtn,則通過 obtn.Value
可以得到這個多選按鈕的值,如果它被選中了,則值為 True,否則為 False。通過 cbx.Caption
可以得到這個多選按鈕對應的文本
3. 歷遍所有控制項
比如一個窗體中,存在多個多選框,要一個個去判斷它是否被選中,此時可以考慮歷遍所有控制項,通過判斷控制項類型的方法來獲取多選框。
先看如下代碼:
orderStr = ""
For Each ctrls In Me.Controls
If TypeName(ctrls) = "CheckBox" Then
If ctrls.Value = True Then
orderStr = orderStr & "||" & ctrls.Caption
End If
End If
Next ctrls
Me.Controls
是一個固定的寫法,Me
代表當前窗體,而 Controls
則表示窗體上的所有控制項。用 TypeName
函數來判斷每個控制項的類型,然後就可以對不同的控制項執行不同的操作了
4. 動態生成控制項
即不再使用人工的方式來拖拉拽設置控制項,而是在 VBA 代碼中來根據條件來動態地添加控制項到窗體中。
先看代碼:
For Each order In orderArr
Set newCbk = form_combinedModel.Controls.Add("Forms.CheckBox.1")
With newCbk
.Left = 30
.Top = y
.Width = 80
.Height = 18
.Caption = order
End With
y = y + gap
panelH = panelH + gap
Next order
這裡的 orderArr
是一個數組,所以可以使用 For Each
來歷遍它。重點在於第 2 行,這裡的 form_combinedModel
是窗體的名字,通過它的 .Controls.Add
方法就能夠添加新控制項。這個方法的參數是固定的,需要添加什麼類型的控制項就使用對應的參數,示例代碼中添加的是多選框,對應的是 Forms.CheckBox.1
,這個參數可以在 這裡 找到。
此外要註意的是,這個新添加的控制項是一個對象,所以需要在變數前面使用 Set
關鍵字。示例代碼中接下來的 With
語句,是用於設置這個新的控制項的屬性,這裡設置了它的位置(左距、上距)、寬度、高度、顯示文本
本系列教程其它文章
Excel VBA 入門(零)
Excel VBA 入門(一)數據類型
Excel VBA 入門(二)數組和字典
Excel VBA 入門(三) 流程式控制制1-條件選擇
Excel VBA 入門(四)流程式控制制2-迴圈控制
Excel VBA 入門(五)Excel對象操作
Excel VBA 入門(六)過程和函數
Excel VBA 入門(七)註釋、巨集按鈕及錯誤處理
Excel VBA 入門(八)單元格邊框
Excel VBA 入門(九)操作工作薄
Excel VBA入門(十)用戶窗體開發