- ベストアンサー
Excel９７のハイパーリンクについて
Excel９７を使っています。 一覧表があり、ハイパーリンクを使って 同ブック・別シートの詳細へ飛ばしています。 詳細の内容、種類がたくさんある為、 シート分けをせず、１枚のシート内で 離れた場所に詳細内容を作成しておいて、 リンク先を指定する際に、 画面に表示されるセルの場所まで指定したいのですが、 可能でしょうか。 「参照」のセル番地で指定できるのかと思いましたが、 指定したセルがうまく左上にきてくれない為、 画面上にキレイに表示する事が出来ません。 何かいい方法はあるでしょうか？ 宜しくお願い致します。 やはり、シーとをそれぞれ作成するしかないでしょうか。
- みんなの回答 （4）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (3)
- ki-aaa
- ベストアンサー率49% (105/213)
#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 こちらが正解です。
お礼
またしてもありがとうございます。 前の分で出来ていたような気もしますが、 親切にありがとうございます！
補足
・・・うまくいったと思ったら、駄目でした。 ハイパーリンクで指定したセルが左下の方にいる傾向が。 何か前もってしておくコトは他にあるでしょうか？ また、このマクロは、ハイパーリンクで飛んだ時に 勝手に起動してくれるのでしょうか？ 今までマクロはボタンに登録してクリックして起動 させる方法しかしたことがありません。
- ki-aaa
- ベストアンサー率49% (105/213)
マクロでよければ、次のようになります。 ハイパーリンクで飛んだセルをシートの左上(通常A1セルのあるところ)にする。 '***から Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveWindow.ScrollRow = Target.Row '行 ActiveWindow.ScrollColumn = Target.Column '列 End Sub '***まで マクロ記述の方法 使用しているシート名タブ(Sheet1とかSheet2)を右クリックし、「コードの表示」を選択します。 Sheet1(Sheet1)をダブルクリックします。 Worksheet の下に、'***から'***までをコピーし貼り付けします。
お礼
回答ありがとうございます！ 出来ました！！ ボタンの登録とか何もしなくてもマクロが働くんですね！ しかも、貼付け方法もすごくよくわかりました！ ありがとうございます。
- ka3
- ベストアンサー率18% (36/194)
＞『１枚のシート内で離れた場所に詳細内容を作成しておいて、リンク先を指定する際に、画面に表示されるセルの場所まで指定したいのですが、可能でしょうか。 』 ＝可能です。 ただし、画面のスクロール表示を考慮すると、リンク先を保持しておくセルが画面の右下より外側（リンク先より外側）にあると、クリックした際の画面表示が分かり易いかも知れません。 なお、指定先のセルに名前を定義しておくと、管理が楽だと思います。
お礼
回答ありがとうございます。 やはり出来るんですね。 諦めないで頑張ります。 ありがとうございました。
お礼
回答ありがとうございます。 返事が遅くなってしまってすいません。 うまくいきました！！ 本当にありがとうございました！