エクセルVBAでの選択をテスト
エクセルVBAでこのプログラムは、Countプロパティ、IsNumeric関数機能、のisEmpty機能と選択をテストするように交差方法を使用しています。
状況：
ワークシート上のコマンドボタンを配置し、次のコード行を追加します。
1.まず、我々は2つの範囲オブジェクトを宣言します。私たちは、レンジRNGとセルオブジェクトを呼び出します。
Dim rng As Range, cell As Range
（「：D10 C4」）と選択された範囲でのRangeオブジェクトのセル2.当社は、レンジを持つRangeオブジェクトのRNGを初期化します。
Set rng = Range("C4:D10")
Set cell = Selection
次のコード行を追加します。3.：
If cell.Count = 1 And IsNumeric(cell) And Not IsEmpty(cell) And Not Intersect(rng, cell) Is Nothing Then MsgBox "You win" Else MsgBox "You lose" End If
説明交点 ：交差（RNG、セル）リンクを表すRangeオブジェクトを返します。この範囲のオブジェクトが何もない場合、単一の数（最初の3つの条件が）ボーダー範囲内です。
4.テストプログラム。
あなたは境の範囲内の単一の番号を選択した場合のみ、結果は次のようになります。
他のすべてのケースでは、結果は次のようになります。
