Excel９７のハイパーリンクについて

質問

Excel９７を使っています。
一覧表があり、ハイパーリンクを使って
同ブック・別シートの詳細へ飛ばしています。

詳細の内容、種類がたくさんある為、
シート分けをせず、１枚のシート内で
離れた場所に詳細内容を作成しておいて、
リンク先を指定する際に、
画面に表示されるセルの場所まで指定したいのですが、
可能でしょうか。

「参照」のセル番地で指定できるのかと思いましたが、
指定したセルがうまく左上にきてくれない為、
画面上にキレイに表示する事が出来ません。

何かいい方法はあるでしょうか？
宜しくお願い致します。

やはり、シーとをそれぞれ作成するしかないでしょうか。

回答No.4

ki-aaa · ベストアンサー

すみません、よくわかりませんが、次の書き方がまずいのかも。

ww_j = ActiveCell.Row()
ww_k = ActiveCell.Column()
　↓
ww_j = ActiveCell.Row
ww_k = ActiveCell.Column

>また、このマクロは、ハイパーリンクで飛んだ時に
>勝手に起動してくれるのでしょうか

その通りです。
Sheet1に書き込めば、Sheet1のハイパーリンクで飛んだときに動きます。

Private Sub Worksheet_SelectionChange(ByVal Target As Range) ・・・こちらは、セルをクリックしたときに、マクロが動きます。

お礼

回答ありがとうございます。
返事が遅くなってしまってすいません。
うまくいきました！！
本当にありがとうございました！

回答No.3

ki-aaa

#2です。間違えました。

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim ww_j As Long, ww_k As Long
ww_j = ActiveCell.Row()
ww_k = ActiveCell.Column()
ActiveWindow.ScrollRow = ww_j '行
ActiveWindow.ScrollColumn = ww_k '列
End Sub

こちらが正解です。

お礼

またしてもありがとうございます。
前の分で出来ていたような気もしますが、
親切にありがとうございます！

補足

・・・うまくいったと思ったら、駄目でした。
ハイパーリンクで指定したセルが左下の方にいる傾向が。
何か前もってしておくコトは他にあるでしょうか？
また、このマクロは、ハイパーリンクで飛んだ時に
勝手に起動してくれるのでしょうか？
今までマクロはボタンに登録してクリックして起動
させる方法しかしたことがありません。

回答No.2

ki-aaa

マクロでよければ、次のようになります。

ハイパーリンクで飛んだセルをシートの左上(通常A1セルのあるところ)にする。

'***から
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveWindow.ScrollRow = Target.Row '行
ActiveWindow.ScrollColumn = Target.Column '列
End Sub
'***まで

マクロ記述の方法
使用しているシート名タブ(Sheet1とかSheet2)を右クリックし、「コードの表示」を選択します。

Sheet1(Sheet1)をダブルクリックします。

Worksheet の下に、'***から'***までをコピーし貼り付けします。

お礼

回答ありがとうございます！
出来ました！！
ボタンの登録とか何もしなくてもマクロが働くんですね！
しかも、貼付け方法もすごくよくわかりました！
ありがとうございます。

回答No.1

ka3

＞『１枚のシート内で離れた場所に詳細内容を作成しておいて、リンク先を指定する際に、画面に表示されるセルの場所まで指定したいのですが、可能でしょうか。 』
＝可能です。
　ただし、画面のスクロール表示を考慮すると、リンク先を保持しておくセルが画面の右下より外側（リンク先より外側）にあると、クリックした際の画面表示が分かり易いかも知れません。
　なお、指定先のセルに名前を定義しておくと、管理が楽だと思います。

お礼

回答ありがとうございます。
やはり出来るんですね。
諦めないで頑張ります。
ありがとうございました。