勉強の為にシェアしました。
https://oshiete.goo.ne.jp/qa/6061797.html
No.4ベストアンサー
- 回答日時：
フォルダー内の全エクセルファイルのデータを１シートにまとめるVBAのコードはWeb検索すれば、種々みつかります。
下記はコードの若干の解説もあって良いと思います。http://hpcgi1.nifty.com/kenzo30/b_cbbs/cbbs.cgi? …
問題は、「同一フォーム」の内容ですね。
データ中に各支店名が含まれていなければ、抽出時に付与しないと訳が分からなくなるし、
変に凝った様式だと単純にコピーするだけではうまくいかないし。
- 5
- 件
No.6
- 回答日時：
ＶＢＡの操作です。
この手の操作は頻度高いです。
質問に挙げている要件について、そのままネット検索してテクニックを
見つけてください。
例）
http://www.asahi-net.or.jp/~zn3y-ngi/YNxv20002.h …
ファイルダイアログを表示してブックを開く
フォルダ中のファイル名をシートに書く
http://www.asahi-net.or.jp/~ef2o-inue/menu/menu0 …
指定したフォルダ内にある複数のExcelワークブックを順次開いて処理を行なう
・フォルダ選択ダイアログを表示
・複数ファイルを選ぶ
・順次シート１を取りこむ
ここまではよくある話です。
１ブックに１００シート分収めてから、最後に計算し集約する
か
対象ブックを開いたときに随時値を取得して、集計セルへ（を１００回繰り返す）
どちらかになります。
２ファイル分をマクロの記録で実施して、
それが１００ファイル分になるよう考えてみる、
でも良いです。
- 4
- 件
No.5
- 回答日時：
>いい方法がある方、お教えください。
といっても質問者の技量次第だよ。１つのメルクマールはVBAの経験があるかだろう。何もそれらしき言及が無いので、経験がないのだろう。
そもそもエクセルで１００ファイルもに分かれさせるのは、無茶（大げさにはシステム企画が不適当）なんだ。利用ツールとしてエクセルは向いてない。別シート、別ブックになると扱いが格段に難しくなる。
エクセルしか出来ないから使った場合が多いかもしれないが、そういう場合だと、エクセルそのものの知識も狭い場合が多い。
ーー
（１）ソフトを探す
VBAでも出来なければ
http://www.vector.co.jp/soft/winnt/business/se40 …
に似たソフトが無いか探すほか無い。
（２）VBAがやれるなら、ファイルを開いて、集計して、閉じるを繰り返せば、時間はかかるが、出来る理屈。VBA熟達者でもコード完成やテストに時間がかかると予想。
その際１００のファイルはどうして判別するのか書いてないのが、そもそもプログラム蘇陽経験が無い証拠。
・同一フォルダに集る.xlsファイル全て
・ファイル名の先頭からなど共通文字列があり分別できる
などだと良いが
同一フォルダのファイルを１つづつ掴む方法のコードはWEBにあふれ、本コーナーでも質問頻出。
人力で、とりあえず同一フォルダに集め、無関係のファイルはそこから排除が適当と思う。
ーー
エクセルの「統合」機能はシート間が多いが、ブック間で出来るようだから
（注）http://www.eurus.dti.ne.jp/~yoneyama/Excel/tougo …
のブック間のデータの統合
WEB（Googleで）でも「エクセル 統合」で照会し、読んで勉強すること。
しかし１００ファイルを操作するのは面倒だ。
１つのマクロの記録を取り、１００回繰り返し用に改良する方法もあるかもしれない。
- 7
- 件
No.3
- 回答日時：
ありがちな状況ですけどみなさんどうしてるんでしょうかね。
その後の管理から考えて、まずひとつのファイルにするべきかと思います。
合計用ファイルを開いておいて、A支店のファイルを開きます。
A支店のsheet１のタブを右クリックして「コピーまたは移動」だったかな、移動でかまわないと思いますが、移動先は上のプルダウンメニューから合計用ファイルを選びます。
つづいてB支店のファイルを開いて、、、続けます。
たぶんメールで来るんでしょうから、開いて確認してシートを移動して合計用ファイルを保存する、という作業が繰り返されます。
各支店のファイルは保存する必要はないでしょう。
あとは#1の方が回答した串刺し計算を行います。
もっとシンプルな方法もあるのかなあと思いつつ。
- 2
- 件
No.1
- 回答日時：
例えば
各支店のA1の集計を行いたい時は
オートSUMボタンをクリック
そのままA支店のシートを開いてA1をクリック
Shiftを押しながら最後のシートを開いて
Enterで合計がでます。
=SUM(A支店:B支店!A1)のよになります。
0 コメント:
コメントを投稿