Excel VBA 入門講座 With ～End With

With ～End Withステートメント

同じオブジェクトに対して複数の処理を実行する方法としてWithステートメントを使用する方法があります。


With オブジェクト名
     処理1
     処理2
     処理3
End With

以下の例はSheet1をアクティブにし、セルの複数のプロパティに値をセットしています。


Sub test()
    
    With Worksheets("Sheet1").Cells(1, 1)
        .Activate
        .Value = "WithTest" '値
        With .Font
            .Size = 14  '文字サイズ
            .Bold = True  '太文字
            .FontStyle = "HG教科書体"  '書式
        End With
        .Interior.ColorIndex = 6  'セルの色
        .RowHeight = 20  'セルの高さ
        .ColumnWidth = 10  'セルの幅
    End With
    
End Sub