在Excel中，日期时间都是数字，可以自定义显示的格式，那么这些格式包括自定义格式统统可以VBA来进行设置。

可以使用以下语句进行设置：

对象.numberformat

对象.numberformatlocal

可以显示单元格的格式

PrivateSub CommandButton1_Click()MsgboxRange("a1").NumberFormatLocalEndSub

比如可以设置A1单元格内容不可见

Private Sub CommandButton1_Click()Range("a1").NumberFormatLocal = ";;;"End Sub

可以设置A1单元格格式为YYYY-MM-DD

Private Sub CommandButton1_Click()Range("a1").NumberFormatLocal = "yyyy-mm-dd"End Sub

Numberformat与numberformatlocal使用稍微有点不同。

一是显示可能不一样，比如A1,单元格日期为2021-2-3

分别如下：

如果恢复到原始无格式的，操作也不同

Range(“a1”).numberformat=”General”

Range(“a1”).numberformatlocal=”G/标准”

可以用numberformatlocal在中文环境中设置

Private Sub CommandButton1_Click()Range("a1").NumberFormatLocal = "[蓝色]#.00"End Sub

而用 NumberForma 在英文环境下设置

Private Sub CommandButton1_Click()Range("a1").NumberFormat = "[red]#.00"End Sub

那些在Excel环境下操作针对数字设置格式的操作，在VBA中大多可以设置。

在Excel中按CTRL+1可以设置格式，这样录制宏，就可以查看对应的代码，所以这个仅做一般了解即可，上述主要写了最常用的代码。

子曰：用之则行，不用则藏。

意思是说，如果你用我的这些建议，就马上行动，知行合一，如果你不用，就赶紧收藏，以绝后患。