日期显示与日期格式VBA

Question

我认为我试图做一些不可能的事情。我在 A1：A5 范围内有一些日期。这些单元格必须具有日期格式，因为我想检查它们是大于还是小于某个日期。此外，我想以以下格式在 A1：A5 范围内显示这些日期：yyyy.mm。我认为没有办法一石二鸟。

Public Sub test()
Range("A1:A5").NumberFormat = "yyyy.mm"
Range("A1:A5") = Format(Date, "yyyy.mm")
If IsDate("A2") Then
Range("B2") = "OK"
End If
End Sub

Range("B1:B5").NumberFormat = "yyyy.mm"更改自定义 (yyyy.mm( 上的单元格格式，但日期仍以不变的形式显示 (yyyy.mm.dd(

Range (“A1:A5”) = Format(Date, “yyyy.dd”)显示日期 yyyy.mm 但年份和月份已更改为 1905.07。此外，日期没有日期格式，而是自定义。

真的不可能像 yyyy.mm 那样显示日期，而是以日期格式显示(以便在公式栏中将日期显示为 dd.mm.yyyy 或其他方式(以便能够将它们与不同的日期进行比较？

此致敬意 内克

Answer 1

首先，在日期中使用点可能是一个问题，因为 Excel 将"2017.05"解释为数字。

您可以使用如下内容将日期重新格式化为"yyyy/mm"：

For Each r In Range("A1:A5")
r.Value = VBA.Format(r, "yyyy/mm")
Next r