Excel 电子表格中，怎样实现：单元格A1中输入计算式，B1中为A1的计算结果。

Excel 电子表格中，怎样实现：单元格A1中输入计算式，B1中为A1的计算结果。

这个问题，我已经在百度知道回答了好几回了。用宏表函数EVALUATE搞定
如果A1是算式，B1要显示运算结果，
具体方法如下：
选中B1，自定义名称JS（这个名称你可任意按要求起），引用中输入
=EVALUATE(A1)
确定
这样自定义名称就定义好了
在B1中输入公式
=JS（就是等于你的自定义名称）
这样B1就显示了A1算式的计算结果。如果A列都是这样的算式，直接把B1的公式下拉完成。

直接在B1中输入公式啥，如果一定要在A1中输入公式，那你就在B1中输入“＝A1”，OK啦

B1公式
=MId(A1,1,FIND("*",A1)-1)*MId(A1,FIND("*",A1)+1,FIND("*",A1,FIND("*",A1)+1)-FIND("*",A1)-1)*MId(A1,FIND("*",A1,FIND("*",A1)+1)+1,LEN(A1)-FIND("*",A1,FIND("*",A1)+1))

本帖最后由 xsbccf 于 2009-10-22 17:48 编辑
如果A1是算式，B1要显示运算结果，
方法是：选中B1
菜单:插入-名称,起个名字JG
然后在"引用"中输入
=EVALUATE(A1)
确定
然后在B1
输入=JG
公式向下填充即可

A1输入“1.8*1.8*1.63”B1输入“=1.8*1.8*1.63”就可以了，初学者最好简单点。
EXCEL的设计者的思路是，输入“=”和算式，就直接在本格显示计算结果。如果非要看看公式，选中这个格，编辑栏会显示公式。要看全表的公式：点“工具”---选项---视图---勾选“公式”--确定，全表的公式就都显示了。再去掉“公式”的勾，就又显示计算结果了。

两种方法，都是VBA实现
1. 使用VBA将A1的输入设置为B1的公式
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("B1").FormulaR1C1 = "=" & Range("A1").Value
End Sub
2. 将A1的公式用Evaluate进行运算后赋值给B1
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Rang("B1").Value = Application.Evaluate("=" & Range("A1").Value)
End Sub