在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事件中使用的。在這個事件中，代碼會在窗體初始化時自動執行。如果你想在其他地方為列表框賦值，可以將相應的代碼放在合適的位置。
