按钮自动写入记录

世空

需求说明：在“入录表”中填写好数据后，点击一下按键，该条数据自动追加一条记录到另一张表“票据台账”表里。 两张表相同的字段名已标黄色底。

3190496160

Sub 录入()
With Sheets("收票信息录入表")
    ar = .Range("b1:b15")
    br = .Range("b16:b20")
End With
With Sheets("收票台账")
    r = .Cells(Rows.Count, 1).End(xlUp).Row + 1
    .Cells(r, 1).Resize(1, UBound(ar)) = Application.Transpose(ar)
    .Cells(r, 18).Resize(1, UBound(br)) = Application.Transpose(br)
End With
MsgBox "ok!"
End Sub

3190496160

应收票据台账777.rar (28.86 KB, 下载次数: 19)

2023-1-15 08:52 上传

点击文件名下载附件

3190496160

建议，是否计算资金成本 改为下拉菜单

世空

3190496160 发表于 2023-1-15 08:53
建议，是否计算资金成本 改为下拉菜单

谢谢您的建议，已经改成下拉菜单：是与否。

世空

3190496160 发表于 2023-1-15 08:51
Sub 录入()
With Sheets("收票信息录入表")
    ar = .Range("b1:b15")

代码执行有效，非常感谢！