可以通过在宏中使用 Visual Basic 代码在运行时初始化 控件。 例如,可填充列表框、设置文本值或设置选项按钮。
以下示例使用 AddItem 方法向列表框中添加数据。 然后它设置文本框的值并显示窗体。
Private Sub GetUserName()
With UserForm1
.lstRegions.AddItem "North"
.lstRegions.AddItem "South"
.lstRegions.AddItem "East"
.lstRegions.AddItem "West"
.txtSalesPersonID.Text = "00000"
.Show
' ...
End With
End Sub
还可以在窗体的 Initialize 事件中用代码设置窗体上控件的初始值。 在 Initialize 事件中设置控件的初始值的好处在于:初始化代码与窗体存储在一起。 您可以将该窗体复制到其他项目中,这样,当运行 Show 方法来显示对话框时,将初始化其中的控件。
Private Sub UserForm_Initialize()
UserForm1.lstNames.AddItem "Test One"
UserForm1.lstNames.AddItem "Test Two"
UserForm1.txtUserName.Text = "Default Name"
End Sub
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。