Office中国论坛/Access中国论坛

标题: [求助]简单的问题，但不知如何解决 [打印本页]

作者: 浮华尽去 时间: 2006-5-6 05:05
标题: [求助]简单的问题，但不知如何解决
问题：在A1中手工输入3+2，如何在B1中自动计算出结果5来？

作者: 浮华尽去 时间: 2006-5-6 16:23
郁闷，咋没有人帮忙呢？

作者: xxsz 时间: 2006-5-8 16:46
为什么要这样做？

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

作者: 浮华尽去 时间: 2006-5-8 18:40
首先感谢2楼的朋友。

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

作者: zdbxq 时间: 2006-5-10 06:27
[attach]17648[/attach]

作者: xhxujy3672 时间: 2006-5-10 13:19
巧妙!

作者: 浮华尽去 时间: 2006-5-10 17:05
感谢zdbxq同志！！

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

期待ing。

作者: 浮华尽去 时间: 2006-5-10 17:20
还有一问题：当条件单元格A1中的表达式改动后，结果单元格B1能否自动随之变动！

作者: 情比金坚 时间: 2006-5-10 17:42
使用下列函数，可以根据公式计算

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

作者: 浮华尽去 时间: 2006-5-10 21:00
不解bz的方法！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)