VBA使用收款单录入

xue722905

我想在sheet1，页面中把 供货单位、地址、采购说明、出库单号、出库日期、以及从产品名称到备注2录入到sheet2
每次录入时候，保存后清除sheet1中的内容，但是不清除公式和格式。

3190496160

Sub 录入()
Dim rn As Range
dw = [e7]
dz = [e8]
sm = [e9]
dh = [k7]
rq = [k8]
r = Cells(Rows.Count, 4).End(xlUp).Row
If r < 12 Then MsgBox "单据为空，请先录入数据！": End
rr = Array(dw, dz, sm, dh, rq)
ar = Range("d12:k" & r)
With Sheets("sheet2")
    rs = .Cells(Rows.Count, 2).End(xlUp).Row + 1
    Set rn = .Range("d1:d" & rs).Find(dh, , , , , , 1)
    If Not rn Is Nothing Then MsgBox "不能重复录入！": End
    .Cells(rs, 1).Resize(UBound(ar), 5) = rr
    .Cells(rs, 6).Resize(UBound(ar), UBound(ar, 2)) = ar
End With
MsgBox "ok!"
End Sub

3190496160

demo.rar (12.93 KB, 下载次数: 16)

2024-2-29 20:33 上传

点击文件名下载附件

xue722905

谢谢大神，但是重复录入判断依据是什么？因为我可能第一次录入和第二次录入可能会有重复的内容

xue722905

弄明白了。是根据入库单号判断的