エクセル２０００で今日の日付にジャンプ。

質問

エクセル２０００で、行の方で月日が入っていて、
今日の日付の所へボタンで飛ぶようにしたのですけど、
なんとかなりますか？
かなりのマクロ初心者です。宜しくお願いします。

こんなかんじで
6月25日 6月26日 6月27日 6月28日 6月29日 6月30日～

回答No.3

mshr1962

日付のセルがA列として下記のマクロをボタンに割り当ててください。
ただし今日の日付より後の日付が先に見つかるとそちらのセルを選択します。
Sub Bottun_Click()
Dim RG As Range
For Each RG In Range("A:A")
If RG >= Date Then Exit For
Next RG
RG.Select
End Sub

回答No.2

izmlz

シートモジュール（シートタブを右クリック-[コードの表示]）に↓です。シートがアクティブになったタイミングで↓のマクロは走ります。

Private Sub Worksheet_Activate()
　Dim Rng As Range
　Dim FindCell As Range

　Set Rng = Range("1:1") '日付が入力されている範囲を指定（←では1行目を指定）
　Set FindCell = Rng.Find(Date)

　If Not FindCell Is Nothing Then
　　FindCell.Activate
　End If
End Sub

参考URL：

http://www2.odn.ne.jp/excel/waza/macro.html

お礼

ありがとうございました。
うまくいきました。

回答No.1

suekun

この質問と同じ内容ですよね。
http://okwave.jp/qa4130394.html

こちらの補足要求に答えて頂けないと同じ事だと思いますよ。
エクセルのバージョンも必要ですが、それより具体的な方法等を
ご返事くださいよ。

何が？　どのタイミングで？　飛ぶのですか？

上書きマクロは試されましたか？