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 = "ＭＳ Ｐゴシック"        '書式

        End With

 

        .Interior.ColorIndex = 6             'セルの色

        .RowHeight = 20                      'セルの高さ

        .ColumnWidth = 10                    'セルの幅

    End With

 

End Sub