概要
Excelで膨大なデータを扱う際、視認性を高めるために「縞模様（ストライプ）」を適用することは一般的です。しかし、標準機能の「テーブル」や「条件付き書式」では、単純な「1行おき」や「2行おき」の設定はできても、「3行白・2行グレー」といった複雑なパターンを柔軟に変更し続けることは困難です。本稿では、VBAを活用し、ユーザーが指定した任意の行数単位で、動的に背景色を塗り分けるプロフェッショナルな手法を解説します。この技術を習得すれば、レポートの可読性を飛躍的に向上させ、誰が見てもミスが起こりにくい帳票作成が可能になります。
詳細解説
VBAで指定行数ごとの色分けを実現するロジックの核となるのは、剰余演算子「Mod」です。行番号を「（色のパターン数 × 2）」で割った余りを判定することで、特定のサイクルを生成します。
例えば、「3行塗りつぶし・2行白」というパターンを作成する場合、合計サイクルは5行となります。VBAでは、ループ処理を用いて各行の「行番号 Mod 5」を判定し、その結果が「0, 1, 2」のときには色を付け、「3, 4」のときには色を消す、という制御を行います。
この手法の最大の利点は、データ量が数万行に及んでも、計算処理が極めて高速である点です。条件付き書式は再計算のたびにメモリを消費しますが、VBAで直接セルに値を書き込む（あるいは背景色を設定する）手法は、静的な帳票として出力する際に最適なパフォーマンスを発揮します。また、パラメータを定数化することで、仕様変更に強いコード構造を維持できます。
サンプルコード
以下のコードは、アクティブシートのデータ範囲に対して、指定された間隔で交互に色を塗る実用的なプロシージャです。
Sub ApplyStripePattern()
' 設定パラメータ
Const ColorRow As Long = 3 ' 色を塗る行数
Const WhiteRow As Long = 2 ' 空白にする行数
Const TargetColor As Long = 14277081 ' 薄いグレー等の色コード
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long
Dim cycle As Long
Set ws = ActiveSheet
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
cycle = ColorRow + WhiteRow
' 画面更新を停止して高速化
Application.ScreenUpdating = False
' 範囲を一旦クリア
ws.Range("A1:Z" & lastRow).Interior.Color = xlNone
' 行ごとに判定して着色
For i = 1 To lastRow
' 行番号をサイクル数で割った余りを取得
' 0から始まる場合は調整が必要なため、(i-1)を使用
If (i - 1) Mod cycle < ColorRow Then
ws.Rows(i).Interior.Color = TargetColor
End If
Next i
Application.ScreenUpdating = True
MsgBox "行の色分けが完了しました。", vbInformation
End Sub
実務アドバイス
実務でこのコードを運用する際、以下の3点に注意してください。
1. 色コードの選択：
「RGB関数」を使用すると、より細かな色の指定が可能です。例えば `RGB(240, 240, 240)` とすれば、非常に淡いグレーとなり、印刷時にもインクを節約しつつ視認性を確保できます。
2. 範囲の動的取得：
上記のコードでは「A列」を基準に最終行を取得していますが、実際の業務では項目行（ヘッダー）が含まれることがほとんどです。その場合は `For i = 2 To lastRow` のように開始行を調整し、ヘッダー行を保護するように設計してください。
3. 書式の競合回避：
既存の「条件付き書式」が設定されているセルにVBAで色を塗ると、条件付き書式が優先されてしまい、意図した色にならない場合があります。実行前には必ず `ws.Cells.FormatConditions.Delete` で既存の条件付き書式をクリアするか、運用ルールを統一しておくことが肝要です。
4. 処理速度の最適化：
行数が多い場合、1行ずつ `Interior.Color` を設定すると時間がかかります。可能であれば、`Union`メソッドを使用して、同じ色の行をまとめて範囲指定（Range）してから一括で色を塗る手法を採用すると、実行速度が劇的に向上します。
まとめ
指定行数ごとの色分けは、単なる見た目の調整に留まらず、データの誤読を防ぎ、業務効率を高めるための「UX（ユーザーエクスペリエンス）デザイン」の一環です。VBAを用いることで、標準機能の制限を超えた自由な帳票作成が可能になります。
重要なのは、コードの書き方だけでなく、「誰がそのデータを見るのか」という視点です。今回紹介したMod演算によるロジックは、どのような行数設定にも対応できる汎用性を持っています。ぜひ、自身の現場のフォーマットに合わせてパラメータを調整し、メンテナンス性の高いVBAツールを作成してください。この技術が、あなたのExcel業務をより洗練されたものへと進化させることを確信しています。
