测试在Excel VBA中选择
此程序在Excel VBA使用Count属性，IsNumeric函数，IsEmpty函数和相交的方法来测试的选择。
现状：
将工作表上的一个命令按钮并添加以下代码行：
1.首先，我们声明两个Range对象。我们呼吁Range对象RNG以及细胞。
Dim rng As Range, cell As Range
2.我们初始化范围Range对象RNG（“C4：D10”），并与所选择的范围中的范围对象细胞。
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对象：两个范围的/ VBA的例子工会相交[相交]`。如果此范围对象不是Nothing，单数（前三个条件）是在边界范围内。
4.测试程序。
只有当你在边界范围内选择一个数字，结果将是：
在其他情况下，结果将是：
