[已解决]自动保存递增另一工作表

FSPTSD

设计“入园登记表”按钮保存，“档案”会自动保存递增。如收据---清单

最佳答案

月排行榜 / 总排行榜

grf1973

2014-9-26 10:31

请看附件。当然如果要想多一点，得考虑通过姓名或身份证判断档案纪录是否已存在的问题。

跳转到最佳答案楼层

grf1973

1. Sub 保存()
   
2.     With Sheets("档案")
   
3.         r = .[a65536].End(3).Row + 1
   
4.         .Cells(r, 1).Resize(1, 15) = Array([c5], [f6], [e5], [g5], [c6], [e7], [g7], [c7], [c10], [g10], [e10], [c11], [f13], [h13], [e11])
   
5.     End With
   
6. End Sub

复制代码

grf1973

请看附件。当然如果要想多一点，得考虑通过姓名或身份证判断档案纪录是否已存在的问题。