Sub CreateMenuBarAndSubMenu() '创建菜单栏 Dim newMenuBar As CommandBar Set newMenuBar = CommandBars.Add("MyMenuBar", msoBarTop, False, True) '创建子菜单 Dim newMenu As CommandBarPopup Set newMenu = newMenuBar.Controls.Add(msoControlPopup) '设置子菜单属性 newMenu.Caption = "MySubMenu" newMenu.Tag = "MySubMenuTag" '添加子菜单项 Dim newMenuItem As CommandBarButton Set newMenuItem = newMenu.Controls.Add(msoControlButton) newMenuItem.Caption = "MenuItem1" newMenuItem.Tag = "MenuItem1Tag" '添加子菜单项的点击事件处理程序 AddHandler newMenuItem.Click, AddressOf MenuItem1_Click '添加第二个子菜单项 Set newMenuItem = newMenu.Controls.Add(msoControlButton) newMenuItem.Caption = "MenuItem2" newMenuItem.Tag = "MenuItem2Tag" '添加第二个子菜单项的点击事件处理程序 AddHandler newMenuItem.Click, AddressOf MenuItem2_Click End Sub '子菜单项1的点击事件处理程序 Sub MenuItem1_Click() MsgBox "You clicked MenuItem1" End Sub '子菜单项2的点击事件处理程序 Sub MenuItem2_Click() MsgBox "You clicked MenuItem2" End Sub解释代码

这段代码是用于创建一个菜单栏和子菜单，并添加子菜单项以及它们的点击事件处理程序的过程。具体来说，它执行了以下步骤：

1. 创建一个名为 "MyMenuBar" 的菜单栏并将其添加到顶部位置。

2. 创建一个名为 "MySubMenu" 的子菜单，并将其添加到菜单栏中。

3. 设置子菜单的属性，包括标题和标签。

4. 添加 "MenuItem1" 子菜单项，并设置其标题和标签。

5. 添加 "MenuItem1" 子菜单项的点击事件处理程序。

6. 添加 "MenuItem2" 子菜单项，并设置其标题和标签。

7. 添加 "MenuItem2" 子菜单项的点击事件处理程序。

8. 定义 "MenuItem1_Click" 和 "MenuItem2_Click" 两个子程序作为子菜单项点击事件的处理程序。

9. 当用户点击 "MenuItem1" 或 "MenuItem2" 子菜单项时，会分别触发 "MenuItem1_Click" 或 "MenuItem2_Click" 子程序，并弹出相应的消息框。

总的来说，这段代码展示了如何使用 VBA 创建菜单栏和子菜单，并添加子菜单项及其相应的事件处理程序。