已解决-我正在使用的库存报表，和一个神奇的想法

cafe1999

附件是我正在使用的仓库报表，虽说简单，但很实用

刚才冒出有个神奇的想法，因为和同事交流的时候，说的物料名称都很简单，比如“50mm110克5T4线捆绑带蓝色”，就说“5T4线蓝色”，大家也知道是什么东西，所以如果我在入库或者出库里增加一列特征编号，

在入库单或者出库单里输入完特征编号后，如果对应多个规格，弹出个选框，里面包括所有特征编号是刚才输入值的，这时候只需要选中需要的规格，点确认，
这样岂不大大增加了输入的效率，名称编码就核对下就好了

这是个神奇的想法，VBA应该是可以实现做出来，以我初学者的水平实在是做不了，各位高手看看能否实现，


膜拜大神出现！ 半成品库存报表.rar (25.83 KB, 下载次数: 174)

2014-1-20 14:12 上传

点击文件名下载附件

grf1973

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Column <> 4 Or Target.Row < 3 Then Me.ComboBox1.Visible = False: Exit Sub
   
3.     If Target.Count > 1 Or Len(Target) = 0 Then Me.ComboBox1.Visible = False: Exit Sub
   
4.     With Sheet3
   
5.         r = .[e65536].End(3).Row
   
6.         arr = .Range("e5:g" & r)
   
7.     End With
   
8.     With Me.ComboBox1
   
9.         .Visible = True
   
10.         .Clear
    
11.         .Top = Target.Top
    
12.         .Left = Target.Left + Target.Width
    
13.         For i = 1 To UBound(arr)
    
14.             If arr(i, 1) = Target Then .AddItem arr(i, 2)
    
15.         Next
    
16.     End With
    
17. End Sub
    
18. 
    
19. Private Sub ComboBox1_Change()
    
20.     With Me.ComboBox1
    
21.         If Len(.Text) > 0 Then
    
22.             .TopLeftCell.Value = Me.ComboBox1
    
23.             .Visible = False
    
24.         End If
    
25.     End With
    
26. End Sub
    

复制代码

grf1973

在表中建个控件ComboBox1（组合框）。然后D列改变时组合框里的选项内容可以随着D列改变而改变，组合框点远后结果会自动填充到E列。

cafe1999

grf1973 发表于 2014-1-20 14:57
在表中建个控件ComboBox1（组合框）。然后D列改变时组合框里的选项内容可以随着D列改变而改变，组合框点远后 ...

大神！膜拜你！

slying1112

做得还不做，如果增加一个物料对照表，在用VLOOKUP 完成物料编码引用过来，不用录入最好，                                                                                                                                                           物料编码        特征        名称规格        单位
类型        编码                               
单层圈带        350290001        单层圈带350290001        0.75-6.5        49-35-0.75T-6.5:1        kg
单层圈带        350298101        单层圈带350298101        0.75-6.5        49-35-0.75T-6.5:1蓝色        kg
单层圈带        600600021        单层圈带600600021        2-5        102-65-2T-5:1-2B        kg
单层圈带        600602121        单层圈带600602121        2-5        102-65-2T-5:1-2B绿色        kg
单层圈带        500660101        单层圈带500660101        1.7-6.5        104-50-1.7T-6.5:1        kg
单层圈带        500300101        单层圈带500300101        1-5        106-50-1T-5:1        kg
美规绑带        500550021        美规绑带500550021        5.45-2        103-53-5.45T-2R        kg
美规绑带        500553121        美规绑带500553121        5.45-2        103-53-5.45T-2R黄色        kg

slying1112

slying1112 发表于 2014-4-29 20:57
做得还不做，如果增加一个物料对照表，在用VLOOKUP 完成物料编码引用过来，不用录入最好，                        ...

这样子，在入库，领用的时候只要录入 物料编码和数字就可以了

gemi1977

送人玫瑰，手留余香。谢谢！

bpw0258

学习了,谢谢分享!