随着手机里面功能越来越丰富,让我们使用起来越来越方便了,给我们的生活带来了极大的便利。怎样使用VBA列表框数据之导入与导出?
工具/原料
手机
方法/步骤
1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码,然后运行PrivateSubUserForm_Init坡纠课柩ialize()ActiveWo鸡堕樱陨rkbook.Names.AddName:="客户",RefersToR1C1:="=客户资料表!R2C1:R10C1"'添加名称UserForm1.ListBox1.RowSource="客户"'将有效性中引用的数据添加至列表框EndSubPrivateSub输入_Click()'按输入键时将内容输入至A列空行中DimnextrowAsInteger'声明变量,让其记录“下一行”行号Me.ListBox1.MultiSelect=fmMultiSelectMulti'允许多项选择Fori=0ToListBox1.ListCount-1'列表框的计数是从0开始的nextrow=Application.CountA(Range("A:A"))+1'设定变量为A列第一个空单元格IfListBox1.Selected(i)ThenSheet1.Cells(nextrow,1).Value=ListBox1.List(i)'如果是选中状态则输出到工作表NextiFori=0ToListBox1.ListCount-1'此三行取消选择状态ListBox1.Selected(i)=FalseNextiEndSub
5、选择单元格A2,则出圬杂钴怖现窗体,窗体中的列表框已经导入了客户资料表中的数据,然后在列表中选择任意三个项目,项目以黑色背景显示,如图