Excel 电子表格中,怎样实现:单元格A1中输入计算式,B1中为A1的计算结果。
答案:6 悬赏:30 手机版
解决时间 2021-03-23 22:40
- 提问者网友:我们很暧昧
- 2021-03-23 16:38
Excel 电子表格中,怎样实现:单元格A1中输入计算式,B1中为A1的计算结果。
最佳答案
- 五星知识达人网友:轻雾山林
- 2021-03-23 17:38
这个问题,我已经在百度知道回答了好几回了。用宏表函数EVALUATE搞定
如果A1是算式,B1要显示运算结果,
具体方法如下:
选中B1,自定义名称JS(这个名称你可任意按要求起),引用中输入
=EVALUATE(A1)
确定
这样自定义名称就定义好了
在B1中输入公式
=JS(就是等于你的自定义名称)
这样B1就显示了A1算式的计算结果。如果A列都是这样的算式,直接把B1的公式下拉完成。
如果A1是算式,B1要显示运算结果,
具体方法如下:
选中B1,自定义名称JS(这个名称你可任意按要求起),引用中输入
=EVALUATE(A1)
确定
这样自定义名称就定义好了
在B1中输入公式
=JS(就是等于你的自定义名称)
这样B1就显示了A1算式的计算结果。如果A列都是这样的算式,直接把B1的公式下拉完成。
全部回答
- 1楼网友:空山清雨
- 2021-03-23 20:50
直接在B1中输入公式啥,如果一定要在A1中输入公式,那你就在B1中输入“=A1”,OK啦
- 2楼网友:怙棘
- 2021-03-23 20:08
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))
=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))
- 3楼网友:你可爱的野爹
- 2021-03-23 19:46
本帖最后由 xsbccf 于 2009-10-22 17:48 编辑
如果A1是算式,B1要显示运算结果,
方法是:选中B1
菜单:插入-名称,起个名字JG
然后在"引用"中输入
=EVALUATE(A1)
确定
然后在B1
输入=JG
公式向下填充即可
如果A1是算式,B1要显示运算结果,
方法是:选中B1
菜单:插入-名称,起个名字JG
然后在"引用"中输入
=EVALUATE(A1)
确定
然后在B1
输入=JG
公式向下填充即可
- 4楼网友:封刀令
- 2021-03-23 19:17
A1输入“1.8*1.8*1.63”B1输入“=1.8*1.8*1.63”就可以了,初学者最好简单点。
EXCEL的设计者的思路是,输入“=”和算式,就直接在本格显示计算结果。如果非要看看公式,选中这个格,编辑栏会显示公式。要看全表的公式:点“工具”---选项---视图---勾选“公式”--确定,全表的公式就都显示了。再去掉“公式”的勾,就又显示计算结果了。
EXCEL的设计者的思路是,输入“=”和算式,就直接在本格显示计算结果。如果非要看看公式,选中这个格,编辑栏会显示公式。要看全表的公式:点“工具”---选项---视图---勾选“公式”--确定,全表的公式就都显示了。再去掉“公式”的勾,就又显示计算结果了。
- 5楼网友:詩光轨車
- 2021-03-23 19:08
两种方法,都是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
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
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯