Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


26076 / 76732 ←次へ | 前へ→

【55992】Re:伝票のデータを積み上げての合計の方法は?
回答  カウボーイズ  - 08/5/28(水) 21:40 -

引用なし
パスワード
   こんばんわ
実際に使用されている140個のセル範囲を明記した方が回答しやすいと思いますよ。
色々やり方はあると思いますが、各シートの書き込むセルが完璧に一致しているなら、単純にループでいいと思います。

例として A1:B70 の140個のセルが計算範囲なら

Sub Goukei()
  Dim lRow As Long
 
  Worksheets("合計").Activate

  For lRow = 1 to 70
   Range("A" & lRow) = Range("A" & lRow) + Worksheets("作業").Range("A" & lRow)
   Range("B" & lRow) = Range("B" & lRow) + Worksheets("作業").Range("B" & lRow)
  Next lRow 

  Worksheets("作業").Range("A1:B70").ClearContents

End Sub
0 hits

【55990】伝票のデータを積み上げての合計の方法は? galikun 08/5/28(水) 20:46 質問
【55992】Re:伝票のデータを積み上げての合計の方法... カウボーイズ 08/5/28(水) 21:40 回答
【56033】Re:伝票のデータを積み上げての合計の方法... galikun 08/5/29(木) 23:15 お礼

26076 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free