怎样使用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，则出现窗体，窗体中的列表框已经导入了客户资料表中的数据，然后在列表中选择任意三个项目，项目以黑色背景显示，如图