【入門編】【中級者向け】表のセル背景色を数値データに応じて条件付き書式のように変更する – Word VBA解析バイブル

こんにちは！ Word VBAの自動化の世界へようこそ。チーフアーキテクトの私です。

マクロの記録を卒業し、「いよいよ自分の手でドキュメントを意のままに操りたい」と願うあなたへ。今回は、Word VBAにおける「表（Table）の動的制御と条件付き書式」という、実務で最高に役立つテーマを授けましょう。

Excelならお馴染みの「条件付き書式」ですが、Wordの表でやろうとすると、途端にアプローチが変わります。「数値を判定し、セルの背景色や文字色をダイナミックに変える」――このテクニックをマスターすれば、あなたが作るレポートや請求書、分析資料のクオリティは一気にプロの領域へと跳ね上がります。

さあ、基本から本質まで、一緒に紐解いていきましょう。ここをクリアすれば、Word VBAの景色が変わりますよ！

—

1. なぜWordの表操作はExcelと違うのか？（本質を知る）

まず、心構えとして知っておいてほしいことがあります。
Excel VBAでは、セル（`Range`）を直接指定してパッと色を変えられますよね。しかし、Wordの表（`Table`）は、「テキストの流し込み」と「レイアウト構造（行・列）」が複雑に絡み合うドキュメントの一部です。

Word VBAでセルを操作する際の基本構造はこうです：

Table (テーブル)
└─ Cell (セル：行と列の交点)
└─ Range (セルの中にあるテキストや段落の領域)
└─ Shading (背景色) / Font (フォント設定)

この「階層構造」を意識することが、エラーを防ぐ最大の秘訣です。Excelのノリのままコードを書くと「オブジェクトが見つからない」というエラーの海に溺れることになりますが、今日の記事を読んだあなたならもう大丈夫です。

—

2. 今回目指すゴールと実装イメージ

今回は、Word文書内にある「売上・予実管理表」のようなテーブルを想定します。

• セル内の数値が 「0未満（マイナス）」 ならば、背景を薄い赤色にし、文字を太字の赤にする。
• 数値が 「プラス」 ならば、通常の文字色のままにする。

これを、VBAのループ処理を使って、一瞬で自動処理させます。

—

3. 実践！条件付き書式を再現するVBAコード

それでは、開発の現場でそのままコピペして使える実用的なコードを公開します。VBE（Visual Basic Editor）を開き、標準モジュールに貼り付けてみてください。

Sub ApplyConditionalFormattingToTable()
Dim targetTable As Table
Dim targetCell As Cell
Dim cellValue As Double
Dim i As Long, j As Long

‘ エラー対策：ドキュメントに表が存在するかチェック
If ActiveDocument.Tables.Count = 0 Then
MsgBox “アクティブな文書に表が見つかりません。”, vbExclamation, “処理中断”
Exit Sub
End If

‘ 文書内の「最初の表」をターゲットにする（必要に応じてインデックスを変更してください）
Set targetTable = ActiveDocument.Tables(1)

‘ 画面描画を停止して処理を爆速化する（プロの常套手段です）
Application.ScreenUpdating = False

‘ 行と列をループで総なめにする
For i = 1 To targetTable.Rows.Count
For j = 1 To targetTable.Columns.Count

‘ セルを取得
Set targetCell = targetTable.Cell(i, j)

‘ 【重要】セルの末尾にある特殊文字（セルマーカー）を除去して数値化する
‘ Wordのセル内テキストは必ず改行コードが含まれるため、TrimとValで整えます
Dim rawText As String
rawText = targetCell.Range.Text

‘ セルマーカー（Chr(13) + Chr(7)）を取り除く
rawText = Left(rawText, Len(rawText) – 2)

‘ 数値かどうかを判定しつつ、データ行（例：ヘッダーを除く2行目以降）を処理対象にする
If IsNumeric(rawText) And i > 1 Then
cellValue = CDbl(rawText)

If cellValue < 0 Then ' --- 【条件一致：マイナスの場合】 --- ' 1. セルの背景色を「薄い赤」に変更 targetCell.Shading.BackgroundPatternColor = RGB(255, 230, 230) ' 2. 文字色を「赤」にし、太字にする With targetCell.Range.Font .Color = RGB(200, 0, 0) .Bold = True End With Else ' --- 【条件不一致：プラスまたは0の場合（スタイルの初期化）】 --- targetCell.Shading.BackgroundPatternColor = wdColorAutomatic With targetCell.Range.Font .Color = wdColorAutomatic .Bold = False End With End If End If Next j Next i ' 画面描画を再開 Application.ScreenUpdating = True MsgBox "表の条件付き書式の適用が完了しました！", vbInformation, "処理成功" End Sub ---

4. コードの深掘り解説（ここがエンジニアの急所）

初心者から中級者へステップアップするために、上記のコードで絶対に押さえておくべき「3つのポイント」を解説します。

① セルマーカーの罠 (`Left(rawText, Len(rawText) – 2)`)

これがWord VBAで最もハマりやすいポイントです。
Wordの表のセル（`Cell`）から取得したテキスト（`.Range.Text`）には、目に見えない「セルマーカー」という特殊文字（`Chr(13) & Chr(7)`）が必ず末尾に付く仕様になっています。
これをそのまま `Val` や `CDbl` で数値変換しようとすると、型ミスマッチエラーを引き起こします。そのため、`Len(rawText) – 2` で最後の2文字を削ぎ落とすのが、Word VBAエンジニアの必須テクニックです。

② 画面描画の停止 (`Application.ScreenUpdating = False`)

表のセルを1つずつループで書き換える処理は、行数や列数が増えると画面がチラつき、処理速度がガタ落ちします。
処理の最初に `ScreenUpdating = False` を置き、最後に `True` に戻すことで、裏側で高速に一括処理を終わらせることができます。大規模なドキュメントを扱う現場では必須の作法です。

③ `.Shading` と `.Range.Font` の使い分け

セルの背景色を変えるときは `targetCell.Shading` を使います。一方、中の文字の色や太さを変えるときは、セルの中身である `targetCell.Range.Font` を操作します。
「どこを操作しているオブジェクトなのか」を意識することが、バグのないコードを書く近道です。

—

5. よくあるエラーと対処法

• エラー: 「インデックスが有効範囲にありません。」
• 原因: 指定した `Tables(1)` や `Cell(i, j)` が存在しません。表の行数・列数と、ループのカウンターがズレていないか確認してください。特に結合セル（Merged Cells）がある表では、通常のセル参照でエラーが出やすいため、まずは結合のないシンプルな表で試してください。
• エラー: 「型が一致しません。」
• 原因: ヘッダー行（「売上高」などの文字が入っている行）を数値として判定しようとした場合に発生します。上記のコードでは `i > 1`（2行目以降を対象にする）で回避していますが、データ構造に合わせて条件を調整してください。

—

おわりに

いかがでしたでしょうか？
Word VBAにおける表の動的制御は、一見難しそうに見えますが、「セルの中身を整え、階層構造を正しく指定する」という原則さえ守れば、思いのままに操ることができます。

手作業で一つひとつ赤字に変えていた泥臭い作業とは、今日でサヨナラしましょう。この自動化の知見を武器に、あなたのドキュメント作成業務を劇的にスピーディーかつエレガントにアップデートしてください。

それでは、次回の極限の知見でお会いしましょう。お疲れ様でした！