| 
    
     |  | ▼アレン さん: こんばんは。
 
 >下記のように
 >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に表示します。
 
 |  |