excel自定义功能区代码

在你的图中常用命令那一栏里选择所有命令 找到你需要的 添加到右边 最后确定即可

我这里有一份是在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 "返回系e79fa5e98193e59b9ee7ad94330统菜单", "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

点击左上角的“文件”，在“Excel选项”的“自定义功能区”中，选择需要添加的功能区，通过中间的“添加”按钮，添加到右侧，确定，即可。

打开excel,选择百“文件”。 步骤阅读 2 选择“选项”一栏。 步骤阅读 3 选择“自定义功能区”。 步骤阅读 4 选中“度开始”选项。 步骤阅读 5 选择“新建组”6.选中新建的回组，点击重命名7输入命名，点击确定8选中已经新建的组，添加常用的命令答。选择“添加”9表格的功能区就会出现，刚才新建的组及其中的命令