|
楼主 |
发表于 2014-8-26 16:23
|
显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
2841889887 发表于 2014-8-26 11:08
看到山菊花总版主帖子,很高兴,下载学习,昨天您还帮助我解决了我的大问题(对您而言小事一桩),看到了字 ...
字典是个很有用的东西,值得去学习和掌握并用到实践中。
如昨天的问题,先将物料编号对应的列位置保存到字典中:
For i = 4 To nL1 - 1
ds(Arr(2, i)) = i
Next
同时将“项目&用途”对应的行位置保存到字典中:
For i = 4 To nR1 - 3
ds(Arr(i, 1) & Arr(i, 2)) = i
Next
程序定义一数组Arr(),用于保存统计结果,统计过程中,要知道每一个物料编号在第几列,问问字典就知道:
nL = ds(Left(Brr(i, 3), 4))
要知道“项目&用途”在第几行,同样问问字典就知道:
nR = ds(Brr(i, 1) & Brr(i, 2))
确定了行号和列号,就可以把当前金额累加到数组对应位置:
Arr(nR, nL) = Arr(nR, nL) + nJe
不用字典定位行号和列号要麻烦好多。
帖子地址:http://club.excelhome.net/forum. ... p;page=1#pid7821727 |
|