引数に指定したセル範囲の共通のセル範囲を取得(Intersect メソッド)
2015/08/25
Intersect メソッド
Intersect メソッドは、引数に指定したセル範囲のうち、共通のセル範囲を表す Range オブジェクトで返します。
【書式】
result = Object.Intersect ( Arg1, Arg2 [, Arg3, … , Arg30 ] )
引数・戻り値
- object ・・・ 対象となる Application オブジェクト
- Arg1 … Arg30 ・・・ 任意のセル範囲(Range オブジェクト)を指定します(Arg1、Arg2 は必須、Arg3 ~ Arg30 は、省略可)。
- result ・・・ 引数で指定したセル範囲のうち、重複しているセル範囲(Range オブジェクト)。重複している部分がない場合は、Nothing を返します。
Intersect メソッドの使用例
サンプルVBAソース
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
Sub Sample_Intersect() Dim myRng1, myRng2, myRng3 Set myRng1 = Range("A1:E10") Set myRng2 = Range("B5:B20") Set myRng3 = Range("A6:C10") 'myRng1 の範囲を背景色を緑色に myRng1.Interior.Color = vbGreen 'myRng2 の範囲を背景色を?色に myRng2.Interior.Color = vbYellow 'myRng3 の範囲を背景色を青色に myRng3.Interior.Color = vbBlue '上記範囲の重なる部分の背景色を赤色に Application.Intersect(myRng1, myRng2, myRng3).Interior.Color = vbRed End Sub |
実行結果
関連記事
-
-
文字列をセル幅で折り返す(WrapText プロパティ)
WrapText プロパティ WrapText プロパティは、セルに表示されてい …
-
-
セル範囲を結合・結合を解除(Merge メソッド・UnMerge メソッド)
Merge メソッド・UnMerge メソッド セルを結合するには、指定したセル …
-
-
セルの高さ・幅を取得(Height プロパティ・Width プロパティ)
Height プロパティ・Width プロパティ Height プロパティは、指 …
-
-
セルのロック(Locked プロパティ)
セルのロック(Locked プロパティ) Locked プロパティで、セルのロッ …
-
-
グラデーション(Pattern プロパティ・Gradient プロパティ)
セルの背景ににグラデーションを設定する Pattern プロパティを使用するとセ …
-
-
次の検索(FindNext メソッド,FindPrevious メソッド)
FindNext メソッド Find メソッドで開始された検索を継続します。引数 …
-
-
指定したセルへ移動(Goto メソッド)
指定したセルへ移動 指定したシートの指定したセルへジャンプするには、Goto メ …
-
-
指定した行数・列数移動したセル・セル範囲を参照(Offset プロパティ)
Offset プロパティ Offset プロパティは、基準となるセル・セル範囲か …
-
-
網かけ(パターン)の取得・設定(Pattern プロパティ)
網かけ(パターン)を取得・設定する セルの背景に網かけ(パターン)を設定したり、 …
-
-
対象のセルが参照している全てのセルを取得(Precedents プロパティ)
Precedents プロパティ Precedents プロパティは、対象のセル …
