如何用VBA做凭证输入界面

lzpdfdn

用EXCEL做软件，比价难得是输入界面
下面是添加记录的宏
Sub 添加新纪录()
Sheets("凭证界面").Select
    Range("A5:H14").Select
    Range("A14").Activate
    Selection.Copy
    Sheets("凭证库").Select
    Range("pzk[[#Headers],[凭证id]]").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("pzk[[#Headers],[id]]").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   Range("pzk[[#Headers],[凭证id]]").Select
    ActiveSheet.ListObjects("pzk").Range.AutoFilter Field:=3, Criteria1:="", _
        Operator:=xlAnd
    Application.Goto Reference:="pzk[#Data]"
    Application.CutCopyMode = False
    Selection.EntireRow.Delete
    Range("pzk[[#Headers],[科目代码]]").Select
    ActiveSheet.ShowAllData
    Sheets("凭证界面").Select
    Range("B5:B14").Select
    Selection.ClearContents
    Range("C5:C14").Select
    Selection.ClearContents
    Range("F5:H14").Select
    Selection.ClearContents
    'Range("D2").Select
    'Selection.ClearContents
    Range("H2").Select
    Selection.ClearContents
    Range("B5").Select

End Sub
基本原理就是把A5到H14的表格内用拷贝到另外一张表PZK的后面处，最后清空本页单元。这样就保存了输入的数字，完成一张表单的输入。

笑着...两年过去

1. sub test()
   
2.       i=range("c4").end(xldown).row
   
3.       j=sheets("PZK").range("A65536").end(xlUP).row
   
4.       range("a5:i" & i).copy sheets("PZK").range("a" & j)
   
5. end sub

复制代码

笑着...两年过去

都没看见PZK这张表找啥样，只能这么猜猜了

求助的时候，最好上传一下附件