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に反映させたいのですが、以下のように1個ずつ書きましたが、まとめて書くプログラムがあれば教えて下さい(作業シートは伝票みたいに使います。実際の運用では、140セルもの計算をするためにプログラムを書くのが大変なため)

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