如何数字+文字说明得出计算结果

cleverzhzhf

13732120571 发表于 2014-7-30 15:30
你的我早看了
可以自定义名称aa
=EVALUATE(SUBSTITUTE(SUBSTITUTE(Sheet1!$H1,"","""))"))

相当的精彩：
利用(1-N(文本))的结果为1，数字乘以1，不改变数据计算结果。

Evaluate，会将文本的算式，包括“函数”，都进行强行计算，N函数便在这里起了作用。

佛山小老鼠

Option Explicit
Function 求和(Rg As Range)
    Dim Reg
    Set Reg = CreateObject("Vbscript.RegExp")
    With Reg
        .Global = True
        .Pattern = "<.*?>"
    End With
    求和 = Application.Evaluate(Reg.Replace(Rg, ""))
End Function

祝洪忠-

在Word里替换一下就可以了

hehex

自定义函数解决了，不过代码和小老鼠版主很接近，就不贴出来了。

116412

hehex 发表于 2014-7-30 17:29
自定义函数解决了，不过代码和小老鼠版主很接近，就不贴出来了。

大师！！！别呀，，你有试过吗，，，你贴一下吧，，我想验证，当然，，这个也对我很重要

116412

cleverzhzhf 发表于 2014-7-30 16:17
相当的精彩：
利用(1-N(文本))的结果为1，数字乘以1，不改变数据计算结果。

你有试过吗？？？我这个函数不好用得喽！！！

116412

祝洪忠- 发表于 2014-7-30 17:02
在Word里替换一下就可以了

谢谢大师，但我有要求，，只用公式，采用替换字符的不可取，，

116412

佛山小老鼠 发表于 2014-7-30 16:23
Option Explicit
Function 求和(Rg As Range)
    Dim Reg

我想要函数表达，

另外，你的根本不好用，原因，不可以托拉，，，只有你设置的单位格好用，其它不好用，，你验证

cleverzhzhf

对于Evaluate，先学习以下两个帖子：
http://club.excelhome.net/thread-1079321-1-1.html
http://club.excelhome.net/thread-1094802-1-1.html

wangjguo44

116412 发表于 2014-7-30 19:49
你有试过吗？？？我这个函数不好用得喽！！！

我试过了，除了已经说明的超出255字符的不能用外，其他都可以，这样就你的附件数据可以用if判断一下，分别用不同公式去解决应该全有了！