如何通过销售数据生成销售单

娜美小姐

附件中送货单送货时间段早上或者下午手动填入就可以。谢谢~~~~~·

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.11.27
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     Set sh = ThisWorkbook.Sheets("销售单模板")
   
6.     Dim tm: tm = Timer
   
7.     With Sheets("源数据")
   
8.         r = .Cells(Rows.Count, 4).End(3).Row
   
9.         arr = .[a1].Resize(r, 9)
   
10.         rq = CDate(arr(2, 1))
    
11.     End With
    
12.     For i = 2 To UBound(arr)
    
13.         If arr(i, 2) <> Empty Then s = arr(i, 2) & "|" & arr(i, 3)
    
14.         If Not d.exists(s) Then Set d(s) = CreateObject("Scripting.Dictionary")
    
15.         d(s)(i) = i
    
16.     Next
    
17.     sh.Copy
    
18.     Set wb = ActiveWorkbook
    
19.     With wb.Sheets(1)
    
20.         .Name = Format(rq, "yyyy-m-d")
    
21.         For Each k In d.keys
    
22.             n = n + 1
    
23.             r = 17 * (n - 1) + 1
    
24.             sh.Rows("1:17").Copy .Cells(r, 1)
    
25.             b = Split(k, "|")
    
26.             .Cells(r + 1, 5) = "日 期：" & rq & "   送货时段："
    
27.             .Cells(r + 2, 6) = b(0)
    
28.             .Cells(r + 1, 2) = b(1)
    
29.             m = 3
    
30.             For Each kk In d(k).keys
    
31.                 m = m + 1
    
32.                 For j = 4 To 8
    
33.                     .Cells(r + m, j - 2) = arr(kk, j)
    
34.                 Next
    
35.             Next
    
36.         Next
    
37.     End With
    
38.     wb.SaveAs p & "销售单" & Format(rq, "yyyy-m-d")
    
39.     wb.Close
    
40.     Set d = Nothing
    
41.     Application.ScreenUpdating = True
    
42.     MsgBox "共用时：" & Format(Timer - tm) & "秒！"
    
43. End Sub
    
44. 
    

复制代码

娜美小姐

ykcbf1100 发表于 2024-11-27 16:12
附件供参考。。。

老师，就您的附件中只生成一个单号的销售单，能不能实现生成源数据里所有单号的销售单在同一表中。谢谢！

ykcbf1100

娜美小姐 发表于 2024-11-27 18:12
老师，就您的附件中只生成一个单号的销售单，能不能实现生成源数据里所有单号的销售单在同一表中。谢谢！

所有都生成了。你没仔细看吗？

那个模板不是的，另外生成一个工作簿中。

娜美小姐

ykcbf1100 发表于 2024-11-27 18:49
所有都生成了。你没仔细看吗？

那个模板不是的，另外生成一个工作簿中。

谢谢老师～

娜美小姐

ykcbf1100 发表于 2024-11-27 18:49
所有都生成了。你没仔细看吗？

那个模板不是的，另外生成一个工作簿中。

老师，您编辑的这份文件WPS中运行后无法生成新的文件，是否只能在office Excel中运行生成指定路径文件。

ykcbf1100

娜美小姐 发表于 2024-12-15 15:22
老师，您编辑的这份文件WPS中运行后无法生成新的文件，是否只能在office Excel中运行生成指定路径文件。

我没有WPS,你可以看看别的老师的代码.