【マクロ】A列にある、日付（本日：4月17日）を検索し、セルを選択するには？

A列の１~１００行目までに、１つだけ、当日の日付を表示したセルがあります
例：4月17日　です。当該、日付を探し、同セルを見つけ、選択をしたいです。


ご存じの方、コードもしくはアドバイスお願いします

No.2 回答者： tatsumaru77 回答日時： 2025/04/17 09:32

以下のようにしてください。

Public Sub 当日選択()
Dim ws As Worksheet
Dim wrow As Long
Set ws = ActiveSheet
For wrow = 1 To 100
If IsDate(ws.Cells(wrow, 1).Value) = True Then
If ws.Cells(wrow, 1).Value = Date Then
ws.Cells(wrow, 1).Select
Exit Sub
End If
End If
Next
End Sub

この回答へのお礼

いつもご指導ありがとうございます
うまく出来ました

ありがとうございます

お礼日時：2025/04/18 05:56

No.1 回答者： いんちょ 回答日時： 2025/04/17 09:25

A列全部からでよければColumns("A:A").Find(Date).Select です。

1-100行に限定したければRange使ってください。

この回答へのお礼

大変、参考になりました。ありがとうございます

お礼日時：2025/04/18 05:57