如何突破EVALUATE中255字符的限制

jing716

请高手帮忙解决，做工程量的时候需要的计算公式大都很长，且为了方便核对需要在公式中插入[文本]　注释，如何突破EVALUATE中带文本注释的255字符的限制，

东亚五金

新建一个工作表，把公式放到里面去，再写注解，想写多少都行吧

jing716

当然这样做也可以，但在实际中是没有这样做的，而且同类构件即便是不含文本注释，有时也要突破255个字符限制的，况且文本注释占用的字符量又大。
我们要做的首先要突破不含文本注释的255字符限制，这个我在百度中搜了下，有，不过我没试，因为我想要的是带文本注释的突破.
谢谢！

jing716

请高手帮忙

jing716

看来建筑行业的人员来这还是少啊！着急，请高手帮忙，感谢！！

liucqa

http://www.excelba.com/Art/Html/288.html

liucqa

Function JG(JSS, Optional x)    '返回计算公式的值或值的计算公式

    Dim S%, E%

    Dim JS As String

    If JSS = "" Then

        JG = ""

    Else

        If IsMissing(x) Then    '返回计算公式的值

            If Left(JSS, 1) = "=" Then

                JSS = Mid(JSS, 2)

            End If

            Do Until InStr(1, JSS, "[") = 0

                S = InStr(1, JSS, "[")

                E = InStr(1, JSS, "]")

                JSS = Left(JSS, S - 1) & Mid(JSS, E + 1)

            Loop

            JG = Evaluate("=" & JSS)

        ElseIf x = 2 Then    '返回值的计算公式或可计算的表达式或值本身

            If JSS.HasFormula = True Then

                JG = Mid(JSS.Formula, 2)

            Else

                If IsNumeric(Evaluate(JSS.Value)) = True Then

                    JG = JSS.Value

                Else

                    JS = JSS.Value

                    Do Until InStr(1, JSS, "[") = 0

                        S = InStr(1, JSS, "[")

                        E = InStr(1, JSS, "]")

                        JSS = Left(JSS, S - 1) & Mid(JSS, E + 1)

                    Loop

                    If IsNumeric(JSS) = True Or IsNumeric(Evaluate(JSS)) = True Then

                        JG = JS

                    End If

                End If

            End If

        End If

    End If

End Function

liucqa

Function Zj(s)
    Dim x
    s = Replace(Replace(s, "（", "("), "）", ")")
    Set x = CreateObject("MSScriptControl.ScriptControl")
    x.Language = "vbscript"
    With CreateObject("VBSCRIPT.REGEXP")
        .Global = True
        .Pattern = "\[.*?\]|{(.*?)}|[^0-9.+-/^*()]"
        Zj = x.Eval(.Replace(s, "$1"))
    End With
End Function

jing716

感谢帮助，只是我对VBA不懂，不知道为什么，我复制进模块后，运行不了，郁闷！看来还得多学学

bluexuemei

请上传附件。。。