セルの参照

セルを表すオブジェクトは Range オブジェクトです。ここでは Excel VBA を使って取得した Range オブジェクトを使って単一のセルを参照する方法について解説します。

(2022 年 06 月 14 日公開 / 2022 年 06 月 14 日更新)

セルを参照する

Rangeオブジェクトを取得する方法はいくつかありますが、まずは元になっているWorksheetオブジェクトなどのプロパティを使ってRangeオブジェクトを取得する方法です。使用するプロパティは「Range」プロパティです。

Dim range1 As Range

Set range1 = オブジェクト.Range("A1")
range1.Value = 10

「Range」プロパティの括弧の中にダブルクォーテーション("")で囲んだ中にExcelのA1形式でセルの位置を記述することで、対象オブジェクトに含まれるRangeオブジェクトを取得することができます。(オブジェクトはWorksheetの他に、既にあるRangeオブジェクトなどでも使えます)。

今までのサンプルで使っていたのはオブジェクトを省略し(省略すると現在アクティブのワークシートになります)、Range型の変数を別途用意せずにまとめて記述していました。

Range("A1").Value = 10

普段はあまり気にする必要はありませんが、「Range("A1")」と書かれていた場合は、これがRangeオブジェクトそのものではなく、ワークシートなどのオブジェクトのRangeプロパティであり、このプロパティによってRangeオブジェクトが取得出来ているという点だけ覚えておいてください。

Dim range1 As Range

Set range1 = Range("A1")
range1.Value = 10

サンプルプログラム

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

Sub テスト()

    Dim range1 As Range

    Set range1 = Range("A1")
    range1.Value = 10

    Range("C3").Value = "日本語"

End Sub

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

Rangeオブジェクト

-- --

Excel VBA を使って取得した Range オブジェクトを使って単一のセルを参照する方法について解説しました。

( Written by Tatsuo Ikura )

広告
Profile
profile_img

著者 / TATSUO IKURA

初心者~中級者の方を対象としたプログラミング方法や開発環境の構築の解説を行うサイトの運営を行っています。