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

shengdingb

看过很过朋友做的都是制造业上的仓库管理，我设想了一个办公办公用品的出入库，此表格做成后非常的简单明了，谁看谁都会用，不用说明，而且所有录入 出库记录都记录在内，相当实用，所有单位和个人都可以使用，以前看到过有一种差不多，但是找不到了。一共3个工作表，1是目录，2是出入库情况记录，3是计算库存
详细说明见图，附件里只做了一个大概的样子，详细的规划，本人因身体原因能力有限，但是非常喜欢excel，还希望大家能帮忙，如何实现窗口输入，录入后在另外一个工作表依次往下填入。
图1

图3



如果有朋友能帮我，请看附件，在这里先感谢了：
111.zip (11.52 KB, 下载次数: 249)

2014-2-6 00:25 上传

点击文件名下载附件

这个只有初步策划，不用下了。
-------------------------------------------------------------- 以下更新2014-02-06-10:00更新 --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------   
下面附件已经把窗体都做好了。出库中的下拉复合框好像代码为什么不行

办公用品出入库统计表1-窗体做好.zip (33.27 KB, 下载次数: 71)

2014-2-6 15:27 上传

点击文件名下载附件

2014-2-6更新



-------------------------------------------------------------- 以下更新2014-02-06-23:30更新 --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------  


感谢zhaogang1960   和   excel333    帮助做了复合框联动，

下面的附件“入库”“出库”我做好了基本的录入，“出库”也可以用复合框联动选择，但是也是有很多问题。都写在附件的“说明”里也就是上图。
在做的过程中遇到很多问题，发现了很多需要完善的细节。真心感谢帮助的朋友。我会把所有学到的 做的过程 都继续写出来。还是需要大家帮忙，我有很多不懂。
存在问题例如：点击“确定入库”“确定出库” 后如何保留在窗口页面，并且清除窗口所填信息，未填完整点击“确定入库” 弹出小窗口提示填写完整。
办公用品出入库统计表-可以录入数据.zip (39.07 KB, 下载次数: 210)

2014-2-6 23:42 上传

点击文件名下载附件

  2014-02-06  23:40
-------------------------------------------------------------- 以下更新2014-02-07-22:00------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

虽然麻烦了    zhaogang1960   我们的版主很多，但是想想做事情得有始有终，必须得把这个完成，并且这也是个整个一套制作流程。每一步的进展都在这。

下面附件 实现了：
目录4个按钮正常运作，入库 出库 的窗口输入效果都达到了，输入不完整 则点了确定没反应，正确输入 点击确定后保留在输入窗口页面，并且清除输入框内的数据。

出入库统计表-录入数据完成.zip (41.74 KB, 下载次数: 341)

2014-2-7 22:08 上传

点击文件名下载附件

2014-02-07 22:00更新

-------------------------------------------------------------- 以下更新2014-02-08-22:00------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ 今天加了个登录系统，全屏登录窗口，登录后可以改密码，添加登录用户和密码，添加部门和人员，保存并注销按钮退回到登录界面。只是账号都是所有权限还要改进。附件稍后发




这个问题还需要大家帮忙下载在18楼接下来是最后一个问题，虽然问题还很多，不太好意思再要求了。所以下面的就变成最后一个了。就是汇总“库存”工作表。见下图
图1 是“出入库记录”工作表，就是入库  出库  填写的内容录入到这里。

图2是“库存” 工作表，这里就是最后一个问题，见图，附件就是上面一个附件。


==============================================截止到这，下面不知道为什么还有图，请忽略，我删不掉=============================================================








补充内容 (2014-2-9 23:25):
不能修改了，发个1.0版本，有登录系统，功能能用也能计算库存。20楼

shengdingb

例如：sheet1中的窗口1 输入数据后，点击确定按钮，在sheet2中按向下行排列。  代码怎么写。

shengdingb

还请大家帮忙。

zhaogang1960

没有细看，是选择ComboBox1后，ComboBox2、ComboBox3、ComboBox4跟着联动？如果是请测试：

1. Dim d(2 To 4) As Object
   
2. 
   
3. Private Sub ComboBox1_Change()
   
4.     If ComboBox1.ListIndex = -1 Then Exit Sub
   
5.     ComboBox2.Clear
   
6.     ComboBox3.Clear
   
7.     ComboBox4.Clear
   
8.     ComboBox2.List = Split(d(2)(ComboBox1.Value), ",")
   
9.     ComboBox3.List = Split(d(3)(ComboBox1.Value), ",")
   
10.     ComboBox4.List = Split(d(4)(ComboBox1.Value), ",")
    
11. End Sub
    
12. 
    
13. Private Sub UserForm_Initialize()
    
14.     Dim arr, i&, j&
    
15.     For i = 2 To 4
    
16.         Set d(i) = CreateObject("scripting.dictionary")
    
17.     Next
    
18.     arr = Sheet5.Range("a1").CurrentRegion
    
19.     For i = 1 To UBound(arr)
    
20.         s = arr(i, 1)
    
21.         If Not d(2).Exists(s) Then
    
22.             For j = 2 To 4
    
23.                 d(j)(s) = arr(i, j)
    
24.             Next
    
25.         Else
    
26.             For j = 2 To 4
    
27.                 If InStr("," & d(j)(s) & ",", "," & arr(i, j) & ",") = 0 Then d(j)(s) = d(j)(s) & "," & arr(i, j)
    
28.             Next
    
29.         End If
    
30.     Next
    
31.     ComboBox1.List = d(2).Keys
    
32. End Sub
    

复制代码

zhaogang1960

请看附件
办公用品出入库统计表.rar (29.58 KB, 下载次数: 400)

2014-2-6 21:44 上传

点击文件名下载附件

excel333

入库表的名称和型号弄好了，其他的自己弄！

shengdingb

感谢   zhaogang1960             excel333          给予的帮助，真诚的谢谢你们，特别谢谢 zhaogang1960  

说明一下  zhaogang1960 的附件是出库登记表中的 4个复合框联动。5楼

               excel333   的附件是 入库登记表中的 2个复合框联动。6楼

shengdingb

zhaogang1960 发表于 2014-2-6 21:44
请看附件

发现个问题，名称和型号都可以对应，但是数量只能对应名称，能不能对应上面2者。
或者其实就对应型号就可以了。只要选择了特定的型号就只会显示特定的数量。

zhaogang1960

shengdingb 发表于 2014-2-7 00:23
发现个问题，名称和型号都可以对应，但是数量只能对应名称，能不能对应上面2者。
或者其实就对应型号就 ...

1. Dim d As Object
   
2. 
   
3. Private Sub ComboBox1_Change()
   
4.     If ComboBox1.ListIndex = -1 Then Exit Sub
   
5.     ComboBox2.Clear
   
6.     ComboBox3.Clear
   
7.     ComboBox4.Clear
   
8.     ComboBox2.List = Split(d(ComboBox1.Value), ",")
   
9. End Sub
   
10. 
    
11. Private Sub ComboBox2_Change()
    
12.     If ComboBox2.ListIndex = -1 Then Exit Sub
    
13.     ComboBox3.Clear
    
14.     ComboBox4.Clear
    
15.     ComboBox3.List = Split(d(ComboBox1.Value & vbTab & ComboBox2.Value), ",")
    
16. End Sub
    
17. 
    
18. Private Sub ComboBox3_Change()
    
19.     If ComboBox3.ListIndex = -1 Then Exit Sub
    
20.     ComboBox4.Clear
    
21.     ComboBox4.List = Split(d(ComboBox1.Value & vbTab & ComboBox2.Value & vbTab & ComboBox3.Value), ",")
    
22. End Sub
    
23. 
    
24. Private Sub CommandButton1_Click()
    
25.   Unload UserForm1
    
26. End Sub
    
27. 
    
28. Private Sub UserForm_Initialize()
    
29.     Dim arr, i&
    
30.     Set d = CreateObject("scripting.dictionary")
    
31.     arr = Sheet5.Range("a1").CurrentRegion
    
32.     For i = 1 To UBound(arr)
    
33.         s = arr(i, 1)
    
34.         If Not d.Exists(s) Then
    
35.             d(s) = arr(i, 2)
    
36.         Else
    
37.             If InStr("," & d(s) & ",", "," & arr(i, 2) & ",") = 0 Then d(s) = d(s) & "," & arr(i, 2)
    
38.         End If
    
39.         s = s & vbTab & arr(i, 2)
    
40.         If Not d.Exists(s) Then
    
41.             d(s) = arr(i, 3)
    
42.         Else
    
43.             If InStr("," & d(s) & ",", "," & arr(i, 3) & ",") = 0 Then d(s) = d(s) & "," & arr(i, 3)
    
44.         End If
    
45.         s = s & vbTab & arr(i, 3)
    
46.         If Not d.Exists(s) Then
    
47.             d(s) = arr(i, 4)
    
48.         Else
    
49.             If InStr("," & d(s) & ",", "," & arr(i, 4) & ",") = 0 Then d(s) = d(s) & "," & arr(i, 4)
    
50.         End If
    
51.     Next
    
52.     ComboBox1.List = Filter(d.Keys, vbTab, False)
    
53. End Sub
    

复制代码

zhaogang1960

请测试附件
办公用品出入库统计表.rar (33.46 KB, 下载次数: 288)

2014-2-7 00:40 上传

点击文件名下载附件