WPS 自定义功能区添加宏（VBA）设定的功能

MicroOffice Excel可以在“自定义功能区”菜单中，可以直接添加“宏”。但是WPS Excel的“自定义功能区”设置菜单不支持“宏”的添加。

想要的效果图是下图样式：自定义功能标签“我的菜单”，并在其下有自定义的功能按钮。

下面记录WPS Excel的实现过程。

1、新建“自定义功能区.xlsx”文件，并录制两个宏依次用来给A1单元格标记黄色和标记无色。并将文件另存为启用宏的xlsm格式，即，“自定义功能区.xlsm”

查看宏代码如下：

2、在电脑上新建一个文件夹“mUI”,

在mUI内新建两个文件夹“_rels"、"images" 和一个文本文件 “mUI.xml”

mUI.xml 内填入如下内容

<?xml version="1.0" encoding="utf-8"?><customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">  <ribbon startFromScratch="false"> <tabs><tab id="mUI" label="我的菜单"> <group id="Group1" ><button id="Button1" label="标记" image="image-01" size="large" onAction="标记A1"/> </group><group id="Group2" ><button id="Button2" label="擦除" image="image-02" size="large" onAction="擦除A1"/>  </group>  </tab> </tabs> </ribbon>
</customUI>

将图标图片 image01 和 image02 放入images文件夹内。

在"_rels"文件夹中新建文本文档“mUI.xml.rels”,并填入如下内容

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<Relationships xmlns="http://schemas.openxmlformats.org/package/2006/relationships">
<Relationship Id="image-01" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/image" Target="images/image01.png"/>
<Relationship Id="image-02" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/image" Target="images/image02.png"/>
</Relationships>

3、用压缩软件打开“自定义功能区.xlsm”文件，打开方式里不提示压缩软件的，可以通过“选择其他应用”查找到压缩软件。

在此处添加上一步准备的“mUI”文件夹

将“_rels”文件夹下的".rels"文件添加如下内容（有的压缩软件不支持编辑，可以拖出编辑文件，后在添加覆盖原文件）

<Relationship Id="mUIRelID" Type="http://schemas.microsoft.com/office/2007/relationships/ui/extensibility" Target="mUI/mUI.xml"/>

此时打开“自定义功能区.xlsm”文件，界面效果已经实现了

但是宏的功能还没有实现。

这里困惑了很长时间，就差一步了。是需要把宏标记为“control As IRibbonControl”，如下：

Sub 标记A1(control As IRibbonControl)
'
' 标记A1 Macro
' 宏由 LiuZW 录制，时间: 2023/04/09
' 功能：将A1单元格标记为黄色
'Range("A1").SelectWith Selection.Interior.Pattern = xlPatternSolid.Color = 65535.TintAndShade = 0.PatternColorIndex = -4105End With
End Sub
Sub 擦除A1(control As IRibbonControl)
'
' 擦除A1 Macro
' 宏由 LiuZW 录制，时间: 2023/04/09
' 功能：将A1单元格标记为无色
'Range("A1").SelectSelection.Interior.Pattern = xlPatternNone
End Sub

此时，两个功能按钮的功能实现了。也就是Button的OnAction属性生效了。

示例文件：自定义功能区.xlsm

WPS 自定义功能区添加宏（VBA）设定的功能相关推荐

[Office] WPS Excel通过添加宏实现多张表格合并
在我们使用Excel时,通常会遇到让各个地区.各个学院或下属单位收集数据的情况,有时还会每月.每周,甚至是每日调度数据,而当我们得到了这些Excel文件表格之后,很多同志会进行人工手动汇总,这大大降低 ...
Excel VBA 实现Ribbon自定义功能区
Excel VBA 实现Ribbon自定义功能区 2022.12.3修改目录自定义功能区的实现 1.编写执行代码生成.xlam文件,拷贝到%APPDATA%\Microsoft\AddIns\ 2 ...
如何将Mindjet的宏放到自定义功能区
如何将Mindjet的宏放到自定义功能区虽然很早就接触了思维软件Mindjet Manager,但最近才用得比较频繁.现在软件已发布到Mindjet15版,官方原版终于支持中文了,但我还是比较习惯1 ...
wps js自定义功能区，把写好的宏命令加在excel的功能区
前言每次运行宏的时候都要打开Excel宏文件是很麻烦的事情,虽然可以把宏命令添加到快速访问工具栏,但是不能自定义图标和按钮文字,用起来也不方便.官方推荐用CustomUI标准进行配置,不过写XML文 ...
Excel 2010 VBA 入门 140 在功能区添加按钮并运行VBA程序
目录题码回调(CallBack) IRibbonControl对象题如图所示,该表为员工档案.为了避免该表的数据被修改,该表已经被保护.如何在功能区添加一个按钮,当单击该按钮后可以将该表的数 ...
excel自定义功能区图标_将您自己的图标添加到Excel自定义功能区选项卡
excel自定义功能区图标 Are you building custom tabs for your workbooks yet? Last year, I wrote a couple of ar ...
自定义控件添加属性_|AutoCAD LT 2019 Mac自定义功能区的方法
AutoCAD LT是一款非常好用的CAD三维设计绘图软件,最新版本2019拥有改进的桌面.新应用实现跨设备工作流,以及DWG比较等新功能,并且AutoCAD LT 2019 Mac可以根据你的需要和 ...
Excel VBA自定义功能区
在 Excel 编写代码,离不开界面的导航.之前为了简单,经常将控件放置在工作表上.但这种方法显得不专业.Office 其实允许通过代码或者使用 XML 文件的方式来定义功能区.本篇介绍自定义功能区的 ...
工具栏自定义_EXCEL LESSON12 自定义功能区菜单及工具栏(1/3)
不确定能否上链接,带附件的,微信公众号,搜[财会人nAzy],同课程内有链接地址. --------------- 函数.应用,讲完了,个人感觉掌握前面课程足够快速上手,是否如此,有待时间验证. 接下 ...

WPS 自定义功能区添加宏（VBA）设定的功能

WPS 自定义功能区添加宏（VBA）设定的功能相关推荐

最新文章

热门文章