excel vba写作日期dd / mm / yyyy

Question

我正在为我的Excel模板创建一个报告页面，我想在下面添加一个“日期”部分。

我只是简单地编写代码;

Worksheets("Report_TEMP").Range("H46:J46") = Format(Date, "dd-mm-yyyy")

我不知道为什么，但报告给我的日期为“mm-dd-yyyy”。 今天显示为美国系统的10.12.2017。

如何确保将其写为12.10.2017？

Answer 1

您应该将格式应用于单元格：

With Worksheets("Report_TEMP").Range("H46:J46")
   .NumberFormat = "dd-mm-yyyy"
   .Value = Date
End With

Answer 2

您可以使用下面提到的DD.MM.YYYY格式

Worksheets("Report_TEMP").Range("H46:J46") = Format(Date, "dd.mm.yyyy")

它将为我们提供所需的输出。感谢

Answer 3

您可以使用字符串，如下所示：

Worksheets("Report_TEMP").Range("H46:J46") = Cstr(Format(Date, "dd-mm-yyyy"))