Excel VBA質問箱 IV

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

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


14795 / 76738 ←次へ | 前へ→

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

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

 その作業負担を軽減させるため、マクロを使えば、効果があるのではない
かと思って、自動記録方法で、一応マクロを実行すれば、正しく計算してく
れますが、横方向の「受注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
--------------------------------------------------------------------------


1 hits

【67431】SUMPRODUCT関数の活用について Yaesu 10/12/2(木) 21:58 質問
【67432】Re:SUMPRODUCT関数の活用について SK63 10/12/2(木) 22:28 発言
【67433】Re:SUMPRODUCT関数の活用について SK63 10/12/2(木) 22:46 発言
【67445】Re:SUMPRODUCT関数の活用について Yaesu 10/12/4(土) 12:15 質問
【67447】Re:SUMPRODUCT関数の活用について SK63 10/12/5(日) 8:10 回答
【67461】Re:SUMPRODUCT関数の活用について Yaesu 10/12/6(月) 21:50 質問
【67463】Re:SUMPRODUCT関数の活用について Yaesu 10/12/6(月) 22:25 質問
【67480】Re:SUMPRODUCT関数の活用について SK63 10/12/8(水) 18:28 回答
【67530】Re:SUMPRODUCT関数の活用について Yaesu 10/12/10(金) 23:03 質問
【67531】Re:SUMPRODUCT関数の活用について SK63 10/12/11(土) 1:10 発言
【67532】Re:SUMPRODUCT関数の活用について SK63 10/12/11(土) 1:47 発言
【67639】Re:SUMPRODUCT関数の活用について Yaesu 10/12/20(月) 19:16 お礼

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