监视整个工作薄所有子表的某区域数据不重复制

杏花村牧人 · 发表于 2018-6-9 12:35

请大神帮我解决一下：

1、整个工作薄所有工作表的某列数据（比如b列），从B3：B65535 (b1:b2是表头，内容当然一样)，录入数据后，回车，执行检查：不允许与工作薄中任一工作表的这一区域有重复，包括正在录入的这张表以上的数据，总之，就像身证份，所有工作表的B3:B65535区域不能重复，发现重复时，弹出警告窗口，单击确定后，重新输入！

2、工作表不断添加，新添加的工作表，代码对其仍然有效！

3、新添加的工作表表名，可以随意填写

谢谢大家!

yf_home · 发表于 2018-6-9 14:08

关注一下，，，

ivccav · 发表于 2018-6-9 14:18

本帖最后由 ivccav 于 2018-6-9 14:58 编辑

双击下图选中的那个，

QQ图片20180609141642.png

输入如下内容（见附件）：

工作簿所有表B列不能重复，重复则处于编辑状态不准离开.zip (16.2 KB, 下载次数: 4)

sunhoh3554 · 发表于 2018-6-9 14:24

试试吧，兄dei

杏花村牧人 · 发表于 2018-6-9 14:58

sunhoh3554 发表于 2018-6-9 14:24
试试吧，兄dei

大神！太棒了！神码呀，非常好用，就是如果能提示出跟“XXX表的哪个单元格重复就好了”，谢谢！！！！楼上的ivccav兄倒是可以提示出哪个表哪个单元格重复，但他的代码好像有问题，就是附件文件里的数据不能动，一改就报错。。。。附件里的数据只是例子，是必须要修改的。。。。应该是：无任怎么改数据，只要不重复，VBA都能接受。。。。总之谢谢两位老师，再帮我完善一下吧！

ivccav · 发表于 2018-6-9 15:00

本帖最后由 ivccav 于 2018-6-9 15:13 编辑

杏花村牧人发表于 2018-6-9 14:58
大神！太棒了！神码呀，非常好用，就是如果能提示出跟“XXX表的哪个单元格重复就好了”，谢谢！！！！楼 ...

没有测试完整，不好意思。我的代码开始的时候没想到要跟自身比较。回复你之后就想到这个问题了。
已经更新了附件，没问题了。

工作簿所有表B列不能重复，重复则处于编辑状态不准离开.zip (16.2 KB, 下载次数: 2)

PS：
我看了一下，3楼的代码是有问题的。
比如复制2个以上单元格的区域，可以随便重复。
还有就是可以在中间插入行，随便输入重复值，如下图

sunhoh3554 · 发表于 2018-6-9 15:06

杏花村牧人发表于 2018-6-9 14:58
大神！太棒了！神码呀，非常好用，就是如果能提示出跟“XXX表的哪个单元格重复就好了”，谢谢！！！！楼 ...

增加了提示

ivccav · 发表于 2018-6-9 15:20

本帖最后由 ivccav 于 2018-6-9 15:27 编辑

sunhoh3554 发表于 2018-6-9 15:06
增加了提示

代码有改善的地方：比如复制2个以上单元格的区域，可以随便重复。
在中间插入空行之后，也可以输入重复值。

不要用undo，不然输入了那么多数据一下就没了。

		自动登录	找回密码
密码			免费注册

[求助] 监视整个工作薄所有子表的某区域数据不重复制