【Excel VBA】同一のオブジェクトを省略して記載する方法

皆さんこんにちは、エンジニアのIMMRです。

例えば、下記のような資料があります。

図１　ブック５３

この資料を見やすくするために罫線の追加や、文字の色などを変えて加工してみたいと思います。

下記、図のように

・文字を赤く

・背景を水色

・文字を赤く

・罫線を追加

していきたいと思います。

図２　ブック５３（サンプル）

上記の作業をする場合のサンプルプログラムです。

サンプルプログラム１

Sub test01()

    Range("A4:D14").Borders.LineStyle = xlContinuous
    Range("A4:D14").Interior.ColorIndex = 20
    Range("A4:D14").Font.ColorIndex = 3
    Range("A4:D14").Font.Bold = True

End Sub

Range("A4:D14")に罫線を追加する。

Range("A4:D14")の背景を水色にする。

Range("A4:D14")の文字の色を赤にする。

Range("A4:D14")の文字を太文字にする。

といった感じです。

ですが、何度も同じような記載をするのは手間がかかりますよね。

これから説明するWithステートメントを使用することで

省略して記載が出来、プログラム自体も読みやすくすることが出来ます。

１．Withステートメントについて

VBAの命令文では、対象となるオブジェクト（処理の対象となる範囲）の指定が必要になります。

そのオブジェクトは処理を行うために宣言しないといけないのですが

同じオブジェクトの場合、Withステートメントを記載することで省略することができます。

Withステートメントの後ろに記載するとそれ以降End　Withまでは同じステートメントとみなすことが出来ます。

その際にピリオドを付けます。

これにより、ピリオドの前は同じオブジェクトであることを示すことができます。

２．Withステートメント記載方法について

記載方法は、

With　＋　オブジェクト（範囲）　と　End　With　で囲みます。

そして、その中に処理（例えば、文字を赤くする等）を記載する場合、

本来でしたらオブジェクト　＋　処理　で宣言するのですが

オブジェクト部分を省略して、ピリオドだけにすることが可能です。

記載方法

With オブジェクト(範囲)

    .処理①の内容
    .処理②の内容
    .処理③の内容
    .処理④の内容

End With

３．Withステートメント記載方法（サンプルプログラム）①

上記で説明したSub test01()のプログラムをWithステートメントを使って記載すると

下記のようになります。

サンプルプログラム２

Sub test02()

    With Range("A4:D14")
        .Borders.LineStyle = xlContinuous
        .Interior.ColorIndex = 20
        .Font.ColorIndex = 3
        .Font.Bold = True
    End With

End Sub

オブジェクト部分が省略されて、すっきりします。そして、読みやすくなります。

４．Withステートメント記載方法サンプルプログラム②

もう一つの記載方法について説明します。

それは、以前に説明した

　オブジェクトを「Set」ステートメントで変数に格納する方法　　　　と合わせて作成することです。

作成は下記のようになります。

サンプルプログラム３

Sub test03()

    Dim Ra As Range

    Set Ra = Range("A4:D14")

    With Ra
        .Borders.LineStyle = xlContinuous
        .Interior.ColorIndex = 20
        .Font.ColorIndex = 3
        .Font.Bold = True
    End With

End Sub

このようにオブジェクト型の変数を用いて記載することも可能です。

５．Withステートメント記載方法サンプルプログラム①の実行

上であげたサンプルプログラム２とサンプルプログラム３の処理結果は同じなので、

サンプルプログラム２だけを実行します。

使用するのは、図１　ブック５３です。

実行すると下記、図３になります。

図３　ブック５３（サンプルプログラム２実行結果）

図２　ブック５３（サンプル）と同じ結果を得ることができました。

そのため、Withステートメントを使用して、サンプルプログラム１と同じ動作をすることが出来ました。

同一のオブジェクトを省略して安易に記載することができました。