【Excel VBA】Withステートメントを使ってプログラムを見やすくする

Excel VBAでは、Withステートメントを使ってシートやセルなどのオブジェクトを表す記述を減らし、プログラミングの可読性を高める事ができます。

Withステートメントとは？

Withステートメントは、

With 変数名

処理内容

End With

のように記述する事ができます。

下記のサンプル１は、「シート」という名称のエクセルシートをオブジェクト変数shに代入し、Withステートメントを使って変数shの記述を省略しつつ、セルA1～A5に対して文字列「Ａ１」～「Ａ５」を入力したサンプルになります。

・サンプル1

Sub Withステートメント()

Dim sh As Worksheet ‘シート名を格納するための変数

Set sh = Worksheets(“シート”) ‘シート名を変数に格納

With sh

.Cells(1, 1).Value = “Ａ１” ‘指定したシートのセルＡ１に「Ａ１」と入力
.Cells(2, 1).Value = “Ａ２” ‘指定したシートのセルＡ２に「Ａ２」と入力
.Cells(3, 1).Value = “Ａ３” ‘指定したシートのセルＡ３に「Ａ３」と入力
.Cells(4, 1).Value = “Ａ４” ‘指定したシートのセルＡ４に「Ａ４」と入力
.Cells(5, 1).Value = “Ａ５” ‘指定したシートのセルＡ５に「Ａ５」と入力

End With

End Sub

また下記のサンプル２では、指定したシート名のセルA1に文字列「Ａ１」と入力していますが、このようにセル番地（セル範囲）を省略する使い方も可能です。

・サンプル２

Sub Withステートメント()

Dim sh As Worksheet ‘シート名を格納するための変数
Dim rng As Range ‘セル番地を格納するための変数

Set sh = Worksheets(“シート”) ‘シート名を変数に格納
Set rng = sh.Cells(1, 1) ‘セル番地を変数に格納

With rng

.Value = “Ａ１” ‘指定したシートのセルＡ１に「Ａ１」と入力
.Font.Bold = True ‘フォントを太字に変更

End With

End Sub

ただし、あまりにもむやみやたらと省略してしまうと、人によっては逆にプログラムが読みにくく感じる場合もあるかもしれませんので、臨機応変が良いかもしれないですね（笑）