[已解决]怎样把两个命令合成一个

qhllqhll

怎样把 （代码1）和 （代码2）合成一个整体的vba代码
谢谢
Sub 主菜单() '代码1
On Error Resume Next
Dim BarCtlBtn As CommandBarButton
  Application.CommandBars("MyMenu").Delete
  
  With Application.CommandBars.Add("MyMenu", msoBarTop, False, False)
    Set BarCtlBtn = .Controls.Add(Type:=msoControlButton)
        With BarCtlBtn
            .Style = msoButtonIconAndCaption
            .Caption = "[界面清空]"
            .FaceId = 263
            .OnAction = "EXCELPZ_Click"
        End With
   .Visible = True
  End With
End Sub
Sub 含子菜单()  '代码2
On Error Resume Next
Application.CommandBars("myMenu").Delete
Set myMenu = Application.CommandBars.Add
With myMenu
.Visible = True
.Position = msoBarTop
.Name = "myMenu"
End With
Set 子菜单 = myMenu.Controls.Add(Type:=msoControlPopup)
子菜单.Caption = "菜单一"
Set KJ = 子菜单.Controls.Add(Type:=msoControlButton)
With KJ
.Caption = "命令一"
.OnAction = "命令一"
End With
Set KJ = 子菜单.Controls.Add(Type:=msoControlButton)
With KJ
.Caption = "命令二"
.OnAction = "命令二"
End With
End Sub

最佳答案

月排行榜 / 总排行榜

zjdh

2012-12-24 13:27

1. Sub 菜单()
   
2.     On Error Resume Next
   
3.     Application.CommandBars("myMenu").Delete
   
4.     Set myMenu = Application.CommandBars.Add
   
5.     With myMenu
   
6.         .Visible = True
   
7.         .Position = msoBarTop
   
8.         .Name = "myMenu"
   
9.     End With
   
10.     Set BarCtlBtn = myMenu.Controls.Add(Type:=msoControlButton)
    
11.     With BarCtlBtn
    
12.         .Style = msoButtonIconAndCaption
    
13.         .Caption = "[界面清空]"
    
14.         .FaceId = 263
    
15.         .OnAction = "EXCELPZ_Click"
    
16.     End With
    
17.     Set 子菜单 = myMenu.Controls.Add(Type:=msoControlPopup)
    
18.     子菜单.Caption = "菜单一"
    
19.     Set KJ = 子菜单.Controls.Add(Type:=msoControlButton)
    
20.     With KJ
    
21.         .Caption = "命令一"
    
22.         .OnAction = "命令一"
    
23.     End With
    
24.     Set KJ = 子菜单.Controls.Add(Type:=msoControlButton)
    
25.     With KJ
    
26.         .Caption = "命令二"
    
27.         .OnAction = "命令二"
    
28.     End With
    
29. End Sub
    
30. 
    

复制代码

跳转到最佳答案楼层

zjdh

1. Sub 菜单()
   
2.     On Error Resume Next
   
3.     Application.CommandBars("myMenu").Delete
   
4.     Set myMenu = Application.CommandBars.Add
   
5.     With myMenu
   
6.         .Visible = True
   
7.         .Position = msoBarTop
   
8.         .Name = "myMenu"
   
9.     End With
   
10.     Set BarCtlBtn = myMenu.Controls.Add(Type:=msoControlButton)
    
11.     With BarCtlBtn
    
12.         .Style = msoButtonIconAndCaption
    
13.         .Caption = "[界面清空]"
    
14.         .FaceId = 263
    
15.         .OnAction = "EXCELPZ_Click"
    
16.     End With
    
17.     Set 子菜单 = myMenu.Controls.Add(Type:=msoControlPopup)
    
18.     子菜单.Caption = "菜单一"
    
19.     Set KJ = 子菜单.Controls.Add(Type:=msoControlButton)
    
20.     With KJ
    
21.         .Caption = "命令一"
    
22.         .OnAction = "命令一"
    
23.     End With
    
24.     Set KJ = 子菜单.Controls.Add(Type:=msoControlButton)
    
25.     With KJ
    
26.         .Caption = "命令二"
    
27.         .OnAction = "命令二"
    
28.     End With
    
29. End Sub
    
30. 
    

复制代码

qhllqhll

zjdh 发表于 2012-12-24 13:27

非常感谢您的热心帮助，正是这个意思