如何在工具栏增加按钮装进多个宏

jjmysjg

Excel2007版本工作簿，里面有多个宏代码，

想在工具栏添加一个选项，点击后显示多个宏代码，以便点击每个代码运行宏。
麻烦你各位老师指点以下如何实现。
谢谢！

杨建营

试试能用不

jjmysjg

杨建营 发表于 2024-6-18 10:38
试试能用不

非常感谢大师帮忙！我先看看

jjmysjg

这个是附件，能按要求在工具栏加上个“合并工具”选项吗
谢谢各位老师！

jjmysjg

杨建营 发表于 2024-6-18 10:38
试试能用不

麻烦看看3楼的附件。
谢谢！

杨建营

jjmysjg 发表于 2024-6-18 11:57
麻烦看看3楼的附件。
谢谢！

按这个更新数据，代码保存在我的代码里面（生成文件后再保存）

杨建营

jjmysjg 发表于 2024-6-18 11:57
麻烦看看3楼的附件。
谢谢！

https://club.excelhome.net/forum ... amp;_dsign=2f8dec51这个是原作者的网页

hasyh2008

Sub 添加工作表隐藏()
  On Error Resume Next
  Dim X, copup As CommandBarPopup, copup1 As CommandBarButton, copup2 As CommandBarButton, copup3 As CommandBarButton, copup4 As CommandBarButton
  Application.CommandBars(1).Controls("隐藏工作表").Delete
  Set copup = Application.CommandBars(1).Controls.Add(Type:=msoControlPopup, before:=1) '添加到最上的位置
   With copup
     .Caption = "隐藏工作表"
     .BeginGroup = True '添加分组线
   End With
   
    Set copup1 = copup.Controls.Add(before:=1)  '添加到最上的位置
    With copup1
      .Caption = "深度隐藏工作表"
      .OnAction = "深度隐藏工作表"
    End With
     
     Set copup2 = copup.Controls.Add(before:=2)  '添加到最上的位置
    With copup2
      .Caption = "取消深度隐藏工作表"
      .OnAction = "取消深度隐藏工作表"
    End With
     Set copup3 = copup.Controls.Add(before:=3)  '添加到最上的位置
    With copup3
      .Caption = "隐藏当前工作表"
      .OnAction = "隐藏当前工作表"
    End With
End Sub

hasyh2008

Sub 深度隐藏工作表()
  Dim i%
  Sheets(1).Visible = -1
  For i = 2 To Worksheets.count
    Sheets(i).Visible = 2
  Next i
End Sub
Sub 取消深度隐藏工作表()
  On Error Resume Next
  Dim i%
  For i = 2 To Worksheets.count
    Sheets(i).Visible = -1
  Next i
End Sub

Sub 隐藏当前工作表()
    ActiveSheet.Visible = 2
End Sub

hasyh2008