设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

123下一页
返回列表 发新帖
查看: 5588|回复: 20
打印 上一主题 下一主题

[基础应用] 计算式后结果如何显示

[复制链接]
跳转到指定楼层
1#
发表于 2005-6-21 18:40:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
给为朋友,小第我是搞工程预算的,经常用EXCEL来计算工程造价,我想请教一下,当我在工作簿内某一行内第一列输入一串计算式后,就同时在第二列显示其计算结果,请问各为兄弟伙怎么设置,注:不是在第二列内用复制计算式,输入等号,再在等号后粘贴计算式的方式,那样太麻烦了,感谢大家的帮助,请你们吃重庆火锅,谢谢
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2005-6-21 20:56:00 | 只看该作者
等于第一列不行吗?没明白你的意思
3#
发表于 2005-6-21 21:13:00 | 只看该作者
在工作簿内某一行内第一列输入一串计算式后,是不是在按回车前就同时在第二列显示其计算结果呢?
4#
 楼主| 发表于 2005-6-23 18:41:00 | 只看该作者
对,就是这样的,在第一列输入计算式,在第二列按回车显示计算结果
5#
 楼主| 发表于 2005-6-23 19:04:00 | 只看该作者
老大,第一列是计算式,第二列是结果,等于第一列后还是计算式而不是结果
6#
 楼主| 发表于 2005-6-23 19:17:00 | 只看该作者
比如

计算式             结果

   A                  B

1+5*2*3            31

如果用B=A来执行的话,结果显示为计算式,请大家帮助下,在B格里如何设置公式才能得出数字而不是计算式,谢谢
7#
发表于 2005-6-23 19:18:00 | 只看该作者
试试使用以下的宏:

Sub auto_open()

ActiveSheet.OnEntry = "formu2txt"   '按enter后,执行formu2txt

End Sub

Sub formu2txt()

ActiveCell.Offset(0, 1).Value = ActiveCell.Value   

ActiveCell.Value = "'" & ActiveCell.FormulaLocal

End Sub

8#
发表于 2005-6-23 19:26:00 | 只看该作者
以下是引用sc在2005-6-23 11:17:00的发言:



比如

计算式             结果

   A                  B

1+5*2*3            31

如果用B=A来执行的话,结果显示为计算式,请大家帮助下,在B格里如何设置公式才能得出数字而不是计算式,谢谢

这样啊,那很简单,修改一下代码:

Sub auto_open()

ActiveSheet.OnEntry = "formu2txt"

End Sub

Sub formu2txt()

ActiveCell.Offset(0, 1).Value = "=" & ActiveCell.FormulaLocal

'ActiveCell.Value = "'" & ActiveCell.FormulaLocal

End Sub
9#
发表于 2005-6-23 19:30:00 | 只看该作者
以下是引用sc在2005-6-23 11:17:00的发言:



比如

计算式             结果

   A                  B

1+5*2*3            31

如果用B=A来执行的话,结果显示为计算式,请大家帮助下,在B格里如何设置公式才能得出数字而不是计算式,谢谢

建议用宏函数来做。见附件。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
10#
 楼主| 发表于 2005-6-23 19:34:00 | 只看该作者
Sub auto_open()

ActiveSheet.OnEntry = "formu2txt"   '按enter后,执行formu2txt

End Sub

Sub formu2txt()

ActiveCell.Offset(0, 1).Value = ActiveCell.Value   

ActiveCell.Value = "'" & ActiveCell.FormulaLocal

End Sub

如何操作上面的步骤,谢谢
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-12-1 19:57 , Processed in 0.111101 second(s), 35 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表