Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

26081 / 76737

←次へ　｜　前へ→


	【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

1 hits

▼

【55990】伝票のデータを積み上げての合計の方法は？ galikun 08/5/28(水) 20:46