excel vba 实现输入当天日期(时间)——format（now）函数

vba实现输出当天日期及时间，

例如今天是7月24日16点，29秒，Format(Now, "mmdhhs") 输出的是07241629

代码如下

执行后结果如下：

我们可以根据自己需求做更改，如只显示年月日，不显示时分秒：

Sub a()
ActiveCell = Format(Now, "yyyy年mm月dd日hh时mm分ss秒")
End Sub

Sub yymmdd()
ActiveCell = Format(Date, "yyyy年mm月dd日")
End Sub

若月和日前不想加“0”，可修改代码如下：

ActiveCell = Format(Date, "yyyy年m月d日")
 

同理，时分秒也可如此修改

ActiveCell = Format(Now,