录入数据如何查重判断

宇落water

保存窗体中的数据到表格，

如果excel 表中已有数据与当前需要录入的日期和姓名不重复，则录入数据；否则提示“数据重复，请确认是否需要覆盖”，若选择是，直接覆盖重复数据，若选择否，则结束程序，重复的行获得focus

Manrce

思路：
1、点击保存时，读取三个文本框的内容，如textbox1.value
2、根据textbox中的内容，跑循环查找有无重复值即可
3、如果三个值都重复就弹出msgbox， vbyesno 或者vbokcancel等
4、通过msgbox的选项进行覆盖或者结束程序

涉及的都是基础知识并不难，建议自己边学习边写  

网海遨游

修改了,在9楼.

3190496160

Private Sub CommandButton1_Click()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
ar = ActiveSheet.[a1].CurrentRegion
For i = 2 To UBound(ar)
    If Trim(ar(i, 1)) <> "" And Trim(ar(i, 2)) <> "" Then
        d(Trim(ar(i, 1)) & "|" & Trim(ar(i, 2))) = i
    End If
Next i
ar = Array(TextBox1.Text, TextBox2.Text, TextBox3.Text)
s = TextBox1.Text & "|" & TextBox2.Text
ws = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
If d.exists(s) Then
    p = MsgBox("数据重复，是否覆盖？", vbYesNo)
    If p = vbNo Then Exit Sub
    m = d(s)
     ActiveSheet.Cells(m, 1).Resize(1, 3) = ar
Else
   ActiveSheet.Cells(ws, 1).Resize(1, 3) = ar
End If
End Sub

3190496160

步数.rar (19.13 KB, 下载次数: 8)

2020-2-18 14:48 上传

点击文件名下载附件

liulang0808

1. Private Sub CommandButton1_Click()
   
2.     If Len(TextBox1.Text) * Len(TextBox2.Text) = 0 Then
   
3.         MsgBox "请完善数据再提交"
   
4.         Exit Sub
   
5.     End If
   
6.     arr = Sheets(1).UsedRange
   
7.     For j = 2 To UBound(arr)
   
8.         If arr(j, 2) = TextBox2.Text And CDate(arr(j, 1)) = CDate(TextBox1.Text) Then
   
9.             a = MsgBox("数据重复，是否覆盖？", vbYesNo)
   
10.             If a = vbYes Then
    
11.                 Cells(j, 3) = TextBox3.Text
    
12.             End If
    
13.             Exit Sub
    
14.         End If
    
15.     Next j
    
16.     r = UBound(arr) + 1
    
17.     Cells(r, 1) = TextBox1.Text
    
18.     Cells(r, 2) = TextBox2.Text
    
19.     Cells(r, 3) = TextBox3.Text
    
20. End Sub
    

复制代码

liulang0808

附件内容供参考。。。。。。

蓝桥玄霜

去重判断的例子：

网海遨游

修改下,解决有重复数据覆盖问题.

宇落water

liulang0808 发表于 2020-2-18 14:51
附件内容供参考。。。。。。

谢谢，根据您的指导，完美解决了我的问题