引数に指定したセル範囲の共通のセル範囲を取得(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 |
実行結果
関連記事
-
-
数式を非表示にする(FormulaHidden プロパティ)
FormulaHidden プロパティ 数式が入力されたセルを選択するとその数式 …
-
-
数式を設定・取得する(Formula プロパティ・FormulaR1C1 プロパティ)
Formula プロパティ(FormulaR1C1 プロパティ) Formula …
-
-
セルの文字列を取得(Text プロパティ)
Text プロパティ セルに表示されている文字列を取得します。Text プロパテ …
-
-
対象のセルを直接参照しているセル全てを取得(DirectDependents プロパティ)
DirectDependents プロパティ DirectDependents …
-
-
セルに値を設定する・セルの値を参照する(Value プロパティ)
Value プロパティ Value プロパティは、セルの値を取得したり、値を設定 …
-
-
使用中のセル範囲を取得(CurrentRegion プロパティ)
CurrentRegion プロパティ CurrentRegion プロパティは …
-
-
セル・セル範囲を貼り付ける(Paste メソッド)
Paste メソッド Paste メソッドは、クリップボードの内容を指定したセル …
-
-
セル内の編集を禁止する(EditDirectlyInCell プロパティ)
EditDirectlyInCell プロパティ エクセルでは、セルをダブルクリ …
-
-
オートフィルタ(色で抽出する)AutoFilter メソッド
オートフィルタ(色で抽出する) フォントの色、セルの背景色(条件付き書式による設 …
-
-
対象のセルが配列数式の一部かどうか(HasArray プロパティ)
HasArray プロパティ HasArray プロパティは、対象のセルが配列数 …