Excel VBAのWithステートメントを実際に使ってみよう！初心者でもわかる解説

Excel VBAを使っていると、同じセルやシートに対して何度も同じような操作を繰り返すことがあります。そんなときに便利なのが「Withステートメント」です。これを使うと、コードがスッキリして読みやすくなり、作業効率もアップします。今回は、初心者の方でもわかりやすいように、Withステートメントの基本から応用までを解説します。

Withステートメントとは？
Withステートメントの基本構文
Withステートメントの使い方と応用例
1. セル範囲の書式設定
2. ネスト（入れ子）を使った例
Withステートメントを使うメリット
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

Withステートメントとは？

Excelのイメージ

Withステートメントは、同じオブジェクト（セルやシートなど）に対して複数の操作を行う際に、そのオブジェクト名を繰り返し書かずに済む構文です。これにより、コードが簡潔になり、可読性が向上します。

例えば、以下のようなコードがあります。

vba

Worksheets("Sheet1").Range("").Value = "こんにちは"

Worksheets("Sheet1").Range("").Font.Bold = True

Worksheets("Sheet1").Range("").Font.Color = RGB(255, 0, 0)

このコードでは、`Worksheets(“Sheet1”).Range(“”)`が何度も登場しています。これをWithステートメントを使って書き換えると、以下のようになります。

vba

With Worksheets("Sheet1").Range("")

    .Value = "こんにちは"

    .Font.Bold = True

    .Font.Color = RGB(255, 0, 0)

End With

このように、Withステートメントを使うことで、オブジェクト名を一度だけ書けば、その後の操作を簡潔に記述できます。

Withステートメントの基本構文

Withステートメントの基本的な構文は以下の通りです。

vba

With オブジェクト

    .プロパティ1 = 値1

    .プロパティ2 = 値2

    ' ...

End With

`オブジェクト`には操作対象となるセルやシートなどを指定し、そのオブジェクトに対するプロパティやメソッドを`.`（ドット）で指定します。

Withステートメントの使い方と応用例

次に、Withステートメントを使った具体的な例を見てみましょう。

セル範囲の書式設定

vba

With Worksheets("Sheet1").Range("C3")

    .Font.Name = "ＭＳ Ｐゴシック"

    .Font.Size = 12

    .Font.Color = RGB(0, 0, 255)

    .Interior.Color = RGB(255, 255, 0)

    .Borders.LineStyle = xlContinuous

End With

このコードでは、`Sheet1`の`C3`の範囲に対して、フォントの設定や背景色、罫線などを一度に設定しています。

ネスト（入れ子）を使った例

Withステートメントはネスト（入れ子）して使うこともできます。

vba

With Worksheets("Sheet1")

    .Range("").Value = "こんにちは"

    With .Range("").Font

        .Bold = True

        .Color = RGB(255, 0, 0)

    End With

End With

このように、内側のWithステートメントでさらに詳細な設定を行うことができます。