B列からH列まで背景色をつける 例)添付ファイルのように 3行目から 11月1日 11月30日まで ならんでいます。

画像

Visual Basic | Visual Basic26閲覧xmlns="http://www.w3.org/2000/svg">50

ベストアンサー

0

ThanksImg質問者からのお礼コメント

ありがとうございました。

お礼日時:2021/11/26 20:38

その他の回答(1件)

0

セルの塗りつぶしがどれ程かはわかりませんが、セルを指定しないと塗りつぶせないので配列を用いるのはどうなのかな?とちょっと疑問。

すみませんでした 下記の部分を r.Range("E1").Value, r.Range("F1").Value, r.Range("G1").Value) B列からH列となるとながくなるのて なにかいい方法はございますでしょぅか Dim r As Range, rr As Range For Each r In Range("A3", Cells(Rows.Count, "A").End(xlUp)) r.Range("B1:H1").Interior.ColorIndex = _ IIf(Join(Array(r.Range("E1").Value, r.Range("F1").Value, r.Range("G1").Value), "") = "", xlNone, 6) Next Set rr = Nothing