エクセル2010で、1つのフォルダ内にある複数のエクセルファイル(約100支店分)から、日次売上等の集計マクロを作成したいのですが方法がわかりません。
上司からの依頼を受け、ひとり悩んでましたが・・・で皆さんに相談です。ご協力お願いします
■基本条件
・毎日、支店がフォルダ内の売上情報を入力(更新)し保存する。
・全店とも中身は同書式同形式ファイル 例)実績報告A店.XLS、実績報告B店.XLS・・・
■マクロ(集計.XLS)でやりたいこと
・各支店ブックの実績シートから、支店名(A5)・売上A(B5)・売上B(C5)を転記し明細表の作成
・集計表の作成
マクロど素人の私に、どなたか教えていただけますでしょうか?
よろしくお願いします。
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
で、画面の変化を止めるなどしてみてください。
解答有難う御座いました。
家のパソコンで10ブックほどで転記をテストでやってみました。問題なく転記でき時間も気になりませんでした。
会社のパソコンでやってみます。
No.2
- 回答日時:
こんにちは。
http://www016.upp.so-net.ne.jp/cheetah/xlvba/Exc … に「複数のブックを集計する」というのがありますが、この方法はいかがでしょうか。
参考URL:http://www016.upp.so-net.ne.jp/cheetah/xlvba/Exc …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/21 09:28
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/21 13:29
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/08 11:02
- Excel(エクセル) 【マクロ】同じフォルダ内にある複数ブックから1つのブック内の1シートにデータを集めたい 6 2022/09/28 18:16
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/02/21 11:19
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/21 09:42
- Excel(エクセル) Excel、同じフォルダ内のExcelファイルの特定シートのみを1つのファイルに集約したい 8 2022/09/07 15:12
- Visual Basic(VBA) エクセルのマクロについて教えてください。 5 2023/06/02 08:44
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/20 14:46
- Excel(エクセル) フォルダ内の全ブックのシート名を変更したい 7 2022/09/22 21:34
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
【ExcelVBA】zip圧縮されたCSV...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
ワイルドカード「*」を使うとう...
-
【困っています2】VBA 追加処...
-
VBA シート名が一致した場合の...
-
EXCEL VBA 単語置き換え につい...
-
ExcelのVBAです。フォルダ内の...
-
エクセル VBA 他シートの行を選...
-
エクセルVBAで書式と値の貼付け...
-
VBA 別ブックからコピペしたい...
-
VBS Bookを閉じるコード
-
マクロで最終行を取得したい
-
【前回の続き続きです、ご教示...
-
クリップボードに貼付している...
-
Excel-VBAでのファイルの開き方
-
VBAで別ブックのシートを指定し...
-
【マクロ】違うフォルダにある...
-
VBSでExcelのオープン確認
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
エクセルVBAが途中で止まります
-
別ブックをダイアログボックス...
-
ワイルドカード「*」を使うとう...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
VBS Bookを閉じるコード
-
【ExcelVBA】インデックスが有...
-
VBA コードを実行すると画面が...
-
【ExcelVBA】zip圧縮されたCSV...
-
vbaでvbaProjectのパスワード解...
-
VBAで別ブックのシートを指定し...
-
ExcelのVBAです。フォルダ内の...
-
vbaで他のブックに転記したい。...
-
フォルダ内の全てのファイルに...
-
VBAで複数のブックを開かずに処...
-
VBSでExcelのオープン確認
-
VBA 実行時エラー 2147024893
-
【Excel VBA】書き込み先ブック...
-
VBA シート名が一致した場合の...
おすすめ情報