【Excel】選択範囲のセル書式変更

選択範囲のセル書式を変更します。

Sub TblColColor()
'
' TblColColor Macro
'
' テーブル名の項目名を色付けします。
'

    '選択範囲を色づけする。
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 13434828
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With

    '選択範囲を折り返し表示する。
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 13434828
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With

    '選択範囲を太字にする。
    Selection.Font.Bold = True

End Sub