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

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

任务描述

1、效果图

[图片上传失败...(image-84f175-1694186734420)]

2、功能描述

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

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

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

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

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

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

[图片上传失败...(image-ffa8aa-1694186734420)]

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

[图片上传失败...(image-a257e8-1694186734420)]

示例代码：

'功能：选区内数值四舍五入保留两位小数，以千分号格式显示，负数仍以“-”显示
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

</article>

[[图片上传失败...(image-6c01ac-1694186734421)]

[图片上传失败...(image-6004ae-1694186734420)]