[已解决]不能区分大小写

张雄友

不能区分大小写?

1. Private Sub Worksheet_Change(ByVal Target As Range) '不能区分大小写的?如输入小写f，都说重复，怎么修改可以区分大小写？？？
   
2. If Target.Column = 1 Then
   
3.   If Target.Value <> "" And Application.CountIf(Columns(1), Target.Value) > 1 Then
   
4.     MsgBox "请不要重复录入"
   
5.     Application.Undo
   
6.    End If
   
7. End If
   
8. End Sub
   
9. 
   

复制代码

最佳答案

月排行榜 / 总排行榜

上清宫主

2014-1-5 11:02

只改了内层条件，外面的没管
If Target.Value <> "" Then
     Application.EnableEvents = 0
     tmp = Target.Value
     Target = ""
     If Range("A:A").Find(tmp, , , , , , 1) Is Nothing Then
         Target = tmp
    Else
         MsgBox "请不要重复录入"
         Application.Undo
    End If
    Application.EnableEvents = 1
   End If

跳转到最佳答案楼层

上清宫主

用find吧。countif本来就不区分大小写

张雄友

上清宫主 发表于 2014-1-5 10:38
用find吧。countif本来就不区分大小写

宫主明示，不会。

上清宫主

只改了内层条件，外面的没管
If Target.Value <> "" Then
     Application.EnableEvents = 0
     tmp = Target.Value
     Target = ""
     If Range("A:A").Find(tmp, , , , , , 1) Is Nothing Then
         Target = tmp
    Else
         MsgBox "请不要重复录入"
         Application.Undo
    End If
    Application.EnableEvents = 1
   End If

yyyydddd8888

还可以这样：

控制重复录入.rar (8.74 KB, 下载次数: 10)

2014-1-5 11:54 上传

点击文件名下载附件

1. Private Sub Worksheet_Change(ByVal Target As Range) '不能区分大小写的?如输入小写f，都说重复，怎么修改可以区分大小写？？？
   
2. Dim arr, ST$
   
3. Application.EnableEvents = False
   
4. If Target.Count > 1 Then Exit Sub
   
5. If Target.Column = 1 Then
   
6.   If Target.Value <> "" Then
   
7.      arr = Application.Transpose(Range("a1:a" & Range("A" & Rows.Count).End(3).Row))
   
8.      ST = Join(arr, "")
   
9.      If InStr(ST, Target.Value) <> InStrRev(ST, Target.Value) Then
   
10.        MsgBox "请不要重复录入"
    
11.        Application.Undo
    
12.      End If
    
13.    End If
    
14. End If
    
15. Application.EnableEvents = True
    
16. End Sub
    

复制代码