订阅怎样使用VBA制作三级菜单？
来源：网络收集 点击： 时间：2024-04-21首先在开发工具中打开VBA编辑器
2/5在单元格区域当中输入一些内容作为例子
3/5在VBA编辑器中插入模块
4/5在模块当中输入如下代码，然后运行
Sub建立三级菜单()On Error Resume Next Dim Menu As CommandBarControl, SubMenu As CommandBarControl, SubMenus As CommandBarControl Dim i, j Application.CommandBars(1).Controls(IT大学(I)).Delete Set Menu=Application.CommandBars(1).Controls.Add(msoControlPopup,, , , True) Menu.Caption=IT大学(I) ********************一级菜单按钮*********************** With Menu.Controls.Add(msoControlButton, 1, , , True) .Caption=辅导班 WorksheetFunction.Text(i, 0) .OnAction=andy .FaceId=481 End With*********************一级下拉菜单**********************For i=1 To 3 Set SubMenu=Menu.Controls.Add(msoControlPopup, 1, , , True) SubMenu.Caption=WorksheetFunction.Text(i, 0) 年级 SubMenu.BeginGroup=TrueNext i*********************二级下拉菜单**********************For i=1 To 4 Set SubMenus=Menu.Controls(一年级).Controls.Add(msoControlPopup, 1, , , True) SubMenus.Caption=WorksheetFunction.Text(i, 0) 班
Next iFor i=1 To 3 Set SubMenus=Menu.Controls(二年级) .Controls.Add(msoControlPopup, 1, , , True) SubMenus.Caption=WorksheetFunction.Text(i, 0) 班Next iFor i=1 To 3Set SubMenus=Menu.Controls(三年级).Controls.Add(msoControlPopup, 1, , , True) SubMenus.Caption=WorksheetFunction.Text(i, 0) 班Next i*********************三级菜单按钮**********************For i=1 To 3Set SubMenus=Menu.Controls(一年级).Controls(一班).Controls. Add(msoControlButton, 1, , , True) SubMenus.Caption=Chr(64+i) 组 SubMenus.Style=msoButtonIconAndCaption SubMenus.FaceId=70+iNext iFor i=1 To 3Set SubMenus=Menu.Controls(一年级).Controls(二班).Controls. Add(msoControlButton, 1, , , True) SubMenus.Caption=Chr(64+i) 组 SubMenus.Style=msoButtonIconAndCaption SubMenus.FaceId=70+iNext iFor i=1 To 2Set SubMenus=Menu.Controls(一年级).Controls(三班).Controls. Add(msoControlButton, 1, , , True) SubMenus.Caption=Chr(64+i) 组 SubMenus.Style=msoButtonIconAndCaption SubMenus.FaceId=70+iNext iFor i=1 To 3Set SubMenus=Menu.Controls(一年级).Controls(四班).Controls. Add(msoControlButton, 1, , , True) SubMenus.Caption=Chr(64+i) 组 SubMenus.Style=msoButtonIconAndCaption SubMenus.FaceId=70+iNext i For i=1 To 3 Set SubMenus=Menu.Controls(二年级).Controls(一班).Controls.
Add(msoControlButton, 1, , , True) SubMenus.Caption=Chr(64+i) 组 SubMenus.Style=msoButtonIconAndCaption SubMenus.FaceId=70+iNext iFor i=1 To 4Set SubMenus=Menu.Controls(二年级).Controls(二班).Controls. Add(msoControlButton, 1, , , True)SubMenus.Caption=Chr(64+i) 组SubMenus.Style=msoButtonIconAndCaptionSubMenus.FaceId=70+iNext iFor i=1 To 3Set SubMenus=Menu.Controls(二年级).Controls(三班).Controls. Add(msoControlButton, 1, , , True)SubMenus.Caption=Chr(64+i) 组SubMenus.Style=msoButtonIconAndCaptionSubMenus.FaceId=70+iNext iFor i=1 To 3 Set SubMenus=Menu.Controls(三年级).Controls(一班).Controls.Add(msoControlButton, 1, , , True)SubMenus.Caption=Chr(64+i) 组SubMenus.Style=msoButtonIconAndCaptionSubMenus.FaceId=70+iNext iFor i=1 To 3 Set SubMenus=Menu.Controls(三年级).Controls(二班).Controls.Add(msoControlButton, 1, , , True)SubMenus.Caption=Chr(64+i) 组SubMenus.Style=msoButtonIconAndCaptionSubMenus.FaceId=70+iNext iFor i=1 To 3 Set SubMenus=Menu.Controls(三年级).Controls(三班).Controls.Add(msoControlButton, 1, , , True)SubMenus.Caption=Chr(64+i) 组SubMenus.Style=msoButtonIconAndCaptionSubMenus.FaceId=70+iNext iEnd Sub
5/5用快捷键F5运行程序，工作簿的【加载项】功能区立即出现刚生成的三级菜单，如图
注意事项智能手机助理给我们的生活带来了极大的便利！
版权声明：
1、本文系转载，版权归原作者所有，旨在传递信息，不代表看本站的观点和立场。
2、本站仅提供信息发布平台，不承担相关法律责任。
3、若侵犯您的版权或隐私，请联系本站管理员删除。
4、文章链接：http://www.1haoku.cn/art_557643.html
