【エクセル】アクティブセルや行列を自動で色付け：条件付き書式とVBA

エクセルを「Excelマクロ有効ブック（.xlsm）」で保存する

本記事で紹介する方法ではVBAを利用してマクロを組みます。VBAとはVisual Basic for Applicationの略称であり、Microsoftが開発したオフィス製品用のプログラミング言語です。VBAを使うことで複雑なマクロを組むことができます。

そのため利用するエクセルはマクロが登録できる「Excelマクロ有効ブック」である必要があります。拡張子は「.xlsm」となります。

もしアクティブセルや行列の自動色付けを追加したいエクセルブックがマクロ有効ブックでない場合、以下の操作でファイル形式を変換してください。

1. 変換したいエクセルブックを開く
2. 画面左上の「ファイル」タブをクリックする

3. 左側にあるメニューから「名前を付けて保存」をクリックする

4. 画面右側からファイルの種類を「Excelマクロ有効ブック（*.xlsm）」を選択して「保存」をクリックする

上記の操作で新たに拡張子が「.xlsm」に変換されたエクセルが作成されます。今後はこの新たに作成した「マクロ有効ブック」を利用していきます。

拡張子xlsをまだ利用している場合

未だにビジネスの現場で拡張子xlsの古いエクセルを利用している人を見かけます。みなさんご存じのようにxlsは10年以上前のエクセルの標準拡張子です。

今ではxlsxがエクセルの標準拡張子（マクロ付きはxlsm）となっています。

拡張子xlsはマクロの有り無しが拡張子から判別できないため、攻撃者からの悪意ある攻撃メールに利用されています。またxlsのエクセルを添付したメールは悪意のあるメールと判断され、相手に届く前にブロックされることもあります。

このような理由からビジネスで拡張子xlsを利用することはよくないです。必ず「xlsx」または「xlsm」の拡張子に変換して利用するようにしましょう。

より詳しくは以下記事をご参照ください。

【エクセル】拡張子xlsをxlsxに変更すべき理由：違いとマクロ実行の危険性

開発タブを表示させる

VBAはエクセルの開発タブから起動します。しかしエクセルのデフォルト設定では「開発」タブは非表示となっています。

以下の操作を行って開発タブを表示してください。

1. エクセルを開き、画面左上の「ファイル」をクリックする

2. 左ペインから「オプション」を選択する

3. 表示したExcelのオプション画面の左ペインから「リボンのユーザー設定」をクリック＜右ペインからメインタブ内にある「開発」にチェック＜「OK」を選択する

上記の操作でエクセルのタブに「開発」が追加されます。

VBAを起動させるときは開発タブのリボンから「Visual Basic」をクリックしてください。

条件付き書式とVBAを利用した自動色付け方法

本記事では条件付き書式とVBAを利用した自動色付け方法を解説していきます。

エクセルでの条件付き書式とは設定した条件に基づいてセルのフォーマットを自動的に変更する機能です。この機能を使ってアクティブセルやその行列に色付けする条件を作成して表に適用させます。

ここでは条件付き書式で以下３つのパターンに対応する条件の作成方法をご紹介します。

• アクティブセルのみ色付けする
• アクティブセルの行のみまたは列のみに色付けする
• アクティブセルの行と列を色付けする

上記どのパターンを行うにしても、VBAで同様のマクロを作成します。まずは開発タブのリボン内にある「Visual Basic」ボタンを押してVBAを起動してください。

表示されたウィンドウの左側のメニューから現在のシート名（ここではSheet1）をダブルクリックします。

次に画面右側に以下コードを記述します。

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

Application.ScreenUpdating = True

End Sub

上記のコードはシート上のセル選択が変更されても、エクセルの画面更新することを保証することを意味しています。これによりアクティブセルを変更する度に条件付き書式の条件が実行されるようになります。

つまりアクティブセルを変更する度に条件に合ったセルや行列が色付けされるということです。

次に各パターンごとの条件付き書式の設定方法について解説していきます。

アクティブセルのみ色付けする

アクティブセルのみを色付けする条件付き書式の設定方法は以下の通りです。

1. 色付けが有効となる範囲を選択する。（表であればショートカットキー「Ctrl + Shift + *」でアクティブセルが属する連続するデータ範囲を選択します）

2. ホームタブのリボン内にある「条件付き書式」をクリックし、表示されたメニューから「新しいルール」を選択する

3. 表示された画面から「数式を使用して、書式設定するセルを決定」を選択する

4. 「次の数式を満たす場合に値を書式設定」の欄に
   =AND(CELL("ROW")=ROW(),CELL("COL")=COLUMN())
   を入力して「書式」をクリックする

5. 表示された画面から「塗りつぶし」タブを選択＜背景色から色を選択＜「OK」をクリックする

6. 書式ルールの編集画面に戻るので「OK」をクリックする

上記の操作により、アクティブセルのみが自動で色づくようになります。

アクティブセルの行のみまたは列のみに色付けする

アクティブセルの行のみを色付けする場合、「次の数式を満たす場合に値を書式設定」の欄に以下の数式を入力します。

これによりアクティブセルの行が次図のように自動で色付けされます。

列のみに色付けする場合は以下の数式となります。

アクティブセルの行と列を色付けする

アクティブセルの行と列を色付けする場合、「次の数式を満たす場合に値を書式設定」の欄に以下の数式を入力します。

これによりアクティブセルの行と列は次図のように自動で色付けされます。

VBAのみで自動色付けする方法

VBAのみで自動色付けすることもできます。ここでは以下３つのパターンに対応するVBAのコードをご紹介します。

• アクティブセルのみ色付けする
• アクティブセルの行のみ色付けする
• アクティブセルの行と列を色付けする

アクティブセルのみ色付けする

アクティブセルのみ色付けするコードは以下の通りです。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 色を変えたセルを元の色に戻す
    Cells.Interior.ColorIndex = xlNone

    ' アクティブセルを色付け
    Target.Interior.Color = RGB(255, 255, 0)  ' 黄色
End Sub

アクティブセルの行のみ色付けする

アクティブセルの行のみを色付けするコードは以下の通りです。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 色を変えた行を元の色に戻す
    Cells.Interior.ColorIndex = xlNone

    ' アクティブセルの行を色付け
    Target.EntireRow.Interior.Color = RGB(255, 255, 0)  ' 黄色
End Sub

上記コードでは表を超えて行の色付けを行います。表のみに色付けしたい場合は以下のコードを利用してください。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.ColorIndex = 0
    If IsEmpty(Target) Or Target.Cells.Count > 1 Then Exit Sub
    Application.ScreenUpdating = False
    With ActiveCell
        Range(Cells(.Row, .CurrentRegion.Column), Cells(.Row, .CurrentRegion.Columns.Count + .CurrentRegion.Column - 1)).Interior.ColorIndex = 8
    End With
    Application.ScreenUpdating = True
End Sub

アクティブセルの行と列を色付けする

アクティブセルの行と列を色付けするコードは以下の通りです。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 色を変えた行列を元の色に戻す
    Cells.Interior.ColorIndex = xlNone

    ' アクティブセルの行と列を色付け
    Target.EntireRow.Interior.Color = RGB(255, 255, 0)  ' 行を黄色に設定
    Target.EntireColumn.Interior.Color = RGB(255, 255, 0) ' 列を黄色に設定
End Sub

上記のコードでは表を超えて行列に色付けを行います。表のみに色付けをしたい場合は以下コードを使用してください。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.ColorIndex = 0
    If IsEmpty(Target) Or Target.Cells.Count > 1 Then Exit Sub
    Application.ScreenUpdating = False
    With ActiveCell
        Range(Cells(.Row, .CurrentRegion.Column), Cells(.Row, .CurrentRegion.Columns.Count + .CurrentRegion.Column - 1)).Interior.ColorIndex = 8
        Range(Cells(.CurrentRegion.Row, .Column), Cells(.CurrentRegion.Rows.Count + .CurrentRegion.Row - 1, .Column)).Interior.ColorIndex = 8
    End With
    Application.ScreenUpdating = True
End Sub