エクセルでシートを追加したときに自動的に計算対象に

エクセル2010で、シート1にシート２、シート３のA1を合計するという式を入れました。
この後に、シート３、シート４と同じ形式のシートを他のファイルからコピーしてくるのですが、
自動的にシート１の合計値の式の対象にする方法はないでしょうか？

やはりシートを追加したときに、シート１の合計値を出す式に自分で合計対象セルとして
入れなければいけないでしょうか？

シートを数百は追加していくので、一つ一つマニュアルでやるのは少々苦痛で。

アドバイスください。よろしくお願いします。

No.2 ベストアンサー 回答者： JazzCorp 回答日時： 2013/02/17 10:11

'コレでもどうぞ、、、

'ThisWorkbookに登録
Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim xSheet As Worksheet
Dim xSum As Long
If (Sh.Name = "Sheet1") Then
For Each xSheet In Worksheets
If (xSheet.Name <> "Sheet1") Then
xSum = xSum + xSheet.Range("A1").Value
End If
Next
Range("A1").Value = xSum
End If
End Sub

この回答へのお礼

回答ありがとうございます。

お礼日時：2013/03/14 08:37

No.3 回答者： CoalTar 回答日時： 2013/02/18 17:04

No.1のkeithinさんの回答にちょっと補足

START と END のシートの位置が逆にならないように気を付けてください
3D参照の数式がなくなります。
# 某掲示板で同じ回答をしたときに気付いたので。

この回答へのお礼

回答ありがとうございます。

お礼日時：2013/03/14 08:38

No.1 回答者： keithin 回答日時： 2013/02/17 00:56

STARTというシートとENDというシートを準備

＞自動的にシート１の合計値の式の対象にする方法はないでしょうか？

STARTからENDまでのシートの中にシート２，３、４，５，６…を挿入します
数式は
=SUM(START:END!A1)
とします

言わずもがなですがSTARTシートとENDシートは何も記入する必要無しです。




＃参考
理屈がわかれば、同じ数式でシート２とシート３の間にシート４，５，６を挿入していけば、余計なシートを準備する必要もありません。

この回答へのお礼

回答ありがとうございます。

お礼日時：2013/03/14 08:37