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

zjdh

山马拐 发表于 2013-9-22 11:25
楼主，财务上一般材料出库单价用得最多的是月底一次加权平均法（移动加权平均法还少一点）核算出来的单价， ...

可对于商户来说，即刻出货，即刻开票，只能是移动加权平均法计算单价，反正可以自由修改单价的，可作为参考用。

yzxueyy

楼主绝对是人才！太赞了！

xbxinyu

请问这是哪出问题。（内存溢出）

zjdh

xbxinyu 发表于 2013-9-22 17:22
请问这是哪出问题。（内存溢出）

可能是控件引用出了问题了，检查一下引用，将丢失的控件引用取消，保存后再打开即可。

flycwb

zjdh 发表于 2011-4-9 22:17
动画：
库存明细表编码模糊输入                               .

感谢分享，值得学习。

xbxinyu

您好:我想将"加权价单价全部改用基础信息里的单价,在哪改呢

sdzmd

你好！什么是引用的控件，怎么取消

zjdh

xbxinyu 发表于 2013-9-24 09:31
您好:我想将"加权价单价全部改用基础信息里的单价,在哪改呢

“单据录入”中修改
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ARR, I&
    If Not Intersect(Range("G1:G11"), Target) Is Nothing And Range("b2") = "物 资 出 库 单" Then
        On Error GoTo 1
        With Sheets("数据库")
            ARR = .Range("E2:N" & .Range("E65500").End(3).Row)
        End With
        For I = 1 To UBound(ARR)
            If ARR(I, 1) = Target.Offset(0, -4) Then
                RS = RS + ARR(I, 5)
                CS = CS + ARR(I, 8)
            End If
        Next
        With Sheets("基础信息表")
            ARR = .Range("A2:F" & .Range("A65500").End(3).Row)
        End With
        For I = 1 To UBound(ARR)
            If ARR(I, 1) = Target.Offset(0, -4) Then
                RS = RS + ARR(I, 5)
                RJ = ARR(I, 6)
                Exit For
            End If
        Next
        If RS - CS > 0 Then
            Target.Offset(, 1) = RJ
        End If
        If RS - CS - Target < 0 Then MsgBox "本物资库原存数量为: " & RS - CS
    End If
1
End Sub

zjdh

sdzmd 发表于 2013-9-24 20:27
你好！什么是引用的控件，怎么取消

1. 打开文件
2. Alt+F11打开VB编辑器
3. 菜单----工具----引用----取消丢失的控件
4. 保存文件

sdzmd

zjdh 发表于 2013-9-24 21:43
1. 打开文件
2. Alt+F11打开VB编辑器
3. 菜单----工具----引用----取消丢失的控件

还是不行