为什么同样代码一张表能算一张不能算真晕

flytoday02

麻烦各位大师能改改是不是哪错了，谢谢，工作表复制一张后也变成用不了——，

flytoday02

Function test(str)
str = Replace(Replace(Replace(Replace(str, "{", "("), "}", ")"), "（", "("), "）", ")")
str = Replace(Replace(str, "×", "*"), "÷", "/") '"×") '÷
With CreateObject("vbscript.regexp")
   .Global = True
    .Pattern = "\[.+?\]"
   test = Application.Evaluate(.Replace(str, ""))
End With
End Function

flytoday02

Function test(str)
str = Replace(Replace(Replace(Replace(str, "{", "("), "}", ")"), "（", "("), "）", ")")
str = Replace(Replace(str, "×", "*"), "÷", "/") '"×") '÷
With CreateObject("vbscript.regexp")
   .Global = True
    .Pattern = "\[.+?\]"
   test = Application.Evaluate(.Replace(str, ""))
End With
End Function

flytoday02

这以前都用的好好的现在用不了了

砂海

看上去 都可以 , 是不是 宏没启用?

flytoday02

有启用啊~~~

砂海

我这里 1.xls 与 2.xls 都有结果

================
Ps:

减了 2 个 replace函数
Function tt(str)

    With CreateObject("vbscript.regexp")
       .Global = True
        .Pattern = "(\[.+?\])|(\ )"
       str = .Replace(str, "")
    End With
   
    str = Replace(Replace(str, "{", "("), "}", ")")
    str = Replace(Replace(str, "×", "*"), "÷", "/") '"×") '÷
   
    tt = Application.Evaluate(str)
   
End Function
------------------------------------------------
这样不用replace函数
Function tt(str)

    Dim i, p1, p2
    p1 = Array("(\[.+?\])|(\ )", "{", "}", "×", "÷")
    p2 = Array("", "(", ")", "*", "/")
   
    With CreateObject("vbscript.regexp")
       .Global = True
      
       For i = 0 To UBound(p1)
        .Pattern = p1(i)
       str = .Replace(str, p2(i))
       Next i
    End With
   
    tt = Application.Evaluate(str)
   
End Function

flytoday02

楼上大师你这个也用不了啊

flytoday02

哪位哥麻烦解决下，原来这样的代码计算表全不能用了，麻烦解决下谢谢

flytoday02

原来代码，重新做一次可以——第二次打开后又不行了——，