書式設定

サンプルコード

    Sub 書式設定()
        With Selection
        
           '■書式設定'
            .NumberFormatLocal = "G/標準"
            .NumberFormatLocal = "@"

           '■文字の配置'
            ''横位置
            .HorizontalAlignment = xlHAlignCenter     ''右詰め：xlHAlignRight
            ''縦位置
            .VerticalAlignment = xlVAlignCenter
            ''文字の折り返し
            .WrapText = False
            ''縮小して全体を表示
            .ShrinkToFit = False
            ''セルの結合
            .MergeCells = True
            
           '■フォント'
            With .Font
                ''フォント名
                .Name = "ＭＳ Ｐゴシック"
                ''サイズ
                .Size = 12
            End With
            
          ''■背景色
            ''背景色の設定
            .Interior.Color = vbYellow              ''RGB(255,255,0)
            ''背景色のクリア
            .Interior.ColorIndex = xlNone
          
        End With
    End Sub