VBAのWithステートメント

Withステートメント

<< エクセルVBAのIE制御に利用したステートメント一覧(VBAのIE制御入門) ：前の記事

こちらは、エクセルVBAのWithステートメントの解説になります。こちらは、ある1つのオブジェクトに対して処理をまとめて記述する場合に利用される便利な機能になります。Withステートメントを利用しなくても実行内容は変わりませんが、処理の追加や変更の容易さやプログラムコードの見易さなどメリットも大きいので積極的に利用するようにしましょう。

また、ステートメントとは「命令文」と訳されるようにコンピュータに具体的な動作を指定する最小単位のプログラムです。主にマクロの挙動を制御する構文や文法を指します。通常は１行で完結する部分を指しますが、If～Thenなど複数行にまたがる部分を意味することもあります。

Withステートメントとは

Withステートメントは、オブジェクトやユーザー定義型に対して、一連のステートメントを実行するフロー制御ステートメントです。

Withの後に半角スペースを挟み、１つにまとめたいオブジェクト名を記述します。WithからEnd Withまでの間は、Withの後に記述したオブジェクト名を省略することができます。オブジェクト名が省略できるため、命令文は「.(ピリオド)」から始まりプロパティなどを記述します。

With オブジェクト名・ユーザー定義型名
　.プロパティ名
　.メソッド名
・・・
End With

キーワード	省略	説明
構文	With object [statements] End With
object	×	こちらは必須キーワードです。オブジェクト名またはユーザー定義型名を指定します。
statements	●	こちらは省略可能です。引数objectに対して、実行するステートメントを指定します。また、複数のステートメントを記述できます。

同じオブジェクトをWithステートメントでまとめることで、プログラムを簡素化でき、更にオブジェクトが変更になってもWithの後に記述したオブジェクトを変更することでまとめて変更できるというメリットもあります。

ただし、同じ命令文の中でWithステートメントでまとめられるオブジェクトは1種類のみですのでご注意ください。

オブジェクトを設定したWith文サンプルコード


Sub sample()

    With Sheets("Sheet1")
    
        .Range("A1").Value = "エクセル"
        .Range("A2").Value = "VBA"
        .Range("A3").Value = "入門"
    
    End With
    
End Sub

実行結果

解説

sampleのSubステートメントには引数の設定はされていません。まず、Withステートメントのオブジェクト名に「Sheets("Sheet1")」を設定しました。これによりオブジェクト名を省略して記述できるようになりました。このように操作したオブジェクトを一度指定するだけで複数のプロパティの設定を行えます。

ユーザー定義型を設定したWith文サンプルコード


Type Personal
    Name As String
    Age As Byte
End Type

Sub sample()

    Dim perA As Personal
    
    With perA
    
        .Name = "鈴木"
        .Age = 20
        
        MsgBox "名前：" & .Name & ", 年齢：" & .Age
    
    End With
    
End Sub