Excel VBA質問箱 IV

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

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


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

14791 / 76734

←次へ　｜　前へ→


	【67431】SUMPRODUCT関数の活用について

Yaesu - 10/12/2(木) 21:58 -


	引用なし

	パスワード

こんばんは。。
　
　以下のデータを基に計算式を手入力して、各班の積算合計をやっています。

　その作業負担を軽減させるため、マクロを使えば、効果があるのではない
かと思って、自動記録方法で、一応マクロを実行すれば、正しく計算してく
れますが、横方向の「受注１班」から「受注合計」までの項目数が日々変わ
ることと縦方向も変わります。

　この可変の要素を絡むと、マクロの構成にはどのように対応すればいい
でしょうか？ぜひご伝授ください。
　
*************************************************************************
　　A　　　　　B　　　 C　　　　 D　　　　E　　　　F　　　　　 H
　製品コード製品名受注単価　受注１班受注２班受注３班・・　受注合計
　Ａ００１　　ああ　　10　　　　1　　　　 3　　　　　　　　　　 4
　Ａ００２　　いい　　20　　　　1 　　　　1　　　 1　　　　　　 3
　Ａ００３　　うう　　 30　　　　
　Ａ００４　　ええ　　 40　　　　1　　　　 1　　　 1　　　　　　 3
　・
　・
　　　　　　　　　　　　　　　　70　　　　 90　　 60　　　　　　220
*************************************************************************

---------------------------マクロコード----------------------------------
Sub Macro1()
　　
　　Range("D7").Select
　　ActiveCell.FormulaR1C1 = _
　　　　"=SUMPRODUCT(VALUE(R[-5]C[-1]:R[-2]C[-1]),VALUE(R[-5]C:R[-2]C))"
　　
　　Range("E7").Select
　　ActiveCell.FormulaR1C1 = _
　　　　"=SUMPRODUCT(VALUE(R[-5]C[-2]:R[-2]C[-2]),VALUE(R[-5]C:R[-2]C))"
　　
　　Range("F7").Select
　　ActiveCell.FormulaR1C1 = _
　　　　"=SUMPRODUCT(VALUE(R[-5]C[-3]:R[-2]C[-3]),VALUE(R[-5]C:R[-2]C))"
　　
　　Range("H7").Select
　　ActiveCell.FormulaR1C1 = _
　　　　"=SUMPRODUCT(VALUE(R[-5]C[-5]:R[-2]C[-5]),VALUE(R[-5]C:R[-2]C))"
　　
　　Range("I7").Select

End Sub
--------------------------------------------------------------------------

2 hits

▼

【67431】SUMPRODUCT関数の活用について Yaesu 10/12/2(木) 21:58

≪