/ / Excel VBAエリアコレクション

Excel VBA領域コレクション

この例は、 エリアコレクションExcel VBA。以下では、範囲(「B2:C3、C5:E5」)に接しています。この範囲には2つの領域があります。カンマは、2つの領域を区切ります。

Excel VBAでの領域コレクション

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

1.まず、2つのRangeオブジェクトを宣言します。 RangeオブジェクトはrangeToUseとsingleAreaと呼ばれます。

Dim rangeToUse As Range, singleArea As Range

2. RangeオブジェクトをRange(Range: "B2:C3、C5:E5")で初期化します。

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

3. rangeToUseの領域の数を数えるには、次のコード行を追加します。

MsgBox rangeToUse.Areas.Count

結果:

カウントエリア

4. indexToUseの異なる領域を参照するには、インデックス値を使用します。次のコード行は、最初の領域のセル数をカウントします。

MsgBox rangeToUse.Areas(1).Count

結果:

セルをカウントする、最初の領域

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

For Each singleArea In rangeToUse.Areas
    MsgBox singleArea.Count
Next singleArea

結果:

セルをカウントする、最初の領域

セル数、第2面積

エリアコレクションの具体的な例については、サンプルプログラムのCompare Rangeを参照してください。

また読む: