エクセルで選択中の列や行を見やすくしたい

質問

タイトルのとおり、選択中の列や行の色が一列全部変るように
したいと思い調べ、以下のＶＢＥコードを見つけたんですが

Public m
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　If m <> 0 Then
　　Range(Cells(m, 1), Cells(m, 256)).Interior.ColorIndex = xlNone
　End If
　Range(Cells(Target.Row, 1), Cells(Target.Row, 256)).Interior.ColorIndex = 6
　m = Target.Row
End Sub

確かに色は変るんですが、もともとついている箇所の色が
消えていってしまいます。
色が消えずに同じことは出来ないでしょうか。
ご存知の方いらっしゃいましたら教えてください。
よろしくお願いします。

回答No.2

keithin · ベストアンサー

やったつもりが出来ていません。
Excel2000なら，回答したとおりの手順で出来ます。
出来ないのでそこで投げ出していたのなら，新しいまっさらブックを用意して，回答の手順をよく見ながらもう一度やり直してみてください。

確かにはっきり書きませんでしたが，条件付き書式を反応させて色を付けさせようとしているのは判りますね？
ですから範囲とは色を付けさせたい範囲を選び，その範囲に条件付き書式を設定してくださいという意味です。

「表範囲」などと言わず全セルを選択しても勿論出来ますが，無駄に遅く重くなるだけなので，お薦めしません。

お礼

詳しく説明していただきありがとうございました。
画像つきでとてもわかりやすかったです。
ありがとうございました。

回答No.1

keithin

表範囲を選び，条件付き書式で
Excel2003まで：セルの値が　→　数式が　に変更し
（ご利用のエクセルのバージョンが不明のため手順の詳細を適切に説明できません）
=OR(ROW()=CELL("row"),COLUMN()=CELL("col"))
と設定し，セルの色を塗る設定をしておく。

シート名タブを右クリックしてコードの表示を選び，今のマクロは消して
private sub worksheet_selectionchange(byval Target as excel.range)
application.screenupdating = true
end sub
と取り付けておく。

お礼

大変失礼いたしました。バージョンは2000です。

早速この通りにやったつもりなんですが
色が変りませんでした；

表範囲を選ぶというのは、左クリックドラッグで
範囲を選択するという解釈でよかったでしょうか。

回答ありがとうございました。