エクセルマクロで

質問

http://oshiete1.goo.ne.jp/kotaeru.php3?q=2107311
で質問させていただきました
range("ｃ65536").end(xlup).offset(1,0).value = 100000
で、最終行から１つ下のセルに100000と出ましたが
そのセルから右に8列　Ｃ－Ｋ列を塗りつぶししたいのです
よろしくお願いいたします

回答No.2

taocat · ベストアンサー

こんにちは。

Ｃ～Ｋ列であれば９列ですね。

Range("C65536").End(xlUp).Offset(1, 0).Resize(1, 9).Interior.ColorIndex = 6

Ｃ列最終行の一つ下が選択状態(ActiveCell）であれば

ActiveCell.Resize(1, 9).Interior.ColorIndex = 6

ColorIndexの番号は調べてください。
因みに６は黄色です。

以上です。

お礼

お礼が遅くなりました
ありがとうございました

回答No.1

keirika

Range(ActiveCell.Offset(1, 0), _
ActiveCell.Offset(1, 9)).Interior.Color = vbRed

ではどうでしょうか

※塗りつぶし色は『赤』です

お礼

お礼が遅くなりました
ありがとうございました