gooドクター有料プランが1ヶ月間無料!

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

gooドクター

A 回答 (3件)

こんばんは。


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

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

ただ、これですと、全てのパターンの色が一旦消されてしまいますので、消されてまずいものがある時は、二行目の Cells (全セル)を、範囲に設定し直してください。
    • good
    • 0
この回答へのお礼

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

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

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


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

標準モジュールに

Function ActiveCellRow()
ActiveCellRow = ActiveCell.Row
End Function

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

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

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

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


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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

gooドクター

人気Q&Aランキング