随着手机里面功能越来越丰富，让我们使用起来越来越方便了，给我们的生活带来了极大的便利。怎样使用VBA列表框数据之导入与导出？工具/原料more手机方法/步骤1/5分步阅读

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

2/5

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

3/5

在VBA编辑器中插入模块

4/5

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

Private Sub UserForm_Initialize() 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/5

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

注意事项

智能手机助理给我们的生活带来了极大的便利！