Question

我有这个代码以下列格式显示日期，如（日期：2015年3月22日），但它显示为（日期：2015年3月22日），所以请协助。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim dtmTest As Date
dtmTest = DateValue(Now)
Range("A1") = Format(dtmTest, "mmmm dd, yyyy")
Range("A1") = "Date : " & dtmTest
End Sub

Answer 1

您需要将单元格格式更改为文本以获得所需的效果。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Sets cell formatting to string
Range("A4").NumberFormat = "@"
'fills range with formatted date
Range("A4").Value = Format(Now, "mmm, dd yyyy")
End Sub

Answer 2

发布的解决方案有效，但您的原始代码几乎是正确的。您使用format函数重新格式化了日期，但随后用dtmtest变量覆盖了它。试试这个：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim dtmTest As Date
dtmTest = DateValue(Now)
Range("A1") = "Date : " & Format(dtmTest, "mmmm dd, yyyy")
End Sub

使用VBA代码更改日期格式

2 个答案: