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

莫悠悠

不好意思，因为我是菜鸟！还请斑竹帮忙解决这个查询问题，我按您的思路做了个，操作步骤也是先查询然后修改，但却执行了删除，能帮忙改改么？有劳费心，不胜感激！（还是贴不了附件，不好意思）
Sub 修改()
    Dim a, b, c, tq, I, msg As Integer
    If Range("g4") = "" Then MsgBox "你未输入单据号!": Exit Sub '单据号码所在（流水号）
    a = Sheet2.[a65536].End(xlUp).Row '数据库编码所在列(明细科目)
    b = Application.WorksheetFunction.Match(Range("g4"), Sheet2.Columns(4), 0) '单据录入单据号码所在与数据库第4列单据号码(流水号)
    If Range("g4").Value = Sheet2.Range("d" & b).Value Then '单据号码所在=数据库单据号码列d(流水号)
        msg = MsgBox("是否修改单据" & Range("g4").Value & "的信息?", vbYesNo) '单据号码所在
        If msg = vbNo Then Exit Sub
        c = Application.WorksheetFunction.CountIf(Sheet2.Range("d2:d" & a), Range("g4").Text) '数据库单据号码列d与单据录入单据号码(流水号)
        Sheet2.Rows(b & ":" & b + c - 1).Delete
    End If
    I = Sheet2.[d65536].End(xlUp).Row '数据库单据号码列d
    With Sheet2
        For tq = 6 To Range("d11").End(xlUp).Row '单据录入编码列行数参数（科目代码列）
            I = I + 1
            .Range("a" & I & ":a" & I) = Range("d" & tq & ":d" & tq).Value '数据库A列(明细科目)的值=单据录入D列(科目代码)的值

            .Range("i" & I & ":i" & I) = Range("c4").Value '数据库(部门)=单据录入(部门)的值
            .Range("c" & I & ":c" & I) = Range("d4").Value '数据库(日期)=单据录入(日期)的值
            .Range("d" & I & ":d" & I) = Range("g4").Value '数据库(单据号码)=单据录入(单据号码)的值
            .Range("j" & I & ":j" & I) = Range("c13").Value '数据库(记账)=单据录入(记账)的值
            .Range("k" & I & ":k" & I) = Range("e13").Value '数据库(出纳)=单据录入(出纳)的值
            .Range("l" & I & ":l" & I) = Range("g13").Value '数据库(经办)=单据录入(经办)的值
            .Range("b" & I & ":b" & I) = Range("c" & tq & ":c" & tq).Value '数据库（摘要）=单据录入（摘要）
            .Range("a" & I & ":a" & I) = Range("d" & tq & ":d" & tq).Value '数据库（明细科目）=单据录入（科目代码）
            .Range("f" & I & ":f" & I) = Range("e" & tq & ":e" & tq).Value '数据库（科目名称）=单据录入（科目名称）
            .Range("g" & I & ":h" & I) = Range("f" & tq & ":g" & tq).Value '数据库（借方贷方）=单据录入（借方贷方）
        Next
    End With
    ActiveSheet.Unprotect
    Application.EnableEvents = False
    Range("c6:g11").Value = "" '单据录入资料区
    Range("c4,d4,g4,c13,e13,g13").Value = "" 'c4部门,d4日期,g4单据号码,c13记账,e13出纳,g13经办
    ActiveSheet.Protect
    Application.EnableEvents = True
End Sub

莫悠悠

现在可以贴附件了，补贴

zjdh

莫悠悠 发表于 2012-4-7 15:23
不好意思，因为我是菜鸟！还请斑竹帮忙解决这个查询问题，我按您的思路做了个，操作步骤也是先查询然后修改 ...

操作步骤必须是先查询然后修改------删除老记录-----添加新纪录！！
否则一个单号老记录有5条，修改后为3条，无法改变啦！
不是查询1条修改1条！！

zjdh

莫悠悠 发表于 2012-4-7 16:11
现在可以贴附件了，补贴

修改.rar (131.08 KB, 下载次数: 50)

2012-4-7 17:55 上传

点击文件名下载附件

莫悠悠

非常感谢您的帮助

莫悠悠

斑竹救救我哦，现在修改是可以做到了，但是我原来做的输入会多4个空白记录，请帮忙改改，辛苦您了！
经过测试发现是因为增加了以下这两段：造成了输入会多出4个空白记录,删掉就好了，请问这是什么原因呢？
原来我搞错了，是在输入凭证加了这段：

            Cells(X, 10) = Sheets("输入凭证").Cells(13, 3)
            Cells(X, 11) = Sheets("输入凭证").Cells(13, 5)
            Cells(X, 12) = Sheets("输入凭证").Cells(13, 7)
为了把记账、出纳、经办人输入到数据库，在测试的时候没有输入：记账、出纳、经办人（空值），
结果是将剩余的4个空白行都添加进去了，帮忙看看模块2里的代码有什么好的解决办法？

beermouse

太好，下来学习学习。

zjdh

莫悠悠 发表于 2012-4-7 21:45
斑竹救救我哦，现在修改是可以做到了，但是我原来做的输入会多4个空白记录，请帮忙改改，辛苦您了！
经过测 ...

测试了一下没有多出4个空白记录

haibao1114

老师你好,请问能不能把单价解锁 能输入,把 总价 让它自己算呢? 我觉得 这个有点不太好吧?或者可能不适合我们? 谢谢老师了

莫悠悠

斑竹，我借鉴你库存表的代码思路设置了个科目汇总表，但是借方金额、贷方金额却无法计算，还有标题在刷新后会消失，还有就想把开始时间和截至时间加入到代码里，开始时间和截止时间能够自由设置，请问应该怎样做？不胜感激！辛苦您了！
具体请看附件