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

zjdh

渴望美好丶 发表于 2017-12-28 09:32
哦，可以在4.9的版本里面帮忙出入库单增加到12行，出入库单的单价自动础资料表里面设定的单价来计算金额 ...

这2天较忙，过几天再说。

渴望美好丶

zjdh 发表于 2017-12-28 10:26
这2天较忙，过几天再说。

OK 谢谢！辛苦你了。

我心琉璃

老师，新年好，下了老师的出库单在使用，也在跟着爬楼，我使用的是6.48，今天返现不能备份，也无法库存转期初，是在库存表里面转的，提示可用资源不足，excel无法完成此任务，然删除一些文件再试，无法完成备份，有下载了最新的6.49，从新填资料，也出现类似问题，我使用的是win764位，office2010，烦请老师指教下，谢谢！祝老师新一年身体健康，万事如意！！！！

zjdh

我心琉璃 发表于 2017-12-31 11:33
老师，新年好，下了老师的出库单在使用，也在跟着爬楼，我使用的是6.48，今天返现不能备份，也无法库存转期 ...

这肯定是你的系统问题啦，其实我的附件空文件不过1M大小，再大也不会超5M吧，一般电脑系统内存至少2G，一定是你的系统中那个软件，极大占用了内存！！

我心琉璃

zjdh 发表于 2017-12-31 18:43
这肯定是你的系统问题啦，其实我的附件空文件不过1M大小，再大也不会超5M吧，一般电脑系统内存至少2G，一 ...

谢谢老师百忙之中指导，我的内存是8g的啊，过两天从新装下系统看看是什么情况！

grnfly

更换操作员，如果手动输入错误用户名则VBA程序直接报错

zjdh

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

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

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