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

思丝

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

mineshine

仅供参考

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

复制代码

思丝

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

mineshine

思丝 发表于 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

思丝

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

mineshine

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

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

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

思丝

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

mineshine

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

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

思丝

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

zjdh

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

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

2014-5-4 18:43 上传

点击文件名下载附件