求助 订单批号不可重复录入

刘现军0221

各位大神帮忙看下 代码应该怎么该订单批号不可重复录入 重复录入时提示弹窗



Private Sub CommandButton2_Click() '保存
If 日期.Text = "" Then
    MsgBox "日期不能为空!", 48, "提示"
    日期.SetFocus
        ElseIf 订单批号.Text = "" Then
         MsgBox "订单批号不能为空!", 48, "提示"
订单批号.SetFocus
            ElseIf 产品名称 = "" Then
            MsgBox "产品名称不能为空！", 48, "提示"
产品名称.SetFocus
Else

With Sheet1.Range("A65536").End(xlUp)
.Offset(1, 0) = 日期.Text
.Offset(1, 1) = 订单批号.Text
.Offset(1, 2) = 产品名称.Text
.Offset(1, 3) = 封装形式.Text
.Offset(1, 4) = 芯片型号.Text
.Offset(1, 5) = 胶水.Text
.Offset(1, 6) = 线材.Text
.Offset(1, 7) = 塑封料.Text
.Offset(1, 8) = biezhu.Text
End With

MsgBox ("订单批号完成!")

End If

End Sub

3190496160

上传附件才可能测试代码，最起码要知道你的订单批号是在哪个工作表的哪一列，这一列是从那一行开始录入数据的

excel玉米

将已有的订单批号写入字典，新批号与字典进行判断，字典已有该批号则弹窗提示。

刘现军0221

3190496160 发表于 2023-9-16 09:21
上传附件才可能测试代码，最起码要知道你的订单批号是在哪个工作表的哪一列，这一列是从那一行开始录入数据 ...

已经上传 劳驾大神给看看

3190496160

3190496160

求助.rar (19.55 KB, 下载次数: 3)

2023-9-17 10:39 上传

点击文件名下载附件

刘现军0221

3190496160 发表于 2023-9-17 10:39

  感谢大神

刘现军0221

3190496160 发表于 2023-9-17 10:38

大神帮忙看下这个吧

刘现军0221

3190496160 发表于 2023-9-16 09:21
上传附件才可能测试代码，最起码要知道你的订单批号是在哪个工作表的哪一列，这一列是从那一行开始录入数据 ...

点击批号查询 通过小批次号.Text  查询 Sheet5表里面的数据 还想增加另外一个条件 批号.Text 查找Sheet1里面的数据 代码中
Function TextToRang(RW As Integer)
    With Sheet5
        小批次号.Text = .Range("B" & RW)
        产品名称.Text = .Range("C" & RW)
        封装形式.Text = .Range("D" & RW)
        接收条数.Text = .Range("H" & RW)
        接收数量.Text = .Range("K" & RW)
        End With
   With Sheet2
   MAK码.Text = .Range("M" & RW)
   End With
   With Sheet1
   线材.Text = .Range("j" & RW)
   LF数量.Text = .Range("F" & RW)   
    End With
End Function
大神帮忙看一下怎么实现。感谢！!!

刘现军0221

3190496160 发表于 2023-9-17 10:38

大神  感谢您上次帮忙解决的问题 目前有个新的问题帮忙看一下吧谢谢您！！