Question

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

效果详见图片~

Answer 1

时间关系，先答复部分：

VBA代码：

公式：

追问

能给个满足3个要求的代码吗，我坐在等着，你先忙别的

Answer 2

B列如果有问题，会在公式中有文字吗？

追问

B列有问题，什么意思？ B列都是输入的数字，数学计算式

追答

B列如果有文字，会不会在公式中间的？还是文字都是在整个公式前或者后。
另外 E 列添加 "合计" 后，你后面说的汇总是什么意思？

追问

汇总就是合计的意思 就是我一旦对C列几个单元格SUM 求和 对应的E列自动出现合计 二字，本来应该手动去写，我怕麻烦，想让VBA自动出现，因为有很多这种情况

文字会出现在 计算式的任意位置

追答

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim R As Range, Rng As Range
    On Error Resume Next
    Application.EnableEvents = False
    Set R = Intersect(Target, Columns(2))
    If R Is Nothing Then
    Else
        For Each Rng In R
            Rng.Offset(, 1) = JiSuan(Rng.Text)
        Next
    End If
    Set R = Intersect(Target, Columns(3))
    Set Rng = Nothing
    If R Is Nothing Then
    Else
        Set Rng = Columns(3).Find("sum(", , , xlPart, xlByColumns, xlNext, False, , False)
        If Rng Is Nothing Then
            Columns(5).Replace "合计", ""
        Else
            Rng.Offset(, 2) = "合计"
        End If
    End If
    Application.EnableEvents = True
End Sub

Function JiSuan(Str As String) As Double
    On Error Resume Next
    For I = 1 To Len(Str)
        S = Mid(Str, I, 1)
        If S Like "[0-9()+-/*]" Then S1 = S1 & S
    Next
    If Str <> "" Then
        JiSuan = Evaluate(S1)
    Else
        JiSuan = ""
    End If
End Function

代码放到对应工作表中

追问

代码可以满足 自动计算，但是不满足第二条，我对C列的结果 几个单元格求和 没有合计 二字跳出

追答

我测试没问题。
看你的
私
。。。
信。