怎么能让数据重复输入时有提示

wulai8377

怎么能让Excel数据重复输入自动报警  ,我有两种方法,但是都不尽善尽美,谁有更加完美的方法共享一下啊

如怎么让A列有重复输入是报警

1. 在数据有效性里输入公式

=COUNTIF(A:A,A1)=1

此方法只对通过键盘输入的数据有效,当通过复制,粘贴时,必须先复制数据内容,然后双击单元

格,然后粘贴,才可判断出,并且有时会判断不准确!

2,通过代码实现

Sub worksheet_change(ByVal target As Range)

  Dim rng As Range

  Set rng = Range("A:A")

  If Application.WorksheetFunction.CountIf(rng, target) > 1 Then

    target.ClearContents

    MsgBox "数据在A:A中已存在"

  End If

End Sub

无论是直接复制粘贴,还是键盘输入均可判断出.但当同时选定A列意外超过1个以上的单元格删除数据是,会报错   错误13,类型不匹配.

另外
1...我想实现这样的功能,不知能实现吗?

但在A列的单元格输入时,如果单元格内的字符数连续相同超过4个时报警

如A1   中华人民共和国

  A2  中华人           '不报警
  
  A3  中国人民         '报警

能实现吗?

2...如何判断同一列内连续的数据或数值超过5个是报警

如     列           值
       A1                   2
          A2                   2  不报警
       A3                   2  不报警
       A4                   2  不报警
       A5                   2  不报警
       A6                   2  报警
或    A6                   1  不报警
       A7                   1  不报警
       A8                   1  不报警
       A9                   1  不报警
       A10                 1  不报警
       A11                 1  报警
或    A11                 1  不报警
       A12                 1  不报警
       A13                 1  不报警
       A14                 1  不报警
       A15                 1  不报警
       A16                 1  报警


谁有好方法

[ 本帖最后由 wulai8377 于 2011-3-22 09:46 编辑 ]

wulai8377

是有难度
也不至于没人应声啊

每次都要自己先顶

wulai8377

连看都没人看吗!

wulai8377

同时问一下
数据有效性判断重复是能否
提示
与哪个单元格重复

doitbest

Sub worksheet_change(ByVal target As Range)
If target.Count > 1 Then Exit Sub
  Dim rng As Range
  Set rng = Range("A:A")
  If Application.WorksheetFunction.CountIf(rng, target) > 1 Then
    target.ClearContents
    MsgBox "数据在A:A中已存在"
  End If
End Sub
4楼要求有效性做不到

wulai8377

代码错误消失
谢谢5楼

只是不明白为什么

doitbest

CountIf的条件不能是多个单元格

wulai8377

4喽的功能代码怎么实现

doitbest

Sub worksheet_change(ByVal target As Range)
If target.Count > 1 Then Exit Sub
  Dim rng As Range
  Set rng = Range("A:A")
  If Application.WorksheetFunction.CountIf(rng, target) > 1 Then
     MsgBox "数据在" & [a:a].Find(target).Address & "中已存在"
   target.ClearContents
   End If
End Sub

wulai8377

谢谢!到此
我1楼前两个问题全部解决了


我1楼的后两个问题能解决吗?