Excel VBA中的该程序使用Count属性，IsNumeric函数，IsEmpty函数和Intersect方法来测试选择。
情况：
在您的工作表上放置一个命令按钮，并添加以下代码行：
1.首先，我们声明两个Range对象。我们将Range对象称为rng和cell。
昏暗的 RNG 作为范围，电池作为范围
2.我们使用Range（“ C4：D10”）初始化Range对象rng，并使用所选范围初始化Range对象单元格。
设置 rng = Range（“ C4：D10”）
设置单元格=选择
设置单元格=选择
3.添加以下代码行：
如果 cell.Count = 1 和则IsNumeric（小区）和 不为IsEmpty（小区）和 不相交（RNG，细胞）是 没有 那么
MSGBOX“你赢了”
否则
MSGBOX“你输”
结束 。如果
MSGBOX“你赢了”
否则
MSGBOX“你输”
结束 。如果
说明：Intersect（rng，cell）返回一个Range对象，该对象表示两个范围的交集。如果此范围对象不是Nothing，则单个数字（前三个条件）在带边框的范围内。
4.测试程序。
仅当您在边框范围内选择一个数字时，结果才是：
在所有其他情况下，结果将是：
