2-4．複数のセルに色をつける
○B2〜C3の範囲のセルに色をつけるマクロ。
○プログラム
| Sub 複数のセルに色をつける() Range("B2:C3").Select With Selection.Interior .ColorIndex = 6 .Pattern = xlSolid End With End Sub |
2-3．のように、プロパティを「．」で結ぶ方法と上のプログラムのようにWith…End Withでプロパティを複数行で表現することもできます。
.Pattern = xlSolid は省略してもいいです。