VBAでシート毎に演算した項目を足しこむには？

質問

ｖｂａの初心者です。
各シート毎で演算された項目の足し算について教えてください。

例えば、”ｔｅｓｔ．ｘｌｓ”というファイルがあって、その中のシートは下記のようになっています。

Ｂ２：算数の得点
Ｂ３：国語の得点
Ｂ４：理科の得点
Ｂ５：社会の得点
Ｂ６：ＳＵＭ（Ｂ２：Ｂ５）

こんな構成のシートが１０枚（"sheet01"～"sheet10"）あり、１１枚目のシート（"sheet11"）に各シートのＢ６の値を足してみようとマクロを組んでみようとしているのですが上手くいきません。

For Each sht In Worksheets

jnum = jnum + sht.Cells("B2").Value 'これはエラーにならない

inum = inum + sht.Cells("B6").Value 'これはエラーになる

Next

上記のようなＦｏｒ～Ｎｅｘｔで行おうとしています。Ｂ２の方は直接数値が入っているのですんなり足せるのですが、Ｂ６の方はＳＵＭであるためか上手くできません。どのような記述をすれば良いのでしょうか？excel2000を使用しています。
お手数をおかけしますが御教示ください。

回答No.2

merlionXX · ベストアンサー

では、マクロの一例です。

Sub test01()
　　Dim i As Long, n As Long '変数宣言
　　For i = 1 To 10 '1～10まで
　　　　For n = 2 To 6 '2～6まで
　　　　　　With Sheets("Sheet11") 'Sheet11に加算
　　　　　　　　.Cells(n, "B").Value = .Cells(n, "B").Value + Sheets("Sheet" & i).Cells(n, "B").Value
　　　　　　End With
　　　　Next n '繰り返し
　　Next i '繰り返し
End Sub

お礼

回答ありがとうございます。
ヒントを頂けたのでもうちょっと考えてみます。

回答No.3

Wendy02

>　jnum = jnum + sht.Cells("B2").Value'これはエラーにならない

Rangeオブジェクトの引数と、Cellsプロパティの引数とは違います。
どうしてエラーにならないのでしょうね。
　　jnum = jnum + sht.Range("B2").Value
　　inum = inum + sht.Range("B6").Value

とすればよいのではないでしょうか？
後は、inumのデータ型の宣言が数値型になっていないとか？

お礼

回答ありがとうございます。
色々教えて頂いてひらめくものがあったのでもうちょっと考えてみます。

回答No.1

nattocurry

マクロじゃなくても、
=SUM('Sheet01:Sheet10'!B6)
という計算式で出来ますけど、これじゃダメでしょうか？

お礼

回答ありがとうございます。
式そのものをぶち込むのも良さそうですね。別のやり方しか考えていなかったので全く気が付きませんでした。もうちょっと考えています。