【2026年7月最新】VBA Withステートメント完全ガイド｜入れ子(ネスト)・Excel/Word実践例・エラー対処まで

この記事の内容

1. 01VBA Withステートメントとは
2. 02Withなしとありのコード比較
3. 03Withの基本構文（End With・ネスト構造）
4. 04Excelでの実践例（セル書式・フォント一括設定）
5. 05Wordでの実践例（段落設定の一括指定）
6. 06ネスト（入れ子）の使い方と注意点
7. 07WithEventsキーワード（イベント駆動への応用）
8. 08よくあるエラーと対処法
9. 09With + Loop の組み合わせ（大量処理高速化）
10. 10GENAI実運用のExcel自動化事例
11. 11Claude CodeにVBA Withを書かせる方法
12. FAQよくある質問

📚 用語解説

Withステートメント：VBA（Visual Basic for Applications）における構文のひとつ。With オブジェクト名 〜 End With で囲まれたブロック内では、同じオブジェクトを繰り返し参照する際にオブジェクト名を省略できます。Excelマクロ・WordマクロなどOfficeアプリのVBAすべてで利用可能です。

Sub WithNashiNo():
    Range("A1").Font.Name = "メイリオ"
    Range("A1").Font.Size = 14
    Range("A1").Font.Bold = True
    Range("A1").Font.Color = RGB(220, 38, 38)
    Range("A1").Font.Underline = xlUnderlineStyleSingle
    Range("A1").Interior.Color = RGB(255, 244, 244)
    Range("A1").HorizontalAlignment = xlCenter
End Sub

Sub WithAriNo():
    With Range("A1").Font
        .Name = "メイリオ"
        .Size = 14
        .Bold = True
        .Color = RGB(220, 38, 38)
        .Underline = xlUnderlineStyleSingle
    End With
    With Range("A1")
        .Interior.Color = RGB(255, 244, 244)
        .HorizontalAlignment = xlCenter
    End With
End Sub

📚 用語解説

インタープリタ：プログラムのコードを上から1行ずつ読み取って実行するプログラム。VBAはインタープリタ方式で動作するため、オブジェクト参照（Range("A1").Font など）を評価するたびに処理コストがかかります。Withを使うとオブジェクト参照の評価回数が減るため、高頻度処理でわずかながら速度向上が得られます。

Sub FormatWithout():
    ' セルA1:C5に書式設定（Withなし）
    Range("A1:C5").Interior.Color = RGB(255, 235, 235)
    Range("A1:C5").Font.Name = "游ゴシック"
    Range("A1:C5").Font.Size = 11
    Range("A1:C5").Font.Color = RGB(50, 50, 50)
    Range("A1:C5").Font.Bold = False
    Range("A1:C5").HorizontalAlignment = xlCenter
    Range("A1:C5").VerticalAlignment = xlCenter
    Range("A1:C5").WrapText = True
    Range("A1:C5").Borders(xlEdgeLeft).LineStyle = xlContinuous
    Range("A1:C5").Borders(xlEdgeLeft).Weight = xlThin
    Range("A1:C5").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("A1:C5").Borders(xlEdgeRight).Weight = xlThin
    Range("A1:C5").Borders(xlEdgeTop).LineStyle = xlContinuous
    Range("A1:C5").Borders(xlEdgeTop).Weight = xlThin
    Range("A1:C5").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("A1:C5").Borders(xlEdgeBottom).Weight = xlThin
End Sub

Sub FormatWith():
    ' セルA1:C5に書式設定（Withあり）
    With Range("A1:C5")
        .Interior.Color = RGB(255, 235, 235)
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
        With .Font
            .Name = "游ゴシック"
            .Size = 11
            .Color = RGB(50, 50, 50)
            .Bold = False
        End With
        With .Borders
            .LineStyle = xlContinuous
            .Weight = xlThin
        End With
    End With
End Sub

Withを使うと、同一オブジェクトへの参照が5回以上ある場合に特に効果的です。3〜4回程度なら見た目の違いは小さいですが、10回以上になると記述量は半分以下になることもあります。

Sub ChartFormatWithout():
    Dim cht As Chart
    Set cht = ActiveSheet.ChartObjects(1).Chart
    cht.HasTitle = True
    cht.ChartTitle.Text = "月別売上推移"
    cht.ChartTitle.Font.Size = 16
    cht.ChartTitle.Font.Bold = True
    cht.ChartTitle.Font.Color = RGB(30, 30, 30)
    cht.Axes(xlCategory).HasTitle = True
    cht.Axes(xlCategory).AxisTitle.Text = "月"
    cht.Axes(xlValue).HasTitle = True
    cht.Axes(xlValue).AxisTitle.Text = "金額（万円）"
    cht.Legend.Position = xlLegendPositionBottom
End Sub

Sub ChartFormatWith():
    With ActiveSheet.ChartObjects(1).Chart
        .HasTitle = True
        With .ChartTitle
            .Text = "月別売上推移"
            With .Font
                .Size = 16
                .Bold = True
                .Color = RGB(30, 30, 30)
            End With
        End With
        With .Axes(xlCategory)
            .HasTitle = True
            .AxisTitle.Text = "月"
        End With
        With .Axes(xlValue)
            .HasTitle = True
            .AxisTitle.Text = "金額（万円）"
        End With
        .Legend.Position = xlLegendPositionBottom
    End With
End Sub

With オブジェクト
    .プロパティ1 = 値1
    .プロパティ2 = 値2
    .メソッド名 引数
    ' ...
End With

📚 用語解説

オブジェクト：VBAで操作できる「モノ」の総称。ExcelのRange（セル範囲）・Worksheet（シート）・Workbook（ブック）・Font（フォント）・グラフなどがオブジェクトです。各オブジェクトはプロパティ（属性）とメソッド（動作）を持ちます。

Sub WithVariable():
    Dim ws As Worksheet
    Dim rng As Range

    Set ws = ThisWorkbook.Sheets("売上データ")
    Set rng = ws.Range("B2:B100")

    With rng
        .Font.Bold = True
        .NumberFormat = "#,##0"
        .HorizontalAlignment = xlRight
        .Interior.Color = RGB(240, 249, 240)
    End With
End Sub

長いオブジェクトパス（例：ThisWorkbook.Sheets("売上").Range("A1")）を毎回書くのは誤りの元です。Setで変数に格納してからWithブロックで使うパターンが、最もメンテナンスしやすいVBAの書き方です。

Sub NestedWith():
    With ActiveSheet
        .Name = "集計シート"
        With .Range("A1")
            .Value = "売上合計"
            With .Font
                .Bold = True
                .Size = 14
                .Color = RGB(220, 38, 38)
            End With
        End With
    End With
End Sub

Withをネストするときは、End WithがどのWithと対応しているかを意識してください。インデント（字下げ）を適切に使うと、対応関係が視覚的に分かりやすくなります。End Withが1つ多い・少ないとコンパイルエラーになります。

Sub ExcelCellFormat():
    ' ヘッダー行（1行目）に見栄えよい書式を一括設定
    With Range("A1:F1")
        ' 背景色
        .Interior.Color = RGB(30, 64, 175)
        ' フォント設定
        With .Font
            .Name = "游ゴシック Medium"
            .Size = 12
            .Bold = True
            .Color = RGB(255, 255, 255)
        End With
        ' 配置
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .RowHeight = 32
        ' 枠線
        With .Borders
            .LineStyle = xlContinuous
            .Weight = xlThin
            .Color = RGB(255, 255, 255)
        End With
    End With
End Sub

Sub MultiSheetSetup():
    Dim ws As Worksheet

    For Each ws In ThisWorkbook.Worksheets
        With ws
            ' ページ設定
            With .PageSetup
                .Orientation = xlLandscape
                .PaperSize = xlPaperA4
                .FitToPagesWide = 1
                .FitToPagesTall = False
                .LeftMargin = Application.InchesToPoints(0.5)
                .RightMargin = Application.InchesToPoints(0.5)
                .TopMargin = Application.InchesToPoints(0.7)
                .BottomMargin = Application.InchesToPoints(0.7)
            End With
            ' 表示設定
            .DisplayGridlines = False
            .DisplayHeadings = False
            .Zoom = 100
        End With
    Next ws
End Sub

Sub GraphDesign():
    With ActiveSheet.ChartObjects(1).Chart
        ' チャートエリアのデザイン
        With .ChartArea
            .Format.Fill.ForeColor.RGB = RGB(255, 255, 255)
            With .Format.Line
                .Visible = True
                .ForeColor.RGB = RGB(200, 200, 200)
                .Weight = 1
            End With
        End With
        ' プロットエリア
        With .PlotArea
            .Format.Fill.ForeColor.RGB = RGB(248, 249, 250)
        End With
        ' 凡例
        With .Legend
            .Position = xlLegendPositionBottom
            .Font.Size = 10
        End With
        ' タイトル
        With .ChartTitle
            .Text = "四半期売上比較"
            With .Font
                .Size = 14
                .Bold = True
            End With
        End With
    End With
End Sub

📚 用語解説

ChartObjects：Excelシートにあるグラフオブジェクトのコレクション。ChartObjects(1)で1番目のグラフを指定し、さらに.Chartプロパティでグラフ本体（Chart オブジェクト）にアクセスします。ChartオブジェクトはChartArea・PlotArea・Axes・Legendなど多くの子オブジェクトを持つため、Withネストが特に有効です。

Sub WordParagraphFormat():
    ' アクティブドキュメントの最初の段落を設定
    With ActiveDocument.Paragraphs(1)
        With .Format
            .SpaceBefore = 6
            .SpaceAfter = 6
            .LineSpacingRule = wdLineSpaceExactly
            .LineSpacing = 20
            .LeftIndent = InchesToPoints(0.5)
            .RightIndent = InchesToPoints(0.5)
            .FirstLineIndent = InchesToPoints(0)
            .Alignment = wdAlignParagraphJustify
        End With
        With .Range.Font
            .Name = "游明朝"
            .Size = 12
            .Bold = False
            .Color = RGB(40, 40, 40)
        End With
    End With
End Sub

Sub WordDocumentSetup():
    Dim doc As Document
    Set doc = ActiveDocument

    With doc
        ' ページ設定
        With .PageSetup
            .PageWidth = CentimetersToPoints(21)
            .PageHeight = CentimetersToPoints(29.7)
            .TopMargin = CentimetersToPoints(3)
            .BottomMargin = CentimetersToPoints(2.5)
            .LeftMargin = CentimetersToPoints(2.5)
            .RightMargin = CentimetersToPoints(2)
        End With
        ' ドキュメントデフォルトフォント
        With .Styles(wdStyleNormal).Font
            .Name = "游明朝"
            .Size = 10.5
        End With
        With .Styles(wdStyleNormal).ParagraphFormat
            .LineSpacingRule = wdLineSpaceMultiple
            .LineSpacing = LinesToPoints(1.2)
            .SpaceAfter = 0
        End With
    End With

    MsgBox "文書の基本設定が完了しました。"
End Sub

WordのDocumentオブジェクトはPageSetup・Styles・Sections・Paragraphsなど多くの子オブジェクトを持ちます。これらをネストのWithでまとめると、複雑なドキュメント設定でもコードが整理され、後から変更・再利用がしやすくなります。

Sub NestingBasic():
    With ThisWorkbook.Sheets("Sheet1")       ' 外側: シートオブジェクト
        .Tab.Color = RGB(220, 38, 38)        ' シートのプロパティ

        With .Range("A1:E1")                 ' 中側: セル範囲オブジェクト
            .Merge                           ' セルを結合

            With .Font                       ' 内側: フォントオブジェクト
                .Name = "游ゴシック"
                .Size = 16
                .Bold = True
                .Color = RGB(255, 255, 255)
            End With                         ' Font を閉じる

            .Interior.Color = RGB(30, 64, 175)
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
        End With                             ' Range を閉じる

        .Columns("A:E").AutoFit             ' シートのメソッド
    End With                                 ' Sheet1 を閉じる
End Sub

Sub NestingMistake():
    ' 間違いやすい例
    With Range("A1")
        With .Font
            .Name = "游ゴシック"
            ' ここで .Value = "テスト" と書いても、
            ' Font.Value を探してしまいエラーになる！
        End With
        .Value = "テスト"  ' Range("A1")のValueはここで書く
    End With
End Sub

内側のWithブロック内では、外側のWithオブジェクトを直接「.プロパティ」で指定できません。外側オブジェクトにアクセスしたい場合は、End Withで内側を閉じてから書くか、変数に格納してから変数名で参照する必要があります。

📚 用語解説

WithEvents：VBAでクラスモジュールまたはフォームモジュールのモジュールレベルで変数を宣言するときに使うキーワード。WithEventsで宣言したオブジェクト変数は、そのオブジェクトが発生させるイベントをコードで捕捉（ハンドリング）できるようになります。Withステートメント（書式省略）とは全く別の機能です。

' クラスモジュール（例: Class1）内
Private WithEvents ExcelApp As Application

Private Sub Class_Initialize()
    Set ExcelApp = Application
End Sub

Private Sub ExcelApp_WorkbookOpen(ByVal Wb As Workbook)
    MsgBox "ブック「" & Wb.Name & "」が開かれました。"
End Sub

Private Sub ExcelApp_WorkbookBeforeSave(ByVal Wb As Workbook, _
    ByVal SaveAsUI As Boolean, Cancel As Boolean)
    ' 保存前に自動でバックアップを作成する例
    Wb.SaveCopyAs Wb.Path & "\backup_" & Format(Now, "yyyymmdd_hhnnss") & ".xlsx"
End Sub

WithEventsで宣言した変数はプロシージャ内では宣言できません（コンパイルエラーになります）。必ずモジュールの冒頭（宣言セクション）に書いてください。また、WithEventsが使えるのはクラスモジュール・ユーザーフォームモジュール・シートモジュール・Thisworkbookモジュールです。標準モジュールでは使えません。

'シートモジュール（Sheet1）内
Private Sub Worksheet_Change(ByVal Target As Range)
    ' A列の値が変更されたときにB列に更新日時を自動入力
    If Not Intersect(Target, Columns("A")) Is Nothing Then
        Application.EnableEvents = False
        With Target.Offset(0, 1)
            .Value = Now
            .NumberFormat = "yyyy/mm/dd hh:mm"
        End With
        Application.EnableEvents = True
    End If
End Sub

Sub Error91Example():
    Dim ws As Worksheet
    ' Set文を忘れてWithを使う → エラー91
    With ws          ' ws は Nothing のまま → エラー！
        .Name = "テスト"
    End With
End Sub

Sub Error91Fix():
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")  ' Setで格納

    If ws Is Nothing Then
        MsgBox "シートが見つかりません。"
        Exit Sub
    End If

    With ws
        .Name = "テスト"
    End With
End Sub

Sub Error424Example():
    With Range("A1")
        .Value = "テスト"
        Interior.Color = RGB(255, 0, 0)  ' ← ドットが抜けている！
        ' .Interior.Color = ... が正しい
    End With
End Sub

Withブロック内でプロパティを指定するとき、先頭のドット（.）を忘れると、Withのオブジェクトではなくモジュールレベルの変数などを参照しようとしてエラーになります。VBAエディタのオートインデントが正しく機能していれば見た目でわかることも多いですが、慣れるまでは意識的にドットの有無を確認してください。

Sub WithObjectChanged():
    With ActiveCell
        .Value = "入力前"
        ActiveSheet.Cells(1, 1).Select  ' アクティブセルが変わる！
        .Font.Bold = True  ' 元のActiveCell（移動前）に適用されることに注意
    End With
End Sub

WithにActiveCellやSelectionを直接渡すと、ブロック内で選択が変わった場合に意図しない動作が起きます。With ws.Range("A1") のように固定オブジェクトを指定するか、Setで変数に格納してから使うのが安全です。

Sub ForEachWith():
    Dim ws As Worksheet

    ' 全シートのヘッダー行を統一フォーマットに
    For Each ws In ThisWorkbook.Worksheets
        With ws.Rows(1)
            .RowHeight = 28
            With .Font
                .Name = "游ゴシック Medium"
                .Size = 11
                .Bold = True
                .Color = RGB(255, 255, 255)
            End With
            .Interior.Color = RGB(17, 94, 89)
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
        End With
    Next ws

    MsgBox "全シートのヘッダーを更新しました。"
End Sub

Sub ForNextWith():
    Dim i As Long
    Dim lastRow As Long

    lastRow = Cells(Rows.Count, "A").End(xlUp).Row

    ' 1000行のデータに交互の縞模様書式を適用
    Application.ScreenUpdating = False  ' 画面更新を止めて高速化

    For i = 2 To lastRow
        With Rows(i)
            If i Mod 2 = 0 Then
                .Interior.Color = RGB(240, 249, 240)  ' 偶数行：薄いグリーン
            Else
                .Interior.Color = RGB(255, 255, 255)  ' 奇数行：白
            End If
            With .Font
                .Name = "游ゴシック"
                .Size = 10
            End With
        End With
    Next i

    Application.ScreenUpdating = True
    MsgBox lastRow - 1 & " 行の書式設定が完了しました。"
End Sub

ループ内でセルを大量に操作する場合、Application.ScreenUpdating = False を事前に実行すると画面の再描画を抑制して処理が格段に速くなります。処理後は必ず True に戻してください。With + Loop にこの設定を組み合わせると、数千行の処理も現実的な時間で完了します。

Sub DoWhileWith():
    Dim i As Long
    i = 2  ' データ開始行

    Do While Cells(i, 1).Value <> ""
        With Cells(i, 1)
            ' A列の値に応じて背景色を変える
            Select Case .Value
                Case "完了"
                    .Interior.Color = RGB(209, 250, 229)
                    .Font.Color = RGB(6, 95, 70)
                Case "未着手"
                    .Interior.Color = RGB(255, 237, 213)
                    .Font.Color = RGB(154, 52, 18)
                Case "進行中"
                    .Interior.Color = RGB(219, 234, 254)
                    .Font.Color = RGB(30, 64, 175)
                Case Else
                    .Interior.Color = RGB(243, 244, 246)
                    .Font.Color = RGB(75, 85, 99)
            End Select
        End With
        i = i + 1
    Loop
End Sub

Sub MonthlyReportFormat():
    ' 月次レポートの全シートを一括フォーマット
    Dim ws As Worksheet
    Application.ScreenUpdating = False

    For Each ws In ThisWorkbook.Worksheets
        ' シートタブの色分け
        With ws
            Select Case ws.Name
                Case "サマリー": .Tab.Color = RGB(220, 38, 38)
                Case "広告費": .Tab.Color = RGB(30, 64, 175)
                Case "人件費": .Tab.Color = RGB(22, 163, 74)
                Case Else: .Tab.Color = RGB(107, 114, 128)
            End Select

            ' ヘッダー行の書式
            With .Rows(1)
                With .Font
                    .Name = "游ゴシック Medium"
                    .Size = 11
                    .Bold = True
                    .Color = RGB(255, 255, 255)
                End With
                .Interior.Color = RGB(30, 30, 30)
                .RowHeight = 30
                .HorizontalAlignment = xlCenter
                .VerticalAlignment = xlCenter
            End With

            ' 列幅の自動調整
            .Columns.AutoFit
        End With
    Next ws

    ' サマリーシートのグラフ更新
    With ThisWorkbook.Sheets("サマリー").ChartObjects(1).Chart
        With .ChartTitle
            .Text = Format(Date, "yyyy年m月") & "度 売上サマリー"
            .Font.Size = 14
        End With
    End With

    Application.ScreenUpdating = True
    MsgBox "月次レポートのフォーマットが完了しました。"
End Sub

Sub CustomerListColorCode():
    Dim lastRow As Long
    Dim i As Long

    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    Application.ScreenUpdating = False

    For i = 2 To lastRow
        With Rows(i)
            Select Case Cells(i, "F").Value  ' F列 = ステータス列
                Case "成約"
                    With .Interior
                        .Color = RGB(209, 250, 229)  ' 薄いグリーン
                        .Pattern = xlSolid
                    End With
                    .Font.Color = RGB(6, 95, 70)
                Case "失注"
                    With .Interior
                        .Color = RGB(254, 226, 226)  ' 薄いレッド
                        .Pattern = xlSolid
                    End With
                    .Font.Color = RGB(153, 27, 27)
                Case "商談中"
                    With .Interior
                        .Color = RGB(254, 249, 195)  ' 薄いイエロー
                        .Pattern = xlSolid
                    End With
                    .Font.Color = RGB(133, 77, 14)
                Case Else
                    With .Interior
                        .Color = RGB(249, 250, 251)  ' 薄いグレー
                        .Pattern = xlSolid
                    End With
                    .Font.Color = RGB(75, 85, 99)
            End Select
        End With
    Next i

    Application.ScreenUpdating = True
    MsgBox "顧客リストの色分けが完了しました（" & lastRow - 1 & "件）。"
End Sub

既存のVBAコードをWithで整理する（リファクタリング）際は、まず同一のオブジェクト参照（Range("A1")など）を検索して、何回登場するか数えてみましょう。5回以上繰り返されていればWithに書き換える価値があります。

📚 用語解説

Claude Code：AnthropicのAIモデル「Claude」を活用したターミナル型AIコーディングエージェント。コードの生成・デバッグ・リファクタリングをチャット形式で依頼できる。VBAに限らず、Python・JavaScript・SQL・シェルスクリプトなど多様な言語に対応している。