创建常用功能加载宏

时间:2022-07-22
本文章向大家介绍创建常用功能加载宏,主要内容包括其使用实例、应用技巧、基本知识点总结和需要注意事项,具有一定的参考价值,需要的朋友可以参考一下。

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

创建Ribbon界面:

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

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

Ribbon界面customUI.xml代码:

<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界面回调函数:

Sub RibbonUI_onLoad(Ribbon As IRibbonUI)
    On Error Resume Next
    Ribbon.ActivateTab "TabCommon"
End Sub

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

'关闭加载宏
Sub rbbtnCloseCommon(control As IRibbonControl)
    ThisWorkbook.Close False
End Sub

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

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