VBA range.find 发现错误的日期值

Question

我正在 Excel 工作表中查找给定日期的价格乘数，但 range.find 给出了错误的日期。 以下是相关的代码片段：

If Not IsWbOpen("daily_prices.xlsx") Then
        Workbooks.Open "C:\.....\daily_prices.xlsx"
    End If
    Set daily = Workbooks("daily_prices.xlsx").Sheets(1)
    daily.Range("A:A").NumberFormat = "dd/mm/yyyy"
End If

这部分确保包含日期的列 A:A 的格式正确。 然后代码循环遍历一个日期范围，其中 d 是 d1 和 d2 之间的日期。 在我的测试脚本中，d1= Jan 1, 2023（格式为“01/01/2023”），d2 = Jan 30, 2023（格式为“30/01/2023”）。 Excel 工作表“daily”在第 1 行有 header，在 A 列有 49 个不同的日期，按时间顺序从“11/01/2023”到“01/01/2024”，以及相关的乘数 (k)，从行开始2. 只有定义了乘数的日期才会出现在工作表中。 第一组日期从第 2 行的“11/01/2023”到第 13 行的“22/01/2023”，下一组从第 14 行的“17/02/2023”开始，依此类推。 介于两者之间的日期没有乘数，因此不存在。 我用这部分代码搜索乘数：

Set c = daily.Range("A:A").Find(what:=d, After:=Range("A1"), LookIn:=xlValues)    'is this date in the daily prices?
  If Not c Is Nothing Then
     k = CDec(daily.Cells(c.Row, 4))  ' multiplier is in column 4 (D:D)
     rate = rate * k
  End If

正如预期的那样，c 对于“11/01/2023”以下的所有日期都是空的。 当 d = "11/01/2023" 时，c 变为 "not NOTHING" 但奇怪的是它返回 "11/11/2023" 而不是 "11/01/2023"，它位于第 40 行而不是第 2 行，因此它获取第 40 行而不是第 2 行的乘数。我在阅读了几个类似的案例后重新检查了所有代码，并确保 A 列的格式正确为“日期”，但我仍然错误地得到“11/01/2023” 'found' 在第 40 行而不是第 2 行，返回的值是“11/11/2023”而不是“11/01/2023”。 它没有找到“12/01/2023”，而是找到了“31/12/2023”，也没有找到作为数据集一部分的“14/01/2023”，但什么也没找到。 我忽略了什么，错误在哪里？

Answer 1

最终，我找到了解决方案。 看起来使用格式化为日期的日期会导致 Range.Find(d) 出现歧义，因为它与文本搜索非常相似，并且根据您使用的日期格式，它们的部分字符串（月份和日期）可能会在某些语言版本中造成混淆Windows。当我在寻找日期为 day=11 或 12 的日期并找到了 month=11 或 12 的日期时，我注意到了这一点。这是典型的混淆，当您使用诸如“mm-dd-”之类的数据格式时有时会出现这种情况yyyy”（美国）和“dd/mm/yyyy”（其他），对我来说看起来像一个 Windows 错误。 Windows 应该可以清楚地区分这两种格式，但有时却没有。 在VBA Range.Find 方法中也有类似的问题，找不到帮助我找到解决方案的范围内的值。 我需要暂时将搜索 object 格式化为数字

daily.Range("A:A").NumberFormat = "0"

并搜索运行日期的 long integer 值，因此起始值为

d = CLng(date1)

其中 d 是类型编号，date1 是类型日期。 搜索词就是

Set c = daily.Range("A:A").Find(d) 
If Not c Is Nothing Then ...

最后我重新格式化日期列

daily.Range("A:A").NumberFormat = "dd/mm/yyyy;@"

这解决了问题。 谢谢大家的帮助。 @Ron Rosenfeld 的提示最接近，因为他建议搜索What:=CDbl(date) ，这是我基本上在做的，除了我更喜欢 CLng 而不是 CDbl 因为我需要日期作为 integer 而不是浮点数. 该想法的唯一问题是您无法搜索 .value2。 您只能搜索 xlValues（不同）或 xlFormulas。 也不会在单元格的属性中找到这个长长的 integer 数字。
将搜索 object 和搜索项都转换为数字可以完全解决歧义。