送货单打印保存模板

YZC51

小妞妞 发表于 2020-6-14 23:24
谢谢你一直的关注，今天外出现在回家才有空上线，如图下

试试替换下面代码

1. Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   
2.     If KeyCode = 13 Then
   
3.         For i = 1 To Me.ListBox1.ListCount - 1
   
4.             If Me.ListBox1.Selected(i) Then
   
5.                 myrp = [A10].End(3).Row + 1
   
6.                 If myrp < 6 Then Exit Sub
   
7.                 For j = 1 To 7
   
8.                     Cells(myrp, j) = Me.ListBox1.List(i, j - 1)
   
9.                 Next
   
10.             End If
    
11.         Next
    
12.         Me.TextBox1 = ""
    
13.         Me.ListBox1.Visible = False
    
14.         Me.TextBox1.Visible = False
    
15.         ActiveCell.Offset(1, 0).Select
    
16. 
    
17.     End If
    
18. End Sub

复制代码

小妞妞

YZC51 发表于 2020-6-15 03:42
试试替换下面代码

可以啦，现在送货单、排产单都正常了

YZC51

小妞妞 发表于 2020-6-15 21:32
可以啦，现在送货单、排产单都正常了

花花鼓励下！！！

缘之绘

aman1516 发表于 2020-6-13 00:16
2020/6/12 补充修订：
1）下拉列表由单选改为多选；
2）修订下拉列表中滚动鼠标滚轮时闪退的问题；

很好的作品，打印能够根据日期全部打印，这样就能提高打印时间，订单不是做一张打一张，是全部弄好了才打印的。我是小白，只是提出我的观点，

缘之绘

aman1516 发表于 2020-6-13 00:16
2020/6/12 补充修订：
1）下拉列表由单选改为多选；
2）修订下拉列表中滚动鼠标滚轮时闪退的问题；

每个客户我感觉应该是对应一个订单编号，这样好查

YZC51

请参考，自动插入行
送货单模板（01版）-20200614 待调试.zip (338.96 KB, 下载次数: 165)

2020-6-16 20:20 上传

点击文件名下载附件

苦寻踪444

缘之绘 发表于 2020-6-16 09:25
每个客户我感觉应该是对应一个订单编号，这样好查

一单客户很少，也不是我们希望看到的目标，我们愿意建立和发展的是长期稳定客户。

hy_beco

aman1516 发表于 2020-6-13 00:16
2020/6/12 补充修订：
1）下拉列表由单选改为多选；
2）修订下拉列表中滚动鼠标滚轮时闪退的问题；

您好，单价会跳到数量栏，不懂咋处理，谢谢！

朱勋升

楼主您好：
     我下载了您分享的送货单保存打印模板，感觉非常强大，对我目前的现状有非常大的提升；现在有个问题，自己弄了好久  搞不定，请求您的支持（现在的列满足不了需求，我想再增加5列）
     代码需要修改那几个地方？

112360413

你好：下载下来，我用了，也试了几天，模糊录入菜单是空白，不能自动显示菜单，双击输入，怎么回事，我想学习一下怎么做这个弹出菜单双击输入数据，谢谢谢谢？