[已解决]重复问题2

fangniuji

我每天需要将出货数据表输入完成后，按一下“出货数据输入”按钮，数据即复制到登记簿里，有时点击两下确认按钮，数据就会

复制两次，从而造成汇总数据出错，怎样在VBA里添加代码，使数据不能重复。谢谢了！！可以参考这个帖子的思路http://www.excelpx.com/thread-326936-1-1.html  谢谢 因为输入表格不一样。我不会改。

最佳答案

月排行榜 / 总排行榜

grf1973

2014-6-20 09:05

.......................

跳转到最佳答案楼层

fangniuji

参考这个帖子的思路http://www.excelpx.com/thread-326936-1-1.html

cbg2008

在过程的第1行插入判断，条件你可以根据实际情况修改，目前是判断输入日期有没有这个客户的记录，有就提示后再运行。

1.     With Sheets("登记簿")
   
2.         If WorksheetFunction.CountIfs(.Range("B:B"), Range("A3"), .Range("C:C"), Range("B3")) > 0 Then
   
3.             result = VBA.MsgBox("在登记簿表中已经有相同日期相同客户的数据记录，" & vbCrLf & "是否继续添加？", vbOKCancel, "提示")
   
4.             If result <> vbOK Then
   
5.                 End
   
6.             End If
   
7.         End If
   
8.     End With
   

复制代码

fangniuji

cbg2008 发表于 2014-6-19 13:10
在过程的第1行插入判断，条件你可以根据实际情况修改，目前是判断输入日期有没有这个客户的记录，有就提示后 ...

老师：能不能参考哪个帖子，谢谢。

grf1973

.......................