Excel VBA質問箱 IV

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

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


26078 / 76732 ←次へ | 前へ→

【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

2 hits

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

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