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

任务描述

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"
        En