2003版EXCLE，带有VBA (Microsoft Visual Basic for Applications)
打开EXCEL，建立一个空白页（有则不需要建立），将空白页另存为：文件名“包材”，保存类型选择“EXCEL 97-2003 加载宏（*.xla）”
按组合键ALT+F11，就是ALT和F11同时按下，进入VBA界面
在左上角找到“工程-VBAProject”窗口(没找到，按组合键CTRL+R会出现)，在窗口中用鼠标双击VBAProject（包材.xls）下的ThisWorkbook
在右边出现的大框找到（通用）下拉条，选择Workbook。这时就会自动弹出一个Private Sub Workbook_Open()End Sub代码就添加在这个Workbook_Open宏中间
添加第一句，这一句是指在EXCEL菜单上的第三个位，建立名称叫“包材”菜单Application.CommandBars(1).Controls.Add(Type:=msoControlPopup, Before:=3, Temporary:=True).Caption = "包材(&B)"
添加第二句，在包材菜单上建立一个菜单条Set item = Application.CommandBars(1).Controls(3).Controls.Add
添加第三句，给菜单条，添加命令“编号”，命令对应的宏子程序叫“编号”，菜单条上有个“铅笔”图标item.Caption = "编号": item.OnAction = "编号": item.FaceId = 31
重复第1，2步就可以建立第二个菜单条，以至于更多菜单条
菜单多了需要有分隔成块，就可以添加item.BeginGroup = True产生分界线item.Caption = "建盘点表": item.OnAction = "建盘点表": item.FaceId = 159: item.BeginGroup = True
最终的菜单如下图
完成了菜单，接下来可以录制一个简单的宏，并把宏的名称改成“编号”
在左下角找到“属性-ThisWorkbook”窗口(没找到，按F4键会出现)，在窗口中用鼠标单击IsAddin右边的False，会出现一个下拉箭头，点击下拉箭头，选择True，这一步是让“包材.xla”的sheet页不可见。
保存一下(按组合键CTRL+S)
按组合键ALT+F11，返回EXCEL界面
进入菜单/工具/加载宏/浏览，点击浏览，找到宏存放位置，点宏文件（包材.xla），确定，就可以见到加载成功的菜单了
如果不成功，请将宏“安全性”调整为低。如果不愿设置低级别安全性可以添加excel2003自己做的数字证书