excel自定义功能区代码

Question

如题所述

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