范围查找日期列

Question

以下程序有时会输错。 有人可以修改它，以便当搜索日期不可用时 它应该将日期增加1并再次搜索，直到找到可用日期。

示例：如果我搜索“1/1/2012”并且如果它不可用则应该增加 日期为“2/1/2012”并处理搜索，直到找到匹配值并返回范围地址（如果找到）。

注意：范围格式为“M / d / yyyy”

Sub test()

Dim rng As Range
Set rng = Sheet1.Range("A:A").Find("1/1/2012")

Debug.Print rng.Address
'output $A$3288
'"1/1/2012" is not available.
End Sub

Answer 1

从评论中复制以匹配问题已解决...

...尝试添加.Find方法的其他参数：

Set rng = Sheet1.Range("A:A").Find("1/1/2012", LookIn:=xlValues, LookAt:=xlWhole)