アクティブセルを交点と考え、縦と横の列に色をつけるには？

質問

質問の意味あいがわからないと思いますが、たとえば、アクティヴセルが
E４だとしたとき、E列と４の行をすべて色をつけたい。
どのようにしたらいいでしょうか？
さらには、アクティブセルが移動するごと（入力セルを移動する）に、
上記で設定した色のまま、色がついた列と行を、移動させるためには、
どうしたらいいのでしょうか？

VBAあるいはマクロなど方法があれば教えてください。

回答No.2

noname#128820

ANO.1のken281です。

最後が抜けてしまいました。失礼しました。

同様に「数式が」を選び
=COLUMN(A1)=CELL("col")
　　　　↓
同様に「数式が」を選び
=COLUMN(A1)=CELL("col")
「書式」で色を設定
OKをクリック

上記に読み替えてください。

回答No.1

noname#128820

条件付書式で可能です。（条件に2つ指定しますので後1つの条件付書式しか使えなくなってしまいます。）

色を付けたい部分を選択しておいて、
条件付書式の設定画面で「数式が」を選び
=ROW(A1)=CELL("row")
「書式」で色を設定
追加をクリック
同様に「数式が」を選び
=COLUMN(A1)=CELL("col")

A１は選択した部分の左上端のセルです。適宜に変更してください。