アクティブセルの時、セルの色を変える方法（行）

データが多い表など、目が点になりそうなときがありますが、アクティブセルをクリックしたらその行のセルの色が変わったりする機能はないでしょうか？
できればVBなどを使わず条件付書式の機能だけで・・がありがたいのですが、教えて頂けますでしょうか？

No.2 回答者： imogasi 回答日時： 2006/03/16 22:45

VBAを１行だけ使わしてください。

Ｓｈｅｅｔ１のシートモジュールに
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells(1, "H") = ActiveCell.Row
End Sub
と入れる。実質１行。
これでアクチブにした行の行番号がH１に入ります。
Ａ列にＡ３０まで連番を振ります。オートフィルで。３０は一例です・
Ａ１：Ｇ３０（例）を範囲指定して（色をつけたい列と行の範囲）
書式ー条件付書式－数式がー（式として）
=ROW()=$H$1
「書式」をパターン色をライトブルーなどにする。
ＯＫ
これでクリックした行のＡ－Ｇ列に色がつき、別行に移ると、元の行の色は消えます。
説明をしやすくするため、Ａ列には行番号を入れていますが、目立たない列を選べば、邪魔になりません。Ｈ１セルも、どこか目だたない
セルを選んでください。その場合、上記ＶＢＡと数式は少しいじくる必要がありますが、どう変えるか判ると思います。
もしＶＢＡをやる気がしなければ無視してください。

No.1 回答者： mshr1962 回答日時： 2006/03/16 14:05

マクロを使わない場合はできないと思います。

条件付書式だけでできるのは1行置き（最大4行4色）に色を変える方法ですね。
「書式」「条件付き書式」で
「数式が」「=MOD(ROW(),2)=1」で書式でパターンを設定で2色
MODの引数を2から3または4に変えて追加条件で2,3の場合を作れば元の色を合わせて4色まで可