エクセルマクロをリボンに登録する方法！【マクロ自動化】

個人用マクロブックに保存した自作のマクロは、エクセルのリボンに登録しておくと必要なときに簡単に呼び出せるので便利です。

今回の記事では前回、前々回紹介したマクロを組み合わせて、エクセルシートの体裁を整えるマクロを作成し、そのマクロをリボンに登録して、いつでも呼び出せるようにするまでの手順を説明します。

シートの体裁を整えるマクロ

カーソルを左上に移動するマクロと、ズーム倍率を100％に変更するマクロを組み合わせて、エクセルファイルの全てのシートの体裁を整えるマクロを作成します。

実際のコードは以下のようになります。
（※13行目に表示形式を標準に設定する処理も追加しています。）

ActiveWindowのプロパティを変更する処理が4つあるので、With～End Withで括っています。こうすることでコードが見やすくなるうえ、マクロの処理速度もほんの少しですが向上します。

Sub DocFinish()
    Dim wb As Workbook
    '現在選択されているブックを変数に格納
    Set wb = ActiveWorkbook
    
    Dim ws As Worksheet
    'ブックの中のシートを１枚ずつループ
    For Each ws In wb.Worksheets
        '処理対象のシートを有効にする
        ws.Activate
        With ActiveWindow
            '表示形式を標準にする
            .View = xlNormalView
            '倍率を100%に設定
            .Zoom = 100
            '画面左上にスクロールする
            .ScrollRow = 1
            .ScrollColumn = 1
        End With
        '"A1"セルを選択
        Range("A1").Select
    Next ws
    
    wb.Worksheets(1).Activate
    Set wb = Nothing
End Sub