ExcelVBAでWith文を使ったオブジェクト名の省略方法

構文

構文は以下の通りです。

With オブジェクト
    ' ここにプロパティやメソッドを書きます
End With

With文を使うとあるオブジェクトに対して繰り返し同じ名前を書かずにプロパティやメソッドを実行できます。例えば、あるシートのセルの色を変えたり、フォントを大きくしたり、値を入れたりする場合、毎回そのシートの名前を書くのは面倒です。With文を使うと一度だけシートの名前を書いてその後は省略できます。

プログラミング例

具体的なプログラミング例を紹介します。

Sub A1セルに文字を入力する()
    With Worksheets("Sheet1").Range("A1")
        .Value = "こんにちは"
        .Font.Bold = True
        .Interior.Color = RGB(255, 255, 0)
    End With
End Sub

上記のプログラムでは、「Sheet1」のA1セルに「こんにちは」と書き込み、文字を太字にし、セルの背景色を黄色にしています。

まとめ

With 文を使うと、同じオブジェクトに対して繰り返し名前を書く必要がなくなり、プログラムがすっきりします。