随着手机里面功能越来越丰富，让我们使用起来越来越方便了，给我们的生活带来了极大的便利。怎样使用V幞洼踉残BA制作三级菜单？
工具/原料
手机
方法/步骤
1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，然后运行Sub建立三级菜单()'OnError六咝媲拜ResumeNextDimMenuAsCommandBarControl,惺绅寨瞀SubMenuAsCommandBarControl,SubMenusAsCommandBarControlDimi,jApplication.CommandBars(1).Controls("IT大学(&I)").DeleteSetMenu=Application.CommandBars(1).Controls.Add(msoControlPopup,,,,True)Menu.Caption="IT大学(&I)"'********************一级菜单按钮***********************WithMenu.Controls.Add(msoControlButton,1,,,True).Caption="辅导班"'&WorksheetFunction.Text(i,"[DBNum2][$-804]0").OnAction="andy".FaceId=481EndWith'*********************一级下拉菜单**********************Fori=1To3SetSubMenu=Menu.Controls.Add(msoControlPopup,1,,,True)SubMenu.Caption=WorksheetFunction.Text(i,"[DBNum1][$-804]0")&"年级"SubMenu.BeginGroup=TrueNexti'*********************二级下拉菜单**********************Fori=1To4SetSubMenus=Menu.Controls("一年级").Controls.Add(msoControlPopup,1,,,True)SubMenus.Caption=WorksheetFunction.Text(i,"[DBNum1][$-804]0")&"班"NextiFori=1To3SetSubMenus=Menu.Controls("二年级").Controls.Add(msoControlPopup,1,,,True)SubMenus.Caption=WorksheetFunction.Text(i,"[DBNum1][$-804]0")&"班"NextiFori=1To3SetSubMenus=Menu.Controls("三年级").Controls.Add(msoControlPopup,1,,,True)SubMenus.Caption=WorksheetFunction.Text(i,"[DBNum1][$-804]0")&"班"Nexti'*********************三级菜单按钮**********************Fori=1To3SetSubMenus=Menu.Controls("一年级").Controls("一班").Controls.Add(msoControlButton,1,,,True)SubMenus.Caption=Chr(64+i)&"组"SubMenus.Style=msoButtonIconAndCaptionSubMenus.FaceId=70+iNextiFori=1To3SetSubMenus=Menu.Controls("一年级").Controls("二班").Controls.Add(msoControlButton,1,,,True)SubMenus.Caption=Chr(64+i)&"组"SubMenus.Style=msoButtonIconAndCaptionSubMenus.FaceId=70+iNextiFori=1To2SetSubMenus=Menu.Controls("一年级").Controls("三班").Controls.Add(msoControlButton,1,,,True)SubMenus.Caption=Chr(64+i)&"组"SubMenus.Style=msoButtonIconAndCaptionSubMenus.FaceId=70+iNextiFori=1To3SetSubMenus=Menu.Controls("一年级").Controls("四班").Controls.Add(msoControlButton,1,,,True)SubMenus.Caption=Chr(64+i)&"组"SubMenus.Style=msoButtonIconAndCaptionSubMenus.FaceId=70+iNextiFori=1To3SetSubMenus=Menu.Controls("二年级").Controls("一班").Controls.Add(msoControlButton,1,,,True)SubMenus.Caption=Chr(64+i)&"组"SubMenus.Style=msoButtonIconAndCaptionSubMenus.FaceId=70+iNextiFori=1To4SetSubMenus=Menu.Controls("二年级").Controls("二班").Controls.Add(msoControlButton,1,,,True)SubMenus.Caption=Chr(64+i)&"组"SubMenus.Style=msoButtonIconAndCaptionSubMenus.FaceId=70+iNextiFori=1To3SetSubMenus=Menu.Controls("二年级").Controls("三班").Controls.Add(msoControlButton,1,,,True)SubMenus.Caption=Chr(64+i)&"组"SubMenus.Style=msoButtonIconAndCaptionSubMenus.FaceId=70+iNextiFori=1To3SetSubMenus=Menu.Controls("三年级").Controls("一班").Controls.Add(msoControlButton,1,,,True)SubMenus.Caption=Chr(64+i)&"组"SubMenus.Style=msoButtonIconAndCaptionSubMenus.FaceId=70+iNextiFori=1To3SetSubMenus=Menu.Controls("三年级").Controls("二班").Controls.Add(msoControlButton,1,,,True)SubMenus.Caption=Chr(64+i)&"组"SubMenus.Style=msoButtonIconAndCaptionSubMenus.FaceId=70+iNextiFori=1To3SetSubMenus=Menu.Controls("三年级").Controls("三班").Controls.Add(msoControlButton,1,,,True)SubMenus.Caption=Chr(64+i)&"组"SubMenus.Style=msoButtonIconAndCaptionSubMenus.FaceId=70+iNextiEndSub
5、用快捷键F5运行程序，工作簿的【加载项】功能区立即出现刚生成的三级菜单，如图
