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

zjdh

grnfly 发表于 2018-1-4 17:08
更换操作员，如果手动输入错误用户名则VBA程序直接报错

你这是弃简求烦的用法！不过也简单：
出入库系统6-4.10.rar (451.52 KB, 下载次数: 65)

2018-1-5 09:49 上传

点击文件名下载附件

luolon

你好，软件很不错！但是在实际操作中同一个商品会有不同的规格，软件能不能做到一个商品下不同规格的总账和明细帐的查询？比如空调，规格分格力、美的、长虹，能不能既能统计3个品牌的明细，又能统计3个品牌合计？谢谢！

永远的船长

真乃神贴，还在更新，不知道老师能不能让这个小软件通过放在服务器上，通过ip访问

gumption83

Sub 保存()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Dim irowa, tq, mm, ll As Integer
    Dim i, o As Integer
    If Range("C4") = "" Then MsgBox "请输入商户名": Exit Sub
    If Range("Q4") = "" Then MsgBox "请输入结款方式": Exit Sub
    If Range("Q3") = "" Then MsgBox "请输入运输方式": Exit Sub
    For i = 6 To Application.CountA(Range("A6:A17")) + 5
        If Range("Q" & i) = "" Then MsgBox "请检查，有单价未填！": Exit Sub
    Next
    i = Sheet6.[F65536].End(xlUp).Row
    For o = 2 To i
        If Range("P1").Value = Sheet6.Range("F" & o).Value Then
            ms = MsgBox("已经有了单据" & Range("P1").Value & "的信息,是否录入?", vbYesNo, "提示")
            If ms = vbNo Then
                Exit Sub
            End If
        End If
    Next
    With Sheet6
        irowa = .Range("F65536").End(xlUp).Row
        .Unprotect 123
        For tq = 6 To Application.CountA(Range("A6:A17")) + 5
            irowa = irowa + 1
            .Range("G" & irowa & ":U" & irowa) = Range("A" & tq & ":O" & tq).Value
            .Range("A" & irowa) = Right(Application.WorksheetFunction.Substitute([E1], " ", ""), 3)
            .Range("B" & irowa) = Range("F21").Value
            .Range("C" & irowa) = Range("Q2").Value
            .Range("D" & irowa) = Range("C4").Value
            .Range("E" & irowa) = Range("K4").Value
            .Range("F" & irowa) = Range("P1").Value
            .Range("AB" & irowa) = Range("Q4").Value
            .Range("AD" & irowa) = Range("Q20").Value‘这段数据只需保存一次，不跟随其它数据行保存N次’
            .Range("AE" & irowa) = Range("B21").Value
            .Range("AF" & irowa) = Range("Q3").Value
            If .Range("A" & irowa) = "入库单" Then
                .Range("V" & irowa & ":X" & irowa) = Range("P" & tq & ":R" & tq).Value
            Else
                .Range("Y" & irowa & ":AA" & irowa) = Range("P" & tq & ":R" & tq).Value
            End If
        Next
    End With
        Application.EnableEvents = False
    If Range("E1") = "入 库 单" Then
        Range("V1") = Left(Range("P1"), 8) & Format(Right(Range("P1"), 4) + 1, "0000")
        Range("P1") = Range("V1")
        Range("A6:O17").ClearContents
        Range("Q6:Q17").Value = ""
        
    Else
        Range("V2") = Left(Range("P1"), 8) & Format(Right(Range("P1"), 4) + 1, "0000")
        Range("P1") = Range("V2")
        Range("A6:O17").ClearContents
        Range("Q6:Q17").Value = ""
    End If
    Range("C4,B18,Q3,Q20").Value = ""
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    Application.EnableEvents = True
End Sub

zjdh

luolon 发表于 2018-1-7 00:58
你好，软件很不错！但是在实际操作中同一个商品会有不同的规格，软件能不能做到一个商品下不同规格的总账和 ...

不同品牌不同规格就应该设置不同的编码，这样就可以按要求分别查询库存及明细啦。

wl1332527

新手报到，先来看看

may1588

zjdh老师，能不能在里面添加一个半成品的库存查看，还有就是入库里面能增加一项入库类型么，比如：采购入库、半成品入库、成品入库，增加一个成品入库，就要消耗一个半成品和另外的一个辅材的功能。我的邮箱：399099683@qq.com.万分感谢

zhouyanjun544

不好意思打扰了，现在又好了

日部落

请问楼主：单据录入只能录6行吗？另外请教怎么修改打印页，我只需要仓库联、记账联和财务联并且这三联都打印在一张A4纸上？谢谢！

zjdh

may1588 发表于 2018-1-24 17:29
zjdh老师，能不能在里面添加一个半成品的库存查看，还有就是入库里面能增加一项入库类型么，比如：采购入库 ...

暂时帮不了你。