小小出入库管理系统(2012年12月又作了更新)

碎碎念baby

我的下载完启用不了宏怎么办？

zjdh

碎碎念baby 发表于 2019-5-15 17:09
我的下载完启用不了宏怎么办？

不懂你的意思

wowo000

尊敬的zjdh老师，烦您帮俺看看，在明细账里的P2单元格里执行MXZ代码，为啥不能完全显示每有的合计及累计。请斧正！

碎碎念baby

我想知道，怎么删除入库项，我填写错误了，把出库单填成入库单了

碎碎念baby

怎么设置库存为0的预警呢

wowo000

俺自己搞定了，把：For I = [B65536].End(3).Row + 1 To 10 Step -1  '插入累计和月及公式
For I = 10 To [B65536].End(3).Row + 2   '结存两句中的“10”改成“7”就可以了。

zjdh

wowo000 发表于 2019-5-16 16:42
俺自己搞定了，把：For I = .End(3).Row + 1 To 10 Step -1  '插入累计和月及公式
For I = 10 To .End(3). ...

抱歉，白天工作很忙，没空上网，让你空等了，自己能解决问题，那是最好的，愿你更上一层楼。

zjdh

碎碎念baby 发表于 2019-5-16 15:05
我想知道，怎么删除入库项，我填写错误了，把出库单填成入库单了

在录入页---修改单据号码为错误单号----查询----删除

碎碎念baby

可以多个机器使用吗？

wowo000

    老师，可否解析：For I = 10 To [B65536].End(3).Row + 2   '结存
        If InStr(Cells(I, 5).Value, "月合计") Then
            Cells(I, "L") = Cells(I, "F") - Cells(I, "I") + Cells(I - 1, "L").End(3)
            Cells(I, "N") = Cells(I, "H") - Cells(I, "K") + Cells(I - 1, "N").End(3)
            If Cells(I, "L") = 0 Then
                Cells(I, "M") = 0
            Else
                Cells(I, "M") = Cells(I, "N") / Cells(I, "L")
            End If
        ElseIf Cells(I, 4) = "累 计" Then
            Cells(I, "L") = Cells(I - 1, "L")
            Cells(I, "M") = Cells(I - 1, "M")
            Cells(I, "N") = Cells(I - 1, "N")
        End If
    Next
这段代码的意思？“ElseIf Cells(I, 4)”为啥不是“ElseIf Cells(I, 5)”呢？前面是“5”列，后面咋变成了“4”列呢？