0

我正在尝试使用 VBA 在我的 Exel 表中打印出不同的日期格式。但是,我似乎无法输出“yyyy-mm-dd”格式或“mmm dd,yyyy”格式。单元格似乎没有打印出正确的格式。例如:

'Declare new date variables
Dim LongDateFmt As String
Dim ShortDateFmt As String
Dim MediumDateFmt As String
Dim NewDateFmt As String
'Change the date to the new submission date
    MediumDateFmt = Format(Date, "yyyy-mm-dd")
    Range("A1").Value = MediumDateFmt
    LongDateFmt = Format(Date, "Long Date")
    Range("A2").Value = LongDateFmt
    ShortDateFmt = Format(Date, "Short Date")
    Range("A3").Value = ShortDateFmt
    NewDateFmt = Format(Date, "MMMM dd, yyyy")
    Range("A4").Value = NewDateFmt

A1 打印 13/06/2013,A2 打印 13-Jun-13,A3 打印 13/06/2013,A4 打印 13-Jun-13。

这是设置问题还是我的代码错误?

4

2 回答 2

4

你应该改变单元格格式而不是使用格式化的字符串

with Range("A1")
   .Value = Date
   .Numberformat = "yyyy-mm-dd"
end with

例如

于 2013-06-13T12:27:18.460 回答
2

Format不会将单元格的格式设置为您想要的格式,它只是为您提供指定格式的字符串。将该字符串插入单元格不一定会给您想要的结果,因为单元格的当前格式可能会产生影响。

如果要更改单元格本身的格式,则需要设置其NumberFormat属性,例如:

Range("A1").NumberFormat = "yyyy-mm-dd"
于 2013-06-13T12:31:52.387 回答