[VBA]Excelのウィンドウを瞬時に整列させるマクロ

1561 ワード
業務効率化 VBA Excel 便利 VBAマクロ Excel テキストリンク

[0]はじめに

Zitanです。
複数のExcelファイルを同時に操作するとき、ディスプレイ画面上に左右にきれいに整列させたい時はありませんか？
今回は、複数のExcelウインドウを瞬時に整列させるコードをご紹介します。

[1]これを使う

筆者がよく使うのはこちらです。

左右に整列させる
Sub 左右に整列()
Application.Windows.Arrange xlArrangeStyleVertical
End Sub

その他の整列方法

引数 結果
xlArrangeStyleVertical 左右に並べて表示
xlArrangeStyleHorizontal 上下に並べて表示
xlArrangeStyleTiled 並べて表示(デフォルト)
xlArrangeStyleCascade 重ねて表示

[2]結果はこんな感じです

Excelのウインドウを適当に４つ開いておいて、マクロを実行しました。

[3]さいごに

いかがでしょうか。
いくつ起動していてもきれいにピシッと整列するのが癖になりそうです。笑