Excel VBA シートの移動について。

質問

シートの構成は順番に『1』～『10』『メイン』となっているとします。
『メイン』以外は非表示にしています。
しかしメインシートで、番号を指定してマクロを実行すると新しいウインドウを開き指定した番号のシートが表示されるようになっています。
例えばメインシートで『1』を指定して実行すると、ウインドウが2つになり、『1』『メイン』のシートが表示されている状態になります。

問題はここからで、1～10のシートにはマクロでシートセレクトできるようにしているのですが、下記載のマクロを実行すると『メイン』を表示しているウインドウも一緒に表示が変ってしまうことです。

Sub 2に移動()
Worksheets("2").Visible = True 　　'非表示のシートを表示
ActiveSheet.Visible = False 　　　　 'シートを非表示にする。
Sheets("2").Select
End Sub

『1』『メイン』が表示されているときに、『1』で上のマクロを実行すると、『メイン』が表示されているウインドウもシート『2』に移動してしまうことなんです。
これをどうにかして、その実行したウインドウだけ移動するようにしたいのですが、何か方法はないでしょうか？

一応シートの1～10を非表示にせず、表示したままならこの現象は起こらないのですが、どうにかして使用していないシートを非表示にした状態を保ったままやりたいのです。

回答No.7

atamagawarui5 · ベストアンサー

Sub sheet2()
Dim window1 As Window

Set window1 = ActiveWindow

Sheets("1").Visible = False
Sheets("2").Visible = True
Sheets("3").Visible = False
Sheets("4").Visible = False
Sheets("5").Visible = False
Sheets("6").Visible = False
Sheets("7").Visible = False
Sheets("8").Visible = False
Sheets("9").Visible = False
Sheets("10").Visible = False
Application.Windows("test.xlsm:1").Activate
Sheets("main").Select

If window1.Caption <> "test.xlsm:1" Then
Application.Windows("test.xlsm:2").Activate
Sheets("2").Select
Else
Sheets("2").Select
End If

End Sub

ごめんなさいこちらでごぜーやす！！

お礼

できました!!
何度も丁寧な回答ありがとうございますm(_ _ )m

回答No.6

atamagawarui5

Sub Sheet2に移動()

Sheets("1").Visible = False
Sheets("2").Visible = True
Sheets("3").Visible = False
Sheets("4").Visible = False
Sheets("5").Visible = False
Sheets("6").Visible = False
Sheets("7").Visible = False
Sheets("8").Visible = False
Sheets("9").Visible = False
Sheets("10").Visible = False
Sheets("main").Select

If ActiveWindow.Caption <> "test.xlsm:1" Then
Application.Windows("test.xlsm:2").Activate
Sheets("2").Select
Else
Sheets("2").Select
End If

End Sub

両方とも切り替わっているのですが、Selectれてないだけですね
これでいいと思います

回答No.5

atamagawarui5

Sub 2に移動()
　　With ActhiveWindow
　　　　Worksheets("2").Visible = True
　　　　ActiveSheet.Visible = False
　　　　Sheets("2").Select
　　End With
End Sub

シート分割してアクティブWindowだけを動かしたいということですね？
これでどうですかね？

補足

んー、違うんですよ。
アクティブウインドウにはなっているんですけど、実行したらアクティブじゃない方のウィンドウは再表示したシートに移動しちゃうんですよね。
でもアクティブなウインドウはセレクトしないと移動しないんです。

なんか仕様っぽいですね(・ω・` )

回答No.4

atamagawarui5

ＥｘｃｅｌBook２つ開いて作業しているということですかね？
記述をWorkBook1.WorkSheet（"2"）.Visible = TRUE
でも同じ症状出ますかね？？

回答No.3

atamagawarui5

http://officetanaka.net/excel/vba/sheet/sheet06.htm
きっとこれの事言っているのですよね？

補足

＞マクロのコードで実行するとアクティブになりません。

ウインドウ2でマクロを実行するとウインドウ2では再表示してもアクティブにならないんですが、ウインドウ1ではなぜか再表示したシートがアクティブになるんです。
ブックを２つではなくて、一つのブック内で新しいウインドウを開き、シート別で表示している状態と言う事です。

回答No.2

atamagawarui5

それでしたら、ステップデバッグしましょ、F8で見ていくか、ブレークポイント置いて走らすかどちらかで、おかしい場所は特定できますので。

補足

回答ありがとうございます。
F8でコードを追ってみたら

Worksheets("2").Visible = True 　　'非表示のシートを表示

のところでなぜか『メイン』シートを表示しているウインドウ1が、『2』に移動します。実行しているのはウインドウ2のシート『1』の場所なのにです・・・
なぜでしょう・・・

回答No.1

atamagawarui5

原因はSheetが開いた順にシート番号が振られるためです。
この場合、シート名で移動させた方がバグは出にくいですね。

ActiveSheet.Visible = False
ここも、メインがアクティブになっているなら、メインが隠れます。
シート名で指定したほうがいいです。

補足

それがシート名で指定しても同じ現象が起こるのです(・ω・` )
あと不明なのですが、ウインドウ2を『メイン』にして、ウインドウ1でシート移動をしたら『メイン』は移動しませんでした。
なぜでしょう・・・・
原因がさっぱりです