エクセルで選択セルの対象行を色付けできませんか？

質問

よろしくお願いします。
エクセル２００２を使っています。

細かい表にデータ入力する時に、行を間違える可能性があります。
列に色が付いているため、１行毎に色を変えて見やすくする事はできません。
罫線で変化を付ける事はできますが、大きな効果は得られませんでした。
できれば選択しているセルの行だけ、選択しているときだけ、対象行を指定色に変えるような事はできないでしょうか？

どなたかご存知の方、ご教授お願いします。

回答No.2

NCU · ベストアンサー

見出しだけ色を変える処理をやった事がありますが、それでも重くて筋が悪いですね。
重くなると入力を間違える原因になりますのでお勧めしません。
方法は、以下の通り：
１．アクティブセルの位置はCELL関数で取得できますから、条件付書式で色を変えられます。
２．ただし更新には再計算が必要なので、シートのイベントで選択セルが変わったら再計算するようにします。

お礼

回答ありがとうございます。
申し訳ありませんが、初心者で理解できていません。
(1)条件付書式で色が変えられるのはアクティブセルだけでしょうか？
(2)セルの条件付書式で数式にCELL関数をどう入れればいいのでしょうか？
(3)”シートのイベントで”はＶＢＡで記述しないといけないのでしょうか？再計算とは？
もしよろしければもう少しご説明頂ければ助かります。

回答No.4

pauNed

こんにちは。最近よくこの手のご質問に遭遇する事が多いです^ ^
いろいろ方法ありますが、No.2のNCUさんの条件付き書式がおすすめです。
他には、こちら↓も参考にどうぞ^ ^
http://oshiete1.goo.ne.jp/kotaeru.php3?q=2301115

回答No.3

zap35

例えばこんなマクロをワークシートモジュールとして登録すれば、アクティブな先頭行の色を変えることが可能です。

でも「列には色が着いている」のですね。とすればこのマクロを実行すると、着色した列の背景色も消えてしまいます。（これはアクティブでなくなった時に背景色を消すという動作をするからです）

例えばアクティブな行のＡ列からＧ列だけ色を着けるなど、もっと条件を絞れるなら実用的なマクロが作れるでしょう

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Cells.Interior.ColorIndex = 0
With Target
ActiveSheet.Range(Cells(.Row, 1), Cells(.Row, 256)).Interior.ColorIndex = 34
End With
End Sub

またアクティブ先頭行の文字色を変えたいなら上記マクロのInteriorを全てFontに置き換えてください

回答No.1

suisui6

求められてることと少し違うかもしれませんが。

表にデータ入力中に、セルを間違えない方法として
私は「ウィンドウ枠の固定」というのを利用しています。
表には必ず項目名を記入している欄がありますよね。
┌──┬──┬──
│　　　│項目│項目　　
├──╋━━╋──
│項目┃　　　┃
├──╋━━╋──
│項目│　　　│
├──┼──┼──

↑の太枠セルにカーソルを合わせて
メニューバーの

ウィンドウ＞ウィンドウ枠の固定

を選択すると、項目が常に表示されるので
入力セルを間違えることが少なくなると思います。
これを解除するときには

ウィンドウ＞ウィンドウ枠の固定の解除

でできます。

補足

回答頂き、ありがとうございます。
説明不足で申し訳ありません。
ご指摘の内容は実施しています。
それでも大きな表になると入力間違いの可能性があるのと、入力しずらい事からの質問でした。