dポイントプレゼントキャンペーン実施中!

2つのBOOKの連動の仕方について教えてください。
EXCEL2003を使用しています。

〔売上〕BOOK
〔1月〕 sheet
   A店                         B店
   売上 累計売上 昨年売上 昨年累計  
1日  500    500     700      700
2日  600    1,100    800      1,500
3日

で入力した金額を

〔合計表〕BOOK
〔1月合計〕 sheet
   1日売上 累計売上 昨年売上 昨年累計
A店   500    500      700   700
B店
C店 

   2日売上 累計売上 昨年売上 昨年累計
A店 
B店
C店

のBOOKに連動させたいです。
それぞれのBOOKに、12ヶ月間のシートがあり、店は10店舗ほどあります。
〔合計表〕のほうに
=SUM('[売上.xls]1月'!$B$4)と入力してみましたが、
2月になったときに1月の部分をすべて直していくのは時間がかかります。
どのようにするのがベストでしょうか?

A 回答 (2件)

こんにちは



 一つある方法は、マクロを組むことでしょうか?

 簡単なマクロの組み方としては

 合計表のところで 

 ツール → マクロ →  新しいマクロの記録 → ×××× →  記録終了 

 ×××のところは、何をしたいか?したいことをその通りに入れてみると簡単にマクロを組むことが出来、参考のようなものが自動的にできます。挑戦してみていかがでしょうか?
  
 作成する表は

  店舗別〔売上〕BOOK

   
    A店舗  1月 2月 3月 ・・・・・・・・・・ Sheet1~Sheet12まで 
    B店舗  上記と同じく


  合計表 BOOK

    〔1月合計〕 sheet1 1日  

         1日売上 累計売上 昨年売上 昨年累計
     A店   500    500      700   700
     B店
     C店 

           sheet1 2日

         2日売上 累計売上 昨年売上 昨年累計
     A店 
     B店
     C店

           Sheet32  合計シート 

 実行するときは、 ツール →  マクロ → マクロ → 実行


参考 (自動的にできます)
    
 Sub Macro3()
'
' Macro3 Macro
' マクロ記録日 : 2011/1/24 ユーザー名 :
'

'
Windows("A店舗.xls").Activate
Range("B2:E2").Select
Selection.Copy
Windows("合計表.xls").Activate
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("B店舗.xls").Activate
Range("B2:E2").Select
Application.CutCopyMode = False
Selection.Copy
Windows("合計表.xls").Activate
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("c店舗.xls").Activate
Range("B2:E2").Select
Application.CutCopyMode = False
Selection.Copy
Windows("合計表.xls").Activate
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
    • good
    • 1
この回答へのお礼

ありがとうございます。マクロは初めてなのですが、挑戦してみます。

お礼日時:2011/01/26 12:23

こんにちは



マクロに挑戦見てください

判らないことが生じましたらいつでもご連絡ください。

チョット時間を要しますが、一つできると後は中身は全く一緒なんですよ。

小さなもので作成してみてから作るといいですよ。

例えば、印刷のマクロとかなんか役に立ちますし、短いマクロでできますよ。

頑張ってみてください。決して難しいと思わないで・・・・・・・・


hanakogure
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!