- Home ›
- Excel VBA入門 ›
- ウィンドウの操作
ウィンドウの複製
広告
指定したウィンドウを複製します。複製されたウィンドウは同期しているため並べて表示し片方を見ながら片方で作業するといったことが可能になります。
ウィンドウを複製するにはWindowオブジェクトに対して「NewWindow」メソッドを使います。
Dim window1 As Window Set window1 = Application.ActiveWindow window1.NewWindow
複製されたウィンドウは自動的に開きます。
サンプルプログラム
では簡単なサンプルで試してみましょう。
Sub テスト() Dim window1 As Window Set window1 = ActiveWindow window1.NewWindow Windows.Arrange _ ArrangeStyle:=xlArrangeStyleVertical, _ ActiveWorkbook:=True End Sub
上記マクロを実行すると次のようになります。
※上記のサンプルではWindowsコレクションの「Arrange」メソッドを使ってウィンドウを整列させています。「Arrange」メソッドの詳細は『ウィンドウの整列』を参照して下さい。
開いている2つのウィンドウは同じブックを参照していますので、どちらかのブックに値を入力するともう一方のブックにも同じように値が反映されます。
複製されたウィンドウのタイトルは同じタイトルですが、タイトルの後ろに「:番号」が付与されて表示されます。番号は1から順に付けられます。
( Written by Tatsuo Ikura )
Profile

著者 / TATSUO IKURA
初心者~中級者の方を対象としたプログラミング方法や開発環境の構築の解説を行うサイトの運営を行っています。