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

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

No.1 ベストアンサー 回答者： redfox63 回答日時： 2008/10/19 03:40

数式でやったほうが簡単ですが ・・・

=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) といった数式を記述
といった具合です … 簡易なエラーチェックしかしていません

この回答へのお礼

ありがとうございます
難しく考えすぎていました
ありがとうございます

お礼日時：2008/10/19 03:58