エクセル関数

エクセルで表のＡ列に１年分の日付を入力してあります。（Ａ２からＡ３６６まで）
特定のセル（Ａ１）をクリックすると、今日の日付のセルにジャンプできるような
関数はありますか？よろしくお願いいたします。

No.1 回答者： noname#101303 回答日時： 2009/11/24 21:28

元々、セルをクリックしたらジャンプする関数自体が有りません。

やるなら、VBAで作成するしかないでしょう。

この回答への補足

回答ありがとうございます。
ハイパーリンクで出来ないかと思ったのですが・・・

ＶＢＡは分からないのですが、難しいのでしょうか？
引き続きよろしくお願いいたします。

補足日時：2009/11/24 22:55

No.2 回答者： hana-hana3 回答日時： 2009/11/24 21:52

関数では動的事はできません。

セルのクリックの検知は出来ませんが、ＶＢＡなら可能です。
マクロボタンか、セルのダブルクリックで開始は可能です。

この回答への補足

回答ありがとうございます。
ハイパーリンクで、出来ないかと思ったのですが・・・

ＶＢＡとかマクロは使用したことがないのですが、
難しいのでしょうか？

引き続きよろしくお願いいたします。

補足日時：2009/11/24 22:53

No.3 回答者： BookerL 回答日時： 2009/11/24 23:40

＞ＶＢＡとかマクロは使用したことがないのですが、

＞難しいのでしょうか？

　使うだけなら簡単です。

　そのシートのタブ（シートの下の"Sheet1"とかあるところ）を右クリックして、
「コードの表示」をクリックします。 　MicrosoftVisual Basic というウインドが
開くので、右側の真っ白けのところに次のコードをコピー・貼り付けをします。


'----------------ここから
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim temp As Long

If Target.Address <> "$A$1" Then Exit Sub
temp = DateDiff("d", Range("A2"), Date)
Range("A2").Offset(temp, 0).Select
End Sub
'----------------ここまで

これで、A1 をクリックすると、今日の日付のセルが選択されると思います。お試しください。

　

この回答への補足

丁寧な回答ありがとうございます。
早速やってみましたが、エラーになりました。

正確に言いますと、
日付の入力されているセルはA4からA733でしたので、
("A2")を("A4")にしてみたら、
６月１６日が選択されました。

１列で１日ではなくて、
２列セル結合して１日分となっていました。
それから、日付は１月５日から翌１月４日までの１年分です。

お手数かけますが、補足できましたら、よろしくお願いいたします。

補足日時：2009/11/25 00:11

No.4 ベストアンサー 回答者： BookerL 回答日時： 2009/11/25 21:26

＃３です。

＞正確に言いますと、
＞日付の入力されているセルはA4からA733でしたので、

＞１列で１日ではなくて、
＞２列セル結合して１日分となっていました。

　こういうことは、初めからいっておいてもらわなくちゃ。

次のような感じでしょうか。

'----------------ここから
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim temp As Long

If Target.Address <> "$A$1" Then Exit Sub
temp = DateDiff("d", Range("A4"), Date)
Range("A4").Offset(temp * 2, 0).Select
End Sub
'----------------ここまで

この回答へのお礼

何度もお手数かけまして、すいませんでした。

思い通りのことが出来ました。
ありがとうございました。

お礼日時：2009/11/26 00:04