送货单打印保存模板

fm6520

楼主，可以帮我实现附件中要求的功能吗，谢谢！

aman1516

fm6520 发表于 2018-3-16 17:51
楼主，可以帮我实现附件中要求的功能吗，谢谢！

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. On Error Resume Next
   
3. If Target.Address <> "$D$5" Then Exit Sub
   
4. Dim arr, brr, rng As Range, r, r1, r2, i, j, k
   
5. With Sheets("主件清单")
   
6.      r = .[B65536].End(xlUp).Row
   
7.      For Each rng In .Range("A2:A" & r)
   
8.          If rng.Value = Target.Value Then
   
9.             r1 = rng.Row + 1
   
10.             ReDim brr(1 To 20, 1 To 6)
    
11.             k = 0
    
12.             For i = r1 To r
    
13.                 If .Cells(i, 2) <> "" Then
    
14.                    k = k + 1
    
15.                    brr(k, 1) = .Cells(i, 2)
    
16.                    For c = 3 To 6
    
17.                        brr(k, c) = .Cells(i, c)
    
18.                    Next
    
19.                 Else
    
20.                    Exit For
    
21.                 End If
    
22.             Next
    
23.             
    
24.         End If
    
25.      Next
    
26. End With
    
27. Range("C8:L21").ClearContents
    
28. Range("C8").Resize(k, 6) = brr
    
29. End Sub

复制代码

fm6520

aman1516 发表于 2018-3-16 22:32

非常感谢，楼主，可以加Q吗，以后碰到这方面的困难，还需要向你请教，学习

北落的太阳

aman1516 发表于 2014-4-21 23:28
另外，还增加了工作表导出为 .htm网页或 .PDF的功能……
见附件：  

留个脚印，谢谢

飞飞go

谢谢分享，楼主好人

DYBG89675333

谢谢分享，下载了。

军将

点分表和删除提示：编译错误（找不到工程或库）望能解决下啊

军将

下载了你发的（送货单打印保存模板20161217）但点添加行。分表。删除时。都提示：（编译错误：找不到工程或库）能解决下吗？本人菜鸟一名。能发一份能用的到我QQ邮箱：964940470@qq.com
谢谢楼主。

军将

点添加行，分表，和删除等都提示：编译错误（找不到工程或库）望能解决。菜鸟964940470@qq.com  万分感谢。   

zhangbeyondz

请问，怎样实现查询结果后厂家，订单号单元格内容自动从汇总表录入到送货单的B3、I3单元格？谢谢