Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

63241 / 76807

←次へ　｜　前へ→


	【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 + ")"

0 hits

▼

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

≪