求助代码

dcy44933

想做个收款收据套打模版，恳求大师写个代码，谢谢！！

于箱长

咋不去VBA版块求助呢

dcy44933

于箱长 发表于 2022-11-26 10:53
咋不去VBA版块求助呢

谢谢提醒，已去VBA版块求助了。

于箱长

于箱长

dcy44933 发表于 2022-11-26 11:10
谢谢提醒，已去VBA版块求助了。

先把这一行删除，再执行

3190496160

Sub 打印保存()
With Sheets("收据")
    rq = CDate(.[e1] & "/" & .[f1] & "/" & .[h1])
    ar = Array(rq, .[b2], .[k3], .[m1])
    With Sheets("收款记录")
        r = .UsedRange.Find(What:="*", SearchDirection:=xlPrevious).Row + 1
        .Cells(r, 1).Resize(1, 4) = ar
    End With
    .[e1] = ""
    .[f1] = ""
    .[h1] = ""
    .[b2] = ""
    .[k3] = ""
    .[m1] = ""
End With
MsgBox "ok!"
End Sub

3190496160

收据打印.rar (19.85 KB, 下载次数: 27)

2022-11-26 11:34 上传

点击文件名下载附件

dcy44933

3190496160 发表于 2022-11-26 11:34

谢谢老师！但我测试了，上面提示运行时错误“13”  类型不匹配。怎么解决？

3190496160

dcy44933 发表于 2022-11-26 14:40
谢谢老师！但我测试了，上面提示运行时错误“13”  类型不匹配。怎么解决？

类型不匹配，一定是出在这句代码
rq = CDate(.[e1] & "/" & .[f1] & "/" & .[h1])
原因就是年月日三个单元格输入不完整，
没有测试好的代码是不会给你的

dcy44933

3190496160 发表于 2022-11-26 14:57
类型不匹配，一定是出在这句代码
rq = CDate(.[e1] & "/" & .[f1] & "/" & .[h1])
原因就是年月日三个 ...

现在行了，是我输入不完整，谢谢老师！但我想年、月单元格数字不清除，还有收据号单元格M1的号码也不清楚，只是每打印一次号码增加一，还保留在M1单元格里，麻烦老师再帮我改一下。