Excel VBA質問箱 IV

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

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


63166 / 76732 ←次へ | 前へ→

【18165】行数が不定の集計処理について
質問  ackkn  - 04/9/16(木) 21:15 -

引用なし
パスワード
   どなたかご教示下さい、よろしくお願いします。
行数が不定の表で、ある列の集計をその列の最下行に出すのに以下のコードを書きましたが、もっとスマートな方法をどなたか教えて下さい。

 A列  B列   C列  D列  E列
 チェック 品種  数量 ケース数 入数
    つがる 280  3   60
    ふじ  570  8   80
    スター 480  12   40
    合 計 1330  23 ← この行を出す


  Dim Adr1 As String
  Dim Adr2 As String
  '--- C列の集計
  Adr1 = ActiveSheet.Range("C4").Address
  Adr2 = ActiveSheet.Range("C65536").End(xlUp).Address
  ActiveSheet.Range("B65536").End(xlUp).Offset(1, 0).Value = "合 計"
  ActiveSheet.Range("C65536").End(xlUp).Offset(1, 0).Formula = "=SUM(" + Adr1 + ":" + Adr2 + ")"
  '--- D列の集計(数式が入っている為、C列で最下行を見つけている)
  Adr1 = ActiveSheet.Range("D4").Address
  Adr2 = ActiveSheet.Range("C65536").End(xlUp).Offset(-1, 1).Address
  ActiveSheet.Range("C65536").End(xlUp).Offset(0, 1).Formula = "=SUM(" + Adr1 + ":" + Adr2 + ")"
1 hits

【18165】行数が不定の集計処理について ackkn 04/9/16(木) 21:15 質問
【18166】Re:行数が不定の集計処理について Kein 04/9/16(木) 22:08 回答
【18167】Re:行数が不定の集計処理について ackkn 04/9/16(木) 22:49 お礼
【18168】Re:行数が不定の集計処理について ackkn 04/9/16(木) 23:04 質問
【18171】Re:行数が不定の集計処理について Kein 04/9/17(金) 1:46 発言
【18189】Re:行数が不定の集計処理について ackkn 04/9/17(金) 17:08 発言
【18207】Re:行数が不定の集計処理について Kein 04/9/18(土) 0:31 回答
【18208】Re:行数が不定の集計処理について Kein 04/9/18(土) 0:34 発言
【18213】Re:行数が不定の集計処理について ackkn 04/9/18(土) 11:47 回答
【18217】Re:行数が不定の集計処理について ackkn 04/9/18(土) 14:02 回答
【18223】Re:行数が不定の集計処理について Kein 04/9/18(土) 18:25 回答
【18224】Re:行数が不定の集計処理について Kein 04/9/18(土) 18:32 発言
【18249】Re:行数が不定の集計処理について ackkn 04/9/19(日) 14:41 回答
【18256】Re:行数が不定の集計処理について Kein 04/9/19(日) 20:11 回答
【18257】Re:行数が不定の集計処理について ackkn 04/9/19(日) 23:22 回答
【18259】Re:行数が不定の集計処理について Kein 04/9/20(月) 0:56 回答
【18263】Re:行数が不定の集計処理について ackkn 04/9/20(月) 6:38 お礼
【18289】Re:行数が不定の集計処理について ackkn 04/9/20(月) 17:58 質問
【18293】Re:行数が不定の集計処理について Kein 04/9/20(月) 22:18 回答
【18299】Re:行数が不定の集計処理について ackkn 04/9/20(月) 23:42 質問
【18301】Re:行数が不定の集計処理について Kein 04/9/21(火) 2:13 回答

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