点击自动运算求和,小弟初学者.

佑笾的守护

点击表2的运算按钮,布料的用量就会自动生成.我知道用量那一列,用SUMIF公式就能生成,但我试试用宏做的效果.用量是根据材料明细编码在表2求和的

材料明细编码	类别	单位	材料名称	色号	颜色	规格	主身布	用量
B-ZP0001_BS	布料	码	粘朴	BS	白色
B-T80001_BS	布料	码	T88	BS	白色
B-LL0075_9167	布料	码	华粤无光针织里	9167	湖绿
B-ML1349_232	布料	码	广松加强N57网	232	汽油
B-ML1639_染秦荣兴3286-137	布料	码	莉雅9751	染秦荣兴3286-137	湖绿
B-ML1768_染秦荣兴3286-137	布料	码	绿海耳仔小花边	染秦荣兴3286-137	孔雀蓝
B-ML1777_染秦荣兴3286-137	布料	码	康氏82278A3水溶花边	染秦荣兴3286-137	孔雀蓝

lsc900707

什么意思啊，真心没看懂！

佑笾的守护

lsc900707 发表于 2018-9-18 13:30
什么意思啊，真心没看懂！

就布料那一工作表里面的用量,本来我可以设置公式求和,用SUMIF(Sheet2!A:A,布料!C2,Sheet2!R:R)就行了,但现在我想在表2添加一个按钮,点那个按钮,布料那一工作表里面的用量就会生成.

zopey

如果只是 计算某列的用量 ，用公式刚刚好。
vba写得好， 可以无中生有，变出 整个 “布料”表。

lsc900707

佑笾的守护 发表于 2018-9-18 14:31
就布料那一工作表里面的用量,本来我可以设置公式求和,用SUMIF(Sheet2!A:A,布料!C2,Sheet2!R:R)就行了,但 ...

哦，根据材料编码求用量，用字典可以代替sumif .

wj2368

sql速度快。。。。。。。。

lsc900707

1. Sub gj23w98()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     arr = [a1].CurrentRegion
   
4.     For i = 2 To UBound(arr)
   
5.         d(arr(i, 1)) = d(arr(i, 1)) + arr(i, 18)
   
6.     Next
   
7.     brr = Sheet3.[c1].CurrentRegion
   
8.     For i = 2 To UBound(brr)
   
9.         If d.exists(brr(i, 1)) Then brr(i, 9) = d(brr(i, 1))
   
10.     Next
    
11.     Sheet3.[c1].CurrentRegion = brr
    
12. End Sub

复制代码

lsc900707

测试附件看看结果是否正确：

佑笾的守护

lsc900707 发表于 2018-9-18 15:18
测试附件看看结果是否正确：

谢谢大神,已验,百分百正确.