发布日期：2024-07-22 04:37    点击次数：135

代码解析工作表的change事件过程，使a列单元格只能录入唯一的人员编号。

·第4行代码：使用工作表的Countlf函数来判断在a列单元格输入的人员编号是否重复。工作表的Countlf函数计算区域中满足给定条件的单元格的个数。语法如下：Application.EnobleEvents=True参数range，为需要计算其中满足条件的单元格数目的单元格区域参数criteria。未确定哪些单元格将被计算在内的条件，其形式可以为数字表达式单元格引用或文本。

图片

在事例中依所录入的人员编号与a列单元格区域进行比较。如果Countlf函数的返回值大于一，说明录入的是重复编号。

·第5行代码：重新选择该单元格，便于下一步清空后重新录入。

·第7、8、9行代码：清除录入的重复编号。在清除前将application对象的EnableEventst属性设置为False。因为如果不禁用事件，那么在清除重复值的过程中会不断地触发工作表的change事件，从而造成代码运行的死循环。

图片

经过以上的设置，在工作表的a列中只能录入唯一的人员编号。如果录入重复值会进行提示。

本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。