vba如作甚列表框赋值

在VBA中，可使用`List`属性为列表框赋值。以下是一个示例代码，可以用来为列表框赋值：
```vba
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`事件中使用的。在这个事件中，代码会在窗体初始化时自动履行。如果你想在其他地方为列表框赋值，可以将相应的代码放在适合的位置。