Excel VBA質問箱 IV

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

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


7239 / 13644 ツリー ←次へ | 前へ→

【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 発言[未読]

【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?とセルに出てしまいます。


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

【40375】Re:最終行の下に値を表示させたい
発言  かみちゃん  - 06/7/12(水) 20:16 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>  worksheets("Sheet1").Range("A" & row1 +1).Formula="=SUM(A1:A4)"

Worksheets("Sheet1").Range("A" & row1 + 1).Formula = "=SUM(A1:A" & row1 & ")"
でいいのではないでしょうか?

【40376】Re:最終行の下に値を表示させたい
発言  ami  - 06/7/12(水) 20:46 -

引用なし
パスワード
   ▼かみちゃん さん:
>こんにちは。かみちゃん です。
>Worksheets("Sheet1").Range("A" & row1 + 1).Formula = "=SUM(A1:A" & row1 & ")"
>でいいのではないでしょうか?


ありがとうございます。表示できました!
次いでで申し訳ないのですが
合計2/合計1を最終行C列に表示していくには

"=SUM(B1:B" & row2 & ")/SUM(A1:A" & row1 & ")

と、書くだけではだめなんですね。
単純な発想しかできなくてすみません。

【40379】Re:最終行の下に値を表示させたい
発言  かみちゃん  - 06/7/12(水) 22:40 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>合計2/合計1を最終行C列に表示していくには
>
>"=SUM(B1:B" & row2 & ")/SUM(A1:A" & row1 & ")

よくわかりませんが、
〜.Formula = "=SUM(B1:B" & row2 & ")/SUM(A1:A" & row1 & ")"
としていますか?

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