前往小程序,Get更优阅读体验!
立即前往
首页
学习
活动
专区
工具
TVP
发布
社区首页 >专栏 >创建常用功能加载宏

创建常用功能加载宏

作者头像
xyj
发布2020-07-28 11:39:44
4320
发布2020-07-28 11:39:44
举报
文章被收录于专栏:VBA 学习VBA 学习

创建一个空白加载宏文件,取名为常用功能,保存位置与MyVBA加载宏保持一致,这样MyVBA加载宏的打开宏文件菜单会找到它,并创建子按钮。

创建Ribbon界面:

初始的界面,在开发工具菜单后面增加了一个常用功能菜单,这个菜单下面有一个分组其他,里面有一个按钮关闭,功能就是关闭常用功能这个加载宏。

这种功能性的加载宏文件,设计目标就是在需要使用的时候,通过MyVBA加载宏的打开宏文件菜单打开它,使用结束后,通过关闭按钮关闭它。

Ribbon界面customUI.xml代码:

代码语言:javascript
复制
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="RibbonUI_onLoad">
<ribbon>
<tabs>
  <tab id="TabCommon" label="常用功能" insertAfterMso="TabDeveloper">
    <group id="GroupRange" label="单元格">


    </group>

   <group id="GroupOther" label="其他">
    <button id="rbbtnCloseCommon" label="关闭&#13;" size="large" onAction="rbbtnCloseCommon" imageMso="PrintPreviewClose"/>
  
   </group>

</tab>
</tabs>
</ribbon>
</customUI>

打开加载宏文件激活Ribbon界面回调函数:

代码语言:javascript
复制
Sub RibbonUI_onLoad(Ribbon As IRibbonUI)
    On Error Resume Next
    Ribbon.ActivateTab "TabCommon"
End Sub

Ribbon界面关闭按钮的回调函数:

代码语言:javascript
复制
'关闭加载宏
Sub rbbtnCloseCommon(control As IRibbonControl)
    ThisWorkbook.Close False
End Sub

在这个基础上,后续将陆续增加一些常用的功能。

主要是一些单元格操作、工作表操作等通用性的东西。

本文参与 腾讯云自媒体分享计划,分享自微信公众号。
原始发表:2020-06-10,如有侵权请联系 cloudcommunity@tencent.com 删除

本文分享自 VBA 学习 微信公众号,前往查看

如有侵权,请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体分享计划  ,欢迎热爱写作的你一起参与!

评论
登录后参与评论
0 条评论
热度
最新
推荐阅读
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档