Excel VBA質問箱 IV

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

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


41438 / 76732 ←次へ | 前へ→

【40374】最終行の下に値を表示させたい
質問  ami  - 06/7/12(水) 20:08 -

引用なし
パスワード
   いつも勉強させて頂いております。
質問があります。
下のように書かれてあるシートがあります。
   A    B     C
1 1200   300   (=B1/A1)
2 1500   200   (=B2/A2)
3 1400   180   (=B3/A3)
4 1500   260
5 合計1  合計2   合計2/合計1


A1〜A4までの合計を次のセルA5に、B1〜B4までの合計を次のセルB5に表示します。
C1にはB1/A1の値が入っています。
Sub 合計 ()
  Dim row1 As Long
  Dim row2 As Long
 
  row1=worksheets("Sheet1").Range("A65536").End(xlUp).Row
  worksheets("Sheet1").Range("A" & row1 +1).Formula="=SUM(A1:A4)"
  row2=worksheets("Sheet1").Range("B65536").End(xlUp).Row
  worksheets("Sheet1").Range("B" & row2 +1).Formula="=SUM(B1:B4)"
End sub

これを少し変化させたいのです・・・
今は行4つ分のレコードしかありませんが
行5、行6・・とどんどんレコードが増えた場合に
このコードでは対応できなくなってしまいます。
行5にレコードが増えた場合、行6に合計を表示させたいと思っています。
行6までレコードが増えた場合、行7に合計を表示させたいのです。

そこで
SUM(A1:A4)のところをSUM(A1,A1.End(xlDown))と変えてみたのですが
#NAME?とセルに出てしまいます。


何かよいヒントを頂けますでしょうか?
お願いします。
0 hits

【40374】最終行の下に値を表示させたい ami 06/7/12(水) 20:08 質問
【40375】Re:最終行の下に値を表示させたい かみちゃん 06/7/12(水) 20:16 発言
【40376】Re:最終行の下に値を表示させたい ami 06/7/12(水) 20:46 発言
【40379】Re:最終行の下に値を表示させたい かみちゃん 06/7/12(水) 22:40 発言

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