Excel：Ribbon CustomUI为VBA宏创建自定义功能区选项卡

最新推荐文章于 2026-04-25 09:29:44 发布

原创

最新推荐文章于 2026-04-25 09:29:44 发布 · 1.8w 阅读

收录于

这篇博客介绍了如何通过VBA宏为Excel创建自定义功能区选项卡MyTab，包括Opposite（取反）、Round(Percentile)（保留两位小数，千分位表示）和Round(Integer)（保留整数，千分位表示）三个功能。详细步骤包括编写宏代码，创建并编辑customUI文件夹内的XML文件，以及图标与宏的绑定。完成这些步骤后，用户可以在其他Excel文档中加载并使用这个自定义的宏加载项。

任务描述

1、效果图

2、功能描述

（1）MyTab选项卡->Opposite按键：将选中单元格的数值变为相反数

（2）MyTab选项卡->Round(Percentile)按键：将选中单元格的数值四舍五入保留两位小数，数值采用千分位表示，如123,456.78

（3）MyTab选项卡->Round(Integer)按键：将选中单元格的数值四舍五入保留整数，数值采用千分位表示，如123,456

以下是自定义功能区的创建过程：

一、编写宏代码，保存到xlsm文件中

1、打开一个新的Excel文档，按Alt+F11打开VBE，插入模块

2、在新插入的模块中填入VBA代码

示例代码：

'功能：选区内数值四舍五入保留两位小数，以千分号格式显示，负数仍以“-”显示
Sub RoundToPercentile(control As IRibbonControl)
For Each rng In Application.Selection
        If rng.Value <> "" And VBA.IsNumeric(rng) Then
            Range(rng.Address).NumberFormatLocal = "#,##0.00"
        End If
Next
End Sub

'功能：选区内数值四舍五入保留整数，以千分号格式显示，负数仍以“-”显示
Sub RoundToInteger(control As IRibbonControl)
For Each rng In Application.Selection
        If rng.Value <> "" And VBA.IsNumeric(rng) Then
            Range(rng.Address).NumberFormatLocal = "#,##0"