excel vba写作datedd / mm / yyyy

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

我只是写这个代码。

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

我不知道为什么，但报告给我的date为“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

你可以像string一样使用：

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