送货单打印保存模板

苦寻踪444

YZC51 发表于 2020-5-6 10:37
学习下

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    If ListBox1.ListIndex <= 0 Then Exit Sub            'YZC51 加
    。。。。。。
End Sub

Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If ListBox1.ListIndex <= 0 Then Exit Sub            'YZC51 加
    。。。。。。
End Sub

想知道，你加的这句有啥妙用？使用中没瞅出明显的效果，望指点！先行谢了。

YZC51

苦寻踪444 发表于 2020-5-17 12:15
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    If ListBox1.ListIndex

第一行作为标题，防止误输入！

heesechina

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

WIN10 64位Excel双击货品名称单元格(TEXTBOX1)，键盘输入时LISTBOX2没反应，不显示列表内容。怎么修改？

小妞妞

aman1516 发表于 2020-4-20 21:08
不好意思，N年前的代码修修补补，纯为方便工作，未装高版本系统测试。包括64位，代码未必能运行。
要再 ...

期待能从单选改为多选，一次输入多行信息，又会更方便些.......

YZC51

多选后回车自动输入多行
小妞妞的送货单多选后回车输入多行(20200610) .zip (205.37 KB, 下载次数: 159)

2020-6-10 11:52 上传

点击文件名下载附件

YZC51

小妞妞 发表于 2020-6-9 22:10
期待能从单选改为多选，一次输入多行信息，又会更方便些.......

已经从单选改为多选，一次输入多行信息，会更方便些！

小妞妞

YZC51 发表于 2020-6-10 11:53
已经从单选改为多选，一次输入多行信息，会更方便些！

谢谢YZC51再次 热心帮忙，可以再帮忙调整些代码吗？有偿帮助  

小妞妞

待解决问题
问题1，把文本下选框1 调到A列 “客户订单号”栏A6开始
问题2，在文本框录入 订单数量不能从订单明细记录表，带出来
问题3，下选框2 能否调整列宽，显示内容看不全如下图
问题4，下选框1 能否 单选改成多选  

YZC51

小妞妞 发表于 2020-6-10 13:25
谢谢YZC51再次 热心帮忙，可以再帮忙调整些代码吗？有偿帮助

不客气！不必有偿了。
提出需求，看看能解决不？！

小妞妞

我已上传附件了，我在 楼主的模板基础上修改成自己工作需要的，真心非常感谢你们无私的帮忙让我工作更高效了，没VBA基础只能水平照葫芦画瓢 。就订单表与排产单要调整一下     表内有问题备注