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

Excel

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


このマクロを使うにはどうしたらいいか、分からない方は下記の記事を参考にして下さい!

マクロ機能説明

  • 一番左のシートを表示した状態にします。
  • 各シートの表示倍率を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

コメント

タイトルとURLをコピーしました