CurrentRegionの戻り値を変数に代入する

動作検証バージョン：64bit Windows 10 Pro + 32bit Excel（バージョン2207 ビルド15427.20210 Microsoft Store）

「currentregionで取得したレンジ範囲を変数に入れる」
といった検索でアクセスがありました。

Excel VBAのRange.CurrentRegionプロパティで取得したRangeオブジェクトを、

変数に代入するにはどのようなコードを書けばいいのか調べていた方による検索です。

［スポンサードリンク］

以下のようなコードを書いてみたものの

Dim rng As Range
rng = ActiveCell.CurrentRegion

「実行時エラー'91'：オブジェクト変数またはWithブロック変数が設定されていません。」
エラーになってしまったのかもしれません。

CurrentRegionの戻り値を変数に代入するサンプルマクロ

以下のExcelマクロを参考にしてください。

Sub CurrentRegionsで取得したRangeを代入し確認する()
　Dim rng As Range
　Set rng = ActiveCell.CurrentRegion
　rng.Select
　MsgBox rng.Address(False, False)
End Sub

実行すると、「ActiveCell.CurrentRegion」で取得したアクティブセル領域が選択され、そのセル番地がメッセージボックスに表示されます。

ポイントは、

Set rng = ActiveCell.CurrentRegion

の「Set」です。

VBAの場合、単なるデータを変数に代入する場合は、キーワードを使わず

変数 = 単なるデータを取得する式

といった書き方ができますが、オブジェクトの場合には

Set オブジェクト変数 = オブジェクトを取得する式

とSetキーワードを使う必要があります。

この仕様はExcel VBAのRangeオブジェクトに限らず、Access VBAでもWord VBAでもPowerPoint VBAでも、ありとあらゆるオブジェクトで共通するVBAの仕様です。

［スポンサードリンク］

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を書きました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本も出しました↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

「CurrentRegionプロパティ」の記事一覧