Excel VBA質問箱 IV

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

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


13513 / 76732 ←次へ | 前へ→

【68722】Re:煩雑なデータ処理の解消方法は??
発言  kanabun  - 11/4/10(日) 6:41 -

引用なし
パスワード
   ▼マエ/ケン さん:

> 行合計=Price×GroupTotal(Sheet1の5行目から最終行まで)
> 列合計=ΣPrice×Group01 (Sheet1の5行目から最終行まで)

こんなふうにしても数式セットできると思います。

Sub Try1()
  Dim m&, n&
  Dim c As Range
  Dim r As Range
  m = Application.Match("GroupTotal", Rows(4), 0)
  If IsError(m) Then Exit Sub
  m = m - 4
  Set c = Range("C5", Range("C4").End(xlDown))
  n = c.Count
  Set r = Range("E5").Resize(n, m) '[E5]セルを基点に n行×m列の範囲
  r.Columns(m + 1).FormulaR1C1 = "=RC[-" & m + 2 & "]*RC[-1]"
  r.Rows(n + 1).Formula = "=Sumproduct(" & c.Address(1, 1, xlA1) _
          & "," & c.Offset(, 2).Address(0, 0, xlA1) & ")"
End Sub

0 hits

【68707】煩雑なデータ処理の解消方法は?? マエ/ケン 11/4/9(土) 12:24 質問
【68710】Re:煩雑なデータ処理の解消方法は?? UO3 11/4/9(土) 13:15 回答
【68716】Re:煩雑なデータ処理の解消方法は?? マエ/ケン 11/4/9(土) 18:16 質問
【68718】Re:煩雑なデータ処理の解消方法は?? UO3 11/4/9(土) 19:10 回答
【68719】Re:煩雑なデータ処理の解消方法は?? マエ/ケン 11/4/9(土) 20:34 質問
【68720】Re:煩雑なデータ処理の解消方法は?? UO3 11/4/9(土) 21:50 発言
【68721】Re:煩雑なデータ処理の解消方法は?? UO3 11/4/10(日) 0:38 回答
【68725】Re:煩雑なデータ処理の解消方法は?? マエ/ケン 11/4/10(日) 20:24 質問
【68726】Re:煩雑なデータ処理の解消方法は?? UO3 11/4/10(日) 21:00 発言
【68730】Re:煩雑なデータ処理の解消方法は?? マエ/ケン 11/4/11(月) 11:26 質問
【68731】Re:煩雑なデータ処理の解消方法は?? UO3 11/4/11(月) 12:08 回答
【68727】Re:煩雑なデータ処理の解消方法は?? UO3 11/4/10(日) 21:02 発言
【68744】Re:煩雑なデータ処理の解消方法は?? マエ/ケン 11/4/13(水) 15:17 お礼
【68711】Re:煩雑なデータ処理の解消方法は?? だるま 11/4/9(土) 14:27 回答
【68717】Re:煩雑なデータ処理の解消方法は?? マエ/ケン 11/4/9(土) 18:24 質問
【68722】Re:煩雑なデータ処理の解消方法は?? kanabun 11/4/10(日) 6:41 発言

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