エクセルのマクロ（2回目）を教えて下さい。

質問

串刺し加算（多数のシートの同じセル番地を集計する）のマクロは出来ますか？？
シート数が１０　加算したいセル数が約１０００箇所
加算する位置はA1,A2,B4,B5,D6など様々です。
各支店別の在庫数と出荷数および金額のシートを各支店合計のシートに集計したいからです。
各支店別と各支店合計のフォーマットは同じです。
できれば、あらかじめ集計する各支店別シートとセル番地をシートに記載できるとベストですが。
こんなわがままなマクロなんて出来ますか？

回答No.2

freezemoon · ベストアンサー

Sub Syukei()

'変数宣言部////////////////////////////////////////////////////////
Dim WsSyukei As Worksheet '集計するワークシート
Dim intCol As Integer '集計を表示する列
Dim intRefCol As Integer '集計したいセル番地を入力してある列
Dim lngGoukei As Long '集計した数字
Dim i As Integer 'ループカウント
Dim j As Integer 'ループカウント
'//////////////////////////////////////////////////////////////////

'各変数に代入（適宜変更してください）///////////////////////////////
Set WsSyukei = Worksheets("集計") '処理したいワークシート名を指定
intCol=2 '集計シートのＢ列に合計を表示
intRefCol=1 '集計シートのＡ列に参照したいセル番地を入力
'///////////////////////////////////////////////////////////////////

’集計したいセル番地ごとのループ
For i = 10 To 1009
’ワークシートのループ
For j = 1 To 10
lngGoukei=lngGoukei+Worksheets(j).Range(WsSyukei.Cells(i,intRefCol))
Next
WsSyukei.Cells(i,intCol)=lngGoukei
lngGoukei=0 'lngGoukeiの初期化
Next

End Sub

##################################################################

下は集計を表示する「集計」というシートです。
集計したいセル番地をＡ列１０番から下へ入力しておきます。
この１０とはループカウントのiに対応しています。
ループカウントのｊはシートのインデックスです。
□　Ａ　　Ｂ　　Ｃ　
・　　　　　　　　　
10__A1　　　　　　　
11__A2　　　　　　　
12__B4　　　　　　　
13__B5　　　　　　　
14__D6　　　　　　　
・　　　　　　　　　
・　　　　　　　　　
・　　　　　　　　　
実行すれば集計シートのＢ１０から下方向へＡ列に入力したセル番地の
合計が表示されます。　　
ループの構文を簡単にしたいためにワークシートのループはインデックス
で行っていますので注意してください。

まことに申し訳ないのですが、現在ＶＢ環境が手元に無く、すべてメモ帳での
手打ちとなっております。　タイプミス構文ミスがもしかしたらあるかも
しれません。ぼくも明朝検証してみますのでお許しください。

回答No.4

neKo_deux

> あらかじめ集計する各支店別シートとセル番地をシートに記載できるとベストですが。

これが出来ているのなら、それを集計用のシートにしてしまっては？
　Ａ　　　　　　Ｂ
1 Sheet1　　A2
2 Sheet2　　A2
3 Sheet3　　A2

というシートがあるのなら、隣のC列に、
=INDIRECT(A1&"!"&B1)
を指定すると、Sheet1!A2, Sheet2!A2, Sheet3!A2の値が取れますから、SUM関数なんかで簡単に集計できます。

回答No.3

freezemoon

#2です
検証したところ問題はないのですが、Worksheetsコレクションの
インデックスは、シートの見かけ上の位置で振られるみたいです。
つまりぼくの回答を正しく動作させるためには「集計」シートを
いちばん右においてください。　いちばん左におきたい時は、
ｊのループを
For j = 2 To 11
としてください。

補足

遅くなりましたが、ありがとうございました。
捕足で追加をお願いします。

集計した値を合計シート（別シート）の、読みこんだセル番地と同じセル番地に書きこみできませんか？

分かれば教えて下さい。

回答No.1

imogasi

＞シート数が１０　
まああまり沢山でなくて良かった。
＞「加算したいセル数が約１０００箇所」ある。
＞加算する位置はA1,A2,B4,B5,D6など様々です。
何か、（ルール性を）言葉で表現できませんか。
表現できても、コードにするには難しいケースもありますが、表現さえも出来なければ、コード化できないでしょう。とり合えず表現出きればして見てください。
出来ないとなると、串ざし演算をするセル番地を列挙して、テーブル(表）に（人手で）作らないとならないですが、操作と変らなくなるほど面倒かも。「＞できれば、あらかじめ集計する各支店別シートとセル番地をシートに記載できるとベスト」とはそのことを言っておられるとすれば、発想が逆と申しましょうか？？
意味の取り違え等の節はお詫びします。