【VBA】Withでコードをまとめる

◆Withの使い方

Withを使うとコードの共通部分をまとめることができる。
オブジェクトのプロパティを一括で設定する際に便利。

Withの使い方

Sub withSample()
    '太字、20pt、赤で塗りつぶし
    Range("A1").Value = "sample"
    Range("A1").Font.Bold = True
    Range("A1").Font.Size = 20
    Range("A1").Interior.Color = vbRed
End Sub

Sub withSample2()
    '上記はWithを用いてまとめることができる
    With Range("A1")
        .Value = "sample"
        .Font.Bold = True
        .Font.Size = 20
        .Interior.Color = vbRed
    End With
End Sub