[[20040709212700]]　『複数ファイルの集計』（かえる）　ページの最後に飛ぶ

『複数ファイルの集計』（かえる）

こんばんは。

複数シートや複数ファイルの同一位置に形の決まったフォーマットの表があって、
数値が入力されています。
この複数シートや複数ファイルにある数値を一つの表に全て集計することが
可能でしょうか？

 直接の回答でなくて申し訳ないのですが･･･。
マクロを利用すれば可能なんですが、
それよりも、運用方法の再考をお勧めします。
入力したものをそのまま保存しておきたいのはわかるのですが、
同じフォーマットの表をたくさん作るのは管理ばかりが大変になります。
その表に表示するデータをひとつのリストにまとめたシート、
フォーマットに関数を埋め込んでリストから必要なデータを表示するシート、
この二つのシートを一つのブックに作れば間に合うのではありませんか？
集計もデータリストのシートをモトに行えばずっと簡単に済みます。
(KAMIYA)

同じ悩みを持つ者です。
複数の人に入力いただくため、フォームを配って、それを集めて集計
という形になってしまいます。
上記「マクロを利用すれば可能」ということであれば、その方法を
教えていただけますでしょうか。
宜しくお願いいたします。
(Shika)

 すべてのシートを一つのブックにまとめて串刺したらいいと思いますが(わっち)

 マクロで実行するには
・どのようなフォルダに格納されていて
・どのようなシート構成のブックで
・どのようなデータを
・どのように集計するか
でだいぶ様相が変わってきます。
下記はサンプルです。
　
 Sub TEST_20040712()
 Rem C:\testにあるブックの一番左側のシートを
 Rem このマクロが登録されたブックのへ一番左側のシートへ
 Rem 値貼り付け（加算）していきます。
     Dim MyPath As String
     Dim FileName As String
     Application.DisplayAlerts = False
     MyPath = "C:\test\"
     FileName = Dir(MyPath & "*.xls")

     Do While FileName <> ""
         Workbooks.Open MyPath & FileName
             Sheets(1).Cells.Copy
             ThisWorkbook.Sheets(1).Cells.PasteSpecial _
                       Paste:=xlPasteValues, _
                       Operation:=xlAdd

         ActiveWorkbook.Close
         FileName = Dir()
     Loop
     Application.DisplayAlerts = True
 End Sub
　
【参考】
[[20031029003431]]『ブック10個をひとつのブックにまとめたい』（MB） 
(KAMIYA)

ご回答ありがとうございます。
複数の人に入力してもらうので運用を変更するのはむずかしそうですが、
なんとか楽な方法を考えて見ます。
（かえる）

コメント返信：

[ 一覧(最新更新順) ]

[[20040709212700]] 『複数ファイルの集計』（かえる） ページの最後に飛ぶ

[[20040709212700]]　『複数ファイルの集計』（かえる）　ページの最後に飛ぶ