Excel VBA質問箱 IV

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

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


28037 / 76732 ←次へ | 前へ→

【54006】Re:ある区切りまでの足し算
発言  Vハチ  - 08/2/20(水) 0:21 -

引用なし
パスワード
   ichinose さん
ありがとうございます。

上の方のプログラムで無事できました。
ただ、自分の環境ではこれがエラーとなっえしまいます。
>Cells(Rows.Count, "d").End(xlUp).Offset(1, 1).Value = _
      Application.Sum(Range("d" & st, Cells(Rows.Count, "d").End(xlUp)))
なので、コメントアウトして実行しました。
その結果、例えば、

E列が10,20,30とあるとします。
前スレであったとおり、10,20,30を基準に、並び替えをします。
D列のの合計を出すのですが、30の合計が出してくれません。
なぜか一番最後の合計のみ算出しれくれません。

具体例:
あいうえお  100  10
さしすせそ  300  10
はひふへほ  100  30
なにぬねの  300  20
まみむめも  200  30
かきくけこ  200  10
たちつてと  200  20
  
     ↓

あいうえお  100  10
かきくけこ  200  10
さしすせそ  300  10
       600
たちつてと  200  20
なにぬねの  300  20
       500
はひふへほ  100  30
まみむめも  200  30
         ←ここが算出されません。

もしかしてラスト2行がこの処理を行っているのかな?
このソース結構難しいところが多く、自分では解読がマダ不可能でしたので、
マダわかりませんでした。
すみませんが対処法方あればよろしくお願いいたします。

1 hits

【53933】ある区切りまでの足し算 Vハチ 08/2/16(土) 2:51 質問
【53935】Re:ある区切りまでの足し算 ichinose 08/2/16(土) 10:32 発言
【54006】Re:ある区切りまでの足し算 Vハチ 08/2/20(水) 0:21 発言
【54015】Re:ある区切りまでの足し算 ichinose 08/2/20(水) 8:21 発言
【53936】Re:ある区切りまでの足し算 VBWASURETA 08/2/16(土) 10:33 発言

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