|
▼Porta さん:
追伸です。
>A6(2009/3/1)〜A2196(2015/2/28)まで、当年の3月1日から連続した日にち
>があります。
つまり、漏れない 連続した日付がセットしてあるということですね?
なら、Matchも必要ないです。
[A6]セルの日付から 求める日付までの差分( Datediff)だけOffset
すればよいのですから。
Sub Try1()
Dim theDay As Date
Dim ss As String
ss = "検索したい年月日… 3/3のように半角入力してください " _
& vbLf & "当年以外は2013/3/3のように年を入力してください"
ss = InputBox(ss, "日付検索", CStr(Date))
If StrPtr(ss) = 0& Then Exit Sub
If Not IsDate(ss) Then
MsgBox "入力値は有効な日付ではありません"
Exit Sub
End If
theDay = CDate(ss)
With [A6].Offset(DateDiff("d", [A6].Value, theDay))
.Select
MsgBox theDay & " 日へジャンプしました", , .Address(0, 0)
End With
End Sub
|
|