如何计算字符串如:1+1+1+1+1

gbtt520

如题,在某单元格有一段字符串:1+1+1+1+1 或 1*2*3
如何计算让这个字符串进行运算,没有找到能用的转换涵数,自己写涵数的话又没那水平
请大家帮忙

chxw68

1. Function js(ByVal Target As Range)
   
2.   If Target.Count > 1 Then
   
3.     js = ""
   
4.   Else
   
5.     js = Application.Evaluate("=" & Target.Value)
   
6.   End If
   
7. End Function
   

复制代码

leoparddi

前面加个等号不就行了/haha

chxw68

详见附件。

cbtaja

“算式求值”自定义函数：SEVALUATE
说明：
1、算式中允许出现×、÷符号；
2、算式中允许出现中英文注释内容（但每一项注释内容需要以成对的中括号[]将其包含起来）
3、本自定义函数只能在32位的EXCEL软件中使用，不能用于64位EXCEL。

1. Const strPattern As String = "(\[[^\][]*\])+"
   
2. Function SEVALUATE(ByVal Expression As String)
   
3.     Dim regEx As Object, x As Object
   
4.     Set x = CreateObject("ScriptControl")
   
5.     x.Language = "VbScript"
   
6.     Set regEx = CreateObject("VbScript.RegExp")
   
7.     regEx.Pattern = strPattern
   
8.     regEx.IgnoreCase = True
   
9.     regEx.Global = True
   
10.     On Error Resume Next '
    
11.     If Expression = "" Then
    
12.         SEVALUATE = ""
    
13.     Else
    
14.         SEVALUATE = Replace(Replace(regEx.Replace(Expression, " "), "（", "("), "）", ")")
    
15.         SEVALUATE = Replace(Replace(SEVALUATE, "×", "*"), "÷", "/")
    
16.         SEVALUATE = Replace(Replace(SEVALUATE, "＋", "+"), "－", "-")
    
17.         SEVALUATE = x.EVAL(SEVALUATE)
    
18.         If Not IsNumeric(SEVALUATE) Then SEVALUATE = "错误：" & SEVALUATE
    
19.     End If
    
20. End Function

复制代码

gbtt520

chxw68 发表于 2016-3-25 17:37
详见附件。

谢谢,学到新涵数了

gbtt520

cbtaja 发表于 2016-3-25 17:51
“算式求值”自定义函数：SEVALUATE
说明：
1、算式中允许出现×、÷符号；

这个涵数超赞的

hhjjpp

即使03也可用evaluate宏表函数，可以事先把×、÷替换成规范的*、/

鼠标累点

又学到知识了，谢谢分享！