送货单打印保存模板

112360413

你好：我觉得你这做的真好，在学习中下载下来学习，可是模糊录入是空白的弹出菜单，怎么回事，想跟 您 学一下这个双出菜单录入数据，特方便，望指教？谢谢

wj_12691495

太强大了，好好学习学习

zhonglet

其实送货单还有一个很重要很关键的问题，就是开好了送货单送货了，结果一到客户单位卸货发现实际货物与送货单不符，怎么办？？当场当然可以用手修改送货单，然后带回来后怎么办？把保存的数据手动修改么？

aman1516

zhonglet 发表于 2020-9-8 21:32
其实送货单还有一个很重要很关键的问题，就是开好了送货单送货了，结果一到客户单位卸货发现实际货物与送货 ...

有考虑到这个问题的， 既能快速查询，就可以重新修改保存，保存时选择覆盖保存就是了
Private Sub CommandButton3_Click() '存储
On Error Resume Next '
Dim w
If [i3].Value < " " Then MsgBox "请填写送货单号及数据": Exit Sub
If [C6].Value < " " Then MsgBox "请填写送货单相关内容": Exit Sub
With Sheets("汇总表")
   Set rg = .[c:c].Find([i3], , , 1)
If rg Is Nothing Then
   Call save
   MsgBox "送货单已保存，请查看确认"
   Sheets("汇总表").Activate
Else   '如果单号重复
   w = MsgBox("注意, 送货单号已存在! 继续保存将删除之前的数据并按本单数据据重新录入!" & Chr(13) & "按[确定]继续保存，按[取消]退出。", vbOKCancel, "警告")
   If w = vbOK Then
      For i = .[C65536].End(xlUp).Row To 2 Step -1
          .[c:c].Replace [i3].Value, "", 1
          .[c:c].SpecialCells(4).EntireRow.Delete

          'Sub find_delete()
          'VA = [i3].Value
          'Application.ScreenUpdating = False
          '    With [b:b]
          '        .Replace What:=VA, Replacement:="=1/0", LookAt:=xlWhole, SearchOrder:=xlByRows
          '        .SpecialCells(xlCellTypeFormulas, xlErrors).EntireRow.Delete
          '    End With
          '    Application.ScreenUpdating = True
          'End Sub
      Next
      Call save
      MsgBox "送货单已保存，请查看确认"
      Sheets("汇总表").Activate
   ElseIf w = vbCancel Then: Exit Sub
   End If
End If
End With
End Sub

注释代码也是删除原数据的，自己根据实际需要适当改下就行了

shnvke

aman1516 发表于 2020-9-9 20:52
有考虑到这个问题的， 既能快速查询，就可以重新修改保存，保存时选择覆盖保存就是了
Private Sub Comma ...

谢谢分享，有很多毛病，不知道是哪里的问题，望大神帮帮，详见附件。有偿

itxuvv

谢谢分享.............

evgee

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

单据号码自动编号的，我的只能编到2，是我这里有问题吗？

aman1516

evgee 发表于 2020-9-30 12:35
单据号码自动编号的，我的只能编到2，是我这里有问题吗？

代码：

1. Private Function 生成编号() As String
   
2. On Error Resume Next '
   
3.     Dim theYear$, theMonth$, theDay$
   
4.     Dim theCell As Range, theFirstAddress$, theStrMaxNumNow$, theStrNum$
   
5.     theYear = Year(Date): theMonth = Format(Month(Date), "00"): theDay = Format(Day(Date), "00")
   
6.     theStrNum = "GS" & theYear & theMonth & theDay
   
7.     theStrMaxNumNow = "00"
   
8.     With ThisWorkbook.Worksheets("汇总表").Columns(3)
   
9.         Set theCell = .Cells.Find(what:=theStrNum, after:=.Cells(.Count), LookIn:=xlValues, LookAt:= _
   
10.         xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
    
11.         , MatchByte:=False, SearchFormat:=False)
    
12.         If Not theCell Is Nothing Then
    
13.             theFirstAddress = theCell.Address
    
14.             Do
    
15.                 If Right(theCell, 3) > theStrMaxNumNow Then theStrMaxNumNow = Right(theCell, 2)
    
16.                 Set theCell = .FindNext(theCell)
    
17.             Loop Until theCell.Address = theFirstAddress
    
18.         End If
    
19.     End With
    
20.     生成编号 = "GS" & theYear & theMonth & theDay & Format(CVar(theStrMaxNumNow) + 1, "00")
    
21. End Function
    

复制代码

一些小问题有解答，锻炼身体爬下楼

scwj1126

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

你好！这送货单太牛了，（送货单模板20200612）有个问题请教一下你，我用你的送货单查询功能的时候发现查询的单号和内容是一致的，但是客户名称和客户地址好像是默认最后一次送货单号的客户和地址

补充内容 (2020-11-6 17:23):
你好！我想把A6单元格改成序号自动填充公式=IF(C6="","",SUBTOTAL(103,$C$6:C6))，可是改了以后填充出来的公式中间的C6="","",变成C6=",",这样少了一对引号是怎么回事。

gdlx

YZC51 发表于 2020-6-10 17:03
修改排产单

你好，楼主，我用此表格时，我用查询送货单时，我用你的送货单查询功能的时候发现内容是一致的，但不会显示查询的送货单号，是什么原因吗？如上图