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(