ウィンドウを並べて比較する【CompareSideBySideWithメソッド】【ExcelVBA】

CompareSideBySideWithメソッド

2つのウィンドウを並べて比較モードにすることができます。
ウィンドウのスクロールが同期するので、シートやデータを比較するのに便利です。
BreakSideBySideメソッドで比較モードを解除できます。

構文
Object.CompareSideBySideWith (WindowName)

2つのウィンドウを比較するサンプルコード

Public Sub Sample()

  Range("A1").Select     '開いているウィンドウのセルA1を選択

  Workbooks.Add          'ブックを新規作成

  '開いたブックでセルA1以外が選ばれていれば、セルA1を選択する
  If ActiveCell.Address(False, False) <> "A1" Then
       Range("A1").Select
  End If
  
  Windows.CompareSideBySideWith "book1" 　 '2つのウィンドウを比較モードにする
  
  Windows.BreakSideBySide 　 '比較モードを解除する
  
End Sub

注意点

• 開いたときに比較しやすくするため、どちらもセルをA1に合わせています。
• 実際に使用するときは、ブックを新規作成するところで任意のブックを開いてください。
• ブック名はウィンドウのタイトルのことで、Window.Captionプロパティで取得することができます。

関連記事

• Excelウィンドウを参照する【Windowsプロパティ】
• ウィンドウの表示倍率を変更する【Zoomプロパティ】
• 開かれているウィンドウを整列して見やすくする【Arrangeメソッド】
• Excelウィンドウを最大化・最小化する【WindowStateプロパティ】