多年没来了，厚颜求教复合字段求和问题。

kangking

Public Function WWWW(a As String, c As Integer)
'使用方法：wwww("猪肉：100 牛肉：100 鸡肉：100 羊肉：100",10)
    Dim i As Integer
    Dim b As Boolean
    Dim s As String

    For i = 1 To Len(a)
        If Asc(Mid(a, i, 1)) > 47 And Asc(Mid(a, i, 1)) < 58 Then
            b = True
        Else
            b = False
        End If
        If b Then
            s = s & Mid(a, i, 1)
        Else
            s = s & "+"
        End If

    Next
    WWWW = Eval(s) / c
End Function

对楼主说的情况可以计算出来，不知道这个是不是特例。

kangking

上面的逻辑变量是多余的，下面这样就好。

Public Function WWWW(a As String, c As Integer)
'使用方法：wwww("猪肉：100 牛肉：100 鸡肉：100 羊肉：100",10)
    Dim i As Integer
    Dim s As String

    For i = 1 To Len(a)
        If Asc(Mid(a, i, 1)) > 47 And Asc(Mid(a, i, 1)) < 58 Then
            s = s & Mid(a, i, 1)
        Else
            s = s & "+"
        End If
    Next
    WWWW = Eval(s) / c
End Function

kangking

复制"猪肉：100 牛肉：100 鸡肉：100 羊肉：100"到第一个文本框（去掉引号），在第二个框输入数字，点击计算，在第三个框出现结果。（只是示例，没有错误处理）