Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

使用中のセル範囲を取得（CurrentRegion プロパティ）

2015/06/30

CurrentRegion プロパティ

CurrentRegion プロパティは、指定したセルを起点とした空白行と空白列で囲まれた最小のセル範囲（アクティブセル領域）を取得します。

【書式】

result = Object.CurrentRegion

引数・戻り値

object ・・・対象となる Range オブジェクト
result ・・・ object で指定したセルを起点とした空白の行列で囲まれたセル範囲（Range 型）

アクティブセル領域とは、Excel での操作で、キーボードの「Ctrl」＋「Shift」＋「*」を押したときに選択される範囲です。

CurrentRegion プロパティの使用例

サンプルVBAソース

　
Sub Sample_CurrentRegion()


    '「A5」セルを起点としたアクティブセル領域を選択
    Range("A5").CurrentRegion.Select
    
    '「A5」セルを起点としたアクティブセル領域のアドレスを表示
    MsgBox Range("A5").CurrentRegion.Address


End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

　

Sub Sample_CurrentRegion()

'「A5」セルを起点としたアクティブセル領域を選択

Range("A5").CurrentRegion.Select

'「A5」セルを起点としたアクティブセル領域のアドレスを表示

MsgBox Range("A5").CurrentRegion.Address

End Sub

　

実行結果

- セルの操作 CurrentRegion プロパティ, Range オブジェクト, VBA基本, エクセルVBA, セルの操作

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 列幅を取得・設定・する（ColumnWidth プロパティ）

ColumnWidth プロパティ ColumnWidth プロパティは、対象セ …

: 文字列を縮小して全体を表示（ShrinkToFit プロパティ）

ShrinkToFit プロパティ ShrinkToFit プロパティは、セルに …

: ハイパーリンク（Hyperlinks オブジェクト）

Hyperlinks オブジェクトワークシートまたはセル範囲のワークシートコレ …

: 引数に指定したセル範囲の共通のセル範囲を取得（Intersect メソッド）

Intersect メソッド Intersect メソッドは、引数に指定したセル …

: セルが結合セルの一部である場合、その結合セルの範囲を取得（MergeArea プロパティ）

MergeArea プロパティ MergeArea プロパティは、指定したセルが …

: 列名を取得、列番号を取得（Address プロパティ,Column プロパティ）

列番号を取得するセル番地（「A1」や「B3」）や列名（「A」「B」「C」&#8 …

: 次の検索（FindNext メソッド,FindPrevious メソッド）

FindNext メソッド Find メソッドで開始された検索を継続します。引数 …

: 指定したセルへ移動（Goto メソッド）

指定したセルへ移動指定したシートの指定したセルへジャンプするには、Goto メ …

: フリガナの設定（SetPhonetic メソッド）

フリガナの設定（SetPhonetic メソッド） SetPhonetic メソ …

: オートフィルタ（色で抽出する）AutoFilter メソッド

オートフィルタ（色で抽出する）フォントの色、セルの背景色（条件付き書式による設 …

PREV: 使用中のセル範囲を取得（UsedRange プロパティ）
NEXT: 引数に指定したセル範囲の共通のセル範囲を取得（Intersect メソッド）