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

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


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

No.3 回答者： mshr1962 回答日時： 2008/06/27 09:47

日付のセルが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 回答日時： 2008/06/27 09:26

シートモジュール（シートタブを右クリック-[コードの表示]）に↓です。

シートがアクティブになったタイミングで↓のマクロは走ります。

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

この回答へのお礼

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

お礼日時：2008/06/27 10:06

No.1 回答者： suekun 回答日時： 2008/06/27 09:09

この質問と同じ内容ですよね。

http://okwave.jp/qa4130394.html

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

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

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