[已解决]VBA实现简单运算

ckoeng · 发表于 2014-3-26 02:28

本帖最后由 ckoeng 于 2014-3-26 12:24 编辑

如附件表格表为35g规格产品的毛重，产品数量4000~40000，已从设备得出每支毛重，希望用代码求得每个产品的净重，且当产品数量在4000~40000个变化时，选择不同规格产品时同样可自动调用不同规格所对应的皮重计算净重。
净重=毛重-皮重：皮重数据见sheet2

最佳答案

月排行榜 / 总排行榜

dsmch

2014-3-26 05:58

………………

跳转到最佳答案楼层

dsmch · 发表于 2014-3-26 05:56

Sub Macro1()
Dim arr, brr, crr, d, i&, cpm$, js&
Set d = CreateObject("scripting.dictionary")
cpm = [b2].Value: js = [b9] '产品名、计数
arr = Range("a11").Resize(js, 2)
ReDim crr(1 To UBound(arr), 1 To 1)
brr = Sheet2.[b2:f6]
For i = 1 To UBound(brr)
d(brr(i, 1)) = brr(i, 5)
Next
x = d(cpm)
For i = 1 To UBound(arr)
crr(i, 1) = arr(i, 2) - x
Next
Range("c11").Resize(UBound(crr)) = crr
End Sub

复制代码

dsmch · 发表于 2014-3-26 05:58

………………

ckoeng · 发表于 2014-3-26 12:23

dsmch 发表于 2014-3-26 05:58
………………

先谢后看，(*^__^*) 嘻嘻……

蓝粆 · 发表于 2014-3-27 01:54

基础还是太弱慢慢看~时间不够啊哎

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