VBA 違うブックへの自動入力マクロ

質問

いつもお世話になっております。
年間売り上げの計算をブックを開くと同に時実行したいのですが、
初心者の私には何から手をつけたらよいのかわかりません。

ブックですが、下記のような感じです。

BOOK1　　　　　　　　　　　　　　　　　
Sheet1売上　　　　　　　
　　A　　　B　　　C　　　　　
１日付 売上 支出　　　
２ 1/1 1000 500
３ 2/2 500 800
４ 2/2 1500 900　　 　
５ 1/１ 1000 500　　　
６ 1/3 2000 1000
７ 1/1 500 300
８
９

BOOK２　　　　　　　　　　　　　　　　　
Sheet1[ １月　]　　　　　　
　　A　　　B　　　C　　　　　
１日付 売上 支出　　　
２ 1/1
３ 1/2
４ 1/3 　　 　
５ 1/4 　　　
６

ブック１には一年間の売上がランダムに入力されたシートがあります。
このブック１から日付が同じものの合計をブック２に入力していきたいと思ってます。
ブック１の日付が1/1の売上の合計は、
ブック２のB2へ入力。支出合計ならC3となります
こんな感じで１～３１日まで繰り返し計算していくマクロを
ブック２を開くと同時に実行させたいとかんがえています。

同じブック内でも良かったのですが、
情報量が増えると処理が重くなりそうなので分けることにしました。

うまく伝えられないのですが、
参考となる記述方法がありましたら、よろしくお願いいたします

回答No.1

keithin · ベストアンサー

多くの場合に，For Nextなどでセルを一つ一つ舐めるように巡回して集計させるよりも，関数を使って一発で計算させた方が高速に結果を得られます。

手順：
ブック２でALT+F11を押してVBE画面を開く
挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける

sub Auto_Open()
　dim w as worksheet
　application.screenupdating = false
　workbooks.open filename:="c:\folder\Book1.xls"
　for each w in thisworkbook.worksheets
　　with w.range("B2:C" & w.range("A65536").end(xlup).row)
　　　.formula = "=SUMIF([Book1.xls]売上!$A:$A,$A2,[Book1.xls]売上!B:B)"
　　　.value = .value
　　　.numberformatlocal = "#,###"
　　end with
　next
　workbooks("Book1.xls").close savechanges:=false
　application.screenupdating = true
end sub

ブック２を開くと，自動的に集計値を各シートに記録します。

注意：
●上記マクロに記載したBook1.xlsの保存場所，具体的なブック名・シート名は正しい内容に修正すること
●ブック２の各シートのＡ列（A2以下のセル）には，所定の日付を事前に埋めてあること

＃わざわざマクロで集計せず，最初から関数を埋めて計算させる仕込みをした方が遙かに簡単です。
　ただし「ブック１を閉じたまま」SUMIFで集計させようとするとエラーになるので，次の資料にあるような数式で工夫する必要があります
http://support.microsoft.com/kb/260415/ja

＃ピボットテーブルレポートを使って自動集計させた方がクールですが，皆さんお好みじゃないので説明はパスします。

お礼

ご指導ありがとうございました。
色々とやってみましたが、勉強不足のため、
エラーから脱出できませんでした。
ご指摘の通り関数を直接組み込む方がはるかに簡単で確実でした。
また何かありましたら、よろしくお願いいたします。
ありがとうございました。