ＥＸＣＥＬ2000で、今日の日付をクリックすると、該当の列にジャンプするようにしたいです。

　列に１から31の日付をつけ、アクティブセルをジャンプさせて、その該当列に移動させる方法がありましたら教えていただけますか？

│C D E F G H I J ・・・・・AB・・AI AJ AK 列
1 4/22　本日の日付へ
2││││ 1 2 3 4 ・・・・・・22・・29 30 31
3││││││││
行


　　
例えば、Ｅ1に　本日の４月22日[=TODAY()]が表示されるようにしてあります。　
その横に"本日の日付へ"をクリックすると、（たぶん=HYPERLINKも使用するのですよね）
　　AB２のセルにジャンブさせたいのですが、できれば、関数を使用して、それが無理でしたらマクロ、ビジュアルベーシックという優先順位でお願いしたいです。
　m(__)m

No.1 ベストアンサー 回答者： papayuka 回答日時： 2006/04/22 23:26

G2 に 1 ・・ AA2 に 22 ・・ AK2 に 31 と入力されている

E1 =today()
F1 =HYPERLINK("[Book1.xls]Sheet1!"&ADDRESS(2,DAY(E1)+6),"今日の日付へ")

で飛びましたよ。
[ブック名]シート名! は環境によります。

この回答へのお礼

早速のご回答ありがとうございました。
ご回答の("[Book1.xls]Sheet1!"部分を"#Sheet1!"に変更しましたら、スムーズに
動きました。
ＥＸＣＥＬの小部屋のかず　様のように聡明な方ですね。感謝いたします。

お礼日時：2006/04/23 07:22

No.2 回答者： keirika 回答日時： 2006/04/22 23:37

シート名がSheet1の場合

Sub jump()

Dim dd As Integer

dd = day(Worksheets("Sheet1").Range("e1").Value)

Worksheets("Sheet1").Range("f2").Offset(0, dd).Select
End Sub

上記のマクロをフォームのボタンに登録して使用してください

EXCEL2003使用

この回答へのお礼

ご回答ありがとうございます。
Ctrl+q のところに入れて試してみました。
なかなか、すばらしいですね。
参考になりました。

お礼日時：2006/04/23 08:31