|
こんばんは。。
以下のデータを基に計算式を手入力して、各班の積算合計をやっています。
その作業負担を軽減させるため、マクロを使えば、効果があるのではない
かと思って、自動記録方法で、一応マクロを実行すれば、正しく計算してく
れますが、横方向の「受注1班」から「受注合計」までの項目数が日々変わ
ることと縦方向も変わります。
この可変の要素を絡むと、マクロの構成にはどのように対応すればいい
でしょうか?ぜひご伝授ください。
*************************************************************************
A B C D E F H
製品コード 製品名 受注単価 受注1班 受注2班 受注3班 ・・ 受注合計
A001 ああ 10 1 3 4
A002 いい 20 1 1 1 3
A003 うう 30
A004 ええ 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
--------------------------------------------------------------------------
|
|