Excel マクロで別シートのセルにジャンプする方

質問

Excelマクロ（Office2003レベル）でお尋ねします。
今、２×２のシート１と同じサイズのシート２があるとします。
シートのセル構成は1A,2A,1B,2Bとなります。

１．シート１のセル１Aをクリックしたらシート２の１Aにカレントセルが移動し
２．シート２のセル１Aをクリックしたらシート１の１Aにカレントセルが移動する
ようなマクロはどのようにして作成したらいいでしょうか？

回答No.1

keithin · ベストアンサー

方法１：マクロを使わない

シート１のＡ１セルを右クリックして「ハイパーリンク」を開始
現れたダイアログで「このドキュメント内」からシート２のＡ１セルを設定

シート２のＡ１セルを右クリックして「ハイパーリンク」を開始
現れたダイアログで「このドキュメント内」からシート１のＡ１セルを設定

ハイパーリンクを埋めたそれぞれのセルには，ハイパーリンクには仔細構わずに，記入しておきたい言葉や数字や数式を記入しておいて構いません。
それぞれのセルをクリックすると，目的のセルにジャンプします。

方法２：マクロを使う方法

マクロを使う場合は，シングルクリックではなくＷクリックを使います。

手順：
シート１のシート名タブを右クリック，コードの表示を選ぶ
現れたシートに下記をコピー貼り付ける

private sub Worksheet_beforeDoubleClick(byval target as excel.range, cancel as boolean)
　if target.address = "$A$1" then
　　cancel = true
　　application.goto worksheets("Sheet2").range("A1")
　end if
end sub

シート２のシート名タブを右クリック，コードの表示を選ぶ
現れたシートに下記をコピー貼り付ける

private sub Worksheet_beforeDoubleClick(byval target as excel.range, cancel as boolean)
　if target.address <> "$A$1" then exit sub
　cancel = true
　worksheets("Sheet1").select
　worksheets("Sheet1").range("A1").select
end sub

お礼

大変参考になりました。
ありがとうございました＞