[已解决]请高人帮忙做一个工作簿，谢谢了!

安安667783

能不能把送货单里的日期，单号，货品名称，数量，单价，金额分别自动转存到库存表格里？库存表的日期，单号，公司名，销售的数量，单价，金额，纸品（货品名称），想每打印一张送货单，就自动转存库存表，库存表每存一笔，就自动跳到第二行的日期那里准备存第二栏，不知道这样行不行？麻烦你们了，谢谢。 工作表格.rar (8.17 KB, 下载次数: 7)

2012-8-21 23:32 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

qushui

2012-8-22 09:47

楼主  看看这样是不是符合你的题意

1. Private Sub Workbook_BeforePrint(Cancel As Boolean)
   
2.     If ActiveSheet.Name = "送货单" Then
   
3.         With Sheets("库存")
   
4.             a = Range("j5").End(4).Row - 5
   
5.             b = IIf(.Range("a3") = "", 2, .Range("a3").End(4).Row)
   
6.             For i = 1 To a
   
7.                 .Cells(b + i, 1) = Range("g3"): .Cells(b + i, 2) = Range("j4"): .Cells(b + i, 3) = Range("b3")
   
8.                 .Cells(b + i, 7) = Round(Cells(5 + i, 6), 4): .Cells(b + i, 8) = Cells(5 + i, 9)
   
9.                 .Cells(b + i, 9) = Cells(5 + i, 10): .Cells(b + i, 10) = Cells(5 + i, 2)
   
10.             Next
    
11.         End With
    
12.     End If
    
13. End Sub

复制代码

跳转到最佳答案楼层

w2001pf

“库存表每存一笔，就自动跳到第二行的日期那里准备存第二栏”是什么意思？你应该把要求说具体，最好有一个效果图。

qushui

楼主  看看这样是不是符合你的题意

1. Private Sub Workbook_BeforePrint(Cancel As Boolean)
   
2.     If ActiveSheet.Name = "送货单" Then
   
3.         With Sheets("库存")
   
4.             a = Range("j5").End(4).Row - 5
   
5.             b = IIf(.Range("a3") = "", 2, .Range("a3").End(4).Row)
   
6.             For i = 1 To a
   
7.                 .Cells(b + i, 1) = Range("g3"): .Cells(b + i, 2) = Range("j4"): .Cells(b + i, 3) = Range("b3")
   
8.                 .Cells(b + i, 7) = Round(Cells(5 + i, 6), 4): .Cells(b + i, 8) = Cells(5 + i, 9)
   
9.                 .Cells(b + i, 9) = Cells(5 + i, 10): .Cells(b + i, 10) = Cells(5 + i, 2)
   
10.             Next
    
11.         End With
    
12.     End If
    
13. End Sub

复制代码