エクセル VBAマクロ セルの移動

こんにちは、基本的な質問ですがよろしくお願いします。

例えば、現在A１セルがアクティブになっていて
A２から下に向かって１年分の日付が入っていてマクロで今日の日付に移動する方法ありますか？

No.4 ベストアンサー 回答者： zap35 回答日時： 2007/10/31 19:30

連続する日付がA列にあるなら以下のマクロで探せます。

Sub MacroD()
Dim res
　res = Application.Match(CLng(Date), Columns(1), 0)
　If IsNumeric(res) Then
　　Cells(res, "A").Select
　End If
End Sub

http://support.microsoft.com/kb/213643/ja
も参考にしてください

この回答へのお礼

有難うございます
非常に助かりました

お礼日時：2007/11/02 12:18

No.3 回答者： imogasi 回答日時： 2007/10/31 17:30

基本的な質問ですがよろしく、と断るだけではダメ。

意味が２義的でないか良く考える訓練をすること。
質問はあいまい。
（１）最下行のことではないかな。
（２）セルの値が日付シリアル値で今日の日付の行に行きたいのか
（途中行にあるばあいもある）ならＦｉｎｄメソッドなどあるが
初心者が使うにはには早すぎる。
（１）
Sub test03()
Range("a65536").End(xlUp).Select
End Sub
（２）
Sub test04()
d = Range("a65536").End(xlUp).Row
For i = 1 To d
If Cells(i, "A") = Date Then
Cells(i, "A").Select
Else
End If
Next
End Sub

No.2 回答者： hana-hana3 回答日時： 2007/10/31 16:22

Ａ２は何月何日から始まっているのでしょうか？

No.1 回答者： pbforce 回答日時： 2007/10/31 16:20

セルの内容をひとつずつ確認して、

今日の日付と同じになるまで下に移動していけば可能ですが、
そんな事ではないのでしょうか？