1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，然后运行Private Sub UserForm_Init坡纠课柩ialize() ActiveWorkbook.Names.Add Name:="客户", RefersToR1C1:=" =客户资料表!R2C1:R10C1" '添加名称 UserForm1.ListBox1.RowSource="客户" '将有效性中引用的数据添加至列表框End SubPrivate Sub输入_Click() '按输入键时将内容输入至A列空行中 Dim nextrow As Integer '声明变量，让其记录“下一行”行号 Me.ListBox1.MultiSelect=fmMultiSelectMulti '允许多项选择 For i=0 To ListBox1.ListCount-1 '列表框的计数是从0开始的 nextrow=Application.CountA(Range("A:A"))+1 '设定变量为A列第一个空单元格 If ListBox1.Selected(i) Then Sheet1.Cells(nextrow, 1).Value= ListBox1.List(i) '如果是选中状态则输出到工作表 Next i For i=0 To ListBox1.ListCount-1 '此三行取消选择状态 ListBox1.Selected(i)=False Next iEnd Sub
5、选择单元格A2，则出现窗体，窗体中的列表框已经导入了客户资料表中的数据，然后在列表中选择任意三个项目，项目以黑色背景显示，如图
