[[20070723024602]]　『ハイパーリンクについて』（ロボ）　ページの最後に飛ぶ

『ハイパーリンクについて』（ロボ）

シートのA2から下に1月から12月までの日付をいれていてA1に本日の日付が入っている状態でハイパーリンクを設定をしてA1をクリックするとA列のその日の日付のところにリンクできるようにする仕方があれば教えていただきたいと思い投稿しました。ご手数ですが分かる方アドバイスをいただけませんでしょうか？よろしくお願い致します。

 ロボさん、こんばんは！
ご希望とは少し違うかもしれませんがよかったら参考にしてください。
先ずA1にはA1にリンクするようにハイパーリンクを設定しておいてください。
次にメニューバーのExcelのマークを右クリック→コードを表示させてそこに↓を貼り付けます。
Option Explicit
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
Dim r As Range
If Target.Range.Address(0, 0) <> "A1" Then Exit Sub
If Not IsDate(Sh.Range("A1").Value) Then Exit Sub
    With Sh
        Set r = .Range("A2", .Range("A" & .Rows.Count).End(xlUp)) _
            .Find(.Range("A1").Value, , xlFormulas, xlWhole, xlByColumns, xlNext, True)
        If Not r Is Nothing Then
            r.Activate
        Else
            MsgBox Format(.Range("A1").Value, "yyyy/mm/dd") & "　はありません"
        End If
    End With
End Sub
Excel2000以上で有効です。
A1でハイパーリンクを発生させてFindで対象セルを検索する仕組みです。
エラー処理はしてませんのでその辺は応用していただけると幸いです。
では、では、またねv(=∩_∩=)v
（SoulMan）

SoulManさんへ　お返事どうもありがとうございます。早速やってみたのですが、うまくいきません。すごくわかりやすく教えて頂いたのに申し訳ないです。今の現状として
A1に=HYPERLINK("#A１","セル名")と入れてA1にリンクすることはできました。そして、
上記のコードをコピー貼り付けでやってエクセルの通常の画面でA1をクリックしても変わりませんでした。何かここまでの作業でおかしなところがあったのでしょうか？ご手数ですが、アドバイスを頂ければ幸いです。

 >A1に=HYPERLINK("#A１","セル名")と入れてA1にリンクすることはできました。
     　　　　　　　　　　　↑
 これだと、日付データがどこにもないので、上手く行かないと思います。
 おそらく、
 　　A1セルには、単に検索する日付を入力し、
 　　挿入→ハイパーリンク→このドキュメント内→Sheetx(A1)→[OK]ボタンクリック
 でしょう。

 >A1に本日の日付が入っている状態で
 もし、常時 [本日の日付] になるのでしたら、数式オンリーでいけると思います。

 　=HYPERLINK("#A"&MATCH(TODAY(),A2:A367,0)+1,TODAY())

 (半平太)

半平太さん　どうもありがとうございます。うまくいきました。感謝感謝です。もうひとつ疑問なのですが↑の数式を入れた状態で本日の日付にリンクされますが、表示されたところのセルが一番下の方に表示がされてしまいます。なんとか下に表示されている部分をA1をクリックするだけで中央に配置することは可能でしょうか？ご無理ばかりで申し訳ありません。宜しくお願いいたします。

 ちょっと、ゴマカシですが、、、
 15行下までハイパーリンクすれば、目的のセルは画面の中央に来ますよね。

 A1セル 
  =HYPERLINK("#A"&(MATCH(TODAY(),A2:A367,0)+1)&":A"&MAX(2,MATCH(TODAY(),A2:A367,0)+15),TODAY())

 余分なセルまで選択された状態になりますが、我慢して下さい　m(__)m　(半平太)

思い通りの結果を出すことができました。エクセルってほんとに便利ですね。半平太さん　本当にありがとうございました。また今度何かあればよろしくお願いいたします。（ロボ）

 解決されたのなら別にどうこう言うこともないんだけど、、
A1に=TODAY()と入力してコードが走るようにセットしていただいたら
ご希望通りになるけどなぁ、、、、
みなさん、なりませんか？
（SoulMan）

コメント返信：

[ 一覧(最新更新順) ]

[[20070723024602]] 『ハイパーリンクについて』（ロボ） ページの最後に飛ぶ

[[20070723024602]]　『ハイパーリンクについて』（ロボ）　ページの最後に飛ぶ