2003版EXCLE中用事件宏建立加载菜单的方法

1、打开EXCEL，建立一个空白页（有则不需要建立），将空白页另存为：文件名“包材”，保存类型选择“EXCEL 97-2003 加载宏（*.xla）”

2、按组合键ALT+F11，就是ALT和F11同时按下，进入VBA界面

3、在左上角找到“工程-VBAProject”窗口(没找到，按组合键CTRL+R会出现)，在窗口中用鼠标双击VBAProject（包材.xls）下的ThisWorkbook

4、在右边出现的大框找到（通用）下拉条，选择Workbook。这时就会自动弹出一个

Private Sub Workbook_Open()

End Sub

代码就添加在这个Workbook_Open宏中间

1、添加第一句，这一句是指在EXCEL菜单上的第三个位，建立名称叫“包材”菜单

Application.CommandBars(1).Controls.Add(Type:=msoControlPopup, Before:=3, Temporary:=True).Caption = "包材(&B)"

2、添加第二句，在包材菜单上建立一个菜单条

Set item = Application.CommandBars(1).Controls(3).Controls.Add

3、添加第三句，给菜单条，添加命令“编号”，命令对应的宏子程序叫“编号”，菜单条上有个“铅笔”图标

item.Caption = "编号": item.OnAction = "编号": item.FaceId = 31

4、重复第1，2步就可以建立第二个菜单条，以至于更多菜单条

5、菜单多了需要有分隔成块，就可以添加item.BeginGroup = True产生分界线

item.Caption = "建盘点表": item.OnAction = "建盘点表": item.FaceId = 159: item.BeginGroup = True

6、最终的菜单如下图

1、完成了菜单，接下来可以录制一个简单的宏，并把宏的名称改成“编号”

2、在左下角找到“属性-ThisWorkbook”窗口(没找到，按F4键会出现)，在窗口中用鼠标单击IsAddin右边的False，会出现一个下拉箭头，点击下拉箭头，选择True，这一步是让“包材.xla”的sheet页不可见。

3、保存一下(按组合键CTRL+S)

1、按组合键ALT+F11，返回EXCEL界面

2、进入菜单/工具/加载宏/浏览，点击浏览，找到宏存放位置，点宏文件（包材.xla），确定，就可以见到加载成功的菜单了

3、如果不成功，请将宏“安全性”调整为低。如果不愿设置低级别安全性可以添加

excel2003自己做的数字证书