◆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