在VBA中，可以使用List属性为列表框赋值。以下是一个示例代码，可以用来为列表框赋值：
云服务器
物理服务器
虚拟主机
跨境电商服务器Private Sub UserForm_Initialize()
'创建一个数组来存储列表框的选项
Dim options() As Variant
options = Array("选项1", "选项2", "选项3", "选项4")
'将数组赋值给列表框的List属性
ListBox1.List = options
End Sub
在上面的代码中，我们首先创建了一个名为options的数组，并将需要的选项存储到该数组中。然后，通过ListBox1.List = options将数组赋值给列表框的List属性，从而为列表框赋值。
请注意，这个示例代码是在用户窗体（UserForm）的Initialize事件中使用的。在这个事件中，代码会在窗体初始化时自动执行。如果你想在其他地方为列表框赋值，可以将相应的代码放在合适的位置。
辰迅云「云服务器」，即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘，价格低至29元/月。点击查看>>
推荐阅读： vba判断字符串相等的方法是什么