作者pLxxoy (刃伤沙汰)
看板Visual_Basic
标题[VBA ] for each ... in ...
时间Fri Mar 29 17:08:41 2013
各位板大好
我有一个函数有两个 Range
而我想要每次从一个 Range 取一个值，再从另一个 Range 取另一个值
然後把他相加
ex. R1 = A1:C1, R2 = A2:C2
所求 = A1*A2+B1*B2+C1*C2
试过用 for each ... in ... 写过，但都不是我要的结果
恳请各位帮忙，谢谢!!
下面是我尝试写的，不过是错的
Function Sum_pair(rng1
As Range, rng2
As Range)
sumx = 0
For Each cell
In rng1
x = cell.Value
Next
For Each cell
In rng2
y = cell.Value
Next
a = (x * y)
sumx = sumx + a
Sum_pair = sumx
End Function
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.113.136.217
1F：推 DeathWatch:把你的式子跟文件弄上来看看 这样讲听不太懂 03/29 21:37
※ 编辑: pLxxoy 来自: 140.113.62.217 (03/29 22:10)
※ 编辑: pLxxoy 来自: 140.113.62.217 (03/29 22:11)
2F：→ MOONRAKER:你这样用一般的for和cells(i,j)写会比较好写 03/29 23:37
3F：→ MOONRAKER:for each程式会很复杂 而且没什麽好处 03/29 23:38
4F：→ Catbert:你写的东西有内建的函式了阿@@....SUMPRODUCT 03/29 23:53