エクセルVBA 同じブックのシートを2つ表示時に片方を閉じたら両方閉じたい。

Question

前提・実現したいこと

エクセルVBAについての質問です。
シートを左右に並べて表示し、2シートのうちの1つのシートを閉じた時に片方のシートが閉じません。

1シートを閉じた時に、もう片方も閉じるにはどうしたら良いでしょうか？

発生している問題・エラーメッセージ

なし

該当のソースコード

Private Sub Workbook_Open()
    Sheets(2).Activate
    
    ActiveWindow.NewWindow
    Sheets(1).Activate
    
    Windows.Arrange ArrangeStyle:=xlVertical
End Sub

試したこと

Private Sub auto_close()
Workbooks.Close
End Sub
のコードを書いてみましたが駄目でした。

Answer 1

1シートを閉じた時に、もう片方も閉じるにはどうしたら良いでしょうか？

シートではなくウインドウです。
ウィンドウを閉じる

２つだけという事なら、WindowNumberの2と1をcloseすれば良いと思いますが、
他にもウインドウを開いているなら、WindowNumberをNewWindow時に記録しておいて利用する。

Comments

[moco0503]

ウインドウだったんですね。

解決しました。

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