[已解决]求文本式计算最终结果的函数

打开话匣子

在表中写了一个文本式计算代码，请问在A11单元格中用什么函数才能直
接（而不是新建辅助列进行计算后求得）计算A1:A10的总和，即等于320。谢谢！ 1010.rar (6.79 KB, 下载次数: 20)

2014-11-7 19:34 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

xdragon

2014-11-7 20:20

1. Function evalsum(rng As Range)
   
2.      Dim arr, ar
   
3.      arr = rng.Value
   
4.      With CreateObject("MSScriptControl.ScriptControl")
   
5.         .Language = "vbscript"
   
6.         If IsArray(arr) = False Then
   
7.             evalsum = .eval(arr)
   
8.         Else
   
9.             For Each ar In arr
   
10.                 evalsum = evalsum + .eval(ar)
    
11.             Next
    
12.         End If
    
13.      End With
    
14. End Function

复制代码

稍微修改下代码就好了。。不过引用这个控件貌似速度不快啊。。。

试试下面这个

1. Function evalsum(rng As Range)
   
2.     Dim arr, ar
   
3.     arr = rng.Value
   
4.     If IsArray(arr) = False Then
   
5.         evalsum = Application.Evaluate(arr)
   
6.     Else
   
7.         For Each ar In arr
   
8.             evalsum = evalsum + Application.Evaluate(ar)
   
9.         Next
   
10.     End If
    
11. End Function

复制代码

跳转到最佳答案楼层

qh8600

函数恐怕不行，你不是写了自定义吗，写过过程直接答案不就行了

suzhouy2003

可以试试这样操作：1.在需要计算的单元格写入=”=“&A1
                             2.下拉
                             3.整列复制，选择性粘贴选择”数值“
                             4.快速分列成”常规格式“即可
                             5.按ALT+”=“快速求和即可。

xdragon

1. Function evalsum(rng As Range)
   
2.      Dim arr, ar
   
3.      arr = rng.Value
   
4.      With CreateObject("MSScriptControl.ScriptControl")
   
5.         .Language = "vbscript"
   
6.         If IsArray(arr) = False Then
   
7.             evalsum = .eval(arr)
   
8.         Else
   
9.             For Each ar In arr
   
10.                 evalsum = evalsum + .eval(ar)
    
11.             Next
    
12.         End If
    
13.      End With
    
14. End Function

复制代码

稍微修改下代码就好了。。不过引用这个控件貌似速度不快啊。。。

试试下面这个

1. Function evalsum(rng As Range)
   
2.     Dim arr, ar
   
3.     arr = rng.Value
   
4.     If IsArray(arr) = False Then
   
5.         evalsum = Application.Evaluate(arr)
   
6.     Else
   
7.         For Each ar In arr
   
8.             evalsum = evalsum + Application.Evaluate(ar)
   
9.         Next
   
10.     End If
    
11. End Function

复制代码

打开话匣子

四楼的好用。谢谢各位大师的热心指教！