ダブルクリックで各シートへの移動方法

質問

Sheet1内のセル1をダブルクリックしたらSheet2が開き、セル2をダブルクリックしたらSheet3へといった具合に、参照できるSheetへ移動できるようにしたいのですが、どうしたらよいでしょうか？マクロ初心者で質問もうまくできませんが、どなたか教えてください。よろしくお願いします。

回答No.3

hana-hana3 · ベストアンサー

リンク設定のマクロです。
Ａ列にリンクが入ります。

Sub HlinkMacro()
Dim i As Integer
Dim ws As Worksheet

i = 1
For Each ws In Worksheets
If ws.Name <> ActiveSheet.Name Then
Cells(i, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
ws.Name & "!A1", TextToDisplay:=ws.Name
i = i + 1
End If
Next
Range("A1").Select
End Sub

お礼

ありがとうございます！
マクロは難しいですね。
理解するのに結構時間がかかります。
活用させていただきます！（＾o＾）

回答No.2

chubuchubu

試しにここで質問されたらいかがですか?
私もVBA初心者で、利用しています。
結構答えてくれますよ。

参考URL：

http://www.vbalab.net/

お礼

ありがとうございます。
これからわからないことがありましたら活用させていただきます！

回答No.1

hana-hana3

マクロを使わなくてもハイパーリンクで移動出来ますよ。

http://kokoro.kir.jp/excel/hyperlink-sheet.html

お礼

早速のご回答ありがとうございます。(*＾o＾*)
こんなに早く返事がいただけるとは思ってもなかったので驚きました！＼(*o*)／

補足

ハイパーリンクでも試みたのですが、シートの数が多いので
一つ一つハイパーリンクを設定するのが大変なので何かよい方法は
ないでしょうか・・・