添加新的Excel工具栏，实现自己需要的功能。

因为工作需要，想做Excel的辅助行工具。看到别人有实现的自己的工具栏，觉得这种形式挺好。于是也想做一个。

上网搜索了下资料，也没有找到什么简单方法。不过搜到一个别人写的工具栏的东西，正是我想要的那种。

原地址：

http://blog.chinaunix.net/u/5486/showart_94340.html

作者没有加密，所以可以查看源代码。感谢～

不过这里只是一个完成的东西。作者也没有讲怎么做出来的，可能是觉得太简单了，没有必要讲（＝。＝，可是我就是不知道怎么开始做，菜鸟啊）。

 

我这里说下简单步骤，真正实现的功能由VBA实现。根据自己需要做咯。（这里的步骤可能不正规，不过我也不知道正规的步骤是什么～^_^，反正这么做了是可以的。）

 

第一步，打开Excel，将sheet2，sheet3删掉，只保留一个sheet1.

第二步，按alt＋F11，打开VBA编辑器。

第三步，在VBAProject中添加自己的模块，窗体，类等，实现自己的功能。

第四步，修改ThisWorkbook的属性，将IsAddin修改为True。Saved的值修改为True.其他属性根据需要修改。

第五步，保存文件，保存时选择文件类型为 xla类型（Microsoft office Excel 加载宏）文件。

 

添加工具栏及按钮的代码：

Sub AddToolBar() Dim cbMyToolBar As CommandBar Dim cbc As CommandBarControl ' 添加工具栏 Set cbMyToolBar = Application.CommandBars.Add("mytool", msoBarFloating) ' 给工具栏上添加按钮 Set cbc = Application.CommandBars("mytool").Controls.Add With cbc .Style = msoButtonCaption .Caption = "Unl" .OnAction = "myFunction" .BeginGroup = True End With cbMyToolBar.Visible = True End Sub cbMyToolBar.Visible = True End Sub

 

显示工具栏：

Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.CommandBars("mytool").Delete End Sub Private Sub Workbook_Open() AddToolBar End Sub