離れたセルの参照

Rangeオブジェクトを使用すると離れたセルをまとめて参照することができます。ここでは Exce VBA を使って取得した Ranage オブジェクトを使って離れたセルを参照する方法について解説します。

(Last modified: 2023年07月10日)

離れたセルを参照する

離れたセルを現すRangeオブジェクトを取得するには、「Range」プロパティの引数を「"セル1, セル2, セル3, ..."」の形式で指定します。

Dim range1 As Range

Set range1 = Range("A1, C2, D5")
range1.Value = 10

上記の場合、セルA1、セルC2、セルD5のそれぞれ単独のセルをまとめて表すRangeオブジェクトを取得します。

まとめて次のように記述しても構いません。

Range("A1, C2, D5").Value = 10

またそれぞれのセルは単独のセルだけではなく、セル範囲を指定することも可能です。

Range("A1, C3:D5").Value = 10

この場合は、セルA1とセル範囲C3:D5をまとめて表すRangeオブジェクトを取得します。

サンプルプログラム

では簡単なサンプルで試してみましょう。

Sub テスト()

    Dim range1 As Range

    Set range1 = Range("A1, C3:D5")
    range1.Value = 10

End Sub

上記のマクロを実行すると次のようになります。

-- --

Exce VBA を使って取得した Ranage オブジェクトを使って離れたセルを参照する方法について解説しました。

著者 / TATSUO IKURA

プログラミングや開発環境構築の解説サイトを運営しています。