eval计算大难题

bluexuemei

crazy0qwer 发表于 2013-7-20 08:58
楼主的意思是：要计算的表达式中，还有包含单元格的引用。这个引用也要解析出来。

没什么必要还是换个 ...

evalute本身就能计算包含单元格引用的表达式。

crazy0qwer

bluexuemei 发表于 2013-7-20 09:03
evalute本身就能计算包含单元格引用的表达式。

bluexuemei

crazy0qwer 发表于 2013-7-20 09:21

呵呵，你这样当然不行，你这是在两个单元格，就一个单元格是可以的，比如A1=3，B1=4，C1=A1+B1，然后计算C1，EVALUATE是计算表达式的值的

crazy0qwer

bluexuemei 发表于 2013-7-20 09:54
呵呵，你这样当然不行，你这是在两个单元格，就一个单元格是可以的，比如A1=3，B1=4，C1=A1+B1，然后计算 ...

看 8楼 楼主的说明、

bluexuemei

crazy0qwer 发表于 2013-7-20 10:01
看 8楼 楼主的说明、

A1=123
B1=sin(30)+3+A1
=jisuan(B1)

xlez

谢谢大家，我自己搞定了，虽然麻烦点。
思路是把字符串中A1之类提取出来保寸为一个数组a，然后将字符串中A1之类替换为@，再循环数组a，一个@一个@的替换成range（a（i）），麻烦一点但凑合用。

crazy0qwer

xlez 发表于 2013-7-20 12:45
谢谢大家，我自己搞定了，虽然麻烦点。
思路是把字符串中A1之类提取出来保寸为一个数组a，然后将字符串中A ...

下面代码，对于你的要求来说，还差很多。主要难点是乘法、除法以及括号的处理。
如果你有时间，有能力，可以参考下。我是没时间去做了。

1. Function JISUAN1(Range As Range) As Double
   
2.     Dim S As String
   
3.     Dim F As String
   
4.     Dim N As Double
   
5.     Dim M As Long
   
6.     S = Range.Value
   
7.     M = 1
   
8.     For I = 1 To Len(S)
   
9.         Select Case Mid(S, I, 1)
   
10.             Case "+"
    
11.                 N = N + Evaluate(CStr(Evaluate(Mid(S, M, I - M))))
    
12.                 M = I + 1
    
13.                 F = "+"
    
14.             Case "-"
    
15.                 N = N - Evaluate(CStr(Evaluate(Mid(S, M, I - M))))
    
16.                 M = I + 1
    
17.                 F = "-"
    
18.         End Select
    
19.     Next
    
20.         JISUAN = Evaluate(CStr(N) & F & Evaluate(CStr(Evaluate(Mid(S, M)))))
    
21. End Function

复制代码

lee1892

很不理解各位在讨论什么。。。楼主需要的不是如下的形式？或是我愚钝到完全理解错误？

crazy0qwer

lee1892 发表于 2013-7-22 11:34
很不理解各位在讨论什么。。。楼主需要的不是如下的形式？或是我愚钝到完全理解错误？

把 单元格A1 改为  "1+2" , 你就理解了。

lee1892

crazy0qwer 发表于 2013-7-22 11:46
把 单元格A1 改为  "1+2" , 你就理解了。

B列前加一列，先算出结果，修改B列公式引用

吃饱了撑得才干吃力不讨好的事~~

呵呵~~