如何让工具栏按钮个性化定制

　作为某公司的一名会计，经常用到Excel表格。在工作中，常常要用到“商品入库”、“商品出库”和“库存打印”三个特殊的宏。由于宏用起来不方便，能不能将宏变为工具栏按钮？我的这个设想可以实现吗？  

　当然可以，利用CommandBar对象可以在不改变Excel系统菜单的前提下新建一个工具栏。关键代码如下（完整代码下载地址：//www.pcw，com/bzt）：Private    SubWorkbook_Open()On Error Resume NextDim mynum As Integer,myname As String, mycomAs String如果存在同名的工具栏则将其删除Application.

　CommandBars（”库存管理”），Delete在工作表顶部创建名为库存管理的工具栏Application.CommandBars.Add (Name:=”库存管理”，Position:=msoBarTop).Visibte：True分别添加3个按钮并设置按钮格式myname=“商品入库”mycon= "rk": mynum =1Call cmdstyle (myname,mynum, mycon)myname=“商品出库”：mycon= "ck": mynum=2Call cmdstyle (myname,mynum, mycon)myname=”库存打印”：mycon= "dy": mynum=3Call cmdstyle (myname,mynum; mycon)End Sub如果你想在关闭当前工作簿的同时删除创建的工具栏，那么在当前工作簿的“BeforeClose”事件中写入代码“Application，CommandBars（”库存管理”），Delete”即可。