|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
用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的后面处,最后清空本页单元。这样就保存了输入的数字,完成一张表单的输入。
|
|