Excel VBA セルの複数のプロパティに値をセットしたい(Withステートメント)

同じオブジェクトに対して値を設定する等、複数の処理を実行する方法としてWithステートメントを使用する。
 
With オブジェクト名
    処理1
    処理2
    処理3
End With
 
 
 
例: Sheet1をアクティブにし、セルの複数のプロパティに値をセットしたい場合。
 
Sub test()
 
    With Worksheets("Sheet1").Cells(1, 1)
        .Activate
        .Value = "WithTest"                  '値
 
        With .Font
            .Size = 11                       '文字サイズ
            .Bold = True                     '太文字
            .FontStyle = "MS Pゴシック"        '書式
        End With
 
        .Interior.ColorIndex = 6             'セルの色
        .RowHeight = 20                      'セルの高さ
        .ColumnWidth = 10                    'セルの幅
    End With
 
End Sub