1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，然后运行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, " [DBNum2][$-804]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, "[DBNum1][$-804]0") & "年级" SubMenu.BeginGroup=TrueNext i'*********************二级下拉菜单**********************For i=1 To 4 Set SubMenus=Menu.Controls("一年级").Controls.Add(msoControlPopup, 1, , , True) SubMenus.Caption=WorksheetFunction.Text(i, "[DBNum1][$-804]0") & "班"Next iFor i=1 To 3 Set SubMenus=Menu.Controls("二年级") .Controls.Add(msoControlPopup, 1, , , True) SubMenus.Caption=WorksheetFunction.Text(i, "[DBNum1][$-804]0") & "班"Next iFor i=1 To 3Set SubMenus=Menu.Controls("三年级").Controls.Add(msoControlPopup, 1, , , True) SubMenus.Caption=WorksheetFunction.Text(i, "[DBNum1][$-804]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、用快捷键F5运行程序，工作簿的【加载项】功能区立即出现刚生成的三级菜单，如图
