- ベストアンサー
VBAでExcelの合計金額を計算する方法
- VBAを使用してExcelの合計金額を計算する方法について教えてください。
- 具体的には、指定された範囲のセルの値を合計し、合計結果を別のセルに表示する方法を知りたいです。
- 詳しい手順やコードのサンプルなどがあれば、教えていただけると助かります。
- 6338-tm
- お礼率95% (89/93)
- その他MS Office製品
- 回答数2
- ありがとう数2
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
こんにちは！ 一例です。 B・C列の計は出されているということなので、For～Next でループしてみてはどうでしょうか？ お示しのコードの下に↓のコードを付け加えてみてください。 For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row If Cells(i, 1) Like "*" & "合計" Then Cells(i, 4) = Cells(i, 2) + Cells(i, 3) End If Next i 他によい方法があればごめんなさいね。m(__)m
その他の回答 (1)
- mshr1962
- ベストアンサー率39% (7417/18945)
Dim gk As Variant Dim i As Long i = 2 Do While Cells(i, 1).Value <> "" gk = gk + Cells(i, 2).Value If Cells(i, 2).Value = "" Then Cells(i, 2).Value = gk gk = 0 End If i = i + 1 Loop i = 2 Do While Cells(i, 1).Value <> "" gk = gk + Cells(i, 3).Value If Cells(i, 3).Value = "" Then Cells(i, 3).Value = gk '--------------------------------------下の行を追加 Cells(1, 4).Value = Cells(1, 2).Value + gk '-------------------------------------- gk = 0 End If i = i + 1 Loop
お礼
ご回答頂きありがとうございます。 上記で試してみたのですが、 図の B5、C5、B8 までは計算値がはいるのですが、 C8には計算値が入らずに、 「型が一致しません」とエラーになってしまいます。 引き続きご教示頂ければ有り難いです。 よろしくお願い致します。
お礼
ご回答頂きありがとうございます。 希望通りの結果が得られました！ ご教示頂きましたこと感謝致します。 ありがとうございました。
補足
教えて頂いたコードを付け加えた分 Sub test() Dim gk As Variant Dim i As Long i = 2 Do While Cells(i, 1).Value <> "" gk = gk + Cells(i, 2).Value If Cells(i, 2).Value = "" Then Cells(i, 2).Value = gk gk = 0 End If i = i + 1 Loop i = 2 Do While Cells(i, 1).Value <> "" gk = gk + Cells(i, 3).Value If Cells(i, 3).Value = "" Then Cells(i, 3).Value = gk gk = 0 End If i = i + 1 Loop For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row If Cells(i, 1) Like "*" & "合計" Then Cells(i, 4) = Cells(i, 2) + Cells(i, 3) End If Next i End Sub