引数に指定したセル範囲の共通のセル範囲を取得(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 |
実行結果
関連記事
-
-
列名を取得、列番号を取得(Address プロパティ,Column プロパティ)
列番号を取得する セル番地(「A1」や「B3」)や列名(「A」「B」「C」 …
-
-
罫線の設定(Borders プロパティ)
罫線の設定 罫線を一括(上下左右すべて)で設定するには、Borders プロパテ …
-
-
対象のセルを参照している全てのセルを取得(Dependents プロパティ)
Dependents プロパティ Dependents プロパティは、対象のセル …
-
-
オートフィルタ(アイコンで抽出する)AutoFilter メソッド
オートフィルタ(アイコンで抽出する) Excel 2007 から、条件付き書式で …
-
-
セルの文字列を取得(Text プロパティ)
Text プロパティ セルに表示されている文字列を取得します。Text プロパテ …
-
-
セル・セル範囲をコピーする(Copy メソッド)
Copy メソッド Copy メソッドは、セル範囲をコピーし、指定したセル範囲に …
-
-
ハイパーリンク(Hyperlinks オブジェクト)
Hyperlinks オブジェクト ワークシートまたはセル範囲のワークシートコレ …
-
-
列幅を取得・設定・する(ColumnWidth プロパティ)
ColumnWidth プロパティ ColumnWidth プロパティは、対象セ …
-
-
オートフィルタ(抽出条件で使用できる演算子・記号)AutoFilter メソッド
AutoFilter メソッド 【書式】 object.AutoFilter ( …
-
-
外枠罫線の設定(BorderAround メソッド)
外枠罫線の設定 罫線の設定には、Borders プロパティを使用しますが、範囲内 …
