Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

68497 / 76734

←次へ　｜　前へ→


	【12774】合計を計算したいのですが・・

ぴぴ - 04/4/14(水) 17:20 -


	引用なし

	パスワード

下記のコードで、Ｅ列の最後のセル（数式で計算された値が入力してある）
の下の行に
Ｂ列に”合計”が入り、Ｃ列にはＣ３からの合計が計算され
Ｄ列にはＤ３からの合計が計算され表示されるようにしたいのですが、
Ｃ列・Ｄ列はどのようなコードにすればよいのでしょうか？

Sub Test()
Dim i As Long
　　Application.ScreenUpdating = False

　’数式の入っているＥ列の最後の値を検索します

　 For i = 200 To 2 Step -1
　　　　If i = 2 Then
　　　　　
　　　　ElseIf Cells(i, 5).Value <> "" Then

　　　　　
　　　　　 Exit For
　　　　End If
　　Next
’Ｅ列の最後の値のセルの下の行へ
　Dim ab
　
　ab = Cells(i, 5).Row + 1
　
　ActiveSheet.Cells(ab, 2).Value = "合計"

　－－－ここへＣ列・Ｄ列の合計が計算されるようにしたいのですが－－

End Sub

2 hits

▼

【12774】合計を計算したいのですが・・ ぴぴ 04/4/14(水) 17:20

≪