Диапазон Дата поиска Колонка

Question

Приведенная ниже процедура иногда дает неправильный результат. Может ли кто-нибудь изменить его таким образом, что когда дата поиска не будет доступна, тогда он должен увеличивать дату на 1 и искать снова, пока не найдет доступную дату.

Пример: Если я ищу «1/1/2012», и если он недоступен, он должен увеличивать дату до «2/1/2012» и обрабатывать поиск, пока не найдет значение соответствия и диапазон возврата адрес, если найден.

Примечание: Формат диапазона "M/d/гггг"

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)