如何使VBA允许用户只在指定的单元格或单元格区域中输入数字

一般我们可以使用Excel的“数据校验”功能，设置在指定的单元格或单元格区域只能输入指定范围内的整数或小数，如下图1所示。

图1

设置后，在C2单元格中只能输入1到100之间的整数，如下图2所示。

图2。

其实VBA也可以实现以上功能，更加灵活强大。例如，我们希望限制用户只在单元格区域B2:D6中输入数字。在VBE中，双击单元格区域所在的工作表模块，输入如下代码：

私有子工作表_更改(按值目标作为范围)

调光范围

申请。启用事件=假

对于目标中的每个rng

限制程序在单元区B2:D6执行。

如果不是应用程序。相交(rng，Range("B2:D6 "))无则

判断是否是数字。

如果不是数字，则为空。

如果不是数字。值)然后

rng。Value=vbNullString

如果…就会结束

如果…就会结束

下一个rng

申请。启用事件=真

末端接头

这样，在工作表的单元格区域B2:D6中，如果输入的是非数字，则会自动清除。并且，该单元格区域可以用整数或小数输入。