接着上一步的继续来更新，上一步设置了入库单和出库单的选择录入问题
下面来说一下 入库单和出库单的数据保存转移问题
在 入库单和出库单分别插入两个按钮，然后再模块里写入一下代码
Sub 入库单录入()
a = Sheet3.Range("a65536").End(xlUp).Row
If Sheet3.Range("b2") = "" Then
MsgBox "请选择录入供应商名称！"
Exit Sub
End If
If a < 4 Then
MsgBox "请录入数据后，再点击录入按钮！"
Exit Sub
Else
For c = 4 To a
b = Sheet5.Range("b65536").End(xlUp).Row + 1
Sheet5.Cells(b, 1) = b - 2
Sheet5.Cells(b, 2) = Sheet3.Cells(c, 2)
Sheet5.Cells(b, 3) = Sheet3.Cells(c, 3)
Sheet5.Cells(b, 4) = Sheet3.Cells(c, 4)
Sheet5.Cells(b, 5) = Sheet3.Cells(c, 5)
Sheet5.Cells(b, 6) = "入库"
Sheet5.Cells(b, 7) = Sheet3.Range("b2")
Sheet5.Cells(b, 8) = Sheet3.Range("e2")
Next
End If
MsgBox "提取数据成功！"
Sheet3.Range("A4:E16").ClearContents
End Sub
Sub 出库单录入()
a = Sheet4.Range("a65536").End(xlUp).Row
If Sheet4.Range("b2") = "" Then
MsgBox "请选择领料车间名称！"
Exit Sub
End If
If a < 4 Then
MsgBox "请录入数据后，再点击录入按钮！"
Exit Sub
Else
For c = 4 To a
b = Sheet5.Range("b65536").End(xlUp).Row + 1
Sheet5.Cells(b, 1) = b - 2
Sheet5.Cells(b, 2) = Sheet4.Cells(c, 2)
Sheet5.Cells(b, 3) = Sheet4.Cells(c, 3)
Sheet5.Cells(b, 4) = Sheet4.Cells(c, 4)
Sheet5.Cells(b, 5) = Sheet4.Cells(c, 5)
Sheet5.Cells(b, 6) = "出库"
Sheet5.Cells(b, 7) = Sheet4.Range("b2")
Sheet5.Cells(b, 8) = Sheet4.Range("e2")
Next
End If
MsgBox "提取数据成功！"
Sheet4.Range("A4:E16").ClearContents
End Sub
然后根据宏的名字选择对应的。这个是入库单和出库单的保存问题，
只是简单的纠错，没有做更严谨的纠错，有问题的小伙伴入门之后可以自己研究下
-12-11 14:41 上传
点击文件名下载附件
45.81 KB, 下载次数: 456
