Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

引数に指定したセル範囲の共通のセル範囲を取得（Intersect メソッド）

2015/07/01 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ソース

　
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

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

　

実行結果

- セルの操作 Application オブジェクト, Intersect メソッド, VBA基本, エクセルVBA, セルの操作

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 別シートのセルを選択（Goto メソッド／ PreviousSelections プロパティ）

Goto メソッド次の例のように、1 行で、Activate メソッドや S …

: セル内の編集を禁止する（EditDirectlyInCell プロパティ）

EditDirectlyInCell プロパティエクセルでは、セルをダブルクリ …

: 入力規則（日本語入力）Validation オブジェクト,IMEMode プロパティ

IMEMode プロパティ Validation.IMEMode プロパティを …

: セル・セル範囲に名前を定義・削除（Name プロパティ・Names コレクション）

セル・セル範囲に名前を定義（Name プロパティ） Range オブジェクトのN …

: 非連続のセルが選択されているか確認する（Areas コレクション）

Areas コレクションの使い方複数の離れた位置にあるセル範囲を選択した場合 …

: 入力規則（他セルや数式を利用して許容値を設定）Validation オブジェクト

他のセルや数式を利用して許容値を設定する入力規則（その5）での設定を、マクロ …

: フリガナの設定（Characters プロパティ,PhoneticCharacters メソッド）

Characters プロパティ Characters プロパティは、文字範囲を …

: 並べ替え（Sort オブジェクト, SortFields コレクション）

Sort オブジェクトによる並べ替え Excel 2007 以降のバージョンでの …

: 文字列を縮小して全体を表示（ShrinkToFit プロパティ）

ShrinkToFit プロパティ ShrinkToFit プロパティは、セルに …

: オートフィルタ（平均より上・平均より下）AutoFilter メソッド

平均値よりも大きい（小さい）値のレコードを抽出 AutoFilter メソッドで …

PREV: 使用中のセル範囲を取得（CurrentRegion プロパティ）
NEXT: セル・セル範囲に名前を定義・削除（Name プロパティ・Names コレクション）