あるセル列内に任意の文字列があった場合の自動処理

質問

VBAを利用して、あるセル列内にある文字列があった場合に
その文字列が存在した行のAセルからCセルまで自動的に
背景色をグレーにしてくれるような動きをしたいです。

簡単に言うと、「作業完了」の文字列があったらその行をグレーするイメージです。

参考例として、セルC列に対してその列内のあるCセル列に
文字列"@"が入力された場合、その行のA行からC行まで
自動的に背景色を変更したいです。
また、"@"が入力されていない場合は、元の背景色に戻るようにしたいです。

■ 例１：C2に"@"が入力されるパターン

【入力前】

　| A | B | C |
-+---+---+---+-
1|　　　|　　　|　　　|
-+---+---+---+-
2|　　　|　　　|　　　| ← 当然何も変化なし
-+---+---+---+-
3|　　　|　　　|　　　|
-+---+---+---+-

【入力後】

　| A | B | C |
-+---+---+---+-
1|　　　|　　　|　　　|
-+---+---+---+-
2|////|////|/@/| ← ← C2に"@"が入力されるとA2～C2までの背景色をグレーに変更。
-+---+---+---+-
3|　　　|　　　|　　　|
-+---+---+---+-

【削除】

　| A | B | C |
-+---+---+---+-
1|　　　|　　　|　　　|
-+---+---+---+-
2|　　　|　　　|　　　| ← C2の"@"を消すと入力前に戻る。（元通り）
-+---+---+---+-
3|　　　|　　　|　　　|
-+---+---+---+-

任意の文字列をきっかけに自動実行するようには出来たのですが
それから先がさっぱりで困っています、、、。

よろしくお願いします。

回答No.1

MSZ006 · ベストアンサー

こんな感じでどうでしょうか。

----------

Private Sub Worksheet_Change(ByVal Target As Range)
Dim str As String
Dim Col As Integer

str = "@"

If Target.Value = str Then
Col = 15
Else
Col = 0
End If

Range(Cells(Target.Row, 1), Cells(Target.Row, 3)).Interior.ColorIndex = Col

End Sub

お礼

これをヒントに完成できました！
ありがとー！！

回答No.2

play_with_you

条件付書式じゃ駄目な理由は何ですか？

お礼

条件付書式じゃ出来ないから質問してるんですが、、、