エクセルについて

質問

今、項目がたくさんある表を作成しています。
横にものすごく項目が並んでいて、

EX)商品名、仕入れ日、価格、色、種類、販売元・・・・・・・と横にだーっと項目があるんです。

どうにかして見やすくしたいと思っています。そこでカーソルを適当に置くと、その横一列が色が変わるようにしたいのですが、どのようにしたらいいですか？一番左端のをクリックすると範囲指定と同じ状況で横一列がブルーになりますよね。あれを、どこに持っていってもなるようにしたいのですが・・・教えてください。

回答No.1

oosaki · ベストアンサー

何のサイトから持ってきたか、忘れましたが下のマクロはどうでしょうか。

作業するシートのタブで右クリックをしてコードの表示を開きます。
（ツール→マクロ→ＶＢＥ（Alt+F11）からでもＯＫ）
開いたシートに下のコードを貼り付けて、ファイルの終了してエクセルへ戻るで作業するシートに戻ります。
で、任意のセルを選択してみてください。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Cells.Interior.ColorIndex = xlNone
r = Target.Row
c = Target.Column
Rows(r).Interior.ColorIndex = 6
Columns(c).Interior.ColorIndex = 6
End Sub

お礼

ありがとうございます
トライしたのですが、コンパイルエラーでうまくいきません。このようなイメージで他の良いテクニックがありましたら教えてください。

補足

すみません。できました！！あとは列だけでなるようにしたいのですが、どのようにしたらいいでしょうか？
また、色は色番号を変えればいいんですかね？？
Rows(r).Interior.ColorIndex = 6

回答No.2

KenKen_SP

水色で塗りつぶします。ただ、このような処理はEXCELの動作を鈍らせますので、あまりお勧めできません。

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
　　Cells.Interior.ColorIndex = xlNone
　　Target.EntireRow.Interior.ColorIndex = 34
End Sub