ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 9607|回复: 12

加减乘除问题

[复制链接]

TA的精华主题

TA的得分主题

发表于 2005-7-16 17:17 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
在word中加减乘除问题(非表格中),如1+2=3,等号右边不用"公式"—即域代码{ =1+2},就可以等于3?一句话就像excel那样便捷,而且当左边数值或运算符号改变时,计算结果能自动更新,如何实现,谢谢!!!

TA的精华主题

TA的得分主题

发表于 2005-7-16 17:26 | 显示全部楼层

插入/对象/新建:Microsoft Excel 工作表吧。

建议直接到EXCEL中做。

这是本人有史以前看到的WORD中令我最不可思议的提问。

TA的精华主题

TA的得分主题

发表于 2005-7-16 17:55 | 显示全部楼层
姑忘听之,姑忘看之。

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-7-16 21:00 | 显示全部楼层
提问让版主见怪,连自己都吓一跳,没表达清楚?要求在word中做到或用VBA,不借助于其他手段,当然包括excel.守柔版主功底吾等早有耳闻,也许"杀鸡不用牛刀,期待中!!!

TA的精华主题

TA的得分主题

发表于 2005-7-17 05:44 | 显示全部楼层
以下是引用matsumi在2005-7-16 21:00:57的发言: 提问让版主见怪,连自己都吓一跳,没表达清楚?要求在word中做到或用VBA,不借助于其他手段,当然包括excel.守柔版主功底吾等早有耳闻,也许"杀鸡不用牛刀,期待中!!!

这里或用VBA,是不用VBA吧!

也许守柔孤陋寡闻了(这不是谦虚),据我知道,在不用VBA的情况下,WORD中的计算主要有:

表格的中域公式计算,SET域中的计算等,这些均为域公式计算;它保留公式并需要更新。

第二种,直接选定文本的计算,在WORD中,有一个命令叫"ToolsCalculate":选中需要运算的文本表达式,按下此命令可以计算结果置于剪贴板,在需要的位置进行粘贴,它是文本形式的结果,谈不上更新。

第三种,是窗体域中的计算。见图:

这三种方法,显然都不是楼主期望的,而且,在不用VBA的情况下,也根本不可能达到楼主的要求,否则,WORD也无需公式域了!

加减乘除问题

加减乘除问题

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-7-17 08:42 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

谢谢守柔兄弟,为了我的问题这么早起来解答,非常感激,上述讲的三种,第二种觉得较好点.

问题是这样的:有时写报告做文章,需用数学表达式并算出结果,如加减乘除,参插在文字或段落中,这样需要用到公式,写入数字和运算符号或粘贴函数,觉得很麻烦,而且一旦文章中表达式数字更改了,计算结果不能自动更改,只好改公式中的数字,再更新计算结果,一二处地方倒不会繁烦,但有多处,且上下文中的数字都有关联,都得改,多了可能还会漏掉.一直想如何用快捷的办法解决上述提到的问题,望老兄帮忙,用VBA吧,word毕竟是以文字处理为主.

问:如何调用ToolsCalculate命令

[此贴子已经被作者于2005-7-17 8:50:08编辑过]

TA的精华主题

TA的得分主题

发表于 2005-7-17 11:02 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

用VBA请参考:

http://club.excelhome.net/dispbb ... p;skin=0&page=1

调用ToolsCalculate可以在工具栏中自定义,找到这个命令拖到工具栏中即可使用。这是一个WORD内置命令。

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-7-18 17:08 | 显示全部楼层
1、加× ÷符号替换 If Find("×", Myrange) > 0 Or Find("÷", Myrange) > 0 Then

Myrange = substitute(substitute(Myrange, "×", "*"), "÷", "/")

出现:子过程或函数未定义 出现在find,如何解决

2、不要科学计数

再请帮忙!

TA的精华主题

TA的得分主题

发表于 2005-7-18 17:23 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

超过一定数目,它就是科学计数,当然,得视具体情况而定。

WORD中,有FIND函数吗?

我看一下,抽空给你定制一个吧。

但是,数据的运算符,最好在全文全部结束后,一次性替换,以免你再更换数据,再运算。另外,就四则运算吗?

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-7-18 20:13 | 显示全部楼层

加一个n次方,表达式为(1+5.5*200)2.6 不是(1+5.5*200)^2.6,太复杂了恐怕不行,要求到此为止.谢谢!全文数据的运算符,用常规符号,不替换,为了计算在代码中用* / ^ 替换× ÷ 及 n次,.

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-15 10:16 , Processed in 0.041134 second(s), 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

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