怎样使用VBA两个列表框之间的内容转移

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

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

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

4、在模块当中输入如下代码，然后运行Private Sub UserForm_Init坡纠课柩ialize() Dim objM髫潋啜缅enu As CommandBar, objCont As CommandBarControl, Num As Long Application.ScreenUpdating=False Num=1 For Each objMenu In Application.CommandBars '将变量赋予菜单项 For Each objCont In objMenu.Controls '将变量赋予子菜单 Me.ListBox1.AddItem objCont.Caption '在列表框中添加子菜单名 Num=Num+1 Next objCont Next objMenu Application.ScreenUpdating=True Set objMenu=Nothing '释放变量 Set objCont=Nothing Me.ListBox1.MultiSelect=fmMultiSelectMulti '允许多项选择 Me.ListBox2.MultiSelect=fmMultiSelectSingle '只能单项选择 Application.ScreenUpdating=True End Sub

5、选中右边“要显示的菜单”列表中的“插入”条目，然后单击“<< 删除”按钮，则选中条目立即删除，如图