在 VBA 中将日期转换为文本

我有一个数据集，其中包含文本值，例如“2016 年 3 月”。

现在我编写了以下代码来在我的报告表中复制此内容：

DataFin.Range("E9:E9") = DateSerial(Year(Date), Month(Date), 0)
DataFin.Range("E9:E9").Text = Format(DateSerial(Year(Date), Month(Date), 0), "mmmm yyyy")

它具有正确的格式，但当我单击单元格时，值显示“3/1/2016”而不是“2016 年 3 月”。

有什么想法可以将基础值更改为“2016 年 3 月”

Thanks,

Pete

您必须将单元格格式设置为文本，然后将值设置为所需日期的文本值。

例如：

Sub demo()
    Dim DT As Date
DT = Date

With Range("a1")
    .NumberFormat = "@"
    .Value = Format(DT, "mmmm yyyy")
End With
End Sub