Application.Intersect メソッド (Excel)

2 つ以上の範囲の四角形の交差部分を表す Range オブジェクトを返します。 異なるワークシートの 1 つまたは複数の範囲が指定されている場合は、エラーが返されます。

構文

式。Intersect (arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10, arg11, arg12, arg13, arg14, arg15, arg16, arg17, arg18, arg19, arg20, arg21, arg22, arg23, arg24, arg25, arg26, arg27、arg28、arg29、arg30)

expressionApplication オブジェクトを 表す変数。

パラメーター

名前 必須 / オプション データ型 説明
Arg1 必須 Range セル範囲 (Range オブジェクト) の名前を指定します。 複数の Range オブジェクトを指定する必要があります。
Arg2 必須 Range セル範囲 (Range オブジェクト) の名前を指定します。 複数の Range オブジェクトを指定する必要があります。
arg3–arg30 省略可能 バリアント型 (Variant) 交差する範囲。

戻り値

範囲

例

次の例では、Sheet1 で 2 つの名前付き範囲 rg1 と rg2 の交差部分を選択します。 共有セル範囲がない場合は、メッセージを表示します。

Worksheets("Sheet1").Activate 
Set isect = Application.Intersect(Range("rg1"), Range("rg2")) 
If isect Is Nothing Then 
 MsgBox "Ranges don't intersect" 
Else 
 isect.Select 
End If

次の例では、 Worksheet.Range プロパティ、 Application.Union メソッド、および Intersect メソッドを比較します。

Range("A1:A10").Select                            'Selects cells A1 to A10.
Range(Range("A1"), Range("A10")).Select           'Selects cells A1 to A10.
Range("A1, A10").Select                           'Selects cells A1 and A10.
Union(Range("A1"), Range("A10")).Select           'Selects cells A1 and A10.
Range("A1:A5 A5:A10").Select                      'Selects cell A5.
Intersect(Range("A1:A5"), Range("A5:A10")).Select 'Selects cell A5.

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。

  • Last updated on