重要なお知らせ

「教えて! goo」は2025年9月17日(水)をもちまして、サービスを終了いたします。詳細はこちら>

【6/2終了】教えて!gooアプリ版

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


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

A 回答 (2件)

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


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
    • good
    • 1
この回答へのお礼

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

ありがとうございます

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

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


1-100行に限定したければRange使ってください。
    • good
    • 1
この回答へのお礼

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています


このQ&Aを見た人がよく見るQ&A