Listbox

1 '添加条目 RowSource
2 Private Sub UserForm_Initialize()
3     Range("a1:a10").Name = "DataSource"
4     Me.lbx.RowSource = "DataSource" 'Rowsourse = string
5 End Sub

 1 '添加条目 Additem
 2 Private Sub UserForm_Initialize()
 3     Dim I&
 4     With Me.lbx
 5         .RowSource = "" '非空出现拒绝使用此权限
 6         For I = 1 To 10
 7             .AddItem Cells(I, 1).Value, I - 1 ' AddItem[ item [, varIndex ]] 索引从0开始,-1为未选中
 8         Next I
 9     End With
10 End Sub

1 '添加条目 List
2 Private Sub UserForm_Initialize()
3     Me.lbx.List = Application.WorksheetFunction.Transpose(Range("a1:a10").Value)
4 End Sub