1

以下の手順では、間違った出力が得られることがあります。検索する日付が利用できない場合、日付を1ずつ増やして、利用可能な日付が見つかるまで再度検索するように誰かが変更できますか?

例：「2012 年 1 月 1 日」を検索し、それが利用できない場合は、日付を「2012 年 2 月 1 日」に増やし、一致する値が見つかるまで検索を処理し、見つかった場合は範囲​​アドレスを返す必要があります。

注：範囲形式「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

ここに画像の説明を入力

4

1 に答える 1

5

コメントからコピーして、解決済みの質問に一致させます...

.Find...メソッドの追加パラメーターを追加してみてください:

Set rng = Sheet1.Range("A:A").Find("1/1/2012", LookIn:=xlValues, LookAt:=xlWhole)
于 2013-03-28T09:29:57.617 に答える