Excel VBA質問箱 IV

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

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


5241 / 13646 ツリー ←次へ | 前へ→

【51967】sum関数について アレン 07/10/13(土) 17:13 質問[未読]
【51968】Re:sum関数について ichinose 07/10/13(土) 18:05 発言[未読]
【51977】Re:sum関数について アレン 07/10/14(日) 0:37 お礼[未読]

【51967】sum関数について
質問  アレン  - 07/10/13(土) 17:13 -

引用なし
パスワード
   始めまして、
Excel VBAを始めたばかりです。
よろしくお願いいたします。

質問のないようですが、
下記のように
C列i行目から、j個の合計をi+J+1行目に表示したいのですが、
何度やってもエラーがでてしまいます。
どのような式を作ればよいのでしょうか?
よろしくお願いいたします。
  
    C
i    a
i+1   b
i+2   c


i+j   z
i+J+1 合計   

たとえば、
J44から、j個の合計を算出する式で下記のような式をつくりましたが、
エラーがでてしまいます。
どのように直せばよろしいですか?

Range("J43").Cells(i+j, 1).Formula _
  = "=SUM(J" & 41+i & ":J" & 41 + i + j & ")"

【51968】Re:sum関数について
発言  ichinose  - 07/10/13(土) 18:05 -

引用なし
パスワード
   ▼アレン さん:
こんばんは。

>下記のように
>C列i行目から、j個の合計をi+J+1行目に表示したいのですが、
>何度やってもエラーがでてしまいます。
>どのような式を作ればよいのでしょうか?
>よろしくお願いいたします。
>  
>    C
>i    a
>i+1   b
>i+2   c
>・
>・
>i+j   z
>i+J+1 合計   

この↑例を記述したことはよかったですね!!


>
>たとえば、
>J44から、j個の合計を算出する式で下記のような式をつくりましたが、


>エラーがでてしまいます。
次回は、このエラーの内容と


>
>Range("J43").Cells(i+j, 1).Formula _
>  = "=SUM(J" & 41+i & ":J" & 41 + i + j & ")"

このコード実行時に i と j という変数にどんな値が入っていたかも
記述してください。
それと上記の例のようにセルJ44からJ53にどんな値が入っていたかも
記述してください。
これらの情報があれば、多くの方が再現できますからね!!


標準モジュールに

Sub main()
  Dim i As Long
  Dim j As Long
  i = 44
  j = 10
  With Range("J" & i)
    .Cells(j + 1, 1).Formula _
       = "=SUM(J" & i & ":J" & i + j - 1 & ")"
    End With

End Sub

これで試してみてください。
上記の例では、セルj44〜j53の合計値をセルj54に表示します。

【51977】Re:sum関数について
お礼  アレン  - 07/10/14(日) 0:37 -

引用なし
パスワード
   早速の回答ありがとうございます。
構文エラーがでていたのですが、
下記式の&のところにスペースを入れて
実行しなおしてみると
うまく計算することができました。

Range("J43").Cells(i+j, 1).Formula _
 = "=SUM(J" & 41+i & ":J" & 41 + i + j & ")"

まだプログラム経験が浅く
どこが間違っているかも分からない状態で・・・
こんなことだけで半日かかったりします。
ほんとに助かりました。
ありがとうございました!

iは1から20までの整数 i(20)
j=2 * Range("C4").Value - 4
C4は1から50までの整数

実際の数値は下記のように少数が入力されいます。

J44 0.23
J45 0.45
J46 0.31


J53 0.32
J54 合計

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