[求助]简单的问题，但不知如何解决

浮华尽去

问题：在A1中手工输入3+2，如何在B1中自动计算出结果5来？

浮华尽去

郁闷，咋没有人帮忙呢？

xxsz

为什么要这样做？

采用在两个单元格中（如A1 A2）分别输入3　、　2　，再在另外一个单元格中（如B1）进行计算行不行？

浮华尽去

首先感谢2楼的朋友。

以上问题只是简单举例。现需在A1单元格中输入很长一组计算式（如3.14*5^2+6*2.5*9+8.75*3......），然后在B1单元格中自动求出其结果，如采用2楼的方法未免过于复杂。现在采用的方法是：复制A1单元格的式子，在B1中输入“＝”，再在后面粘贴式子进行计算。但需计算的式子太多，能否有简便方法。

zdbxq

xhxujy3672

巧妙!

浮华尽去

感谢zdbxq同志！！

   的确是一种解决方法，比我原来用的简便了许多，但不知是否还有更好的办法。

期待ing。

浮华尽去

还有一问题：当条件单元格A1中的表达式改动后，结果单元格B1能否自动随之变动！

情比金坚

使用下列函数，可以根据公式计算

Function fsum(re)
Dim n As Integer
Dim i As Integer
Dim str As String
Dim stra
n = Len(re)

For i = 1 To n
str = Mid(re, i, 1)
   If InStr(1, "1234567890+-*/().", str) <> 0 Then
      stra = stra & str
   End If
Next
stra = "=" & stra
fsum = Evaluate(stra)

End Function

浮华尽去

不解bz的方法！