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