Excel VBA Worksheetfunction.Match 不适用于日期

Question

我需要申请MATCH函数到日期范围( 在 VBA 中。标准 MATCH 以单元格公式编写的函数确实按预期工作。)寻找对应日期为 <= 的最大可能索引查到的日期。这是我的代码和一个最小的工作示例:

Function test_debug_func(x As Date, arr As Range) As Integer
Debug.Print "entered function"
test_debug_func = WorksheetFunction.Match(x, arr, 1)

End Function

我通过打印调试语句检查了该函数是否确实输入了。但是，它不能继续 WorksheetFunction.Match功能。我还检查了所有日期确实是 Date而不是其他格式。
为什么这行不通对我来说根本没有任何意义。有人可以帮忙吗？谢谢!

Answer 1

由于日期只是数字，您可以使用 CLng :

test_debug_func = WorksheetFunction.Match(CLng(x), arr, 1)