怎样使用VBA列表框数据之导入与导出？

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Private Sub UserForm_Initialize()

    ActiveWorkbook.Names.Add Name:="客户", RefersToR1C1:="
   =客户资料表!R2C1:R10C1"   '添加名称
    UserForm1.ListBox1.RowSource="客户"  '将有效性中引用的数据添加至列表框
End Sub
Private 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 i
End Sub

5、选择单元格A2，则出现窗体，窗体中的列表框已经导入了客户资料表中的数据，然后在列表中选择任意三个项目，项目以黑色背景显示，如图