大虾们，如何根据打印单号，调取还原打印单

pubbe300

求助大虾们，如何根据打印单号，调取还原打印单，重新打印，加工单。。。。

microyip

刚巧，我没有这个文件，所以不知道怎么解决

donghui2363

可能太简单了，老师们不愿写，我练习一下，没有对应打印单的项目，你自己改改吧

1. Sub 打印单查询()
   
2. arr = Sheet2.UsedRange
   
3.     With Sheet1
   
4.         s = .[n1]
   
5.         ReDim brr(1 To UBound(arr), 1 To 11)
   
6.         For i = 2 To UBound(arr)
   
7.             If arr(i, 3) = s Then
   
8.                 k = k + 1
   
9.                 For j = 1 To 11
   
10.                     brr(k, j) = arr(i, j + 4)
    
11.                 Next j
    
12.             End If
    
13.         Next i
    
14.         If k > 0 Then
    
15.             .Range("b4:n13") = ""
    
16.             .Range("b4").Resize(k, 11) = brr
    
17.         Else
    
18.             MsgBox "没有查到"
    
19.         End If
    
20.     End With
    
21. End Sub

复制代码