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

shengdingb

zhaogang1960 发表于 2014-2-7 00:41
请测试附件

• Private Sub CommandButton1_Click()
•   Unload UserForm1
• End Sub
  

把这段改成了下面这样

1. Private Sub CommandButton1_Click()
   
2. Sheets(2).Select
   
3. Dim L As Long
   
4. L = Range("A65536").End(xlUp).Row + 1
   
5. Cells(L, 1).Value = ComboBox1.Value
   
6. Cells(L, 2).Value = ComboBox2.Value
   
7. Cells(L, 4).Value = "出库"
   
8. Cells(L, 5).Value = ComboBox3.Value
   
9. Cells(L, 6).Value = ComboBox4.Value
   
10. Cells(L, 7).Value = TextBox6.Value
    
11. Cells(L, 8).Value = TextBox7.Value
    
12. End Sub

复制代码

这里是这个：Cells(L, 5).Value = ComboBox3.Value
在这“出库登记” 里的 “数量” 输入数字后，根据我上面的代码点击“确定出库”在sheet2里录入数据，如何改动能使录入出库数量时 在数字前加上负号。
并且 点击“确定出库”后“出库登记”内填的数据清空，保留在目录页面不显示sheet2页面。
附件： 出入库统计表-录入数据-复合联动.zip (38.49 KB, 下载次数: 67)

2014-2-7 12:47 上传

点击文件名下载附件

   2014年2月7日12:47

zhaogang1960

shengdingb 发表于 2014-2-7 12:47

Private Sub CommandButton1_Click()

  Unload UserForm1

End Sub

1. Private Sub ComboBox1_Change()
   
2.     ComboBox2.Clear
   
3.     ComboBox3.Clear
   
4.     ComboBox4.Clear
   
5.     If ComboBox1.ListIndex = -1 Then Exit Sub'修改一下顺序
   
6.     ComboBox2.List = Split(d(ComboBox1.Value), ",")
   
7. End Sub

复制代码

1. Private Sub CommandButton1_Click()
   
2.     Dim L As Long
   
3.     With Sheets("出入库记录")
   
4.         L = .Range("A65536").End(xlUp).Row + 1
   
5.         .Cells(L, 1).Value = ComboBox1.Value
   
6.         .Cells(L, 2).Value = ComboBox2.Value
   
7.         .Cells(L, 4).Value = "出库"
   
8.         .Cells(L, 5).Value = ComboBox3.Value * (-1)
   
9.         .Cells(L, 6).Value = ComboBox4.Value
   
10.         .Cells(L, 7).Value = TextBox6.Value
    
11.         .Cells(L, 8).Value = TextBox7.Value
    
12.     End With
    
13.     ComboBox1.ListIndex = -1
    
14.     TextBox6.Text = ""
    
15.     TextBox7.Text = ""
    
16. End Sub

复制代码

zhaogang1960

请测试附件
出入库统计表-录入数据-复合联动.rar (33.22 KB, 下载次数: 143)

2014-2-7 12:58 上传

点击文件名下载附件

shengdingb

zhaogang1960 发表于 2014-2-7 12:58
请测试附件

1“出库登记”中点击“确定出库”后，数量不会清空。
2再加一个必须6格都填完整才能录入，不然点击“确定出库”后弹框提示“请填写完整”。

3还有有没有办法让“出库登记”里面的 名称 和 型号 的复合框不能自由填写，只能选择。

今天最后3个，麻烦了。下午研究下你的代码，把入库登记 弄好。附件还是13楼的。

zhaogang1960

shengdingb 发表于 2014-2-7 13:24
1“出库登记”中点击“确定出库”后，数量不会清空。
2再加一个必须6格都填完整才能录入，不然点击“确 ...

1. Private Sub CommandButton1_Click()
   
2.     Dim L As Long, i As Long
   
3.     For i = 1 To 4
   
4.         If Me.Controls("ComboBox" & i).Value = "" Then
   
5.             MsgBox "请填写完整"
   
6.             Exit Sub
   
7.         End If
   
8.     Next
   
9.     For i = 6 To 7
   
10.         If Me.Controls("TextBox" & i).Text = "" Then
    
11.             MsgBox "请填写完整"
    
12.             Exit Sub
    
13.         End If
    
14.     Next
    
15.     With Sheets("出入库记录")
    
16.         L = .Range("A65536").End(xlUp).Row + 1
    
17.         .Cells(L, 1).Value = ComboBox1.Value
    
18.         .Cells(L, 2).Value = ComboBox2.Value
    
19.         .Cells(L, 4).Value = "出库"
    
20.         .Cells(L, 5).Value = ComboBox3.Value * (-1)
    
21.         .Cells(L, 6).Value = ComboBox4.Value
    
22.         .Cells(L, 7).Value = TextBox6.Value
    
23.         .Cells(L, 8).Value = TextBox7.Value
    
24.     End With
    
25.     For i = 1 To 4
    
26.         Me.Controls("ComboBox" & i).Value = ""
    
27.     Next
    
28.     TextBox6.Text = ""
    
29.     TextBox7.Text = ""
    
30. End Sub

复制代码

zhaogang1960

请看附件
出入库统计表-录入数据-复合联动.rar (33.95 KB, 下载次数: 77)

2014-2-7 15:31 上传

点击文件名下载附件

zhaogang1960

第3个问题需要加两句：

1. Private Sub UserForm_Initialize()
   
2.     Dim arr, i&
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     arr = Sheet5.Range("a1").CurrentRegion
   
5.     For i = 1 To UBound(arr)
   
6.         s = arr(i, 1)
   
7.         If Not d.Exists(s) Then
   
8.             d(s) = arr(i, 2)
   
9.         Else
   
10.             If InStr("," & d(s) & ",", "," & arr(i, 2) & ",") = 0 Then d(s) = d(s) & "," & arr(i, 2)
    
11.         End If
    
12.         s = s & vbTab & arr(i, 2)
    
13.         If Not d.Exists(s) Then
    
14.             d(s) = arr(i, 3)
    
15.         Else
    
16.             If InStr("," & d(s) & ",", "," & arr(i, 3) & ",") = 0 Then d(s) = d(s) & "," & arr(i, 3)
    
17.         End If
    
18.         s = s & vbTab & arr(i, 3)
    
19.         If Not d.Exists(s) Then
    
20.             d(s) = arr(i, 4)
    
21.         Else
    
22.             If InStr("," & d(s) & ",", "," & arr(i, 4) & ",") = 0 Then d(s) = d(s) & "," & arr(i, 4)
    
23.         End If
    
24.     Next
    
25.     ComboBox1.List = Filter(d.Keys, vbTab, False)
    
26.     ComboBox1.Style = fmStyleDropDownList
    
27.     ComboBox2.Style = fmStyleDropDownList
    
28. End Sub
    

复制代码

shengdingb

zhaogang1960 发表于 2014-2-7 15:36
请看附件

大哥真的感谢你了，最后一个问题。库存
这个是我根据你的代码把入库弄好了
出入库统计表-录入数据完成.zip (41.74 KB, 下载次数: 231)

2014-2-7 22:31 上传

点击文件名下载附件

里面录入了一些数据，作为写函数是运算之用。感谢。


在“库存”工作表中    能不能直接用函数自动运算：
在“库存” 工作表中把    “出入库记录”工作表中  相同名称、相同型号的 显示为一行，不同的依次往下添加。
并且在对应的后面用函数计算出“入库总量”和“库存数量”

入库总量= “出入库记录”工作表 相同名称相同型号的入库数量之和
库存数量= “出入库记录”工作表 相同名称相同型号的所有数量之和（因为之前添加了负号，所以只要求和就是最终库存了）


这样只要填写入库 和 出库登记表，库存就自动运算，一目了然。而且以后还有可能用“库存”工作表 来当出库登记中复合框的数据库来用。

shengdingb

• Private Sub CommandButton1_Click()
•     Dim L As Long, i As Long
•     For i = 1 To 7
•         If Me.Controls("TextBox" & i).Text = "" Then
•             MsgBox "请填写完整"
•             Exit Sub
•         End If
•     Next
•     With Sheets("出入库记录")
•         L = .Range("A65536").End(xlUp).Row + 1
•         .Cells(L, 1).Value = TextBox1.Value
•         .Cells(L, 2).Value = TextBox2.Value
•         .Cells(L, 3).Value = TextBox3.Value
•         .Cells(L, 4).Value = "入库"
•         .Cells(L, 5).Value = TextBox4.Value
•         .Cells(L, 6).Value = TextBox5.Value
•         .Cells(L, 7).Value = TextBox6.Value
•         .Cells(L, 8).Value = TextBox7.Value
•     End With
•     For i = 1 To 6
•         Me.Controls("TextBox" & i).Value = ""
•     Next
•     TextBox7.Text = ""
• End Sub
  

这上面代码是我根据你的出库 代码  改的 “入库登记”中“确定入库”按钮的代码。最后5行改成{:soso_e106:}

•     For i = 1 To 7
•         Me.Controls("TextBox" & i).Value = ""
•     Next
• End Sub
  

shengdingb

问题在18楼