[求助] 用excel打印出货单后怎样自动保存记录并清除？求修改.

CLQ709543754 · 发表于 2017-6-7 14:37

做好的不能用，急死人了
Excel出货单打印自动保存明细制作！  2007的Excel
求大神们帮忙修改一下，非常感谢！
需求：1 打印模板最好可以一键清除客户信息
      2 打印可以自动保存到sheet2内的明细表里，方便日后查看。
非常感谢!  真的很需要！

CLQ709543754 · 发表于 2017-6-7 15:30

没大神解决我这小小的问题吗。自己顶起来

CLQ709543754 · 发表于 2017-6-7 15:43

没学过vb，看得晕头转向的

microyip · 发表于 2017-6-7 15:54

你应该找帮你做好的那个人吧？

七彩屋 · 发表于 2017-6-7 16:22

Sub 打印清除()
'打印票据
Sheets("票据打印").Select
'ActiveWindow.SelectedSheets.PrintOut '调用打印命令打印当前页
'保存数据
y = Range("a12").End(xlUp).Row - 5
With Sheets("记录")
x = .Range("a65536").End(xlUp).Row + 1 '取得“记录”表中最后一个空行的行号（即写入位置）
For i = 0 To y '商品信息分三行，为了简化代码，使用循环语句
.Cells(x + i, 1) = [b3] '客户
.Cells(x + i, 2) = [d3] '日期
.Cells(x + i, 3) = [f3] '单号
.Cells(x + i, 4) = Cells(i + 5, 1) '名称
.Cells(x + i, 5) = Cells(i + 5, 2) '规格
.Cells(x + i, 6) = Cells(i + 5, 3) '数量
.Cells(x + i, 7) = Cells(i + 5, 4) '单价
.Cells(x + i, 8) = Cells(i + 5, 5) '金额
Next
End With
'清除数据（单据编号f3格与有公式的单元格不用清除）
Range("b3,d3,a5:d12,f5:f12").ClearContents
'最后让票据的号码自动加1
s = Range("f3") '收据上的当前序号在f3单元格
Range("f3") = Left(s, 4) & Right("0000" & Right(s, 4) + 1, 4) '打印完毕后让序号加一（编号的左两位是字符，右四位是数字）
MsgBox "打印并保存完毕", , "提示"
End Sub

复制代码

CLQ709543754 · 发表于 2017-6-8 15:50

七彩屋发表于 2017-6-7 16:22

非常感谢。虽然不知道原理但可以用

CLQ709543754 · 发表于 2017-6-20 10:14

七彩屋发表于 2017-6-7 16:22

师傅，如果输满数据不能自动保存，是什么原因，今天用才发现

48553529 · 发表于 2024-3-16 16:23

七彩屋发表于 2017-6-7 16:22

学习中，果然是高手都在民间

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