【Excel VBA】枚举一下设置单元格格式的所有方法，以备随时调用

说明

单元格格式设置的不恰当会引发灾难的，估计在操作身份证、银行卡号等信息时踩坑的小伙伴深有同感。使用代码设置单元格格式时，虽然我们可以使用录制宏的方法得知如何设置，但是录制得到的代码比较啰嗦，对象不是很清晰，在此我总结了一下常用的设置单元格格式的代码，方便小伙伴们随时取用。

代码code

Sub 设置单元格格式()
  '首先为大家展示使用录制宏的方式得到的设置单元格格式的代码
  Range("B2").Select
  Selection.NumberFormatLocal = "@"
    
  
  '以下是我总结的一些常用的设置单元格格式代码，相较录制的代码简洁清晰，对象明确
  Cells(2, 2).NumberFormat = "General" '常规
  Cells(2, 2).NumberFormat = "@" '文本
  Cells(2, 2).NumberFormat = "0.00_ ;[Red]-0.00 " '数值，两位小数，负数为红色
  
  Cells(2, 2).NumberFormat = "$#,##0.00_);[Red]($#,##0.00)" '货币 ￥符号，两位小数，负数为红色
  Cells(2, 2).NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* " - "??_);_(@_)" '会计专用
  Cells(2, 2).NumberFormat = "m/d/yyyy" '短日期 形似 2012/3/14
  Cells(2, 2).NumberFormat = "[$-F800]dddd, mmmm dd, yyyy" '长日期 形似 2012年3月14日
  Cells(2, 2).NumberFormat = "[$-F400]h:mm:ss AM/PM" '时间 形似 13:30:55
  Cells(2, 2).NumberFormat = "0.00%" '百分比 两位小数
  Cells(2, 2).NumberFormat = "# ?/?" '分数
  Cells(2, 2).NumberFormat = "0.00E+00" '科学计数
End Sub

使用方法

需要设置成哪种单元格格式，直接复制到你自己的代码处，并修改一下行号和列号就可以了。如有不知道如何使用或有其他问题请在评论区留言。