アクティブなセルを参照する

Excel VBA を使って現在アクティブになっているセルを参照する方法について解説します。

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

アクティブなセルを参照する

現在アクティブになっているセルは、オブジェクトの「ActiveCell」プロパティを使って取得することができます。対象のオブジェクトはApplicationオブジェクト又はWindowオブジェクトです。オブジェクトが省略された場合はアクティブウィンドウが対象となります。

Dim range1 As Range

Range("A1").Activate
Set range1 = ActiveWindow.ActiveCell

サンプルプログラム

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

Sub テスト()

    Range("A1").Activate
    setValue

    Range("D2").Activate
    setValue

End Sub

Sub setValue()

    ActiveCell.Value = "A"

End Sub

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

-- --

Excel VBA を使って現在アクティブになっているセルを参照する方法について解説しました。

著者 / TATSUO IKURA

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