Excelのシートへのリンク

質問

Ｅｘｃｅｌのブックにあるシート名をＡ列のセルに入れてあります。これをシートにリンクさせたいのですが、マクロで簡単にできませんか？現状は、１つ１つ、ハイパーリンクしています。

回答No.1

imogasi · ベストアンサー

ＶＢＡでも出来ると思いますが、エクセルには、ＨＹＰＥＲＬＩＮＫ関数と言うのがあります。これを使われては。
私のやった例では、新規ブックのＢＯＯＫ１状態ではなく、ファイル名を指定して保存を済ませて後、開いたファイルで（私の場合21.xlsと言うＭｙ　Ｄｏｃｕｍｅｎｔｓフォルダ内のブックでテスト）
Ｓｈｅｅｔ２のＡ１にコメント「情報Ａ」（何でも良い）といれ
Ｂ１に
[c:\my documents\21.xls]Sheet3!D3
と入れる。””で囲まなくて良いようです。ブック名は
［　］で囲むこと。Ｓｈｅｅｔ名は！でセル番地と区切ること。
そしてＣ１セルに
=HYPERLINK(B1,A1)と入れる。Ｃ１セルには「情報Ａ」と
Ａ１に入れた内容が出て、ハイパーリンクの色になる。
Ｃ１をクリックすると、同ブックのＳｈｅｅｔ３のＤ３セルを指す。
（質問のケースでは）
さてシート名だけがＡ列に入っているので、フルパス表示にするにはどこかのセル（例＄Ｄ＄１）に[c:\my documents\21.xls]を入れておいて（これが別々だと困るのですが、同じ場合として）
=$D$1&A1をＢ１に入れ、Ｂ２以下に複写する。
さてＨＹＰＥＲＬＩＮＫ関数の複写であるが
クリックするとリンク先に飛んでしまい始末が悪いが、元のシートに戻ると、ＨｙｐｅｒＬｉｎｋ関数の入ったそのセルをポイントしているから、編集－コピーでコピーをして、Ｂ２：Ｂ２０とか範囲指定して、編集－貼りつけをすると旨く行くようです。
この方法は、実務で大きな力を発揮しそうな仕組みだと思っています。エクセルシートの内容・中身の目次が作れそうですから。

お礼

ありがとうございます。
　考え方としてわかりましたので、少し手を加えて成功しました。
　ご指摘のとおり、エクセルの目次？を作って管理しようと思っています。応用で、ファイルへのリンクもできますしね。