1、vba控件的一般使用基于用戶表單的顯示用戶表單的方法要顯示UserForm編程語法，請執(zhí)行以下步驟用戶格式. show要顯示名為UserForm1，UserForm使用以下代碼UserForm1.Show實際上，不會顯示可以加載用戶表單和內(nèi)存。 顯示復(fù)雜的用戶表單可能需要幾秒鐘。 因為可以事先加載到內(nèi)存中，所以用戶表單決定了此開銷的發(fā)生時間。 要防止在加載到內(nèi)存UserForm1中時顯示，請使用以下代碼加載用戶表1。要顯示用戶表單，必須使用先前顯示的顯示方法。如何暫時隱藏UserForm要臨時隱藏UserForm，請使用隱藏方法。 如果您想隱藏UserForm，應(yīng)用程序可能包含用戶表單之間的移

2、動。 要隱藏UserForm，請使用以下代碼UserForm1.Hide如何從內(nèi)存中刪除用戶表單要從內(nèi)存中刪除，請刪除UserForm并使用Unload語句。 要卸載，請使用名為UserForm1，UserForm的以下代碼卸載用戶1卸載UserForm時，如果正在與UserForm或UserForm上的控件發(fā)生事件(例如，單擊CommandButton控件)，則可以使用“我的”關(guān)鍵字代替UserForm名稱使用關(guān)鍵字卸載UserForm，“Me”使用以下代碼卸載me使用UserForm事件支持許多可以附加到VBA進程的預(yù)定義事件。 發(fā)生事件時，被添加到事件過程的執(zhí)行中。 用戶可以通過一次操作

3、初始化多個事件。 用戶表單中最常用的事件是Initialize事件、Click事件和Terminate事件。請注意，包含事件過程的Visual Basic模塊稱為以下“用戶模塊”。 模塊包含不顯示事件過程的VisualBasic編輯器projectmicrosoftinternetexplorerwindowmodules集合。 需要雙擊主體部分UserForm，顯示UserForm代碼模塊。如何捕獲UserForm事件要捕獲UserForm事件，請執(zhí)行以下步驟1.在Excel中創(chuàng)建新工作簿。2.在“工具”菜單中，指向宏，然后單擊visual basic編輯器。3.在插入菜單中，單擊將user

4、form插入到工作簿中。4.雙擊以顯示“userform代碼”窗口。5.在模塊中，輸入以下代碼私有輔助用戶鏈接()Me.Height=Int(Rnd * 500 )Me.Width=Int(Rnd * 750 )結(jié)束次私有子用戶_ initialize ()me.caption= events events！ 是me.back color=RGB (10，25，100 )結(jié)束次私有子用戶_ resize ()msg= width : me.width chr (10 ) height : me.heightMsgBox prompt:=msg，Title:=Resize Event 結(jié)束次pr

5、ivatesubuserform _ query close (cancelassinteger，CloseMode As Integer )msg=Now Unloading Me.CaptionMsgBox prompt:=msg，Title:=QueryClose Event 終結(jié)子私有輔助用戶_終端ate ()msg=Now Unloading Me.CaptionMsgBox prompt:=msg，Title:=Terminate Event 終結(jié)子6.在“運行”菜單中，單擊“運行子過程/用戶表單”。第一次加載UserForm時，宏將Initialize事件更改為事件事件！ 和Ba

6、ckColor屬性以深藍色的UserForm Caption屬性顯示。單擊UserForm可初始化Click事件。 調(diào)整UserForm Click事件。 因為已創(chuàng)建了Resize事件，所以單擊UserForm時會顯示兩個消息框。 Click事件代碼更改寬度和Height屬性是因為會發(fā)生兩次UserForm Resize事件。關(guān)閉UserForm并初始化QueryClose事件。 QueryClose事件顯示消息框包含標題為“Initialize”的事件，并被分配給UserForm代碼。 用戶關(guān)閉UserForm QueryClose事件后，可以使用執(zhí)行特定的操作集。然后，生成一個消息框，指示

7、標題為UserForm1 Terminate事件。 發(fā)生了從內(nèi)存中刪除UserForm，返回到原始狀態(tài)標題“UserForm后Terminate”的事件。如何防止用戶表單關(guān)閉“關(guān)閉”按鈕運行UserForm時，“關(guān)閉”按鈕會添加到UserForm窗口的右上角。 為了防止用戶關(guān)閉“關(guān)閉”按鈕，必須捕獲QueryClose事件。QueryClose事件UserForm在從內(nèi)存卸載之前發(fā)生。 使用QueryClose事件CloseMode CloseMode參數(shù)確定關(guān)閉用戶表單的方式。 如果vbFormControlMenu值顯示“CloseMode CloseMode”參數(shù)，請單擊“關(guān)閉”按鈕。

8、為了保持活動，UserForm取消QueryClose事件參數(shù)為True。 要使用QueryClose事件禁用用戶表單關(guān)閉，請執(zhí)行以下步驟1.在Excel中創(chuàng)建新工作簿。2.在“工具”菜單中，指向宏，然后單擊visual basic編輯器。3.在“插入”菜單中，單擊“將userform插入到工作簿中”。4.向UserForm添加命令按鈕控件。5.雙擊以顯示“userform代碼”窗口。6.在“代碼”窗口中，輸入以下代碼私有子命令按鈕1 _ click ()卸載me最終子集privatesubuserform _ query close (cancelassinteger，CloseMode A

9、s Integer )ifclosemode=vbformcontrolmenuthen取消=真me.caption= clickthecommandbuttontocloseme！ 是最終PS終結(jié)子7.在“運行”菜單中，單擊“運行子過程/用戶表單”。單擊“關(guān)閉”按鈕不會關(guān)閉UserForm。 您必須單擊CommandButton控件關(guān)閉用戶表單。注意：代碼不包含影響所有屬性和控件事件的示例。 如果需要，可以使用“屬性”窗口來顯示可以控制的屬性列表。 要在“視圖”菜單中顯示列表屬性，請單擊“屬性”窗口。如何使用設(shè)計模式編輯控件使用VisualBasic編輯器設(shè)計對話框時，請使用設(shè)計模式。 在設(shè)

10、計模式下，您可以編輯控件，并在屬性窗口的UserForm中更改屬性控件。 要顯示屬性窗口，請在“視圖”菜單中單擊“屬性窗口”。請注意，控件在設(shè)計模式下沒有反應(yīng)和事件。 對話框運行時，會顯示出來，用戶看到后，程序處于運行模式。 如果UserForm從內(nèi)存卸載，則不保留更改，并且是運行模式控件的屬性。注意控件，請返回到正在執(zhí)行事件的模式。如何引用UserForm上的控件如何參照控件編程來確定VisualBasic模塊表的執(zhí)行代碼的類型。 如果代碼是普通模塊，請執(zhí)行以下語法user formname.control perty=值例如，如果設(shè)置名為TextBox，則值to為Bob，U

11、serForm1 UserForm的TextBox控件的Text屬性使用以下代碼UserForm1.TextBox1.Text=Bob 如果代碼通過事件控件或UserForm，則啟動時不需要引用名為UserForm。 相反，請使用以下代碼TextBox1.Text=Bob 對象的附加代碼被附加到對象事件中的一個事件上。 在大多數(shù)情況下，Click事件都是CommandButton對象。標簽控件標簽控件主要用于描述UserForm的其他控件。 執(zhí)行UserForm時，用戶無法編輯標簽控件。 使用Caption屬性設(shè)置或返回標簽控件的文本。 用于格式化標簽控件的其他常用屬性包括字體屬性和ForeC

12、olor屬性。如何使用WITH語句設(shè)置Label控件的格式要使用WITH語句更改屬性的標簽控件，請執(zhí)行以下步驟1.啟動Excel并打開新的空工作簿。2.在“工具”菜單中，指向宏，然后單擊visual basic編輯器。3.在“插入”菜單中，單擊將userform插入到工作簿中。4.向UserForm中添加標簽控件。5.向UserForm添加命令按鈕控件。6.雙擊以打開“用戶命令按鈕”控件的“代碼”窗口。7.在“代碼”窗口中，輸入CommandButton 1 Click事件的以下代碼私有子命令按鈕1 _ click ()With Label1設(shè)定標簽。. caption= this is標簽?zāi)?/p>

13、板1 automaticallysizethelabelcontrol. AutoSize=True. WordWrap=False設(shè)定的字體是. Font.Name=Times New Roman . Font.Size=14. Font.Bold=True成套thefontcolortoblue. forecolor=RGB (0，0，255 )End With終結(jié)子8.在“運行”菜單中，單擊“運行子過程/用戶表單”。9.按一下命令按鈕。文本粗細用于TimesNewRoman的字體大小在14個標簽控件中顯示為“Thisis標簽示例1”。TextBox控件TextBox控件經(jīng)常用于收集來自用戶的輸入。 Text屬性包含在TextBox控件中執(zhí)行的項目。如何使用TextBox控件驗證密碼設(shè)置TextBox控件后，它將成為密碼字符屬性的掩碼編輯器控件。 用文字可視地替換TextBox控件中輸入的每個字符。 要