随着手机里面功能越来越丰富,让我们使用起来越来越方便了,给我们的生活带来了极大的便利。怎样使用V幞洼踉残BA两个列表框之间的内容转移?
工具/原料
手机
方法/步骤
1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码,然后运行PrivateSubUserForm_Init坡纠课柩ialize()DimobjM髫潋啜缅enuAsCommandBar,objContAsCommandBarControl,NumAsLongApplication.ScreenUpdating=FalseNum=1ForEachobjMenuInApplication.CommandBars'将变量赋予菜单项ForEachobjContInobjMenu.Controls'将变量赋予子菜单Me.ListBox1.AddItemobjCont.Caption'在列表框中添加子菜单名Num=Num+1NextobjContNextobjMenuApplication.ScreenUpdating=TrueSetobjMenu=Nothing'释放变量SetobjCont=NothingMe.ListBox1.MultiSelect=fmMultiSelectMulti'允许多项选择Me.ListBox2.MultiSelect=fmMultiSelectSingle'只能单项选择Application.ScreenUpdating=TrueEndSub
5、选中右边“要显示的菜单”列表中的“插入”条目,然后单击“<<删除”按钮,则选中条目立即删除,如图