VBA代码帮忙

walter1728

各位老师好！祝大家龙年工作顺利，身体健康，万事顺遂！
下列代码运行时，检查  是否有重复数据 和声音报警和提示框等 的那一段不起作用，不知为何。请老师帮忙看看，问题出在何处。谢谢！

ykcbf1100

上个附件吧，没有附件光看代码并不一定能找到问题所在。

walter1728

草爷您好，请参看附件，非常感谢！

walter1728

ykcbf1100 发表于 2024-2-20 16:57
上个附件吧，没有附件光看代码并不一定能找到问题所在。

草爷您好！附件已上传，麻烦看一下，谢谢！

ykcbf1100

walter1728 发表于 2024-2-20 17:11
草爷您好！附件已上传，麻烦看一下，谢谢！

我不一定会，但一定有老师会。

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Column <> 2 Then Exit Sub
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     r = Me.Cells(Rows.Count, 2).End(3).Row
   
5.     arr = Me.Range("b1:b" & r)
   
6.     Application.EnableEvents = False  '禁用事件处理程序
   
7.     For i = 2 To UBound(arr)
   
8.         s = arr(i, 1)
   
9.         If Not d.exists(s) Then
   
10.             d(s) = Me.Cells(i, 2).Address
    
11.             If IsEmpty(Me.Cells(i, 4)) Then
    
12.                 Me.Cells(4, 4) = Date
    
13.             End If
    
14.         Else
    
15.             Beep '发出声音报警
    
16.             MsgBox "序列号已存在，请重新输入"
    
17.             Me.Cells(i, 2).Resize(1, 3).ClearContents '清除重复数据
    
18.         End If
    
19.     Next
    
20.     Application.EnableEvents = True  '启用事件处理程序
    
21. End Sub
    
22. 
    

复制代码

micch

用字典判断是否重复，需要先把数据存入字典，字典是空的，就不会执行重复那部分

walter1728

micch 发表于 2024-2-20 19:01
用字典判断是否重复，需要先把数据存入字典，字典是空的，就不会执行重复那部分

非常感谢！

walter1728

ykcbf1100 发表于 2024-2-20 18:23
参与一下。。。

非常感谢，我试了一下，弹出的重复框一直循环。不知为何