エクセルの表でカーソルのある行の色づけ

ＶＢＡで
カーソルがある行に色をつけ
カーソルが次の行になるともとの色になるように出来ますか。

No.2 ベストアンサー 回答者： Wendy02 回答日時： 2005/11/29 22:42

こんばんは。

カーソルのある行ということなら、このようになるかと思います。

'<シートモジュール>
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　Cells.Interior.ColorIndex = xlColorIndexNone
　Target.EntireRow.Interior.ColorIndex = 34　'薄い水色
End Sub

ただ、これですと、全てのパターンの色が一旦消されてしまいますので、消されてまずいものがある時は、二行目の　Cells　（全セル）を、範囲に設定し直してください。

この回答へのお礼

ありがとうございます
範囲を設定し直して出来ました
又よろしくお願いします。

お礼日時：2005/11/30 07:15

No.3 回答者： masa_019 回答日時： 2005/11/29 22:56

ユーザー定義関数とワークシートのSelectionChange、

それに条件付書式を組み合わせて、
以下のような方法はどうでしょう？

標準モジュールに

Function ActiveCellRow()
ActiveCellRow = ActiveCell.Row
End Function

そのような機能が必要なシートのモジュールに

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.Calculate
End Sub

ワークシートに戻って、
条件付書式の数式に
=ActiveCellRow()=ROW(A1)　と入力、
書式のパターンを好きな色に設定します。

No.1 回答者： noname#123709 回答日時： 2005/11/29 22:34

カーソルの位置だけでは無理なような気がします。

シートモジュールのSelectionChangeでアクティブなセルが変わった
時に色を変えることなら可能ですけど。