送货单打印保存模板

mxdaidcc

留个脚印  备用

hopradio

不知道LZ能不能看到，函数勉强能做个报表，试着修改VBA，但是不知道怎么下手==！在此先谢过^&^

求助出入库样板 1027.zip (113.09 KB, 下载次数: 11)

2018-10-27 00:34 上传

点击文件名下载附件

以前瞎弄的仓库进存销报表
以前瞎弄的仓库进存销样板.zip (122.17 KB, 下载次数: 30)

2018-10-27 00:37 上传

点击文件名下载附件

少如

aman1516 发表于 2016-12-18 11:57
2016－12－17更新：
1）查询改为窗体查询，模糊快速输入单号，不需完整编号对应；
2）[按订单查询结果] ...

本楼附件功能很强大! 下载后发现, 用送货单查询时, 客户名称: , 客户地址: , 单据编号:和开单日期:
为空白,没按查询的单号所记录的内容显示出来.
希望老师再完善一下, 发一个完美版, 供我等小白们学习使用.
谢谢!
送货单模板20161217.rar (87.82 KB, 下载次数: 63)

2018-11-12 12:49 上传

点击文件名下载附件

avrour

留个脚印  备用

aman1516

少如 发表于 2018-11-12 10:48
本楼附件功能很强大! 下载后发现, 用送货单查询时, 客户名称: , 客户地址: , 单据编号:和开单日期:
为空 ...

和几个变量，将对应数据赋值给对应单元格，加两三行代码即可

1. Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
   
2. On Error Resume Next '
   
3. Dim ls, drr, i, j, k, c, c0, cc, shn As String, ii<font color="red">, kn, ka, sc, da</font>
   
4. ls = UserForm1.ListBox1.List(UserForm1.ListBox1.ListIndex, 0)
   
5. UserForm1.TextBox1 = ls
   
6. 'If UserForm1.TextBox1.Text <> "" Then
   
7. '   ls = UserForm1.TextBox1.Text
   
8. 'Else
   
9. '   MsgBox "请输入搜索并从列表中双击选择一个单据编号"
   
10. 'End If
    
11. If UserForm1.OptionButton1.Value = True Then
    
12.    c = 3
    
13.    c0 = 4
    
14.    cc = 10
    
15.    shn = "送货单"
    
16. ElseIf UserForm1.OptionButton2.Value = True Then
    
17.    c = 5
    
18.    c0 = 0
    
19.    cc = UBound(arr, 2)
    
20.    shn = "按订单查询结果"
    
21. End If
    
22. ReDim drr(1 To UBound(arr), 1 To cc)
    
23. For i = 2 To UBound(arr)
    
24.     If arr(i, c) = ls Then
    
25. <font color="red">       kn = arr(i, 1)
    
26.        ka = arr(i, 2)
    
27.        sc = arr(i, 3)
    
28.        da = arr(i, 4)</font>
    
29.        k = k + 1
    
30.        For j = 1 To cc
    
31.            drr(k, j) = arr(i, j + c0)
    
32.        Next
    
33.     End If
    
34. Next
    
35. With Sheets(shn)
    
36.      If shn = "送货单" Then
    
37.         If k > 8 Then
    
38.            For ii = 6 To 100
    
39.                If InStr(.Range("A" & ii), "金额合计") Then    'If .Range("A" & ii) = "金额合计(大写):" Then
    
40.                   .Rows(ii & ":" & ii + k - 8).Insert Shift:=xlDown, copyorigin:=xlFormatFromLeftOrAbove
    
41.                    Exit For
    
42.                End If
    
43.            Next
    
44.         End If
    
45. <font color="red">        .Range("B3") = kn
    
46.         .Range("B4") = ka
    
47.         .Range("I3") = sc
    
48.         .Range("I4") = da</font>
    
49.         .Range("A6:J" & ii).ClearContents
    
50.         .Range("A6").Resize(k, UBound(drr, 2)) = drr
    
51.         .Activate
    
52.         .Range("A6").Select
    
53.      ElseIf shn = "按订单查询结果" Then
    
54.         .Range("A3:N65536").ClearContents
    
55.         .Range("A3").Resize(k, UBound(drr, 2)) = drr
    
56.         .Activate
    
57.         .Range("A3").Select
    
58.      End If
    
59. End With
    
60. 
    
61. End Sub
    

复制代码

aman1516

少如 发表于 2018-11-12 10:48
本楼附件功能很强大! 下载后发现, 用送货单查询时, 客户名称: , 客户地址: , 单据编号:和开单日期:
为空 ...

详见附件，其它功能可参考前面各楼层说明改为自己所需：
送货单模板20161217.rar (73.8 KB, 下载次数: 278)

2018-11-13 21:39 上传

点击文件名下载附件

kevinmin

aman1516 发表于 2018-11-13 21:39
详见附件，其它功能可参考前面各楼层说明改为自己所需：

谢谢楼主的送货单，功能很强大！能不能请楼主帮忙套用一下格式，小弟知识有限麻烦楼主了！非常感谢！！

少如

aman1516 发表于 2018-11-13 21:39
详见附件，其它功能可参考前面各楼层说明改为自己所需：

老师辛苦了!
便用时出现两个小问题:
一, 按<打印>按扭后,  第五行以上均出现边框线,  打印与导出的PDF文件均是如此,  请见附件
二,本表在2016版本上使用正常, 但在2013版本上出错(点任何一个按扭都出借),  而原表在2013和
2016上都能用
诚望老师再给看看.  谢谢您了! 送货单模板20161217.zip (240.69 KB, 下载次数: 21)

2018-11-21 09:46 上传

点击文件名下载附件

zhougencai

谢谢楼主分享！

可铧

大神牛气！！
小白表示只会复制代码，汗！！