Intersect メソッド (Excel)Application.Intersect method (Excel)

2つ以上の範囲の長方形の交差を表す**Range** オブジェクトを返します。Returns a Range object that represents the rectangular intersection of two or more ranges. 別のワークシートの1つ以上の範囲が指定されている場合は、エラーが返されます。If one or more ranges from a different worksheet are specified, an error is returned.

構文Syntax

交差(Arg1Arg2Arg3Arg4Arg5Arg6Arg7Arg8Arg9、 __ Arg10、 Arg11Arg12Arg13、 __ Arg14、Arg15 __、 Arg16Arg17Arg18Arg19Arg20Arg21Arg22Arg23Arg24Arg25Arg26Arg27、Arg28 __、 Arg29Arg30)expression.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)

expression**Application** オブジェクトを 表す変数。expression A variable that represents an Application object.

パラメーターParameters

名前Name 必須 / オプションRequired/Optional データ型Data type 説明Description
Arg1Arg1 必須Required RangeRange セル範囲 (Range オブジェクト) の名前を指定します。The intersecting ranges. 複数の Range オブジェクトを指定する必要があります。At least two Range objects must be specified.
Arg2Arg2 必須Required RangeRange セル範囲 (Range オブジェクト) の名前を指定します。The intersecting ranges. 複数の Range オブジェクトを指定する必要があります。At least two Range objects must be specified.
Arg3Arg30Arg3Arg30 省略可能Optional VariantVariant 交差する範囲。An intersecting range.

戻り値Return value

範囲Range

Example

次の例では、rg1 と rg2 の2つの名前付き範囲の共通部分を Sheet1 に選択します。The following example selects the intersection of two named ranges, rg1 and rg2, on Sheet1. 共有セル範囲がない場合は、メッセージを表示します。If the ranges don't intersect, the example displays a message.

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

次の使用例は、 Worksheet プロパティ、 Union メソッド、およびIntersectメソッドを比較します。The following example compares the Worksheet.Range property, the Application.Union method, and the Intersect method.

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.

サポートとフィードバックSupport and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.