集計用のVBA

質問

いつもお世話になります。
今回は、VBAを使った、ブック間での集計について教えてください。

現在、担当者別にExcelブックが１５人分あります。（ブック名の定義は"ブック2012（担当者名）.xlsx"）

そのブックには、D3～AH49までデータ（空白セルもあります）が記入されてあり、また月別Sheetが12カ月分存在します。

そして、集計用ブックが存在し、上記のブックと全く同じ配置で構成されています（セル、シート共）

やりたいこと
・集計用ブックに、担当者ブックの合計を行いたい。
・集計用ブックに新たなシートを付加し、そこで年度や担当者名を定義したい。また、そのSheetにコマンドボタンを設置し、そのボタンを押すと自動集計が始まるようにもしたい。
　＊上記の担当者ブック名の年度が変更されたり、担当者が増減しても、A1セルに2013、B列セルに　　 担当者を記入していけば、そのブックのみの集計を行ってくれる。

以上が、私のやりたい事で、このVBAを教えていただきたいのです。

皆様、どうかよろしくお願いいたします。

回答No.1

keithin · ベストアンサー

ご相談の曖昧箇所：
１）各担当者ブックには１月から１２月迄の「１２枚のブックしか含まれていない」
２）「合計する」とは，「同じセルにある数字同士を」集計ブックの同じセルに合算する
３）集計ブックの「新たなシート」はSheet1という名前で「既に作成済み」である
４）新たなシートの「Ａ２セル」に2013と記入し，「Ｂ２以下のセル」に担当者名を列記する
５）ファイル名及びマクロに記入する"（"と"）"は「まちがいなくすべて全角のカッコ」である
６）合算する「前に」集計ブックの１２ヶ月分各シートは空っぽにしてある
７）当たり前の事ですが，各担当ブックおよび集計ブックの１月から１２月迄の各シートは，「間違い無くシート名を共通にしてある」

手順：
集計ブックに標準モジュールを挿入する
下記のマクロを記載する

sub macro1()
　dim myPath as string
　dim myFile as string
　dim h as range
　dim w as workbook
　dim s as worksheet

　worksheets("Sheet1").select
　mypath = thisworkbook.path & "\" & "ブック" & range("A1").value

　for each h in range("B2:B" & range("B65536").end(xlup).row)
　　myfile = "（" & h.value & "）.xlsx"
　　set w = workbooks.open(mypath & myfile)
　　for each s in w.worksheets
　　　s.range("D3:AH49").copy
　　　thisworkbook.worksheets(s.name).range("D3").pastespecial _
　　　　paste:=xlpasteall, operation:=xladd, skipblanks:=true
　　next
　　application.cutcopymode = false
　　w.close savechanges:=false
　next
end sub

シート１にオートシェイプの図形を取り付けてボタン絵柄とし，右クリックしてマクロの登録でマクロを登録する。

お礼

ありがとうございました。