EXCELでこんなことできませんか

質問

カテゴリーをかえて再度質問させていただきます。
EXCELである条件で、セルの塗りつぶしをしたいのですが。
たとえば、A1のセルを塗りつぶしの赤にしてSと入力した時、右方向に29セル分を同じ赤に自動で塗りつぶすことはできるでしょうか。

A1、B1,C1,・・・・・AA4が赤になるイメージです。
ただし、どのセルにSを入れるかは変動します。
Sと入力したところからSの入ったセル色にしたいのです。

条件として、質問ではセル色を赤としていますが、セルの色は何が入るか分からないのです。
A1に赤もしくは黄色かもしれません、"S"の入ったセルの色をを継承したいのです。

どなたか、宜しくお願いします。

回答No.2

deecyan · ベストアンサー

条件付書式では3色までしかでけへんし
VBAでやるしかないんとちゃう？

Sheet1に　貼り付けて
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
　　If Target.Text = "S" And Target.Column < (256 - 29) Then
　　 Range(Cells(Target.Row, Target.Column + 1), Cells(Target.Row, Target.Column + 29)).Select
　　 Selection.Interior.Color = Target.Interior.Color
　　 Target.Select
　　End If
End Sub

お礼

できました！
感激です。
あれから、いろいろ試してみたのですが、やっと成功です。
おかげで、いろいろ勉強になりました。
有難うございました。

補足

ありがとうございます。
VBAはど素人で、新しいマクロの記録でしか作ったことがありません。
Sheet1に　貼り付けて　とありますが、具体的にどうすればよいのでしょうか。
宜しくお願いします。

回答No.1

kjtyn7

Excel→書式→条件付き書式を開き条件設定する。いろんなバリエーションがありますから、自分で研究するとExcelの理解が深まりますよ。

お礼

ありがとうございます。
いろいろ試したのですが、うまくいきませんでした。
勉強不足で申し訳ありません。