订阅怎样使用VBA两个列表框之间的内容转移？
来源：网络收集 点击： 时间：2024-08-11首先在开发工具中打开VBA编辑器
2/5在单元格区域当中输入一些内容作为例子
3/5在VBA编辑器中插入模块
4/5在模块当中输入如下代码，然后运行
Private Sub UserForm_Initialize() Dim objMenu 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/5选中右边“要显示的菜单”列表中的“插入”条目，然后单击“ 删除”按钮，则选中条目立即删除，如图
注意事项智能手机助理给我们的生活带来了极大的便利！
版权声明：
1、本文系转载，版权归原作者所有，旨在传递信息，不代表看本站的观点和立场。
2、本站仅提供信息发布平台，不承担相关法律责任。
3、若侵犯您的版权或隐私，请联系本站管理员删除。
4、文章链接：http://www.1haoku.cn/art_1106555.html
