1行おきにセル背景色を塗るマクロ
を示す。
■Excel-VBA 1行おきにセル背景色を塗るマクロ
Sub sample45()
Dim MR As Long
Dim MC As Long
MR = Cells(Rows.Count, 1).End(xlUp).Row
MC = Cells(1, Columns.Count).End(xlToLeft).Column
Range(Cells(2, 1), Cells(MR, MC)).Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=MOD(ROWS(A$2:A2),2)=0"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.249946592608417
End With
Selection.FormatConditions(1).StopIfTrue = True
End Sub
※[2.~3.] 変数宣言。※[4.~5.] 最終行数、最終列数取得。
※[7.] 行を交互に色塗る範囲選択。
※[8.~15.] 選択範囲を1行おきにセル背景色
を塗りつぶす。
■マクロ実行対象
ワークブック「部品データ_191128.xlsx」
■マクロ実行結果
実行すると、1行おきにセルに色が塗られる。
■あとがき
今回はExcel VBAマクロ。1行おきにセル背景色を塗るマクロ
を示した。
1行ごとに色を塗って表をみやすく
したい場合に使う。
コードの先頭行に
Option VBASupport 1を記述してLibreOffice Basicでも使えるか試したが
エラーがでて使えなかった。
以上。
