Step 3_5 セルの書式

★セルの背景を塗りつぶすには

    セル範囲の塗り潰しを設定したい場合には、Rangeオブジェクトの下位オブジェクトである
    Interiorオブジェクト使います。

サンプル



        
    Sub セルの背景()

    Range("A1:A2").Interior.ColorIndex = 1              'カラーパレットの色で塗り潰す
    Range("B1:B2").Interior.Pattern = xlPatternChecker  'チェックのパターン
    Range("C1:C2").Interior.Color = RGB(255, 0, 0)      'RGB値で塗り潰し
    With Range("D1:D2").Interior        
        .Pattern = xlGrid                               'グリッドのパターン
        .PatternColor = RGB(0, 0, 255)                  'RGB値でグリッドの色を指定
    End With
    With Range("E1:E2").Interior       
        .Pattern = xlPatternVertical                     '垂直線のパターン
        .PatternColorIndex = 15                          'カラーパレットの色でパターンの色を指定
    End With

End Sub

★セル内の文字列の配置を指定するには

サンプル

SUB 文字列配置()
    ActiveCell.Select                   'アクティブセルを対象
    
    With Selection
        .FormulaR1C1 = "ABC"            'セルに文字を入力
        .VerticalAlignment = xlCenter   '文字の縦位置を中央に揃える
        .HorizontalAlignment = xlCenter '文字の横位置を中央に揃える
    End With
End Sub

★セルのフォントスタイルを変更するには

    セルのフォントに関しての操作を行いたい場合には、 Rangeオブジェクトの下位オブジェクトであるFont オブジェクトのプロパティを操作します。

サンプル


Sub フォントスタイル()

    Range("A1").Font.Size = 12   'フォントサイズ

    With Range("A1")
        .Value = "Bold"
        .Font.Bold = True        '太字にする
    End With
    With Range("A2")
        .Value = "色の指定"
        .Font.ColorIndex = 3      'カラーパレットのインデックスから色指定
    End With
    With Range("A3")
        .Value = "斜体"
        .Font.Italic = True       'フォントを斜体にする
    End With
    With Range("A4")
        .Value = "Size"
        .Font.Size = 18            'フォントサイズ
    End With
    With Range("A5")
        .Value = "Name"
        .Font.Name = "ＭＳＰゴシック" '書体"
    End With
    With Range("A6")
        .Value = "Strikethrough"
        .Font.Strikethrough = True  '取り消し線を設定します
    End With
    With Range("A7")
        .Value = "Subscript"
        .Font.Subscript = True      'フォントを上付きに
    End With
    With Range("A8")
        .Value = "Superscript"
        .Font.Superscript = True    'フォントを下付きに
    End With
    With Range("A9")
        .Value = "Underline"        'フォントに下線を設定します
        .Font.Underline = True
    End With
    With Range("A10")
        .Value = "FontStyle"        'フォント太字斜体を
        .Font.FontStyle = "太字 斜体"
    End With
   
    Columns("A").AutoFit          '列幅を最適化する

End Sub