Question

精通EXCEL VBA编程的高手请进，求一段VBA代码，满足自动计算的要求~

效果详见图片 先行谢谢了~~

Answer 1

代码不难，但是代码还是比较 固定 ，所以需要你继续把你的要求 格式梳理下：
例如 b列 只是 乘法计算？还是 多种计算，还是 单步计算，多部计算，

第二条要求，需要标明 ，你是怎么来汇总？通过公式 ，手工计算，还是 直接 VBA给你出结果。

第三条，是否是说，你的行数不定？现在三行，可能4行，甚至20行？

表述不清，用VBA很难做到 考虑到各种情况。

Answer 2

以下代码可以满足你的要求
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Cells(Target.Row, 3).Formula = ("=" & Target)
Cells(Target.Row, 4) = ""
End If

If Target.Column = 3 Then
If Cells(Target.Row, 2) = "" And Target = WorksheetFunction.Sum(Range("c1:c" & (Target.Row - 1))) Then
Cells(Target.Row, 4) = "合计"
Else
Cells(Target.Row, 4) = ""
End If
End If
End Sub

Answer 3

C列的自动计算，可以用宏表函数envaluete来完成

Answer 4

汇总也用VBA实现吗？