シートを同一形式にそろえる

VBA

こういうのが地味に便利。

Attribute VB_Name = "FormatSheet"
Sub シート設定()
  
    Const 範囲 = "$A$1:$S$9"
  
    ' 罫線を引く
    With Range(範囲)
        '上段
        With .Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With

        '下段
        With .Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With

        '左側
        With .Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With

        '右側
        With .Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With

        '内側の縦線
        With .Borders(xlInsideVertical)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With

        '内側の横線
        With .Borders(xlInsideHorizontal)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
    End With
  
    '各列の幅を設定する
    Columns("A").ColumnWidth = 10
    Columns("B").ColumnWidth = 30
    Columns("C").ColumnWidth = 5
    Columns("D").ColumnWidth = 30
    Columns("E").ColumnWidth = 5
    Columns("F").ColumnWidth = 30
    Columns("G").ColumnWidth = 5
    Columns("H").ColumnWidth = 30
    Columns("I").ColumnWidth = 5
    Columns("J").ColumnWidth = 30
    Columns("K").ColumnWidth = 5
    Columns("L").ColumnWidth = 30
    Columns("M").ColumnWidth = 5
    Columns("N").ColumnWidth = 30
    Columns("O").ColumnWidth = 5
    Columns("P").ColumnWidth = 30
    Columns("Q").ColumnWidth = 5
    Columns("R").ColumnWidth = 30
    Columns("S").ColumnWidth = 30

    '折り返し表示する
    ActiveSheet.Cells.WrapText = True

    '行を最小表示する
    Columns.EntireRow.AutoFit

    'ページ設定を全部解除する
    ActiveSheet.ResetAllPageBreaks

    With ActiveSheet.PageSetup
        .CenterHeader = "&A" 'シート名を表示する
    
        .PrintArea = 範囲
        
        .PaperSize = xlPaperA4
        .Orientation = xlLandscape '印刷方向を横にする
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With

End Sub