Question

excel自定义功能区代码

我在excel自定义功能区添加了新的选项卡，如图：

在整个excel表格中有如下子表

现在我想添加一个代码，只要点击乌鸦选项卡中的按钮，就能跳转到相应的子工作表。求高手帮助。
我对VBA是小白，求大神帮助解决一下。有偿求助哇。





Answer 1

我这里有一份是在2003版本下面我自己做的，截个表头给你，代码附后。

Sub Auto_open()

    MenuBars.Add "菜单"

    With MenuBars("菜单")

        .Menus.Add "基础设置"

        .Menus.Add "采购管理"

        .Menus.Add "生产管理"

        .Menus.Add "销售管理"

        .Menus.Add "报表管理"

        .Menus.Add "退出系统"

        .Menus.Add "返回Excel主菜单"

    End With

      With MenuBars("菜单").Menus("基础设置")

          .MenuItems.Add "供应商代码", "gysdma"

          .MenuItems.Add "销售商代码", "xssdma"

          .MenuItems.Add "原料代码", "yldma"

          .MenuItems.Add "成品代码", "cpdma"

          .MenuItems.Add "BOM维护", "bomwha"

          .MenuItems.Add "流程说明", "lcsma"

      End With

      With MenuBars("菜单").Menus("采购管理")

          .MenuItems.Add "入库单录入", "rkdlra"

          .MenuItems.Add "入库明细表", "rkmxba"

          .MenuItems.Add "收料单录入", "sldlra"

          .MenuItems.Add "收料明细表", "slmxba"

      End With

      With MenuBars("菜单").Menus("生产管理")

          .MenuItems.Add "领料单录入", "lldlra"

          .MenuItems.Add "生产领用明细表", "sclymxba"

          .MenuItems.Add "产品入库单录入", "cprkdlra"

          .MenuItems.Add "产品入库明细表", "cprkmxba"

      End With

      With MenuBars("菜单").Menus("销售管理")

        .MenuItems.Add "出库单录入", "ckdlra"

        .MenuItems.Add "销售明细表", "xsmxba"

      End With

      With MenuBars("菜单").Menus("报表管理")

        .MenuItems.Add "原料库存表", "ylkcba"

        .MenuItems.Add "成品库存表", "cpkcba"

        .MenuItems.Add "半成品出入库存表", "bcpcrkcba"

      End With

     MenuBars("菜单").Menus("退出系统").MenuItems.Add "保存退出", "savequita"

     MenuBars("菜单").Menus("返回Excel主菜单").MenuItems.Add "返回系统菜单", "Auto_close"

     MenuBars("菜单").Activate

 Application.CommandBars("standard").Reset

End Sub

Sub gysdma()

    Worksheets("供应商代码").Activate

End Sub

Sub xssdma()

    Worksheets("销售商代码").Activate

End Sub

Sub yldma()

    Worksheets("原料代码").Activate

End Sub

Sub cpdma()

    Worksheets("成品代码").Activate

End Sub

Sub bomwha()

    Worksheets("BOM").Activate

End Sub

Sub lcsma()

Worksheets("流程说明").Activate

End Sub

Sub rkdlra()

    Worksheets("入库单").Activate

End Sub

Sub rkmxba()

    Worksheets("入库明细表").Activate

End Sub

Sub sldlra()

    Worksheets("收料单").Activate

End Sub

Sub slmxba()

    Worksheets("收料明细表").Activate

End Sub

Sub lldlra()

    Worksheets("生产领料单").Activate

End Sub

Sub sclymxba()

    Worksheets("生产领用明细表").Activate

End Sub

Sub cprkdlra()

    Worksheets("产品入库单").Activate

End Sub

Sub cprkmxba()

    Worksheets("产品入库明细表").Activate

End Sub

Sub ckdlra()

    Worksheets("出库单").Activate

End Sub

Sub xsmxba()

    Worksheets("销售明细表").Activate

End Sub

Sub ylkcba()

    Worksheets("原料库存表").Activate

End Sub

Sub cpkcba()

    Worksheets("成品库存表").Activate

End Sub

Sub bcpcrkcba()

    Worksheets("半成品出入库存表").Activate

End Sub

追问

完全看不懂！能否帮忙弄一下？

追答

其实leesunshine007的代码更适合你，更简单。我的是在03下面用的，他的是在07上面用的。

Answer 2

Sub openSheet(shtName As String)
    ThisWorkbook.Sheets(shtName).Activate
End Sub
Sub openSheet1()
    openSheet "sheet1"
    
End Sub
Sub openSheet2()
   openSheet "sheet2"
    
End Sub
Sub openSheet3()
    openSheet "sheet3"
    
End Sub

追问

看不懂哇！

追答

你先写打开 不同表 的宏, 把宏加到 工具栏中 就可以了.
打开 表的 宏 请看上面的例子, 如果还不懂. 加我头像, 我远程 给你解决.