【EXCEL VBA】選択行に色を付ける方法

訪問して頂きありがとうございます。まさふくろーです。

エクセルでデータを見たりする際、項目数（列の数）が多くて「今みているデータは何行目だったけ？」とか「知らず知らずのうちに見ているデータが一行ずれていた」などの経験ってありませんか？

今回は、一目でどの行を見ているかをわかりやすくする方法をご紹介します。

動作イメージ
VBAにて、色付けの制御を行う

動作イメージ

４行目のセルにフォーカスをあてると、４行目全体が黄色になる。

７行目のセルにフォーカスをあてると、７行目全体が黄色になる。

VBAにて、色付けの制御を行う

Visual Basic Editor（VBE）を起動します。

①「開発」タブをクリック⇒②「Visual Basic」を選択します。

プロジェクトエクスプローラーを表示します。

①「表示」タブをクリック⇒②「プロジェクトエクスプローラー」を選択します。

すると、こんな画面が表示されます。

色付けをしたい対象のシートを選択します。

今回の例では、エクセルのSheet1に色付けしたいので、プロジェクトエクスプローラーで、Sheet1を選択します。

VBAコードを入力する画面を表示します。

「sheet1」をダブルクリックします。

すると、VBAコードを入力する画面が表示されます。

セルにフォーカスをあてた時に動くイベントを表示します。

①「▼」マークの部分をクリック⇒②「Worksheet」を選択します。

すると、「Private Sub～End Sub」の文字が自動的に付加されます。

「Private Sub Worksheet_SelectionChange」の「SelectionChange」という箇所がイベントと呼ばれる部分になります。

イベントとは、Excel上で特定の操作が行われたとき、その操作が行われたことをExcelからVBAに通知する仕組みの事を言います。

「SelectionChange」というイベントは、選択範囲が変わった時に発生する（動く）イベントです。

つまり、セルのフォーカス位置が変わった時にも動くイベントです。

SelectionChangeイベントにコードを記述します。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    '変数の宣言
    Dim myDataRow As Long
    Dim i As Long
    
    '色を付けたい開始行を設定
    myDataRow = 2
    
    'フォーカスがあたっているセルが２行目以降だった場合、以下の処理を行う。
    If ActiveCell.Row >= myDataRow Then
    
    '色の初期化
    Rows(myDataRow & ":" & Rows.Count).Interior.ColorIndex = xlNone
    
    '選択行を取得
    i = Target.Row
    
    '選択行に色を付ける
    Rows(i).Interior.ColorIndex = 36
    
    End If

End Sub