エクセル A1の値と同じ値の入ったB列のC列の計

質問

エクセル　A1の値と同じ値の入ったB列のC列の計

役に立った：1件

質問者：tompapa56
投稿日時：2008/10/19 03:02
困り度：

A1=10 D1=37
B C
10 15
11 10
10 12
12 1
10 10
A1と同じ値をB列から探し其の行のC列の値の合計をD1に表示したいのです
ご教授ください

この質問への回答は締め切られました。

数式でやったほうが簡単ですが・・・
=SUMIF(B1:B5,A1,C1:C5)
または
=SUMPRODUCT((B1:B5=A1)*1,C1:C5)

どうしてもVBAでというなら
標準モジュールに
Function mySum(rCnd as range, vSelect as variant, rSum as Range) as variant
　　dim nCount as Long
　　nCount = rCnd.rows.Count
　　if nCount <> rSum.rows.Count then
　　　　mySum = "---"
　　else
　　　　dim vC, vS
　　　　dim n as Integer, value
　　　　vC = rCnd.value
　　　　vS = rSum.Value
　　　　for n = 1 to nCount
　　　　　　if vC(n,1) = vSelect then
　　　　　　　　value = value + vS(n,1)
　　　　　　end if
　　　　next
　　　　mySum = value
　　end if
end Function
D1セルに =mySum(B1:B5, A1, C1:C5) といった数式を記述
といった具合です … 簡易なエラーチェックしかしていません