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

qingyusisi

zjdh 发表于 2011-10-20 19:00
这么多的语句注释一下，可得不少的功夫啊！

那能不能给我说说改动输入位置改哪个代码？就是文本框出现的位置、范围

zjdh

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     If Target.Count = 1 Then             '若只选择一个单元
        If Target.Column = 3 And Target.Row > 5 Then  '第3列及>第5行
            With Sheets("基础信息表")                 '准备数据
                Myr = .[B65536].End(xlUp).Row
                Arrsj = .Range("A2:D" & Myr)   
            End With
            TextBox1.Activate
            TextBox1 = ""
            With Me.TextBox1
                .Visible = True                   '显示
                .Top = Target.Top           '顶端位置
                .Left = Target.Left            '左侧位置
                .Width = Target.Width     '宽度
                .Height = Target.Height    '高度
            End With
            With Me.ListBox1
                ..........
End Sub

xiatian1974

zjdh 发表于 2011-10-20 18:58
你可将摘要填写在备注中，然后按265楼说明修改宏。

只会拿来用，对于宏啥的了解是白痴程度
对于各种希望只是作为会计来说感觉用的时候这样更合适，包括帐页的打印设置等等

zjdh

sizhen5101 发表于 2011-10-20 22:39
麻烦老师帮我弄弄库存明细表，我想生成的是月报表，按月和库别产生这个月发生的所有业务，摘要那里 ...

你那“库存明细表”：
每一笔都要结存数？
即时库存不需要了吧？
一个库的物资，出入明细条目交错记录好查吗？是否有用？
不如每种物资汇总记录一行！

xiatian1974

对于我的包括明细账打印固定设置等等问题，只是如果能修改成这样对我作为会计来说应用起来这样更完美。可以直接打印出来作为库存明细账和出入库单。当然这只是我的希望，修改可能很麻烦，对老师来说是很大的工作量。所以修改与否由您
出入库单序号栏实际应用起来没有意义，变‘摘要’栏也可以和库存明细账的摘要栏相符

sizhen5101

zjdh 发表于 2011-10-21 14:47
你那“库存明细表”：
每一笔都要结存数？
即时库存不需要了吧？

这个表不要查分项的了，分项前面不是有两个表了吗？这个表是产生一个月发生了进出库物品的总表，只要数量，金额的不要。如果即时库存不好弄也可以不要，前面不是有库存表吗？有个最好{:soso_e102:}

zjdh

结存数是=期初数+以前出入库总数+本次出入库数
即时库存与结存数不是一回事吗？

sizhen5101

zjdh 发表于 2011-10-21 15:40
结存数是=期初数+以前出入库总数+本次出入库数
即时库存与结存数不是一回事吗？

嘿嘿，是一回事哦，不过也希望这个生成的报表能体现出来，要不我还得去弄

sizhen5101

帮看看为什么清除了基础信息和数据库，点击库存表提示 运行错误"13",并指向下面涂红色的地方。而另一张表的修改基本相同，但没有这个问题。今天在公司也是修改第一次这里错，删了从来就没这问题了。
Private Sub Worksheet_Activate()
    Dim ARR, BRR, W%, I%, J%
    ARR = Sheets("基础信息表").Range("A2:F" & Sheets("基础信息表").Range("A65536").End(3).Row)
    W = UBound(ARR)
    ReDim BRR(1 To W, 1 To 13)
    For I = 1 To W
        For J = 1 To 5
            BRR(I, J) = ARR(I, J)
        Next
        BRR(I, 6) = ARR(I, 5) * ARR(I, 6)    Next
    ARR = Sheets("数据库").Range("H2:Q" & Sheets("数据库").Range("H65536").End(3).Row)
    For I = 1 To UBound(ARR)
        For J = 1 To W
            If ARR(I, 1) = BRR(J, 1) Then
                BRR(J, 7) = BRR(J, 7) + ARR(I, 5)
                BRR(J, 8) = BRR(J, 8) + ARR(I, 7)
                BRR(J, 9) = BRR(J, 9) + ARR(I, 8)
                BRR(J, 10) = BRR(J, 10) + ARR(I, 10)
            End If
        Next
    Next
    For I = 1 To W
        BRR(I, 11) = BRR(I, 5) + BRR(I, 7) - BRR(I, 9)
        BRR(I, 12) = BRR(I, 6) + BRR(I, 8) - BRR(I, 10)
    Next
    Range("A3:A" & Range("A65536").End(3).Row).AutoFilter
    Sheets("库存表").Range("A4").Resize(W, 13) = BRR
    Range("A3:A" & Range("A65536").End(3).Row).AutoFilter
End Sub


{:soso_e117:}怪怪了，刚点了下库存转期初，然后清空了基本信息库，它又对了。这是什么原因呢？

dxc_qufu

学习中，先谢了！！