[[20120602125951]]　『今日日付のあるセルを選ぶマクロ』（初心者）　ページの最後に飛ぶ

『今日日付のあるセルを選ぶマクロ』（初心者）　

 2行目にA列から順番に日付が入っています。
 A列12012/6/1→B列12012/6/2→C列12012/6/3・・・・
 マクロを実行した時に、今日の日付のあるセルを選択し、そのセル上のセルに
 ”本日”（1行目）
 と記入するマクロを作りたいのですが、どうすればよいでしょうか？

 マクロは、ほとんどわかりません。　
 よろしくお願いします。

excel2007
windows7
　
　

こんな感じでできます（マナ）

 Sub test()
    Dim myRng As Range
    Dim c As Range

    Set myRng = Range(Cells(2, 1), Cells(2, Columns.Count).End(xlToLeft))
    myRng.Offset(-1).ClearContents

    Set c = myRng.Find(What:=Date, LookIn:=xlValues)
    If c Is Nothing Then Exit Sub

    c.Offset(-1).Value = "本日"
    c.Select

 End Sub

マナ様

ありがとうございます。
申し訳ありませんが、
表の形式を少し変えました。

日付を順に入れていくのは、10行目になりました。

そして、H列の6月1日から順に日付を入れます。

つまり、H10が6月1日、I10が6月2日、J10が6月3日・・・・となります。
そして、本日の表示を入れるのは、それぞれ、H9、I9,J10になります。
今日は、6月2日ですので、理論的には、マクロを実行するとI10のセルを選択し、
I9に本日の表示が出るようにしたいです。

教えていただいた上のコードを変更後のセル位置に当てはめてみましたが、何も
反応しませんでした。

お手数ですが、再度ご確認をお願いします。

Sub test()

    Dim myRng As Range
    Dim c As Range

    Set myRng = Range(Cells(10, 8), Cells(10, Columns.Count).End(xlToLeft))
    myRng.Offset(-1).ClearContents

    Set c = myRng.Find(What:=Date, LookIn:=xlValues)
    If c Is Nothing Then Exit Sub

    c.Offset(-1).Value = "本日"
    c.Select

 End Sub

（初心者）

LookIn:=xlFormulasに変更でどうでしょうか（マナ）

マナ様

ありがとうございます。
完璧にできました。

（初心者）

コメント返信：