在VBA中将日期转换为文本

Question

我有一个数据集，其中包含诸如“ 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月”的任何想法

谢谢，

皮特

Answer 1

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

例如：

Sub demo()
    Dim DT As Date
DT = Date

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