各ブックの集計値を自動的に他のブックに総合計として表示させたい。

質問

エクセルで各ブックの集計値を他のブックに集計したいのですが、フォルダを移動させると数値が違ってしまう。どうすればいつ見ても正しい集計値を見れるか教えて下さい。

現在1つのファイルの中にある、ブック1・2・3にそれぞれ数値を入力して合計値をブック3の別シートに合計表示させていますが、同じブックのシート間の集計ではないため、毎回数値が変わってしまい、その都度計算式を（＝ブック1　D60+ブック2　d80+・・・など）を入れなおしています。
間違いなく集計できる方法を教えて下さい。ちなみに全くの初心者なので細かく説明していただけると有難いです。

VBAで検索して下記を見つけ、セル範囲やシート名など変更して試してみましたが、内容がよくわからないため
変な数字がでてきました。初心者にはやはり無理でしょうか？
Sub Test()
Dim MyName As String, wb As Workbook

On Error Resume Next
MyName = Dir(ThisWorkbook.Path & "\*.xls", vbNormal)
Do While MyName <> ""
　 If UCase(MyName) <> UCase(ThisWorkbook.Name) Then
　　 Application.ScreenUpdating = False
　　 Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & MyName)
　　 ThisWorkbook.Worksheets("Sheet1").Range("A65536").End(xlUp) _
　　　　 .Offset(1, 0).Value = wb.Worksheets("物件").Range("d90:k90").Value
　　 wb.Close
　 End If
　 MyName = Dir
Loop
Application.ScreenUpdating = True

End Sub

回答No.4

onlyrom · ベストアンサー

またまた登場、onlyromです。

最初の質問と追加の質問は内容が違ってますよね？？(^^;;;
追加の質問が本物ですね？

＞更に追加して・・・すみません(^^；)
＞（１）ブック１、ブック２、ブック３が同じフォルダーにある
＞（２）ブック１のシートＡのＤ８１～Ｋ８１に合計
＞　　　ブック２のシートＢのＤ８１～Ｋ８１に合計
＞　　　ブック３のシートＣのＤ９０～Ｋ９０に合計
＞（３）ブック３のシートＣのＤ９６～Ｋ９０に（２）のブック１～３の合計を総合計したものを表示させることはできますか？
＞

シートＣのＤ９６～Ｋ９０　は　Ｄ９６～Ｋ９６　のタイプミスですね。　

【最重要確認】
ブック３がThisWorkbookであり、
各シートで計算済みの合計範囲をブック３のシートＣに合計して転記するんですね？

ということで、サンプル。
'-------------------------------------------------
Sub Test()
Dim WB As Workbook
Dim BookName As String

Dim SheetName As String
Dim Clm As Integer

Dim Gokei(1 To 8) As Double

Application.ScreenUpdating = False

BookName = Dir(ThisWorkbook.Path & "\*.xls", vbNormal)

Do While BookName <> ""

　If BookName = ThisWorkbook.Name Then
　　　Set WB = ThisWorkbook
　Else
　　　Set WB = Workbooks.Open(ThisWorkbook.Path & "\" & BookName)
　End If

　Select Case BookName
　　Case "ブック１.xls"
　　　　SheetName = "シートＡ"
　　　　TargetRow = 81
　　Case "ブック２.xls"
　　　　SheetName = "シートＢ"
　　　　TargetRow = 81
　　Case Else
　　　　SheetName = "シートＣ"
　　　　TargetRow = 90
　End Select

'●合計計算
　　For Clm = 4 To 11
　　　　Gokei(Clm - 3) = Gokei(Clm - 3) + WB.Sheets(SheetName).Cells(TargetRow, Clm).Value
　　Next Clm

　If BookName <> ThisWorkbook.Name Then
　　　WB.Close
　End If

　BookName = Dir
Loop

'●合計計算結果を転記
　ThisWorkbook.Sheets("シートＣ").Range("D96:K96").Value = Gokei()

　Application.ScreenUpdating = True
End Sub
'------------------------------------------

（注意点）
フォルダーの中には、ブック１，２，３以外はないものとしています。
他のブックがある場合はチェックコードを追加しなければいけません。

なお、各ブックのシート名や合計範囲が違うのでちょと面倒そうですが、
最初の質問のようにそれらが同じだとより簡単なコードになります。

お礼

すみません(^_^;)その通りです。
時間を掛けて試みましたが、やはり出来ませんでした。
実行時エラー9
インデックスが有効範囲にありません。
やコンパイルエラー？とか出て・・・
ちょっと難しすぎたようです。(＠_＠;)
有難うございました。

回答No.3

onlyrom

再度の登場、onlyromです。

お気づきとは思いますが、回答２にちょこっとミスあり。

＞（２）ブック３のSheet1のＡ～Ｈ列の最終行【に】

最後の【に】は間違いで次のようになります。

（２）ブック３のSheet1のＡ～Ｈ列の最終行【の次の行から】

以上。

回答No.2

onlyrom

＞同じブックのシート間の集計ではないため、毎回数値が変わってしまい、その都度計算式を（＝ブック1　D60+ブック2　d80+・・・など）を入れなおしています

同じブックのシート間の集計でないため毎回数値が変る、という意味が分かりません。

要するに次のようなことですか？（提示のコードも考慮）

（１）ブック１、ブック２、ブック３が同じフォルダーにある
（２）ブック３のSheet1のＡ～Ｈ列の最終行に
　　　ブック１、ブック２のＤ９０～Ｋ９０の値を転記する
（３）転記されるのは常に、Ｄ９０～Ｋ９０の固定範囲である

で、あれば提示のコードにはミスがあります。

＞ .Offset(1, 0).Value = wb.Worksheets("物件").Range("d90:k90").Value

これでは、Ｄ９０の値しか転記されません。以下のように訂正

.Offset(1, 0).Resize(1, 8).Value = wb.Worksheets("物件").Range("D90:K90").Value

再度いいますが、実際の処理の流れ（どこのセルをどのように等）をより具体的に提示したほうがいいでしょう。

お礼

ありがとうございます。(#^.^#)
説明ベタで・・・
まさにその通りです！D90の値だけが表示されていて・・・
範囲指定をどこでどういれるのか？判らず困っていました。
とても判り易かったです。

補足

更に追加して・・・すみません(^^；)
（１）ブック１、ブック２、ブック３が同じフォルダーにある
（２）ブック１のシートＡのＤ８１～Ｋ８１に合計
　　　ブック２のシートＢのＤ８１～Ｋ８１に合計
　　　ブック３のシートＣのＤ９０～Ｋ９０に合計
（３）ブック３のシートＣのＤ９６～Ｋ９０に（２）のブック１～３の合計を総合計したものを表示させることはできますか？

補足に書いていいのかわかりませんが・・・よろしくお願いします。<(_ _)>

回答No.1

tatekenta

＞フォルダを移動させると数値が違ってしまう
コードどうこうより、これでは特定の記憶領域を毎回検索して対象のブックの場所を読み込ませなければ無理です。移動するのはやめてください。

補足

早速の回答ありがとうございます。
フォルダを移動させなくても、毎回開いて数値を入力すると合計金額がおかしくなるんです。