「記録」を卒業し、「設計」へ。Word VBAで表データを自在に操る集計ロジックの極意
こんにちは。自動化の世界へようこそ。
「マクロの記録」機能を使って、ボタン一つで文字が入力されたり、書式が変わったりする様子を見て、「これなら自分でもできる！」と感動したことはありませんか？
しかし、実務の現場で「このチェックボックスがONになっている項目だけを数えて、別表に結果を出してほしい」といった、条件に基づいたロジックを求められたとき、マクロの記録では限界が訪れます。記録されたコードは、あくまで「あなたがマウスで動かした軌跡」であって、「データの意味」を理解していないからです。
今日は、一歩上のエンジニアへ進むためのステップとして、「表の中にあるチェックボックスの状態を読み取り、集計して別表へ出力する」という、実務で非常に重宝されるテクニックを伝授します。
ここをマスターすれば、あなたは「操作を自動化する人」から、「業務プロセスを設計する人」へと進化できるはずですよ。
1. 思考の転換：Selection（選択範囲）を捨て、Object（オブジェクト）を掴め
中級者への登竜門、それは「Selection（選択範囲）」を使わないことです。
マクロの記録を見ると、`Selection.MoveUp` や `Selection.TypeParagraph` といったコードが並びます。これは「画面上のカーソルを動かして、何かをする」という、人間による操作を模倣した書き方です。しかし、これは非常に低速で、かつ「今カーソルがどこにあるか」に依存するため、少しでも表の構造が変わるとすぐにエラーを吐いて止まってしまいます。
プロのアーキテクトは、「オブジェクトモデル」を直接操作します。
「表（Table）の中の、〇行目の〇列目の、セル（Cell）の中にある、フィールド（FormField）」という風に、住所を特定して直接アクセスするのです。これが、高速で堅牢なコードへの第一歩です。
2. 実装の設計図：ロジックの組み立て方
今回作るツールのロジックを、分解してみましょう。
1. ソース（元データ）となる表を特定する。
2. その表の各セルをループ（繰り返し処理）で走査する。
3. セルの中に「チェックボックス（FormField）」が存在するかを確認する。
4. チェックボックスが「ON（True）」か「OFF（False）」かを判定する。
5. ONの数をカウントし、集計用の表（ターゲット）の特定のセルに書き込む。
この「探して、判定して、集計する」という流れは、あらゆる業務自動化の基本パターンです。
3. 実践コード：チェックボックス集計エンジン
では、実際のコードを見てみましょう。
以下のコードは、文書内の1番目の表からチェックボックスを集計し、2番目の表に結果を書き込む構成を想定しています。
Option Explicit
''' <summary>
''' 表内のチェックボックスの状態を集計し、別表に出力する
''' </summary>
Sub AggregateCheckboxStatus()
Dim doc As Document
Set doc = ActiveDocument
' --- 設定エリア ---
' 集計元の表（1番目の表を想定）
Dim sourceTable As Table
Set sourceTable = doc.Tables(1)
' 集計先の表（2番目の表を想定）
Dim targetTable As Table
Set targetTable = doc.Tables(2)
' カウンター変数
Dim onCount As Long
Dim offCount As Long
onCount = 0
offCount = 0
' ------------------
' 画面更新を停止してパフォーマンスを向上させる（プロの嗜み）
Application.ScreenUpdating = False
On Error GoTo ErrorHandler
Dim r As Long, c As Long
Dim targetCell As Cell
Dim ff As FormField
' 1. ソースとなる表の全セルを走査
' 行(r)と列(c)の二重ループで表を網羅する
For r = 1 To sourceTable.Rows.Count
For c = 1 To sourceTable.Columns.Count
' セル内のフィールド（チェックボックス等）を確認
' セル内のRangeに対してFieldsコレクションを走査するのが確実
For Each ff In sourceTable.Cell(r, c).Range.FormFields
' フィールドのタイプがチェックボックス(wdInputCheckBox)か判定
If ff.Type = wdInputCheckBox Then
' チェック状態の判定
' wdInputBooleanTrue が「チェックあり」の状態
If ff.Value = wdInputBooleanTrue Then
onCount = onCount + 1
Else
offCount = offCount + 1
End If
End If
Next ff
Next c
Next r
' 2. 集計結果をターゲットとなる表に書き込む
' 例：集計表の1行2列目に「完了数」、2行2列目に「未完了数」を出力
targetTable.Cell(1, 2).Range.Text = onCount
targetTable.Cell(2, 2).Range.Text = offCount
' 画面更新を再開
Application.ScreenUpdating = True
MsgBox "集計が完了しました！" & vbCrLf & _
"ON: " & onCount & " 件" & vbCrLf & _
"OFF: " & offCount & " 件", vbInformation, "完了"
Exit Sub
ErrorHandler:
Application.ScreenUpdating = True
MsgMsgBox "エラーが発生しました。" & vbCrLf & Err.Description, vbCritical, "エラー"
End Subコードの重要ポイント解説
- `Application.ScreenUpdating = False`:
これを記述することで、処理中の画面のチラつきを抑え、処理速度を劇的に向上させます。大量のセルを処理する場合、これがあるかないかで体感速度が変わります。
- `For Each ff In …FormFields`:
「セルの中に何があるか分からない」という状況に対し、「もし何か（FormField）があれば、それに対して処理を行う」という柔軟な書き方をしています。
- `wdInputBooleanTrue`:
チェックボックスの状態は、単なる `True/False` ではなく、Word固有の定数で管理されています。これを使うのが最も安全で確実な方法です。
4. 陥りやすい「罠」：セル結合の恐怖
ここで、中級者が必ず一度は突き当たる壁についてお話ししておきましょう。それは「セルの結合（Merged Cells）」です。
Wordの表において、セルが結合されている場合、`sourceTable.Columns.Count` は期待通りの数字を返さないことがあります。また、特定の行で列数が異なると、`sourceTable.Cell(r, c)` を呼び出した瞬間に「指定したセルが見つかりません」というエラーが発生します。
【回避策の知恵】
1. 設計段階でのルール化: 可能な限り、集計対象の表にはセル結合を使わない運用を徹底するのが、自動化エンジニアとしての賢明な判断です。
2. エラーハンドリングの活用: コード内で `On Error Resume Next` を使い、結合セルによるエラーをスキップさせる手法もありますが、これは「何が起きているか分からなくなる」リスクがあるため、最終手段と考えてください。
5. まとめ：エンジニアとしての視点
今回のコードは、単に「数字を数える」だけのものではありません。
- 構造を理解する（Table > Cell > Range > FormField）
- 状態を判定する（If ff.Value = …）
- 結果を転記する（targetTable.Cell…）
この3つのステップを、オブジェクトを通じてスマートに行う。これがプログラミングの本質です。
「記録」から脱却し、オブジェクトの構造を意識してコードを書き始めたとき、あなたの作るツールは、単なる便利ツールから、「揺るぎない業務基盤」へと進化します。
一歩ずつ、着実に進んでいきましょう。応援していますよ！
