Excel VBAでオブジェクトの指定をまとめる方法｜初心者でもわかる実践マクロ講座

Excel VBAを使っていると、「同じような処理を何度も書くのは面倒だな」と感じること、ありませんか？たとえば、セルの色を変えたり、図形の位置を調整したりするコードを繰り返し書くのは、時間の無駄です。そこで登場するのが、「オブジェクトの指定をまとめる」テクニックです。これを使えば、コードがすっきりし、作業効率がぐんとアップします。

今回は、初心者の方でもわかりやすいように、実際の例を交えながら解説します。パソコンやスマホの操作に自信がない方でも安心して学べる内容ですので、ぜひ最後までご覧ください。

同じオブジェクトを何度も指定するのは非効率！
Withステートメントでオブジェクトの指定をまとめる
変数を使ってオブジェクトを指定する
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

同じオブジェクトを何度も指定するのは非効率！

Excelのイメージ

例えば、以下のようなコードを見てみましょう。

Range("").Font.Bold = True

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

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

Range("").Borders.LineStyle = xlContinuous

Range("").Borders.Color = RGB(0, 0, 0)

このコードでは、同じ「Range(“”)」を何度も指定しています。これでは、コードが長くなり、読みづらくなってしまいます。

Withステートメントでオブジェクトの指定をまとめる

そこで登場するのが、「Withステートメント」です。これを使うと、同じオブジェクトを何度も指定することなく、まとめて処理できます。

以下のように書き換えることができます。

With Range("")

    .Font.Bold = True

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

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

    .Borders.LineStyle = xlContinuous

    .Borders.Color = RGB(0, 0, 0)

End With

このように、Withステートメントを使うことで、コードがすっきりし、読みやすくなります。

変数を使ってオブジェクトを指定する

さらに、変数を使ってオブジェクトを指定する方法もあります。これにより、同じオブジェクトを何度も指定する手間が省け、コードの可読性が向上します。

以下のように書くことができます。

Dim rng As Range

Set rng = Range("")

With rng

    .Font.Bold = True

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

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

    .Borders.LineStyle = xlContinuous

    .Borders.Color = RGB(0, 0, 0)

End With

このように、変数を使うことで、同じオブジェクトを何度も指定する手間が省け、コードがより効率的になります。