如何通过快捷键循环切换Excel单元格预设数字格式

功能说明 #

重复按下绑定好的指定快捷键时，选中单元格/单元格区域内的数字，会自动在以下7种格式间循环切换：

• 常规无后缀整数格式：示例值 2020
• 带A后缀整数格式：示例值 2020A
• 带E后缀整数格式：示例值 2020E
• 带A/E后缀整数格式：示例值 2020A/E
• 千分位百分比格式：示例值 2,020%
• 千分位x后缀倍数格式：示例值 2,020x
• 千分位bps单位格式：示例值 2,020bps

可直接使用的VBA代码 #

Sub Number_Format_Cycle()
Dim x, myFormats
  
myFormats = Array("###0;(###0);-", "###0A;(###0)A;-", "###0E;(###0E);-", "###0A/E;(###0A/E);-", "#,##0.0%;(#,##0.0)%;0.0%", "#,##0.0x;(#,##0.0)x;0.0x", "#,##0bps;(#,##0)bps;0bps")
x = Application.Match(ActiveCell.NumberFormat, myFormats, False)
If IsError(x) Then x = 0
Selection.NumberFormat = myFormats((x Mod (UBound(myFormats) + 1)))
End Sub

使用方法 #

将上述宏代码添加到Excel工作簿的VBA标准模块中，为该宏绑定指定快捷键即可生效。后续选中目标单元格或单元格区域后，重复按下绑定的快捷键，就能在预设的7种数字格式间循环切换。

内容的提问来源于stack exchange，提问作者Thomas6432345223