能否根据订单, 比如加个保存键 就可以自动保存到清单表项里

小风风se

能否根据订单, 比如加个保存键就可以自动保存到“订货单明细”项里

科晟精密

1. Private Sub 保存_Click()
   
2. Dim x As Integer, i As Integer, a As Integer
   
3. Dim sh As Worksheet
   
4. Set sh = Sheets("订货单明细")
   
5. With Sheets("订货单模板")
   
6.     r = .Range("e2")
   
7. If r = "" Then Exit Sub
   
8.    x = .Range("b13").End(xlUp).Row
   
9. For i = 8 To x
   
10. arr = .Range(.Cells(i, "a"), .Cells(i, "i"))
    
11.     a = sh.Range("B60000").End(xlUp).Row + 1
    
12.     sh.Range("a" & a) = r
    
13.     sh.Range("J" & a) = .Range("C3")
    
14.     sh.Range("C" & a) = .Range("I2")
    
15.     sh.Range("b" & a) = arr(1, 9)
    
16.     sh.Range("d" & a).Resize(1, 6) = Array(arr(1, 3), arr(1, 4), arr(1, 5), arr(1, 6), arr(1, 7), arr(1, 8))
    
17.     Next i
    
18. End With
    
19. End Sub
    

复制代码

飞杨001

正需要，下载下来学习下