Excel VBAのWithステートメント徹底解説｜コードが読みやすくなる使い方と注意点

Excel VBAで複雑な処理を記述していると、同じオブジェクトや変数を何度も繰り返して使う場面がよくあります。
そんなときに便利なのが「Withステートメント」です。

このステートメントを使えば、コードの簡潔さが向上し、メンテナンス性も高くなります。
本記事では、VBA初心者にもわかりやすく、Withの基本的な使い方から応用例、注意点までを詳しく解説します。

Withステートメントとは？
H2：Withステートメントを使うメリット
具体的な使用例①｜セルの装飾
具体的な使用例②｜Chartオブジェクトの書式設定
ネストされたWithステートメント
注意点と落とし穴
1. 複雑すぎるネストは避ける
2. エラー処理との相性
WithステートメントとSetの違い
応用｜複数シートへの同じ処理に活用
まとめ

Withステートメントとは？

Withステートメントは、あるオブジェクトに対して複数のプロパティやメソッドを操作するときに使う構文です。
繰り返し同じオブジェクトを指定する必要がなくなるため、コードの記述量が減り、可読性も向上します。

基本構文：

vbaコピーする編集するWith オブジェクト
    .プロパティ1 = 値
    .プロパティ2 = 値
    .メソッド名
End With

たとえば、セルのフォントサイズや色などを設定する場合、以下のように簡潔に書くことができます。

With Range("A1").Font
    .Name = "メイリオ"
    .Size = 14
    .Bold = True
End With

H2：Withステートメントを使うメリット

Withステートメントを使うことで得られる利点は以下の通りです。

コードの簡素化

同じオブジェクトを複数回記述する必要がないため、コードがすっきりとします。
例：

' Without With
Range("A1").Font.Name = "Arial"
Range("A1").Font.Size = 12
Range("A1").Font.Bold = True

' Withを使うと
With Range("A1").Font
    .Name = "Arial"
    .Size = 12
    .Bold = True
End With

可読性の向上

Withの中にあるコードは、どのオブジェクトに対して操作しているかが明確になります。

実行速度の向上（わずかに）

オブジェクトの評価回数が減るため、わずかながら実行速度も向上するケースがあります。大量データ処理では効果がある場合もあります。

具体的な使用例①｜セルの装飾

以下はセル「B2」に装飾を加える例です。

Sub FormatCell()
    With Range("B2")
        .Value = "こんにちは"
        .Font.Bold = True
        .Font.Color = RGB(255, 0, 0)
        .Interior.Color = RGB(255, 255, 0)
    End With
End Sub

このようにWithを使うことで、「Range(“B2”)」の指定を1回だけにできます。

具体的な使用例②｜Chartオブジェクトの書式設定

グラフにもWithは有効です。たとえば、Chartタイトルの書式を整える場合：

Sub SetChartTitle()
    With ActiveSheet.ChartObjects(1).Chart.ChartTitle
        .Text = "売上推移"
        .Font.Size = 16
        .Font.Bold = True
    End With
End Sub

ネストされたWithステートメント

Withの中にさらにWithを入れ子にすることも可能です。ただし、可読性が下がる可能性もあるため注意が必要です。

With Range("A1")
    .Value = "見出し"
    With .Font
        .Bold = True
        .Size = 14
    End With
End With

注意点と落とし穴

Withステートメントを使う上での注意点をいくつか紹介します。

複雑すぎるネストは避ける

入れ子にしすぎると、どのオブジェクトを指しているか分かりにくくなります。2階層までに抑えるのが一般的です。

エラー処理との相性

Withステートメント内でエラーが発生すると、どの操作が原因か特定しにくくなることがあります。
デバッグ中は1行ずつの書き方にしておいた方がいいケースもあります。

WithステートメントとSetの違い

初心者の中には「Setと何が違うの？」と思う方も多いです。

Setはオブジェクト変数への代入に使うキーワードです。

Dim rng As Range
Set rng = Range("A1")

一方、Withはオブジェクトを一時的にまとめて扱うための構文です。
両者は役割が異なりますので、適切に使い分けましょう。

応用｜複数シートへの同じ処理に活用

ループと組み合わせて、複数のシートに同じ処理を一括で行うこともできます。

Sub FormatMultipleSheets()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        With ws.Range("A1")
            .Value = ws.Name
            .Font.Bold = True
        End With
    Next ws
End Sub