|
こんにちは。
>検査範囲が飛び飛びで、固まっていなくても、大丈夫ですか?
最初に提示されたコードを参考に一列目を対象としてます。
(変数名イマイチですいません)
****************************************************************
Sub test()
Dim D As Double
Dim I As String
Dim L As Long
I = InputBox("日付")
If I = "" Then Exit Sub
D = DateValue(I)
On Error Resume Next
L = WorksheetFunction.Match(D, Sheets(1).Columns(1), 0)
On Error GoTo 0
If L > 0 Then
MsgBox Sheets(1).Cells(L, 1).Address
End If
End Sub
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
とりあえずヒットしたセルアドレスが表示されます。
日付以外を入力した場合のエラーは考慮してません。
はずしていたらすいません。
|
|