Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4544 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【55990】伝票のデータを積み上げての合計の方法は？ galikun 08/5/28(水) 20:46 質問[未読]
【55992】Re:伝票のデータを積み上げての合計の方法... カウボーイズ 08/5/28(水) 21:40 回答[未読]
【56033】Re:伝票のデータを積み上げての合計の方法... galikun 08/5/29(木) 23:15 お礼[未読]
【55990】伝票のデータを積み上げての合計の方法は...
質問  galikun  - 08/5/28(水) 20:46 -
引用なし
パスワード
   教えて下さい。

作業シートのA1:B2の範囲のデータを積み上げての合計を合計シートのA1:B2に反映させたいのですが、以下のように１個ずつ書きましたが、まとめて書くプログラムがあれば教えて下さい（作業シートは伝票みたいに使います。実際の運用では、１４０セルもの計算をするためにプログラムを書くのが大変なため）

Sub goukei()
　　Sheets("合計").Range("A1").Value = Sheets("合計").Range("A1").Value + Sheets("作業").Range("A1").Value

　　Sheets("合計").Range("A2").Value = Sheets("合計").Range("A2").Value + Sheets("作業").Range("A2").Value

　　Sheets("合計").Range("B1").Value = Sheets("合計").Range("B1").Value + Sheets("作業").Range("B1").Value

　　Sheets("合計").Range("B2").Value = Sheets("合計").Range("B2").Value + Sheets("作業").Range("B2").Value

　'　作業シートの数値は消して　次の入力と合計にそなえます。
　　Sheets("作業").Range("A1:B2").Value=""
End Sub
【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
【56033】Re:伝票のデータを積み上げての合計の方...
お礼  galikun  - 08/5/29(木) 23:15 -
引用なし
パスワード
   ▼カウボーイズ さん：
各シートの書き込むセルは完璧に一致していましたので、教えていただいた方法でうまくいきました。
　ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4544 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free