excel の VBAを使って、C列に日と書かれている行に色をつけたい

質問

excel の　VBAを使って、C列に日と書かれている行すべてに色をつけたいのです。

B列に日付（ある月の１日から３１日までの日付で、同じ日付が６行ずつ並んでいます。）

その横のＣ列に各日付に対応する曜日が並んでいます。同じ曜日が６行続きます。

そして、そのＣ列に日と書かれている行のＡ列からＳ列までをピンク色にしたいのです。

朝から、ああでもない、こうでもないとやってみていますが、どうしてもできません。

こういう場合は、どうすればいいのか、教えていただけるととってもうれしいです。

よろしくお願いいたします。

m(__)mm(__)mm(__)mm(__)m

回答No.1

mythism · ベストアンサー

こんなところでいかがでしょうか．

Sub ColoringSample()
Dim i As Integer

i = 1
While (Cells(i, 3).Value <> "")
'i行目のC列の内容をチェック
If Cells(i, 3).Value = "日" Then
'それは「日」だったので色をつける
Range("A" & Trim(Str(i)) & ":S" & Trim(Str(i))).Interior.ColorIndex = 7
'文字そのものの色をピンクにする場合にはこちらを使う
'Range("A" & Trim(Str(i)) & ":S" & Trim(Str(i))).Font.ColorIndex = 7
End If
'次の行へ
i = i + 1
Wend
End Sub

ただし，1行目から順に下方向にチェックしていって，C列目に空白が現れた時点で色づけを中止するという仕様になっています．

色は，Excel上の名称で「ピンク」と称されているものを指定しましたが，お気に召さない場合には,
ColorIndexに代入する値を変更してください．

お礼

できました～！！＼(^^)/

ありがとうございました。朝から、いろいろやっていたのは、なんだったのだろう？　て思うくらい、あざやかにできました～。すばらしいですね。VBA！！

最初、書いてくださったのを何も考えずにコピペしてはりつけてみて、実行しても、うんともすんとも言わないので、あれぇ？　て思ってよくよくみると、C1からC4には、値がなかったのです。それで、i = 1 の部分をi = 5 に変えてやってみたら、うまくいきました。

Range("A" & Trim(Str(i))というところが、みそなんでしょうね。こういう使い方がわからなくて、朝からどうしたらいいのか、悩んでいました。

ほんとうに、とってもうれしいです。ありがとうございました。m(__)mm(__)m