[已解决]change 事件无法停止

喝酒派掌门

大师们，为了禁止重复输入出错，我参照别人的格式写了一段代码思路是：
如果重复输入，弹出提醒框提醒；
将输入内容清空，并跳转到重复内容的表格。


现在问题来了：输入一次重复后，引发了事件，再输入任何内容，包括与A列中午任何重复的内容都报错，根本停不下来。只有将代码删掉才能正常。

我到底哪儿出错了？望大师们解惑帮助修改。
如果同一个表格，几个列都设置类似的出错提醒，应该怎么改呢？

拜托大家，谢谢！

最佳答案

月排行榜 / 总排行榜

pengyx

2016-8-25 21:42

喝酒派掌门 发表于 2016-8-25 20:21

Private Sub Worksheet_Change(ByVal Target As Range)
Set cl = Sheets("开票信息").Range("a" & Rows.Count).End(3)
If Target = cl Then
    For i = 2 To cl.Row-1
        If Target.Value = Cells(i, 1) Then
            s = i
            Exit For
        End If
    Next
    If s <> 0 Then
        MsgBox "客户信息已存在，请核实后输入,位于第" & s & "行"
        cl.ClearContents
        Range("a" & s).Select
    End If
End If
End Sub

跳转到最佳答案楼层

喝酒派掌门

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.      Dim arr, i%, j%
   
3.      
   
4.      i = Sheets("开票资料").Range("A65536").End(xlUp).Row
   
5.      arr = Sheets("开票资料").Range("A1:A" & i)
   
6.       With Target
   
7.          If .Column <> 1 Or .Count > 1 Then Exit Sub
   
8.          If Target.Column = 1 Then
   
9.         For j = 1 To i
   
10.           If Target.Value = arr(j, 1) Then
    
11.              MsgBox "客户信息已存在，请核对更改"
    
12.              Application.EnableEvents = False
    
13.              Target.Value = ""
    
14.              Application.EnableEvents = True
    
15.              Cells(j, 1).Select
    
16.           End If
    
17.          
    
18.           Next
    
19.       End If
    
20.       End With

复制代码

su45

原来是这样呀，这个变动事件其实对表格使用很有影响的，这种提示重复的事，还是用条件格式吧

qlh1978

把  For j = 1 To i  ，改为 For j = 1 To i-1 就行了

pengyx

喝酒派掌门 发表于 2016-8-25 20:21

Private Sub Worksheet_Change(ByVal Target As Range)
Set cl = Sheets("开票信息").Range("a" & Rows.Count).End(3)
If Target = cl Then
    For i = 2 To cl.Row-1
        If Target.Value = Cells(i, 1) Then
            s = i
            Exit For
        End If
    Next
    If s <> 0 Then
        MsgBox "客户信息已存在，请核实后输入,位于第" & s & "行"
        cl.ClearContents
        Range("a" & s).Select
    End If
End If
End Sub