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

質問

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

回答No.2

Wendy02 · ベストアンサー

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

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

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

お礼

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

回答No.3

masa_019

ユーザー定義関数とワークシートの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

カーソルの位置だけでは無理なような気がします。
シートモジュールのSelectionChangeでアクティブなセルが変わった
時に色を変えることなら可能ですけど。