並べて比較(CompareSideBySideWith,SyncScrollingSideBySide,BreakSideBySide)
2016/01/12
並べて比較(CompareSideBySideWith メソッド)
CompareSideBySideWith メソッド を使用して、アクティブウィンドウと指定したウィンドウを並べて表示し、スクロールを同期します。
object.CompareSideBySideWith ( windowname )
引数・戻り値
- object ・・・ 対象となる Windows コレクションを指定します。
- windowname ・・・ ウィンドウ(開いているブック)の名前を指定します。
ここで指定する「ウィンドウ(開いているブック)の名前」とは、Excel のウィンドウのタイトルバーに表示されている名前のことで、Window.Caption プロパティ で取得することができます。通常は、ブック名が表示されていますが、新規作成したブックで、まだ保存されていない場合は、「Book1」などのように拡張子なしで表示されている場合もあります。
また、Window.Caption プロパティ に、新しい名前を設定して、ウィンドウの名前を変更することもできます。(ただし、その変更を保存することはできません。これは、ブック名には影響しません。)
ResetPositionsSideBySide メソッド
CompareSideBySideWith メソッド を使用して、2 つのウィンドウを並べて比較している時、一方のウィンドウを動かしたり、最小化や最大化を行った場合に、ResetPositionsSideBySide メソッド を使用するともとの 2 つのウィンドウが並んでいる状態に戻すことができます。
object.ResetPositionsSideBySide
引数・戻り値
- object ・・・ 対象となる Windows コレクションを指定します。
並べて比較を解除
BreakSideBySide メソッド を使用すると CompareSideBySideWith メソッド で設定した「並べて比較」の状態を解除することができます。また、スクロールの同期だけを解除したい場合は、SyncScrollingSideBySide プロパティ に、False を設定します。
BreakSideBySide メソッド
object.BreakSideBySide
引数・戻り値
- object ・・・ 対象となる Windows コレクションを指定します。
SyncScrollingSideBySide プロパティ
<取得>
object.SyncScrollingSideBySide
<設定>
object.SyncScrollingSideBySide = boolean
引数・戻り値
- object ・・・ 対象となる Windows コレクションを指定します。
- boolean ・・・ True を指定すると各ウィンドウの内容を同時にスクロールすることができます。False を指定すると同時にはスクロールできなくなります。
並べて比較 設定と解除の例
サンプルVBAソース 1
1 2 3 4 5 6 7 8 |
Sub Sample01_Compare() '並べて比較する Windows.CompareSideBySideWith "Book1" End Sub |
サンプルVBAソース 1 実行結果
サンプルVBAソース 2
1 2 3 4 5 6 7 8 9 10 11 |
Sub Sample02_Compare() 'スクロールの同期を解除 Windows.SyncScrollingSideBySide = False '並べて比較を解除 Windows.BreakSideBySide End Sub |
サンプルVBAソース 2 実行結果
関連記事
-
-
ユーザー設定のビュー(CustomView オブジェクト)
ユーザー設定のビュー CustomView オブジェクトは、登録されている各ビュ …
-
-
ワークシートのコピー・移動(Copy メソッド Move メソッド)
Copy メソッド Copy メソッドで、指定した位置にワークシートの複製を作成 …
-
-
シートを保護・保護したシートを解除する(Protect メソッド・Unprotect メソッド)
Protect メソッド・Unprotect メソッド Protect メソッド …
-
-
印刷品質を設定(PageSetup.PrintQuality プロパティ)
PageSetup.PrintQuality プロパティ PageSetup.P …
-
-
ページ数に合わせて印刷(FitToPagesTall, FitToPagesWide)
PageSetup.FitToPagesTall プロパティ PageSetup …
-
-
Excel を全画面表示(DisplayFullScreen プロパティ)
DisplayFullScreen プロパティ DisplayFullScree …
-
-
ブックを別名で保存(SaveAs メソッド)
ブックを別名で保存(SaveAs メソッド) ブックの変更を保存したり、新規ブッ …
-
-
行列番号を含めて印刷(PageSetup.PrintHeadings プロパティ)
PageSetup.PrintHeadings プロパティ PageSetup. …
-
-
選択されているシートを参照する(SelectedSheets プロパティ)
SelectedSheets プロパティ 選択されているすべてのシートをあらわす …
-
-
枠線を含めて印刷(PageSetup.PrintGridlines プロパティ)
PageSetup.PrintGridlines プロパティ PageSetup …