格式化功能在excel vba中不起作用

Question

我是vba的新手。我想将当前日期格式转换为mm / dd / yyyy。我用format函数来实现它。我仍然得到dd-mm-yyyy格式。  将电流调暗为日期

currentDate = Format(Now, "MM/dd/yyyy")

提前致谢。

Answer 1

这是因为 Format（）返回字符串：

Sub NeedADate()
    Dim s As String
    s = Format(Now(), "mm/dd/yyyy")
    MsgBox s
End Sub

Answer 2

首先在单元格中粘贴所需日期，然后格式化单元格布局。

Cells(1,1).Value = Now()
Cells(1,1).Numberformat = "mm/dd/yyyy"