Evaluate已经突破255字符限制

kjy520aia

谢谢；楼主分享，学习了！

18945521

谢谢楼主，很有用

yyy0

fjfhjie 发表于 2018-5-3 09:26
如果wps可以运行宏，也可以使用”快速加载"文件,实现加载。

请问高手。加载宏，如何使用该宏的功能。  WPS没有启用宏，我可以用office加载完成。是不是就可以在那个计算稿里面编辑我的公式了

fjfhjie

yyy0 发表于 2019-4-9 16:00
请问高手。加载宏，如何使用该宏的功能。  WPS没有启用宏，我可以用office加载完成。是不是就可以在那个 ...

使用office加载完成后，就可以在excel表格和wps表格中使用了。

mzytiger

楼主，想请教下，在自己的电脑加载后可以使用，这个没问题，但是我的计算式如果发给对方且计算式长度超过255的字符，是不是对方就用不了了，会显示错误？


有没有办法把代码嵌入到EXCEL一起，不管发给谁都可以直接用呢？

fjfhjie

excel计算表达式函数2019.06.23.zip (343.39 KB, 下载次数: 420)

2019-6-23 09:49 上传

点击文件名下载附件

最新的。


补充内容 (2020-10-9 13:25):
已更新置顶。

yyy0

请收下我的膝盖。在您的帮助下，我在表格能使用tn函数了，但是我有一个新的问题就是  我的表格中是逐列编辑的，在最后的单元格中进行求和。但是用tn只计算出带文字的单元格 实现不了所有逐列带文字的单元格求和。请问这个怎么办呢（8.37+15.74+0.75）[水平]+1.8[配电箱距地]+0.5[配电箱预留]+0.3*6[普通插座距地]+0.6*2[卧室电视电源插座距地]        （8.37+15.74+0.75）[水平]+1.8[配电箱距地]+0.5[配电箱预留]+0.3*6[普通插座距地]+0.6*2[卧室电视电源插座距地]+0.65*3[卧室床头插座距地]+0.6*3[客厅书桌插座距地]+1.4*1[X三极开关洗衣机插座距地]+0.6*2[卧室电视电源插座距地]+1.4*1[X三极开关洗衣机插座距地]        （8.37+15.74+0.75）[水平]+1.8[配电箱距地]+0.5[配电箱预留]+0.3*6[普通插座距地]+0.6*2[卧室电视电源插座距地]+0.65*3[卧室床头插座距地]+0.6*3[客厅书桌插座距地]+1.4*1[X三极开关洗衣机插座距地]+0.6*2[卧室电视电源插座距地]+1.4*1[X三极开关洗衣机插座距地]        tn(K37:M37)

fjfhjie

yyy0 发表于 2019-7-4 17:40
请收下我的膝盖。在您的帮助下，我在表格能使用tn函数了，但是我有一个新的问题就是  我的表格中是逐列编辑 ...

试试这样呢   =tn(K37)+tn(L37)+tn(M37)

yyy0

恩试过了，，，可以的，但是这样子一个一个加，跟一个一个一个等于是一样的。。。不方便。请问还有什么更加好的办法吗。我使用的另一种还比你的快一点。哈哈哈。。。。就是在列一行空白格。在用sum。 如果有更好的办法那就太好了，在网上看了很多，，，都没有找到

fjfhjie

yyy0 发表于 2019-7-12 09:42
恩试过了，，，可以的，但是这样子一个一个加，跟一个一个一个等于是一样的。。。不方便。请问还有什么更加 ...

既然你在很多网上没找到，说明像你这样的需求比较少。
现在我用vba写了一个函数，应该可以满足你的需要。

使用这个函数时，需要先加载上tn函数那个文件，因为写的这个函数会调用tn函数。以下为代码。

1. Function tn_sum(R As Variant) As Double
   
2.     Dim i%, n%, m As Double
   
3.     arr = R
   
4.     For i = 1 To UBound(arr, 1)
   
5.         For n = 1 To UBound(arr, 2)
   
6.            R = arr(i, n)
   
7.            m = Application.Run("tn", R) + m
   
8.         Next
   
9.     Next
   
10.     tn_sum = m
    
11. End Function

复制代码