この例では、Excel VBAで地域のコレクションを示しています。 （ “：C3、C5：E5 B2″）我々未満の範囲を接しています。この範囲は、2つの領域があります。コンマ2つの領域を分離します。

Areas Collection in Excel VBA

ワークシート上のコマンドボタンを配置し、次のコード行を追加します。

1.まず、我々は2つの範囲オブジェクトを宣言します。私たちは、レンジrangeToUseとsingleAreaオブジェクトを呼び出します。

Dim rangeToUse As Range, singleArea As Range

（ “：C3、C5：B2 E5″）2.私たちは、Rangeオブジェクトの範囲とrangeToUseを初期化

Set rangeToUse = Range("B2:C3,C5:E5")

3.次のコード行を追加し、rangeToUseの領域の数をカウントする：

MsgBox rangeToUse.Areas.Count

結果：

Count Areas

4.あなたは、インデックス値を使用してrangeToUseの異なる領域を参照することができます。次のコード行は、第1の領域の細胞数をカウントします。

MsgBox rangeToUse.Areas(1).Count

結果：

Count Cells

5.またrangeToUseの各エリアをループし、各エリアのセルの数をカウントすることができます。以下のマクロは、トリックを行います。

For Each singleArea In rangeToUse.Areas

MsgBox singleArea.Count

Next singleArea

結果：

Count Cells

Count Cells

/ VBA-例 – 比較 – 範囲[比較範囲] `：領域コレクションの具体例については、私たちのプログラム例`リンクを参照してください。