Areas コレクション

重要

この記事は機械翻訳されています。機械翻訳についての「免責事項」をお読みください。この記事の英語版を参照するには、ここをクリックしてください。

部分、または選択範囲内のセルの連続したブロックのコレクションです。

注

単体で Area オブジェクトはありません。Areas コレクションの各メンバーは、Range オブジェクトです。選択範囲内に複数の領域がある場合は、各領域に対応する Range オブジェクトが Areas コレクションに含まれます。選択範囲に領域が 1 つしかない場合は、その選択範囲に対応する 1 つの Range オブジェクトだけが Areas コレクションに含まれます。

使用例

Areas コレクションを取得するには、Areas プロパティを使用します。次の使用例は、選択範囲に複数の領域がある場合は、その選択範囲をクリアします。

If Selection.Areas.Count <> 1 Then Selection.Clear

使用例

コレクションから Range オブジェクトを取得するには、Areas(index) プロパティを使用します。引数 index には、領域のインデックス番号を指定します。インデックス番号は、領域が選択された順序に対応しています。次の使用例は、選択範囲に複数の領域がある場合は、選択範囲内で最初に選択した領域をクリアします。

If Selection.Areas.Count <> 1 Then
    Selection.Areas(1).Clear
End If

使用例

操作によっては、選択範囲内の複数の領域で同時に実行できないものがあります。その場合はループを使って、選択範囲内の各領域ごとに対して操作を行います。次の使用例は、選択範囲内に領域が 1 つしかない場合は、その選択範囲で myOperation という操作を実行します。選択範囲内に複数の領域がある場合は、選択範囲内の各領域で myOperation を実行します。

Set rangeToUse = Selection
If rangeToUse.Areas.Count = 1 Then
    myOperation rangeToUse
Else
    For Each singleArea in rangeToUse.Areas
        myOperation singleArea
    Next
End If

注意

機械翻訳についての免責事項: この記事の翻訳はコンピューター システムによって行われており、人間の手は加えられていません。マイクロソフトでは、英語を話さないユーザーがマイクロソフトの製品、サービス、テクノロジに関するコンテンツを理解するのに役立てるため、こうした機械翻訳を提供しています。記事は機械翻訳されているため、用語、構文、文法などに誤りがある場合があります。