Range.Find 在 VBA Excel 中不区分一月和十一月（二月和十二月）

假设我有以下琐碎的任务：

• 连续写出 2016 年 1 月到 2018 年 6 月的第一个日期
• 找到 01-Janu-2016 并将其涂成红色
• Use Range.Find()

因此，我创建了一个代码，从 1 循环到 30 并写入每个月的第一个日期。然后我用Rows(1).Find(CDate("01.01.2016")) or Rows(1).Find(DateSerial(2016,1,1))我认为我的任务已经准备就绪。

我运行代码，在 Excel 2010 和 Excel 2016 中都看到了这一点：

问题：这背后有什么原因吗？或者是Range.Find()函数记录为这样的行为？

Public Sub TestMe()

    Cells.Clear

    Dim cnt             As Long
    For cnt = 1 To 30
        Cells(1, cnt) = DateAdd("M", cnt - 1, DateSerial(2016, 1, 1))
        Cells(1, cnt).NumberFormat = "MMM-YY"
    Next cnt

    Dim foundRange      As Range
    Set foundRange = Rows(1).Find(CDate("01.01.2016"))
    'Set foundRange = Rows(1).Find(DateSerial(2016, 1, 1))  'the same false result
    'Set foundRange = Rows(1).Find("01.01.2016")             'does not find anything
    If Not foundRange Is Nothing Then
        foundRange.Interior.Color = vbRed
    End If

End Sub

一般来说，Range.Find()有一个可选的After参数，它是第一个单元格Range。在我们的例子中，After参数被省略，因此被认为是A1它是最后检查的。如果您在第一个循环后停止代码并手动删除Nov 16来自 Excel，然后继续代码，它将返回单元格Jan 16 in red.

至于十一月被认为找到了，它就把它还给它，并且不再进一步。问题更像是——逻辑是什么2016 年 11 月 1 日与2016 年 1 月 1 日，甚至部分？

每当.Find(LookAt:=xlPart)用于一系列日期，它采用不带日期的日期.Value2 https://msdn.microsoft.com/en-us/vba/excel-vba/articles/range-value2-property-excel，但它默默地将它们转换为String遵循美国日期格式 -MM/DD/YY并查看这个字符串。 Excel 中日期的显示格式完全无关，只要单元格格式设置为日期即可。

因此，一月的每一天都可以在 11 月中找到，二月的每一天都可以作为子字符串在 12 月中找到，从而在一个日历年内可能出现 58 个（或闰年中的 59 个）不同错误：

为了避免这个错误，最好的解决方案是看看xlWhole明确地。如果没有提及的话，Range.Find()寻找部分字符串。

另一个问题是在哪里Range.Find开始。根据文档 https://msdn.microsoft.com/en-us/vba/excel-vba/articles/range-find-method-excel开始AFTER提供的或默认的单元格，并且仅在循环回来后查看起始单元格。

您希望在其后开始搜索的单元格。这对应于从用户界面进行搜索时活动单元格的位置。请注意，After 必须是区域中的单个单元格。请记住，搜索在此单元格之后开始；在该方法返回到该单元格之前，不会搜索指定的单元格。如果未指定此参数，则搜索将在范围左上角的单元格之后开始。

所以，通过不定义XlWhole和一个起始单元格，搜索的第一个单元格是B1 not A1，并且它会在循环时先找到部分日期，然后再找到正确的日期。

因此，将起始单元格设置在范围末尾即可：

Set foundRange = Rows(1).Find(DateSerial(2016, 1, 1), [XFD1])