求助根据送货单自动产生汇总明细

ysplxw

求助高手：怎样才可以根据送货单自动产生汇总明细表？ 送货单.zip (7.43 KB, 下载次数: 37)

2013-10-15 13:11 上传

点击文件名下载附件

ysplxw

有人帮我吗？有点急呀，谢谢各位了。

科晟精密

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim sh As Worksheet, ra As Integer
   
3. Set sh = Sheets("入库明细")
   
4.      If Target.Column <> 1 Then Exit Sub
   
5.      If Target.Value = "" Then Exit Sub
   
6.         ra = Target.Row
   
7.     With Sheets("送货单")
   
8.          r = sh.Range("b65355").End(xlUp).Row + 1
   
9.          sh.Cells(r, 1) = .Range("b5").Value
   
10.          sh.Cells(r, 2) = .Range("h5").Value
    
11.           sh.Cells(r, 3) = .Range("h3").Value
    
12.           sh.Cells(r, 4).Resize(1, 4) = .Cells(ra, 1).Resize(1, 4).Value
    
13.           sh.Cells(r, 8) = .Cells(ra, 6).Value
    
14.          
    
15.     End With
    
16. End Sub

复制代码

如果送货单是用打印的，建议只用一个就好，客户和单号可以更改一下