Excel：Ribbon CustomUI為VBA宏創(chuàng)建自定義功能區(qū)選項(xiàng)卡

任務(wù)描述

1、效果圖

[圖片上傳失敗...(image-84f175-1694186734420)]

2、功能描述

（1）MyTab選項(xiàng)卡->Opposite按鍵：將選中單元格的數(shù)值變?yōu)橄喾磾?shù)

（2）MyTab選項(xiàng)卡->Round(Percentile)按鍵：將選中單元格的數(shù)值四舍五入保留兩位小數(shù)，數(shù)值采用千分位表示，如123,456.78

（3）MyTab選項(xiàng)卡->Round(Integer)按鍵：將選中單元格的數(shù)值四舍五入保留整數(shù)，數(shù)值采用千分位表示，如123,456

以下是自定義功能區(qū)的創(chuàng)建過(guò)程：

一、編寫宏代碼，保存到xlsm文件中

1、打開一個(gè)新的Excel文檔，按Alt+F11打開VBE，插入模塊

[圖片上傳失敗...(image-ffa8aa-1694186734420)]

2、在新插入的模塊中填入VBA代碼

[圖片上傳失敗...(image-a257e8-1694186734420)]

示例代碼：

'功能：選區(qū)內(nèi)數(shù)值四舍五入保留兩位小數(shù)，以千分號(hào)格式顯示，負(fù)數(shù)仍以“-”顯示
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 
'功能：選區(qū)內(nèi)數(shù)值四舍五入保留整數(shù)，以千分號(hào)格式顯示，負(fù)數(shù)仍以“-”顯示
Sub RoundToInteger(control As IRibbonControl)
For Each rng In Application.Selection        
If rng.Value <> "" And

</article>

[[圖片上傳失敗...(image-6c01ac-1694186734421)]

[圖片上傳失敗...(image-6004ae-1694186734420)]