【Excel VBA】【コピペでOK】保存前に全てのシートの表示倍率と選択セルを揃えるマクロ

設計書やシートの多いExcelブックを編集して保存するときに、このマクロで一手間加えると
次に開く人は、きっと読みやすくなるはずです！

【Excel VBA】マクロ超入門！マクロの作成・保存・実行

実際にマクロを作成・保存・実行まで行っていきます！
マクロ作成は、テスト用のマクロを用意しているので、マクロの知識は不要です！

karkinos-lab.com

2019.10.19

マクロ機能説明

• 一番左のシートを表示した状態にします。
• 各シートの表示倍率を100%にします。
• 各シートの左上(A1)セルを選択した状態にします。
• 非表示中のシートは上記処理の対象外となります。

Sub ブック整形()
    Dim objSheet As Worksheet
    Dim i As Integer
    ' ブックの表示されている全シートに対して処理を実施
    For i = 0 To ActiveWorkbook.Worksheets.Count - 1
        
        Set objSheet = Worksheets(ActiveWorkbook.Worksheets.Count - i)
        ' 非表示のブックは整形対象外
        If objSheet.Visible = True Then
            objSheet.Select
            
            ' 表示倍率の変更
            ActiveWindow.Zoom = 100
            ' 左上(A1セル)に移動
            Range("A1").Select
            
        End If
    Next
End Sub