如何用VBA保存历史记录

ugyun

各位老师：
       如何用VBA实现：将本表的填充颜色区域的数据保存到“历史明细”表中，本表的数据行是不确定的内容保持连续的行，“历史明细”中的付款日期为当天日期。

如果历史明细表中已有对应的记录（即收款账号名称、账号、开户行、金额和用途都一样的）最好给出提示是否保存



如何保存历史记录.rar (28.11 KB, 下载次数: 35)

2013-7-11 10:19 上传

点击文件名下载附件

ugyun

希望能得到老师们的帮助，先谢谢了！

bluexuemei

付款日期        收款账号名称        收款账号        收款账号开户行        金额        汇款用途
这几列都要填写吗？

xuexi2xuexi

1. Sub SaveData()
   
2. Dim Ar, Br, Cr(), i%, n%, k%, m%, D
   
3. n = Cells(Rows.Count, 3).End(xlUp).Row
   
4. If n = 1 Then
   
5.     MsgBox "没有要保存的数据！"
   
6.     Exit Sub
   
7. End If
   
8. Ar = Range("c2:m" & n)
   
9. Set D = CreateObject("scripting.dictionary")
   
10. With Sheets("历史明细")
    
11.     n = .Cells(Rows.Count, 2).End(xlUp).Row
    
12.     If n > 1 Then
    
13.         Br = .Range("b2:f" & n)
    
14.         For k = 1 To n - 1
    
15.             D(Br(k, 1) & Br(k, 2) & Br(k, 3) & Br(k, 4) & Br(k, 5)) = ""
    
16.         Next
    
17.     End If
    
18. End With
    
19. ReDim Cr(1 To UBound(Ar), 1 To 6)
    
20. For k = 1 To UBound(Ar)
    
21.     If D.exists(Ar(k, 3) & Ar(k, 2) & Ar(k, 4) & Ar(k, 1) & Ar(k, 11)) Then
    
22.         If MsgBox("第" & k + 1 & "行数据已经存在，是否继续保存？", vbYesNo, "请确认") = vbNo Then GoTo Newline
    
23.     End If
    
24.     m = m + 1
    
25.     Cr(m, 1) = Date: Cr(m, 2) = Ar(k, 3): Cr(m, 3) = Ar(k, 2): Cr(m, 4) = Ar(k, 4): Cr(m, 5) = Ar(k, 1): Cr(m, 6) = Ar(k, 11)
    
26. Newline:
    
27. Next
    
28. If m > 0 Then
    
29.     Sheets("历史明细").Range("a" & n + 1).Resize(m, 6) = Cr
    
30.     MsgBox "数据保存完毕!"
    
31. End If
    
32. End Sub

复制代码

lcjy11185

做个记号，不错，学习

ugyun

bluexuemei 发表于 2013-7-11 13:12
付款日期        收款账号名称        收款账号        收款账号开户行        金额        汇款用途
这几列都要填写吗？

是的，老师，就是把制单中的相关列保存到“历史明细”表中，付款日期在“制单”中没有，就把保存时间作为付款日期即可

ugyun

xuexi2xuexi 发表于 2013-7-11 15:24

老师：
If MsgBox("第" & k + 1 & "行数据已经存在，是否继续保存？", vbYesNo, "请确认") = vbNo Then GoTo Newline
这一行改成“是，否，取消”三个选项该怎么修改呀？

xuexi2xuexi

ugyun 发表于 2013-7-15 18:43
老师：
If MsgBox("第" & k + 1 & "行数据已经存在，是否继续保存？", vbYesNo, "请确认") = vbNo Then  ...

If MsgBox("第" & k + 1 & "行数据已经存在，是否继续保存？", vbYesNoCancel, "请确认") = vbNo Then GoTo Newline

ugyun

xuexi2xuexi 发表于 2013-7-16 11:02
If MsgBox("第" & k + 1 & "行数据已经存在，是否继续保存？", vbYesNoCancel, "请确认") = vbNo Then Go ...

不好意思，是我没表达清楚，变成三个选项后，若选“是”，则保存记录，若选“否”，则不保存记录，若选“取消”，则退出

xuexi2xuexi

ugyun 发表于 2013-7-16 13:44
不好意思，是我没表达清楚，变成三个选项后，若选“是”，则保存记录，若选“否”，则不保存记录，若选“ ...

已按要求作了修改，请看附件