引数に指定したセル範囲の共通のセル範囲を取得(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 |
実行結果
関連記事
-
-
対象のセルが参照している全てのセルを取得(Precedents プロパティ)
Precedents プロパティ Precedents プロパティは、対象のセル …
-
-
セルが選択されているか確認する(TypeName 関数)
セルが選択されているか確認する方法と使用例 TypeName 関数の引数に、Se …
-
-
セル・セル範囲を貼り付ける(Paste メソッド)
Paste メソッド Paste メソッドは、クリップボードの内容を指定したセル …
-
-
指定した行数・列数移動したセル・セル範囲を参照(Offset プロパティ)
Offset プロパティ Offset プロパティは、基準となるセル・セル範囲か …
-
-
次の検索(FindNext メソッド,FindPrevious メソッド)
FindNext メソッド Find メソッドで開始された検索を継続します。引数 …
-
-
数式を設定・取得する(Formula プロパティ・FormulaR1C1 プロパティ)
Formula プロパティ(FormulaR1C1 プロパティ) Formula …
-
-
別シートのセルを選択(Goto メソッド / PreviousSelections プロパティ)
Goto メソッド 次の例のように、1 行で、Activate メソッド や S …
-
-
A1 形式と R1C1 形式を変換、相対参照と絶対参照を変換(ConvertFormula)
ConvertFormula メソッド 数式で参照しているアドレスの相対参照と絶 …
-
-
外枠罫線の設定(BorderAround メソッド)
外枠罫線の設定 罫線の設定には、Borders プロパティを使用しますが、範囲内 …
-
-
使用中のセル範囲を取得(CurrentRegion プロパティ)
CurrentRegion プロパティ CurrentRegion プロパティは …
