【VBA】表全体を整形する

例えば以下の表を、


以下のように
 ・文字の横位置を「中央揃え」へ設定
 ・罫線を設定
することが出来ます!

VBAコード

ここでは例として、
 ・シート「sample」のセル「B3」から下を
 ・文字の横位置を「中央揃え」へ設定
 ・罫線を設定
します。

Option Explicit

Sub sample()
    
    Dim startRange As Range
    Dim endRow As Double
    Dim endColumn As Double
    Dim endRange As Range

    '開始セルを取得 ※対象範囲の1番左上のセル
    Set startRange = Worksheets("sample").Range("B3")
    '最終行を取得
    endRow = startRange.End(xlDown).row
    '最終列を取得
    endColumn = startRange.End(xlToRight).Column
    '最終セルを取得
    Set endRange = Worksheets("sample").Cells(endRow, endColumn)
    
    '表全体
    With Range(startRange, endRange)
        '文字の横位置を「中央揃え」へ設定
        .HorizontalAlignment = xlHAlignCenter
        '罫線を設定
        .Borders.LineStyle = xlContinuous
    End With
    
End Sub

「開始セル」は「対象範囲の1番左上のセル」です。状況に応じて修正してください。
※上記はセル「B3」にしています。

実行結果

表全体を整形することが出来ました。

備考

上記ではセルの横位置を「中央揃え」にしていますが、
 ・セルの横位置を「中央揃え」以外にしたい
 ・またはセルの縦位置を指定したい
場合は、以下の記事を参照してください。

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