随着手机里面功能越来越丰富,让我们使用起来越来越方便了,给我们的生活带来了极大的便利。怎样使用VBA向列表框追加数据?
工具/原料
手机
方法/步骤
1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码,然后运行PrivateSubUserForm_Init坡纠课柩ialize()Dimcell帆歌达缒AsRangeForEachcellInSheets("客户资料表").Range("a2:a10")'让变量cell在区域a2:a10中循环Me.ListBox1.AddItemcell.Text'将单元格的数据添加到列表框Next'下一个单元格EndSubPrivateSubListBox1_DblClick(ByValCancelAsMSForms.ReturnBoolean)Dimstrstr=Application.InputBox("请输入需要追加的数据","新项目",,,,,,7)Ifstr=FalseThenExitSubMe.ListBox1.AddItemstrEndSub
5、在A列任意选择一个单元格,则出现窗体,双击窗体中的列表框,弹出“新项目”对话框,在堤寇辔钒其中输入汉字或者数字后程序自动将新项目追加到列表框中,如图