アプリ版:「スタンプのみでお礼する」機能のリリースについて

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

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

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

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

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

A 回答 (4件)

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



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) ・・・こちらは、セルをクリックしたときに、マクロが動きます。
    • good
    • 0
この回答へのお礼

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

お礼日時:2003/09/01 13:15

#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

こちらが正解です。

この回答への補足

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

補足日時:2003/08/19 16:39
    • good
    • 0
この回答へのお礼

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

お礼日時:2003/08/19 16:24

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



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

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

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

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

Worksheet の下に、'***から'***までをコピーし貼り付けします。
    • good
    • 0
この回答へのお礼

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

お礼日時:2003/08/19 16:20

>『1枚のシート内で離れた場所に詳細内容を作成しておいて、リンク先を指定する際に、画面に表示されるセルの場所まで指定したいのですが、可能でしょうか。


=可能です。
 ただし、画面のスクロール表示を考慮すると、リンク先を保持しておくセルが画面の右下より外側(リンク先より外側)にあると、クリックした際の画面表示が分かり易いかも知れません。
 なお、指定先のセルに名前を定義しておくと、管理が楽だと思います。
    • good
    • 0
この回答へのお礼

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

お礼日時:2003/08/19 16:28

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!