1. 導入：なぜVBAでインデントが必要なのか？
Excelで請求書や報告書などの帳票を作成する際、項目名を階層化して見やすく整理したい場面は多いはずです。手動でスペースを入力して調整している方もいるかもしれませんが、それは修正のたびにズレが生じる原因になります。VBAで「インデント」を制御すれば、データ量に関わらず一貫性のある美しいレイアウトを瞬時に実現できます。今回は、実務で役立つインデント操作の基本を解説します。
2. 基礎知識：インデントレベルとは？
Excelのインデントとは、セル内の文字の左側に余白を設ける機能です。VBAでは、RangeオブジェクトのIndentLevelプロパティを使用してこのレベルを制御します。
重要な仕様として、以下の2点を覚えておいてください。
・設定可能なレベルは「0～15」の整数です（範囲外を指定するとエラーになります）。
・インデントを設定すると、セルの配置は自動的に「左詰め（xlHAlignLeft）」に変更されます。
3. 実装/解決策：固定値指定と加算指定の使い分け
用途に合わせて2つの手法を使い分けましょう。
・レベルを直接指定する場合：IndentLevelプロパティに数値を代入します。階層が明確なリスト作成に向いています。
・現在の値から増減させる場合：InsertIndentメソッドを使用します。既存のインデントを維持したまま、さらに一段下げたい場合などに有効です。
4. サンプルプログラム
以下のコードは、指定したセルのインデントを操作する実用的なサンプルです。
Sub SetIndentExample()
‘ — 1. 固定レベルを設定する例 —
‘ A2セルのインデントをレベル2に設定します
With Range(“A2”)
.Value = “階層1の項目”
.IndentLevel = 2
End With
‘ — 2. 現在のインデントに加算する例 —
‘ A3セルのインデントにプラス3を加算します
With Range(“A3”)
.Value = “階層2の項目”
.InsertIndent 3
‘ 実行後のレベルを確認（デバッグ用）
Debug.Print “現在のインデントレベル: ” & .IndentLevel
End With
End Sub
5. 応用・注意点：現場で陥りやすい罠
実務で特に注意すべきは「エラー処理」です。
IndentLevelは0から15の間という制限があるため、ループ処理などで動的に数値を加算する場合、15を超えて設定しようとすると実行時エラーが発生します。
対策として、以下のように上限チェックを入れるのがプロの作法です。
If targetRange.IndentLevel < 15 Then targetRange.InsertIndent 1 Else MsgBox "これ以上インデントを深くできません。" End If また、セルの配置を中央揃えにしている状態でインデントを設定すると、左詰めに戻ってしまうため、レイアウトが崩れないよう「最後にインデント設定を行う」のが、帳票作成のVBAを組む際の鉄則です。ぜひ日々の業務効率化に活用してください。
