ＥＸＣＥＬ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 · ベストアンサー

G2 に 1 ・・ AA2 に 22 ・・ AK2 に 31 と入力されている
E1 =today()
F1 =HYPERLINK("[Book1.xls]Sheet1!"&ADDRESS(2,DAY(E1)+6),"今日の日付へ")

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

お礼

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

回答No.2

keirika

シート名が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 のところに入れて試してみました。
なかなか、すばらしいですね。
参考になりました。