如何判别计算式中因子的大小！

wuyang163

在计算工程量时，会遇到较为复杂的计算式，例如:(2.3+6.8)*2.5*2+(3.4+2.8)*2*3.3

为了防止在计算式中出现人为输入失误，需对式中的各个因子进行判断，如果大于 10 提出警告 或 将式子改为红色。 改如何设置呢？

wuyang163

就是要忽略 +-*/（），只对 因子进行判断

swyrlbq

如在A1单元格设置数字有效性，设置公式=OR(IF(ISERR(--MID(A1,ROW($1:$50),{1,2,3})),,--MID(A1,ROW($1:$50),{1,2,3}))>=10)

准提部林

有沒(1.456+1)*(2.33-1.12)???

象山海鲜

1. =or(1-ISERR(0/(--MID(A1,ROW($2:$51),COLUMN($A:$D))>10)/ISERR(-(0&MID(A1,ROW($1:$50),1)))))

复制代码

wuyang163

高手是用vba解决的。放上来供学习。
程序中：
If WYCHECK(Target) = "有数据超过10！" Then
            MsgBox "    计算式有数据超过10，请确认！"
End If
Public Function WYCHECK(ByVal Rng As Range) As String
    Dim RngText As String
    Dim CellText As Variant
    Dim CellValue As Double
    If Rng.Count <> 1 Then
        WYCHECK = "单元格超出数量！"
    Else
        If Len(Rng.Text) > 0 Then
            RngText = RegReplace(Rng.Text, "[\+\-\*\/\(\)\（\）]", " ")
            RngText = RegReplace(RngText, " +", " ")
            RngText = Trim(RngText)
            'Debug.Print "替换后"; RngText
            CellText = Split(RngText, " ")
            For n = LBound(CellText) To UBound(CellText)
                'Debug.Print CellText(n)
                CellValue = CDbl(CellText(n))
                If CellValue > 10 Then
                 WYCHECK = "有数据超过10！"
                 Exit For
                End If
            Next n
        Else
            WYCHECK = ""
        End If
    End If
End Function

准提部林

wuyang163 发表于 2017-12-29 14:58
高手是用vba解决的。放上来供学习。
程序中：
If WYCHECK(Target) = "有数据超过10！" Then

Public Function WYCHECK(Rng As Range) As String
Dim i%, V
If Rng.Count > 1 Then WYCHECK = "單元格超出數量！": Exit Function
For i = 1 To Len(Rng) - 1
　　V = Val(Mid(Rng, i))
　　If V > 10 Then WYCHECK = "有數据超過10！": Exit For
　　i = i + Len(V) - 1
Next
End Function