[分享]防止录入重复数据（已解决粘贴问题9月4日更新）

兰色幻想 · 发表于 2004-9-3 08:37

数据有效性对粘贴无效，用VBA编的也只能控制单个单元格粘贴，该怎样解决呢？

jinghuam · 发表于 2004-9-3 10:43

高手，你做的用VBA做的控制两个工作表之间数据不能重复的文件，我下载下来后点工作表的标签再点查看代码，没有代码显示啊？我想看看你的精髓啊

兰色幻想 · 发表于 2004-9-3 11:18

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) On Error Resume Next B = Application.WorksheetFunction.CountIf(Sheets("sheet1").Range("A1:A100"), Target) A = Application.WorksheetFunction.CountIf(Sheets("sheet2").Range("A1:A100"), Target) If A + B > 1 Then MsgBox "出现重复数据" Target = "" End If End Sub

兰色幻想 · 发表于 2004-9-4 10:10

VBA控制重复录入中控制多单元格粘贴重复数据已实现，代码由网友“老刀”改进，文件在一楼已更新。

playgirl · 发表于 2004-9-30 10:39

请问zzzz_11253，一楼那个用VBA做的是如何做的，怎么窗体中没有代码，我自己做了一下，在VBA中也插入一个窗体，再插入一个模板，把你的代码复制进去，可还是不行。

ERrl5xXS.rar (5.79 KB, 下载次数: 30)

[此贴子已经被作者于2004-9-30 10:41:01编辑过]

兰色幻想 · 发表于 2004-9-30 11:30

你的代码粘错位置了，点击工程下而的THISWORKBOOK，在右面的代码框中粘贴代码

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) On Error Resume Next B = Application.WorksheetFunction.CountIf(Sheets("sheet1").Range("A1:A100"), Target) A = Application.WorksheetFunction.CountIf(Sheets("sheet2").Range("A1:A100"), Target) If A + B > 1 Then MsgBox "出现重复数据" Target = "" End If End Sub

zz5151353 · 发表于 2004-9-30 14:06

真是学无止境,再次感谢1楼楼主分享好东西.

yigepure · 发表于 2004-10-7 19:23

兰老师.你的thisworkbook与sheet2的代码有什么差别.

只用sheet2中的代码就可以了吧.thisworkbook中的代码又是为什么要加.

请指教

[此贴子已经被作者于2004-10-7 19:24:49编辑过]

兰色幻想 · 发表于 2004-10-7 20:02

以下是引用yigepure在2004-10-7 19:23:00的发言：

兰老师.你的thisworkbook与sheet2的代码有什么差别.

只用sheet2中的代码就可以了吧.thisworkbook中的代码又是为什么要加.

请指教

本例二者取任一都可以

zhang81524 · 发表于 2004-10-8 19:42

楼主的第一个第二个文件是可以输入重复值的,

你输入1个数,任意的如1

在下一格CTRL+D,就输入了重复值,而且不会提示,如果你A1:A10,分别为1-10,在A1,双击单元格右下角,就自动将A1:A10全部填为1,这么多重复,也不会提示,

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