请大侠们帮我制作一个用VBA自动生成生产入单

33846847

请大侠们帮我制作一个用VBA自动生成生产入单,谢谢！急用

liulang0808

需求描述不清楚，建议楼主结合附件举例说明下

一指禅62

成品完工入库.rar (15.57 KB, 下载次数: 29)

2019-3-19 10:00 上传

点击文件名下载附件

一指禅62

1. Dim arr, d As Object, i&
   
2. 
   
3. Private Sub UserForm_Initialize()
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     arr = Sheet1.Range("A1").CurrentRegion
   
6.     On Error Resume Next
   
7.     For i = 2 To UBound(arr)
   
8.         If Not d.Exists(arr(i, 1)) Then
   
9.             d(arr(i, 1)) = i
   
10.         Else
    
11.             d.Item(arr(i, 1)) = d.Item(arr(i, 1)) & "|" & i
    
12.         End If
    
13.     Next
    
14.     ListBox1.List = d.keys
    
15. End Sub
    
16. 
    
17. Private Sub ListBox1_Click()
    
18.     Dim t, N%, a(1 To 10, 1 To 8)
    
19.     For Each t In Split(d.Item(ListBox1.Text), "|")
    
20.         N = N + 1
    
21.         If N = 1 Then
    
22.             Range("A3") = "完工日期：" & arr(t, 2)
    
23.             Range("E3") = arr(t, 9)
    
24.             Range("G3") = arr(t, 1)
    
25.         End If
    
26.         a(N, 1) = N
    
27.         a(N, 2) = arr(t, 3)
    
28.         a(N, 3) = arr(t, 8)
    
29.         a(N, 4) = arr(t, 4)
    
30.         a(N, 5) = arr(t, 5)
    
31.         a(N, 6) = arr(t, 6)
    
32.         a(N, 7) = arr(t, 7)
    
33.     Next
    
34.     Sheet2.Range("A5:H14") = a
    
35.     cmd打印.Enabled = True
    
36. End Sub
    
37. 
    
38. Private Sub cmd打印_Click()
    
39.     Sheet2.Range("A1:H16").PrintOut
    
40. End Sub

复制代码

33846847

一指禅62 发表于 2019-3-19 10:00

非常感谢； 如果A5纸一张打不到是否可以自动跳出第二张第三。。。。

一指禅62

33846847 发表于 2019-3-27 14:03
非常感谢； 如果A5纸一张打不到是否可以自动跳出第二张第三。。。。

您是指一个工单号的记录条数超过10条后如何处理吗？

33846847

一指禅62 发表于 2019-3-27 16:02
您是指一个工单号的记录条数超过10条后如何处理吗？

是的，我就是想像ERP里到格就自动跳出下一张，再下一张；一直就这样累计加下去

33846847

一指禅62 发表于 2019-3-27 16:02
您是指一个工单号的记录条数超过10条后如何处理吗？

还有我不知道怎么把你给我的VBA导入进去，请你再帮我做一份表格；谢谢