[Excel VBA] 任意のセルが、指定したセル範囲にあるか調べる(Application.Intersect メソッド
公開日：
:
最終更新日：2015/07/10
カテゴリ: 03-5_ExcelVBA_メモ・小技集
タグ: Application.Intersect メソッド, Excel VBA, メソッド
動作確認環境
Windows7
Excel: 2007
構文
|
1 2 |
式.Intersect(Arg1, Arg2, Arg3, ・・・略・・・, Arg30) |
式: Application オブジェクト
<戻り値>
Range
複数のセル範囲の共有セル範囲を表す
| Arg1 | Range型、必須 範囲その1 |
| Arg2 | Range型、必須 範囲その2 |
| Arg3・・・Arg30 | Variant型、省略可能 範囲その3・・・範囲その30 |
メモ
N/A
サンプルコード
Application.Intersect メソッドの例
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
Option Explicit Sub Intersect_Test01() Range("B6:D6").Interior.ColorIndex = 4 '列に色を付ける Range("C3:C9").Interior.ColorIndex = 6 '行に色を付ける Range("F6:I7").Interior.ColorIndex = 4 '列に色を付ける Range("G3:H9").Interior.ColorIndex = 6 '行に色を付ける ' MsgBox "Application.Intersect(Range(""B6:D6""), Range(""C3:C9""))の結果に色を付ける。" Application.Intersect(Range("B6:D6"), Range("C3:C9")).Interior.ColorIndex = 5 MsgBox Application.Intersect(Range("B6:D6"), Range("C3:C9")).Address Application.Intersect(Range("F6:I7"), Range("G3:H9")).Interior.ColorIndex = 5 MsgBox Application.Intersect(Range("F6:I7"), Range("G3:H9")).Address End Sub |
課題
3つ目以降のパラメタの使い方・・・
サンプルファイル
Intersect_test_20150227.xlsm [エクセルファイル]
参考
広告
関連記事
-
-
[Excel VBA] ワークシートの変更を検知する (Worksheet.Change イベント)
動作確認環境 Windows7 Excel: 2007 構文 式:Workshee
-
-
[Excel VBA] セルの行列番号、参照範囲(アドレス)を取得する(Range.Address プロパティ) – Excel VBA
動作確認環境 Windows7 Excel: 2007 構文 対象範囲: Rang
-
-
[Excal VBA] セルを挿入する。 – Range.Insert メソッド-
動作確認環境 Windows7 Excel: 2007, 2013 説明 指定された範囲
-
-
実行中のマクロを中断する – Excel VBA
動作確認環境 Windows7 Excel: 2007 手順 Ctrl + Pause
-
-
[Excal VBA] セルをアクティブにする。 – Range.Activate メソッド-
動作確認環境 Windows7 Excel: 2007, 2013 説明 1つのセルをア
-
-
[Excel VBA] 改ページプレビュー、ノーマルビュー(標準)、ページレイアウト表示を切り替える -Window.Viewプロパティ-
動作確認環境 Windows7 Excel: 2007、2013 説明 ウィンドウに表示
-
-
[Excal VBA] セルに値を入れる – Range.Value プロパティ-
動作確認環境 Windows7 Excel: 2007 説明 セルに値をいれます。
-
-
[Excal VBA] オートフィルターを使ってリストにフィルターをかけます。 – Range.AutoFilter メソッド-
動作確認環境 Windows7 Excel: 2007, 2013 説明 オートフィルタ
-
-
[Excel VBA] メッセージボックスを使う
動作確認環境 Windows10 Excel: 2016 説明 メッセージボックスを使う