エクセル２０１０のフォルダー内の支店ごとのブックを集計するマクロの作成方法

2014/02/23 08:37

このQ&Aのポイント

エクセル２０１０で複数のエクセルファイルから支店ごとの集計マクロを作成する方法を教えてください。
支店がフォルダ内の売上情報を毎日入力し保存している中、各支店ブックの実績シートから支店名と売上データを転記し、明細表と集計表を作成するマクロを作成したいです。
マクロ初心者の私に、どなたかマクロの作成方法を教えていただけませんか？

kazuhiro6731
お礼率36% (9/25)

Visual Basic
回答数2
ありがとう数2

みんなの回答 （2）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

hallo-2007
ベストアンサー率41% (888/2115)

2014/02/23 10:55 回答No.1

■マクロ（集計.XLS）でやりたいこと・各支店ブックの実績シートから、支店名（A5）・売上A（B5）・売上B（C5）を転記し明細表の作成この場合ですが、支店名はきちんと別途準備した方が良いでしょうね。ファイル名から取得することも可能ですが、支店の増減や変更もあるでしょうか集計用のシートを先に準備します。一例ですが 1枚の目のシートに売り上げA 支店名　2014/2　2014/3・・・・札幌東北東京・・・沖縄と2行目から支店名、左方向にデータを蓄積売り上げBは別シートで同様に準備データのあるフォルダーに一度、保存 Sub ボタン1_Click() j = InputBox("転記する列番号", "") * 1 For i = 2 To Range("A" & Rows.Count).End(xlUp).Row Workbooks.Open Filename:=ThisWorkbook.Path & "実績報告" & Range("A" & i).Value & ".xls" ThisWorkbook.Sheets(1).Cells(i, j).Value = ActiveWorkbook.Sheets(1).Range("B5").Value ThisWorkbook.Sheets(2).Cells(i, j).Value = ActiveWorkbook.Sheets(1).Range("C5").Value ActiveWorkbook.Close Next 流れは、A列にある支店名を参考に、フォルダー内のファイルを順次開いて B5セル、C5セルの値を集計のシートに入れます。動きが遅ければ Application.ScreenUpdating で、画面の変化を止めるなどしてみてください。

質問者