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=True
Next i
'*********************二级下拉菜单**********************
For i=1 To 4
Set SubMenus=Menu.Controls("一年级").Controls.Add(msoControlPopup, 1, , , True)
SubMenus.Caption=WorksheetFunction.Text(i, "[DBNum1][$-804]0") & "班"
Next i
For i=1 To 3
Set SubMenus=Menu.Controls("二年级")
.Controls.Add(msoControlPopup, 1, , , True)
SubMenus.Caption=WorksheetFunction.Text(i, "[DBNum1][$-804]0") & "班"
Next i
For i=1 To 3
Set SubMenus=Menu.Controls("三年级").Controls.Add(msoControlPopup, 1, , , True)
SubMenus.Caption=WorksheetFunction.Text(i, "[DBNum1][$-804]0") &肺称 "班"
Next 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+i
Next 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+i
Next i
For i=1 To 2
Set SubMenus=Menu.Controls("一年级").Controls("三班").Controls.
Add(msoControlButton, 1, , , True)
SubMenus.Caption=Chr(64+i) & "组"
SubMenus.Style=msoButtonIconAndCaption
SubMenus.FaceId=70+i
Next 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+i
Next 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+i
Next i
For i=1 To 4
Set SubMenus=Menu.Controls("二年级").Controls("二班").Controls.
Add(msoControlButton, 1, , , True)
SubMenus.Caption=Chr(64+i) & "组"
SubMenus.Style=msoButtonIconAndCaption
SubMenus.FaceId=70+i
Next 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+i
Next 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+i
Next 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+i
Next 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+i
Next i
End Sub
5、用快捷键F5运行程序，工作簿的【加载项】功能区立即出现刚生成的三级菜单，如图
