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

qiufeng8848

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

好像日期/单号/和客户只有第一条记录有其他的都没有呀

qiufeng8848

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

好像只有第一行的有日期等的记录，其他的没有

zjdh

修改一下

1. Sub 打印()
   
2.     Dim EN As Long, i As Integer, ARR
   
3.     If Cells(12, 1) = "" Then MsgBox "你尚未输入发货内容!": Exit Sub
   
4.     ActiveSheet.PrintOut Copies:=1
   
5.     With Sheets("送货记录")
   
6.         EN = .Cells(65500, 4).End(3).Row + 1
   
7.         For i = 12 To [A20].End(xlUp).Row
   
8.             ARR = Range(Cells(i, 1), Cells(i, 8))
   
9.             .Cells(EN + i - 12, 4).Resize(, 8) = ARR
   
10.             .Cells(EN + i - 12, 1).Resize(, 3) = Array(Mid([F2], 3), [B6], [G6])  '送货单号,客户名称,送货日期
    
11.         Next i
    
12.         Cells(2, 6) = "№:HZ" & Year(Now()) & Format(Month(Now()), "00") & Format(Right(Cells(2, 6), 3) + 1, "000")
    
13.         Range("A12:H19").ClearContents
    
14.     End With
    
15. End Sub

复制代码