一个办公用品出入库登记表，内详更新中，18楼最后一个问题求帮。

shengdingb · 发表于 2014-2-9 23:28

本帖最后由 shengdingb 于 2014-2-10 13:17 编辑

1.0.jpg

办公用品出入库登记表-V1.0.zip (72.61 KB, 下载次数: 459) 2014-02-09更新办公用品出入库登记表-v1.0版。密码：123前面没办法修改了，只能发回复了。

zhaogang1960 · 发表于 2014-2-9 23:55

shengdingb 发表于 2014-2-7 22:43
大哥真的感谢你了，最后一个问题。库存
这个是我根据你的代码把入库弄好了
里面录入了一些数据，作为写 ...

没有看懂，请模拟效果说明，还有要说明的是：与窗体有什么关系

xuanfeng227 · 发表于 2014-2-10 11:01

好好学习了

shengdingb · 发表于 2014-2-10 13:16

zhaogang1960 发表于 2014-2-9 23:55
没有看懂，请模拟效果说明，还有要说明的是：与窗体有什么关系

21楼的附件，库存工作表中，点击“计算库存”按钮后得到的结果，我用的笨办法录制宏做的，“计算库存”按钮里的代码我写的解释。

看看我那样做还可以吗，就是在“出库”登记表中，那个复合框，选项还是有点弊端，数量中显示的是库存量，但是选择比库存大，还是能出库。

还有我想时间旁边加个按钮，点一下就能自动填充当前时间。

zhaogang1960 · 发表于 2014-2-10 14:25

本帖最后由 zhaogang1960 于 2014-2-10 15:15 编辑

shengdingb 发表于 2014-2-10 13:16
21楼的附件，库存工作表中，点击“计算库存”按钮后得到的结果，我用的笨办法录制宏做的，“计算库存”按 ...

我阅读能力有限，请模拟效果说明要求如果是新问题，请把窗体删除，以免影响思路

shengdingb · 发表于 2014-2-10 15:40

zhaogang1960 发表于 2014-2-10 14:25
我阅读能力有限，请模拟效果说明要求如果是新问题，请把窗体删除，以免影响思路

全分离出来了。麻烦了。

计算库存.zip (14.94 KB, 下载次数: 63) ，说明在“库存”工作表里

zhaogang1960 · 发表于 2014-2-10 16:21

shengdingb 发表于 2014-2-10 15:40
全分离出来了。麻烦了。，说明在“库存”工作表里

Private Sub CommandButton1_Click()
Dim arr, brr(), i&, j&, s$, r, m&, d As Object
Set d = CreateObject("scripting.dictionary")
arr = Sheets("出入库记录").Range("A1").CurrentRegion
ReDim brr(1 To UBound(arr), 1 To 6)
For i = 2 To UBound(arr)
s = arr(i, 1) & vbTab & arr(i, 2)
r = d(s)
If r = "" Then
m = m + 1
d(s) = m
r = m
For j = 1 To 3
brr(m, j) = arr(i, j)
Next
brr(m, 4) = arr(i, 6)
End If
If arr(i, 4) = "入库" Then
brr(r, 5) = brr(r, 5) + arr(i, 5)
ElseIf arr(i, 4) = "出库" Then
brr(r, 6) = brr(r, 6) + arr(i, 5)
End If
Next
For i = 1 To m
brr(i, 6) = brr(i, 5) + brr(i, 6)
Next
Range("A1").CurrentRegion.Offset(1).ClearContents
Range("A2").Resize(m, 6) = brr
End Sub

复制代码

zhaogang1960 · 发表于 2014-2-10 16:22

请测试附件

计算库存.rar (26.16 KB, 下载次数: 76)

shengdingb · 发表于 2014-2-11 22:13

zhaogang1960 发表于 2014-2-10 16:22
请测试附件

再次感谢版主

zhaogang1960帮忙完善了计算库存的代码。这几天除了上班就在弄这表，也感谢版主能帮忙，真心感谢。

我发现我在别的窗口做按钮不能计算 “库存”里的宏。
360截图20140211220644419.jpg

附件：：

窗口按钮计算库存.zip (24.93 KB, 下载次数: 37)

shengdingb · 发表于 2014-2-11 22:16

修改计算库存的宏

		自动登录	找回密码
密码			免费注册

[求助] 一个办公用品出入库登记表，内详更新中，18楼最后一个问题求帮。