Excelで同一ブックを左右表示する際のVBA切替：可変ファイル名でも安定させる考え方（2026年1月整理）
本記事が扱う事象は、Excelで同一ブックを「新しいウィンドウ（New Window）」で複数表示し、左右に並べた状態でVBAから表示ウィンドウを切り替えたい、という運用です。保存時にファイル名へ日付などが付与され、ブック名を文字列で固定指定すると「インデックスが有効範囲にありません」などの実行時エラーが起きやすくなります。確認日としては2026年1月14日相当の状況を前提に、名前依存を避ける整理を行います。なお、同一ブックを複数ウィンドウで切り替える場合、WorkbookのActivateではなくWindowActivate系の動きになる点も押さえておく必要があります。 Microsoft Learn
事象の整理：なぜ「ブック名指定」で崩れるのか
同一ブックを左右に並べる操作は、Excelの「新しいウィンドウ」により同じWorkbookを複数のWindowとして持つ形になります。VBAではActiveWorkbook.Windows(1)のように「ブック→ウィンドウ」の階層で参照でき、複数Windowが存在し得る点が特徴です。 Stack Overflow+1
一方で、ウィンドウ名をWindows("資料20260114.xlsm:1")のように文字列指定すると、保存のたびにファイル名が変わる運用では一致が崩れます。この結果、Windowsコレクションから該当が見つからず、実行時エラー9（インデックスが有効範囲にありませｎ）として表面化しやすくなります。さらに、ActiveWindow.ActivateNextは「開いている全ウィンドウ」を順送りするため、別ブックのウィンドウが混ざる環境では意図とずれる可能性が高くなります。そうすることによって、ブック名の可変性とウィンドウ列挙の範囲が、同時に問題になります。
要点を整理すると、切替対象を「文字列のウィンドウ名」ではなく「Workbookオブジェクト配下のWindows」に寄せることが根本対策です。
最優先の安定策：ThisWorkbook/ActiveWorkbookからWindows番号で切り替える
ファイル名が変わっても影響を受けにくいのは、「どのWorkbookのWindowsを扱うか」を先に固定し、その上でWindowsの番号（1,2…）で切り替える方法です。VBAから見た構造は、Workbook.Windows(1)とWorkbook.Windows(2)が同じブックの別ウィンドウを指します。 Stack Overflow
典型例は、マクロが格納されているブックを起点にするThisWorkbookです。これは保存名がどう変わっても、コードが入っているブック自体を指すため、名前依存が消えます。他方、操作対象が常に「いまの作業ブック」で良いならActiveWorkbookでも成立します。ただし、複数ブックを開く運用ではActiveが揺れるため、実務上の確認点となります。
'同一ブック内の2つのウインドウを相互に切替（ブック名に依存しない）
Sub ToggleWindowWithinWorkbook()
Dim wb As Workbook
Set wb = ThisWorkbook '必要に応じてActiveWorkbookへ
If wb.Windows.Count < 2 Then Exit Sub
If ActiveWindow Is wb.Windows(1) Then
wb.Windows(2).Activate
Else
wb.Windows(1).Activate
End If
End Sub
この形なら、他のブックのウィンドウが開いていても、切替対象はwb配下に限定されます。さらに、同一ブックのウィンドウ切替ではWorkbookのActivateイベントは発火しない、という仕様面も合わせて理解しておくと、イベント駆動の設計で齟齬が出にくくなります。 Microsoft Learn
結論として、同一ブック内での左右表示切替は「Workbookを確定→そのWindowsをActivate」が最も崩れにくい構造です。
ワイルドカード相当が必要な場合：LikeでWindow.Captionを絞り込む
どうしても「ブック名の一部が日々変わるが、規則性はある」という前提で、開いているWindows全体から該当だけを拾う必要がある場合もあります。このとき、VBAのLike演算子でパターン一致（いわゆるワイルドカード相当）を使い、Application.Windowsを走査して絞り込みます。つまり、Windowsコレクションの範囲を広げた上で、条件式で戻す設計です。
ただし、この方法は「同名パターンの別ブック」や「同一名のコピー」が混在すると誤選択の余地が残ります。以上を踏まえると、第一候補は前章の「Workbook配下に限定」ですが、制約上それができない場合の代替として位置づけるのが安全です。
'ウィンドウ名をパターンで拾う例（環境次第で誤選択の余地あり）
Sub ActivateByPattern()
Dim w As Window
For Each w In Application.Windows
If w.Caption Like "資料*.xlsm:*" Then
w.Activate
Exit For
End If
Next w
End Sub
ここで重要なのは、Windows名の形式が「ファイル名:番号」のように表示される点を前提にしていることです。同一ブックを複数表示している状況では、...:1と...:2のように区別されます。 Stack Overflow そのため、厳密に「:1から:2へ」の移動をしたいなら、最初に一致したWindowを起点に、同じ親ブックの別Windowへ移す追加ロジックが必要になります。
この方式は「名前が変わる」課題には対応できる一方で、「別ブック混在」への耐性が条件次第で下がる点が判断材料として重要です。
よくある実装比較：ActivateNextを避ける条件と整理表
ActiveWindow.ActivateNextは簡潔ですが、対象範囲が「アプリ全体のウィンドウ」になるため、別ブックを開いていると期待と一致しない問題が出ます。これは仕様上自然であり、誤りというより「どの集合を回しているか」の差です。 Reddit したがって、対象を限定する工夫が必要になります。
そのため、実務での選択肢は大きく3系統に整理できます。なお、表の直前で論点を固定しておくと、コードの短さではなく「誤選択リスク」で比較しやすくなります。
| 方式 | 参照の起点 | 可変名への強さ | 別ブック混在への強さ |
|---|---|---|---|
| Workbook.Windows(n) | ThisWorkbook/特定wb | 強い | 強い |
| Application.Windows + Like | アプリ全体 | 中 | 弱〜中 |
| ActiveWindow.ActivateNext | アクティブ起点 | 無関係 | 弱 |
表から逆算すると、同一ブックを左右表示している状況では、最初からwb.Windowsに寄せる設計が合理的です。一方で、Like走査は「どうしてもwbが確定できない」前提がある場合の手段となります。なお、同一ブックのウィンドウを増やす操作自体はActiveWorkbook.Windows(1).NewWindowのようにWindowsコレクションを通じて行われるため、番号参照の考え方と整合します。 Stack Overflow+1
つまり、切替ロジックの設計では「回す集合をWorkbook内に閉じる」ことが最初の分岐条件になります。
運用面の確認点：左右固定・枚数増加・イベント連動の落とし穴
左右に並べるだけなら2ウィンドウで足りますが、比較作業の都合で3枚以上に増えるケースもあります。この場合、Toggleのような二択ロジックは前提が崩れるため、wb.Windowsを配列的に扱い、現在のIndexを求めて次へ送る形が必要になります。そうすることによって、枚数増加に対しても同じ設計で拡張できます。 Super User
また、ウィンドウ切替とイベントを組み合わせる設計では、「WorkbookのActivateイベントは同一ブックの別ウィンドウ切替では発火しない」点が重要です。 Microsoft Learn 代わりにWindowActivate側で処理を組む必要が出るため、ログ記録や状態更新の実装では解釈が分かれる余地があります。さらに、左右固定の見た目を維持するために整列（Arrange）や表示倍率を揃える処理を足す場合、切替そのものとレイアウト調整を同一手続きに混ぜると原因切り分けが難しくなります。以上を踏まえると、「切替」「整列」「同期スクロール」などの役割分離が、障害時の確認点となります。
要点は、ウィンドウ切替を名前から切り離し、WorkbookとWindowの関係で扱うことで、日付付き保存の運用でも手戻りを減らせる点です。
