引数に指定したセル範囲の共通のセル範囲を取得(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 |
実行結果
関連記事
-
-
ハイパーリンク(Hyperlink オブジェクトのメソッド)
Hyperlink オブジェクトのメソッド Hyperlinks コレクション …
-
-
VBA で、ワークシート関数を使用(WorksheetFunction プロパティ)
VBA で、ワークシと関数を使用 VBA から、ワークシート関数を呼び出す場合、 …
-
-
指定した行数・列数移動したセル・セル範囲を参照(Offset プロパティ)
Offset プロパティ Offset プロパティは、基準となるセル・セル範囲か …
-
-
セルに値を設定する・セルの値を参照する(Value プロパティ)
Value プロパティ Value プロパティは、セルの値を取得したり、値を設定 …
-
-
セルに値を設定する・セルの値を参照する(Value2 プロパティ)
Value2 プロパティ Value プロパティとの違いは、Value2 プロパ …
-
-
数式を非表示にする(FormulaHidden プロパティ)
FormulaHidden プロパティ 数式が入力されたセルを選択するとその数式 …
-
-
オートフィルタ(矢印を非表示にする)AutoFilter メソッド
AutoFilter メソッド 【書式】 object.AutoFilter ( …
-
-
書式で検索(Find メソッド,FindFormat プロパティ)
書式で検索 書式を条件にセルを検索する場合、まず、その書式条件を CellFor …
-
-
列名を取得、列番号を取得(Address プロパティ,Column プロパティ)
列番号を取得する セル番地(「A1」や「B3」)や列名(「A」「B」「C」 …
-
-
入力規則(日本語入力)Validation オブジェクト,IMEMode プロパティ
IMEMode プロパティ Validation.IMEMode プロパティ を …
