同じブックに含まれる別のシートを並べて表示する操作は、実務では結構便利です。
便利なのですが、頻繁にこの操作を行う場合、もう少し簡単に操作できないかと感じます。
新しいウィンドウを開き→並べて表示する指示を出し→どう並べるかを指定する、という手順を面倒に感じるからです。
そう感じた方によるものでしょうか、
「エクセルvba ウィンドウ 同一ブック 並べて表示」
という検索キーワードに気づきました。
参考になりそうなExcelマクロをご紹介しましょう。
アクティブブックの新しいウィンドウを開き並べて表示するサンプルマクロ
以下のSubプロシージャを実行すると、アクティブなブックの新しいウィンドウが開かれ、並べて表示が行われます。
With ActiveWorkbook
.NewWindow
.Windows.Arrange xlArrangeStyleTiled
End With
End Sub
サンプルマクロで利用しているオブジェクト式について
ActiveWorkbookプロパティで取得した、アクティブなブックを表すWorkbookオブジェクトの、
With ActiveWorkbook
NewWindowメソッドで、
.NewWindow
アクティブブックの新しいウィンドウを開きます。
その後、アクティブなWorkbookオブジェクトのWindowsプロパティで、アクティブブックの全ウィンドウを表すWindowsコレクションオブジェクトを取得して、
.Windows.Arrange xlArrangeStyleTiled
Arrangeメソッドで並べて表示を行っています。
.Windows.Arrange xlArrangeStyleTiled
Home » エクセルマクロ・Excel VBAの使い方 » Windowオブジェクト » 新しいウィンドウを開き並べて表示するExcelマクロ