电脑桌面
添加小米粒文库到电脑桌面
安装后可以在桌面快捷访问

通过VBA自定义向Excel添加工具栏VIP免费

通过VBA自定义向Excel添加工具栏_第1页
1/44
通过VBA自定义向Excel添加工具栏_第2页
2/44
通过VBA自定义向Excel添加工具栏_第3页
3/44
通过VBA 自定义向Excel 添加工具栏 Office 由于提供了VBA,为大家开发一些定制功能提供了一种途径。但是如何实现工具栏中的命令与宏进行绑定,对于初学则来说是一个不小的门槛。 今天,给大家介绍一下在 Excel 里写完宏后,如何通过宏自动生成工具栏。 如图: 在 VBA 中将要用到 CommandBar,CommandBarButton 两个对象。 Option Explicit '定义全局变量 Private zyi_Bar As CommandBar Private zyi_ComBarBtn As CommandBarButton '------------------------------------------------------------------------------------------------------------- '增加工具栏 '------------------------------------------------------------------------------------------------------------- Sub AddToolBar() ' ' ' ' Application.CommandBars.Add(Name:="zy").Visible = True Dim strBarName As String Dim strParam As String Dim strCaption As String Dim strCommand As String Dim nIndex As Integer Dim nFaceId As Integer Dim cBar As CommandBar strBarName = "ZYI_TOOL" For Each cBar In Application.CommandBars If cBar.Name = strBarName Then Set zyi_Bar = cBar GoTo 20 End If Next 'On Error GoTo 10 'Set zyi_Bar = Application.CommandBars(strBarName) 'If zyi_Bar.Name = strBarName Then ' GoTo 20 '已经存在 ' zyi_Bar.Delete 'End If '10: On Error GoTo 100 Set zyi_Bar = Application.CommandBars.Add(Name:=strBarName) 20: zyi_Bar.Visible = True On Error GoTo 100 '----------------------------------------------------------- '1. 复制工作表 nIndex = 1 strCaption = "复制工作表" strParam = "复制工作表的单元格内容及格式!" strCommand = "复制工作表" nFaceId = 271 If zyi_Bar.Controls.Count < nIndex Then AddComBarBtn strParam, strCaption, strCommand, nIndex, nFaceId ElseIf zyi_Bar.Controls(nIndex).Caption <> strCaption Then AddComBarBtn strParam, strCaption, strCommand, nIndex, nFaceId End If '----------------------------------------------------------- '2. 合并单元格 nIndex = 2 strCaption = "合...

1、当您付费下载文档后,您只拥有了使用权限,并不意味着购买了版权,文档只能用于自身使用,不得用于其他商业用途(如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利)。
2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。
3、如文档内容存在违规,或者侵犯商业秘密、侵犯著作权等,请点击“违规举报”。

碎片内容

通过VBA自定义向Excel添加工具栏

确认删除?
VIP
微信客服
  • 扫码咨询
会员Q群
  • 会员专属群点击这里加入QQ群
客服邮箱
回到顶部