编了个自动打印录入小程序调试时出现属性的使用无效是哪里错了，恳请哪个大神给看一下

qiufeng8848 · 发表于 2024-7-21 18:37

Sub 开票录入()
Dim rng1 As Range, rng2 As Range
Range Sheets("打印收据").Range([r6], [z6].End(xlDown)).Copy
Range Sheets("业务明细").Cells(Rows.Count, "a1").End(xlUp)(2, 1)
Selection.PasteSpecial Paste:=xlPasteValues
Sheets("打印收据").Range("a6:e9").ClearContents
End Sub

饮冰e士 · 发表于 2024-7-21 19:05

好像第一句就错了？

user湫 · 发表于 2024-7-21 21:18

这代码格式乱七八糟的

3190496160 · 发表于 2024-7-22 08:51

连最最基础的东西你都还没弄明白的嘛

qiufeng8848 · 发表于 2024-7-24 08:54

3190496160 发表于 2024-7-22 08:51
连最最基础的东西你都还没弄明白的嘛

从没学过，根据别人的修改的

3190496160 · 发表于 2024-7-24 09:05

上传你的附件，具体描述你的需求，才能帮到你的

luanyu6688 · 发表于 2024-8-1 15:45

上传你的附件，具体描述你的需求，才能帮到你的

		自动登录	找回密码
密码			免费注册

[求助] 编了个自动打印录入小程序调试时出现属性的使用无效是哪里错了，恳请哪个大神给看一下