html制作进销存,手把手教你定制属于自己的进销存软件

接着上一步的继续来更新，上一步设置了入库单和出库单的选择录入问题

下面来说一下 入库单和出库单的数据保存转移问题

在 入库单和出库单分别插入两个按钮，然后再模块里写入一下代码

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

然后根据宏的名字选择对应的。这个是入库单和出库单的保存问题，

只是简单的纠错，没有做更严谨的纠错，有问题的小伙伴入门之后可以自己研究下

2018-12-11 14:41 上传

点击文件名下载附件

45.81 KB, 下载次数: 456