ExcelマクロVBA 表の行を縞模様にする
表の作成で誰もが見やすい表にするのに
どうしても1行ごとに色を付けたい!
どうしたらよいか調べてみたよ
sub 行の縞模様()
’表の番地を格納するための変数
Dim 表 As Range
'表を選択(表の中のセルの値ならどこでもOK)
Range("a2").CurrentRegion.Select
'For Each は沢山のものの中から、個々を取り出す構文
For Each 表 In Selection
'もし行の番号を2で割って0が出たら色15番にする
If 表.Row Mod 2 = 0 Then
表.Interior.ColorIndex = 15
※
End If
end sub
※Row関数は行番号を返す関数
奇数になった場合の設定をするときは
※の箇所へ
Else
の下に設定したい内容を入れる