求助，请帮忙修改送货单的宏

思丝 · 发表于 2014-4-29 11:20

本人对VBA不懂，只懂一些比较简单的函数使用,现在公司要出货的打单，想要每打一次之后，单号自动+1和打完之后的记录想要按日期保存下来，以方便查询，我在EH找到一个相似的表格，但因为我不懂VBA编程，修改了适合自己的公司内容后，就用不到哪个打印，请高手帮忙修改一下，可以使请在宏里加上注释，方便我学习。

mineshine · 发表于 2014-4-29 14:21

仅供参考

Sub 打印()
Dim EN As Long, i As Integer
Dim S1 As Worksheet, S2 As Worksheet
Set S1 = Sheets("送货单")
Set S2 = Sheets("送货记录")
'If S1.Cells(14, 1) = "" Then MsgBox "斕奾帤怀ﾌ楷億囀ｾ!": Exit Sub
ActiveSheet.PrintOut Copies:=1
With S1
EN = S2.Cells(65500, 7).End(3).Row + 1
S2.Cells(EN, 1).Resize(, 3) = Array(Mid(.[F2], 3), .[B6], .[G6]) '送货单号,客户名称,送货日期
For i = 12 To .[A20].End(xlUp).Row
S2.Cells(EN, 4).Resize(, 8) = Array(.Cells(i, 1), .Cells(i, 2), .Cells(i, 3), .Cells(i, 4), .Cells(i, 5), .Cells(i, 6), .Cells(i, 7), .Cells(i, 8))
Next i
.Cells(2, 6) = "№:HZ" & Year(Now()) & Format(Month(Now()), "00") & Format(Right(Cells(2, 6), 3) + 1, "000")
.Range("A14:I23").ClearContents
End With
End Sub

复制代码

思丝 · 发表于 2014-4-29 14:27

0EN = S 2.Cells(65500, 7).End(3).Row + 1
这一行出错了,请问如何修改

mineshine · 发表于 2014-4-29 14:33

思丝发表于 2014-4-29 14:27
0EN = S 2.Cells(65500, 7).End(3).Row + 1
这一行出错了,请问如何修改

S 2不能分开

EN = S2.Cells(65536, 1).End(3).Row + 1

思丝 · 发表于 2014-4-29 14:59

我复了代码直接粘贴，结果是，能打印，单号不变，记录也出错了....到底是哪里出错了

mineshine · 发表于 2014-4-29 15:16

思丝发表于 2014-4-29 14:59
我复了代码直接粘贴，结果是，能打印，单号不变，记录也出错了....到底是哪里出错了

你的源文件和1楼附件位置不同吧?

我是以1楼附件测试，实在看不出哪里错?

思丝 · 发表于 2014-4-29 16:46

源文件是一样的，请你试一下，你压缩后上传的附件

mineshine · 发表于 2014-4-30 09:11

思丝发表于 2014-4-29 16:46
源文件是一样的，请你试一下，你压缩后上传的附件

这样我就旡能为力了
不好意思
在我这确实是没有问题的
期待高手能为您解決

思丝 · 发表于 2014-5-3 17:51

我想要在送货单上，点打印，可以做到，
打印，自动生成出货记录，打完后单号自动+1，表头不变，单元格里的打印内容清空，
不知能不能做到？
请各位高手帮下忙.

zjdh · 发表于 2014-5-4 18:43

思丝发表于 2014-5-3 17:51
我想要在送货单上，点打印，可以做到，
打印，自动生成出货记录，打完后单号自动+1，表头不变，单元格里的 ...

永恒送货单.rar (52.47 KB, 下载次数: 346)

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