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

質問

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

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

回答No.4

zap35 · ベストアンサー

連続する日付が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
も参考にしてください

お礼

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

回答No.3

imogasi

基本的な質問ですがよろしく、と断るだけではダメ。
意味が２義的でないか良く考える訓練をすること。
質問はあいまい。
（１）最下行のことではないかな。
（２）セルの値が日付シリアル値で今日の日付の行に行きたいのか
（途中行にあるばあいもある）ならＦｉｎｄメソッドなどあるが
初心者が使うにはには早すぎる。
（１）
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

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

回答No.1

pbforce

セルの内容をひとつずつ確認して、
今日の日付と同じになるまで下に移動していけば可能ですが、
そんな事ではないのでしょうか？