Evaluate已经突破255字符限制

pilotf1

感谢大神！

a120744816

我要下载 了   怎么用啊    不会的

fjfhjie

excel计算表达式函数2017.11.20.zip (339.84 KB, 下载次数: 185)

2017-11-28 13:02 上传

点击文件名下载附件

2017/11/20
一、tn()函数
1、增加sqrt开方函数，取消F代表乘方，K代表开方。
2、取消小括号前省略乘号，如：之前2（1+2）代表2*（1+2），此版本中间*不能省略。
3、当参数一为空时，此版本结果为0，之前结果为空。
4、修改字母替代理论重量替换规则，理论重量前要加*。






补充内容 (2018-6-11 08:55):
已更新为2018.05.05，需要使用新版本的，可以在57楼下载使用。使用请可以仔细阅读使用说明。

补充内容 (2018-6-14 09:12):
补充  已更新为2018.05.05 错误，最新应该是  2018.05.01，详见57楼。

158202160

真的很方便，谢谢大神的无私

tcsooy

楼主的版本有更新了，特来支持，用这个很久了，对于excel计算工程量方便好多。

xiaotao0311

Zamyi 发表于 2017-1-22 11:47
10万字符都没问题：

你好大神 看到你 计算时出结果帖子里的内容 里的代码【http://club.excelhome.net/thread-1134923-3-1.html】
Function F(s)
With CreateObject("MSScriptControl.ScriptControl")
  .Language = "vbscript"
   F = .Eval(s)
End With
End Function

请问如何添加注释字符替换功能

我按照自己的理解

Function F(s)
With CreateObject("MSScriptControl.ScriptControl")
  .Language = "vbscript"
   s = Substitute(Substitute(s, "[", "*ISTEXT(""["), "]", "]"")")
   F = .Eval(s)
End With
End Function
但是 无法实现。希望大神 在不忙的时候 可以帮忙解答一下。谢谢！！！

Zamyi

xiaotao0311 发表于 2018-1-24 17:03
你好大神 看到你 计算时出结果帖子里的内容 里的代码【http://club.excelhome.net/thread-1134923-3-1.ht ...

何谓注释？非计算字符或者"[]"括号包含的东西。

1. Function Zj(s)
   
2. s = Replace(Replace(s, "（", "("), "）", ")")
   
3. Set x = CreateObject("MSScriptControl.ScriptControl")
   
4. x.Language = "vbscript"
   
5. With CreateObject("VBSCRIPT.REGEXP")
   
6.   .Global = True
   
7.   .Pattern = "\[.*?\]|[^0-9.+-/^*()]"
   
8.   Zj = x.Eval(.Replace(s, ""))
   
9.   End With
   
10. End Function
    
11. 
    
12. Public Sub BZ()‘把当前区域内标记注释为红色
    
13. BZ01 Selection
    
14. End Sub
    
15. Sub BZ01(Rng As Range)
    
16. Dim r As Range, m, i, Col, il
    
17. Application.ScreenUpdating = False
    
18. Application.Calculation = -4135
    
19. Rng.Font.Color = 0
    
20. With CreateObject("VBSCRIPT.REGEXP")
    
21.   .Global = True
    
22.   .Pattern = "\[.*?\]|[^0-9.+-/^*()（）]"
    
23.   For Each r In Rng
    
24.     i = 1
    
25.     il = 0
    
26.     For Each m In .Execute(r.Value)
    
27.       i = InStr(i + il, r.Text, m.Value)
    
28.       il = Len(m.Value)
    
29.       r.Characters(i, il).Font.Color = vbRed
    
30.     Next
    
31.   Next
    
32. End With
    
33. Application.ScreenUpdating = True
    
34. Application.Calculation = xlCalculationAutomatic
    
35. End Sub

复制代码

r_zxf

tcsooy 发表于 2017-1-24 21:50
我今天把我在工作中经常使用遇到的类型，使用过的2个版本的自定义函数中有出现的不能计算的情况发上论坛， ...

你好，看到论坛好多关于文本公式的计算问题。你好像从事工程造价工作，不知你还对这个问题有没有兴趣，我这里有一个小程序能比较好的解决问题，公式里面可以有注释、有EXCEL函数等的使用。有意，请联系。

r_zxf

huangxuejin 发表于 2016-10-20 17:53
这贴是建筑行业计算部门的精辟贴，谢谢楼主的无私奉献，远方的我再次谢过

你好，看到论坛好多关于文本公式的计算问题。你好像从事建筑行业工作，不知你还对这个问题有没有兴趣，我这里有一个小程序能比较好的解决问题，公式里面可以有注释、有EXCEL函数等的使用。有意，请联系。

linhua341

fjfhjie 发表于 2017-11-26 09:58
2017/11/20
一、tn()函数
1、增加sqrt开方函数，取消F代表乘方，K代表开方。

有没有xlam版本的？乞求！