Excel VBA ウインドウを左右に並べて表示する　複製ウインドウを閉じる

ショートカットメニューでウインドウを左右に並べて表示する方法

ブック内の複数シートを別ウインドウで並べて表示し、比較や参照したり、コピーや貼付けをしたいときがあります。

表示タブで新しいウインドウを開き、整列で左右に並べて表示で表示できますが、右クリックメニューの中にウインドウの切り替えメニューを追加して、すばやく切り替えができるようにします。

右クリックメニュー（ショートカット）の作成方法

まずは、右クリックメニューに「ウインドウを開く」と「ウインドウを閉じる」コマンドを作成します。
詳しくは右クリックメニューにマクロ実行コマンドを追加するをご覧ください。

右クリックメニュー追加のコード

Sub コマンド追加()
  With CommandBars("cell").Controls.Add(Before:=1, Type:=msoControlPopup)
      .Caption = "ウインドウ"
  With .Controls.Add
       .Caption = "ウインドウ開く"
       .OnAction = "wopen"
　End With
　End With
End Sub

実行結果

※注意点としてコマンドメニューの追加は、他のブックにも反映されます。

追加したコマンドメニューを削除するコード

Sub コマンド削除()
  CommandBars("cell").Controls("ウインドウ").Delete
End Sub

いつでもメニューが削除できるように、同じ標準モジュール内にメニュー削除のコードも記述してください。

ウィンドウを左右に並べて表示する方法

ブック内の複数のシートを並べて表示するには、Window【ｳｨﾝﾄﾞｳ】オブジェクトのNewWindow【ﾆｭｰｳｨﾝﾄﾞｳ】メソッドを使用して、オブジェクトに指定したブックのWindow【ｳｨﾝﾄﾞｳ】のコピーを開きます。Window【ｳｨﾝﾄﾞｳ】オブジェクトのArrange【ｱﾚﾝｼﾞ】メソッドを使用して開いたWindow【ｳｨﾝﾄﾞｳ】のコピーの整列方法を設定します。

メソッド	内容
NewWindow【ﾆｭｰｳｨﾝﾄﾞｳ】	指定したウィンドウのコピーを開きます。
Arrange【ｱﾚﾝｼﾞ】	開いたウィンドウのコピーの整列方法を設定します。

NewWindow【ﾆｭｰｳｨﾝﾄﾞｳ】メソッド

ウィンドウのコピーを開くには、Window【ｳｨﾝﾄﾞｳ】オブジェクトまたは、Workbook【ﾜｰｸﾌﾞｯｸ】オブジェクトのNewWindow【ﾆｭｰｳｨﾝﾄﾞｳ】メソッドを使用します。

NewWindow【ﾆｭｰｳｨﾝﾄﾞｳ】メソッドの書式と設定値の説明

オブジェクト.NewWindow

オブジェクト（必須）
Window【ｳｨﾝﾄﾞｳ】オブジェクトまたは、Workbook【ﾜｰｸﾌﾞｯｸ】オブジェクトを指定します。開いていないオブジェクトを指定するとエラーになります。

Arrange【ｱﾚﾝｼﾞ】メソッド

開かれているすべてのウィンドウを並べ替えるには、Window【ｳｨﾝﾄﾞｳ】オブジェクトのArrange【ｱﾚﾝｼﾞ】メソッドを使用します。

Arrange【ｱﾚﾝｼﾞ】メソッドの書式と設定値(引数)の説明

[]内は省略可能です。
オブジェクト.Arrange[(ArrangeStyle, ActiveWorkbook, SyncHorizontal, SyncVertical)]

オブジェクト（必須）
Windows【ｳｨﾝﾄﾞｳｽﾞ】コレクションを指定します。

ArrangeStyle【ｱﾚﾝｼﾞｽﾀｲﾙ】（省略可）
ウィンドウの並べ替え方法を XlArrangeStyle 列挙型の定数で指定します。

XlArrangeStyle 列挙型
定数	内容
xlArrangeStyleTiled 【ｴｯｸｽｴﾙｱﾚﾝｼﾞｽﾀｲﾙﾀｲﾚｯﾄﾞ】	開かれているウィンドウがすべて画面に表示されるようにサイズを縮小して並べます。
xlArrangeStyleHorizontal 【ｴｯｸｽｴﾙｱﾚﾝｼﾞｽﾀｲﾙﾎﾘｿﾞﾝﾀﾙ】	ウィンドウを同じサイズに縮小して上下に並べて表示します。
xlArrangeStyleVertical 【ｴｯｸｽｴﾙｱﾚﾝｼﾞｽﾀｲﾙﾊﾞｰﾃｨｶﾙ】	ウィンドウを同じサイズに縮小して左右に並べて表示します。
xlArrangeStyleCascade 【ｴｯｸｽｴﾙｱﾚﾝｼﾞｽﾀｲﾙｶｽｹｰﾄﾞ】	開いているウィンドウのサイズが調整されタイトルバーが見えるように少しずつずらして重ねて表示されます。

ActiveWorkbook【ｱｸﾃｨﾌﾞﾜｰｸﾌﾞｯｸ】（省略可）
整列する対象のウィンドウをブール型の値で指定します。省略した場合は、開いているすべてのウィンドウを整列します。
設定値内容
True アクティブウインドウとそのウィンドウのコピーを整列します。
False 開いているすべてのウィンドウを整列します。（既定値）
SyncHorizontal【ｼﾝｸﾎﾘｿﾞﾝﾀﾙ】（省略可）
整列したウィンドウの横スクロールを同期させるかをブール型の値で指定します。引数ActiveWorkbookがTrueの場合、つまり、アクティブウインドウとそのウィンドウのコピーを整列の場合のみ有効の引数です。省略した場合は同期しません。
設定値内容
True 整列したウィンドウの横スクロールを同期します。
False 整列したウィンドウの横スクロールを同期しません。（既定値）
SyncVertical【ｼﾝｸﾊﾞｰﾃｨｶﾙ】（省略可）
整列したウィンドウの縦スクロールを同期させるかをブール型の値で指定します。引数ActiveWorkbookがTrueの場合、つまり、アクティブウインドウとそのウィンドウのコピーを整列の場合のみ有効の引数です。省略した場合は同期しません。
設定値内容
True 整列したウィンドウの縦スクロールを同期します。
False 整列したウィンドウの縦スクロールを同期しません。（既定値）

設定値	内容
True	アクティブウインドウとそのウィンドウのコピーを整列します。
False	開いているすべてのウィンドウを整列します。（既定値）

設定値	内容
True	整列したウィンドウの横スクロールを同期します。
False	整列したウィンドウの横スクロールを同期しません。（既定値）

設定値	内容
True	整列したウィンドウの縦スクロールを同期します。
False	整列したウィンドウの縦スクロールを同期しません。（既定値）

ワークシートを左右同時に表示するコード

Private Sub wopen()
 ActiveWindow.NewWindow
  Windows.Arrange Arrangestyle:=xlArrangeStyleVertical, ActiveWorkbook:=True
End Sub

コマンド追加のコードと同じ標準モジュールにPrivate Sub【ﾌﾟﾗｲﾍﾞｲﾄｻﾌﾞ】プロシージャーで記述してください。

実行結果

以上で、ショートカットメニューでウインドウを左右に並べて表示する方法についての解説を終了します。
ありがとうございました。