Excelのセル画面移動について

質問

ExcelのSheet１で、例えばA100をクリックすると『セルがA50に移動し左上角になる画面を表示』させる方法を知っておられる方、ご教授お願いします。
できれば、マクロを使わず、ハイパーリンクとかでできればありがたいです。
よろしくお願いします。

この投稿のマルチメディアは削除されているためご覧いただけません。

回答No.3

merlionXX · ベストアンサー

No2 merlionXXです。
では、以下の手順で試してみてください。
簡単ですよ。

1. 該当するシートのタブを右クリック、[コードの表示]。
2. 出てきた所に、コードを貼付けます。

'********これより下**********

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Application.Goto Reference:=Range("A50"), Scroll:=True
End Sub

'********これより上**********

3.Alt+F11キーでワークシートへもどります。

これで、そのシートはA1をクリックするとA50に飛び、A50を画面左上にもってきます。

お礼

merlionXXさんへ

ありがとうございました。
思ったより簡単にできました。
これでExcelが便利に使えるようになります。

ありがとうございました。

回答No.2

merlionXX

質問を誤解しているのかもしれませんが、
「セルがA50に移動し左上角になる画面を表示」とは、A50をアクティブにして、A50が画面左上にある状態にすればいいのですよね？
ならば、お書きのとおりハイパーリンクで出来ますが・・・。

１．A１００を選択
２．メニューから「挿入」、「ハイパーリンク」で、リンク先を「このドキュメント内」にして、「セル参照」をA50と入力すればOKです。
エクセル2007の場合は違うかもしれませんが。

ついでにVBAでの例なら、シートモジュールに以下のように記述するだけでハイパーリンクを使用しなくとも出来ます。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$A$100" Then Exit Sub
Application.Goto Reference:=Range("A50"), Scroll:=True
End Sub

補足

merlionXXさんへ

たいへんすみません。
質問内容の例えに間違いがありました。
A100からA50に移動ではなく、A1からA50に移動する場合
A50がセル画面の左上角になるようにしたいのです。
ご丁寧な解説をいただきながら、ご迷惑をおかけし、
申し訳ありません。
訂正させていただきます。

回答No.1

fujillin

そのまま、ご自分で回答なさっていると思いますが…

「セルＡ100にハイパーリンクを設定して、リンク先をＡ50にしておく」ではダメなのでしょうか？

補足

fujillinさんへ

たいへんすみません。
質問内容の例えに間違いがありました。
A100からA50に移動ではなく、A1からA50に移動する場合
A50がセル画面の左上角になるようにしたいのです。

たいへんご迷惑をおかけし、
申し訳ありませんが訂正させていただきます。