第102回.Intersectメソッド
IntersectメソッドはApplicationのメソッドで、
複数のセル範囲の、重なっている部分のセル範囲を取得することが出来ます。
あるセルが、特定セル範囲内にあるかどうかを判定したり、
セル範囲の中から、特定の列の部分だけを取り出したりする場合に使います。
Intersectメソッド
Application.Intersect(Arg1, Arg2, Arg3, ・・・, Arg30)
| Arg1 | セル範囲 (Range オブジェクト) を指定します。 |
| Arg2 | セル範囲 (Range オブジェクト) を指定します。 |
| Arg3 | セル範囲 (Range オブジェクト) を指定します。 |
| 〜 | |
| Arg30 | セル範囲 (Range オブジェクト) を指定します。 |
Application.は省略可能です。
Arg1とArg2は必須です、Arg3以降はオプションになります。
使用例．
| Dim isect As Range Set isect = Intersect(Selection, Columns("B")) If isect Is Nothing Then MsgBox ("B列が選択されていません。") Else isect.Select End If |
シート上で選択されているセル範囲の内、B列だけを選択し直しています。
B列が選択されていない場合は、メッセージを表示しています。
このような表において、B列のデータのみ消去します
| Intersect(Range("A1").CurrentRegion.Offset(1), Columns(2)).ClearContents |
Range("A1").CurrentRegionは、A1:C11
Range("A1").CurrentRegion.Offset(1)は、A2:C12
つまり、
A2:C12とB:Bの重なっているB2:B12がIntersectメソッドの戻り値になります。
Intersectメソッドは、セル範囲に関する処理では非常に応用範囲の広いメソッドです。
いつでも使えるようにしておきましょう。
同じテーマ「マクロVBA入門」の記事
第99回.Replaceメソッド（置換）
第100回.InputBoxメソッド（インプットボックス）
第101回.Midステートメント
第103回.Unionメソッド
第104回.GetPhoneticメソッドとSetPhoneticメソッド（フリガナ）
第105回.Callステートメント
第106回.Functionプロシージャー
第107回.プロシージャーの引数
第108回.変数の適用範囲（スコープ,Private,Public）
第109回.列挙型（列挙体）Enum
新着記事 ・・・新着記事一覧を見る
複数条件判定を行う時のコツ｜ExcelマクロVBA技術解説（7月11日）
For Next の使い方いろいろ｜VBA技術解説（6月14日）
VBAを定型文で覚えよう｜ExcelマクロVBA技術解説（3月26日）
VBAスタンダード試験対策まとめ｜MOS VBAエキスパート対策（3月16日）
ユーザーフォームとメニューの操作｜MOS VBAエキスパート対策（3月14日）
ファイルの操作｜MOS VBAエキスパート対策（3月14日）
ユーザーフォームの各種イベント｜Excelユーザーフォーム（3月13日）
レジストリの操作｜MOS VBAエキスパート対策（3月12日）
変数と配列｜MOS VBAエキスパート対策（3月12日）
Colorプロパティの設定値一覧｜VBA技術解説（3月12日）
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.変数とデータ型（Dim）｜ExcelマクロVBA入門
3.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
4.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
5.マクロって何？VBAって何？｜ExcelマクロVBA入門
6.RangeとCellsの使い方｜ExcelマクロVBA入門
7.とにかく書いて見よう（Sub,End Sub）｜VBA入門
8.繰り返し処理（For Next)｜ExcelマクロVBA入門
9.定数と型宣言文字（Const）｜ExcelマクロVBA入門
10.マクロはどこに書くの（VBEの起動）｜VBA入門
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
なお、掲載のVBAコードは自己責任で使ってください。万一データ破損等の損害が発生しても責任は負いません。
