[求助]求守版主WORD中计算板的建立

tudi6709

守版主你好：

谢谢你给我的帮助，我在论坛上下载一个守版主的作品，WORD中的数字格式计算，在工作中非常实用，就是定义一个四则运算“(1-1/(1+8%)^40)/(1-1/(1+8%)^{^}40)”，当点击简单计算。运算结果为“(1-1/(1+8%)^40)/(1-1/(1+8%)^{^}40)＝1.0”。工作中计算很方便。

我在网上无意发现一个“计算板”软件，当在一个文档中有若干个计算式，如下：

（设计：如何定义引用其中一个计算式的结果，和计算结果小数点位置的设置？？？？）

1、年期修正：

Y＝(1-1/(1+8%)^40)/(1-1/(1+8%)^{^}40)＝

2、计算单价：

662.86*(1+3.92%)*100%* 引用（1、的计算结果）＝元／平方米

3、总价： 　　

引用（2、的计算结果）*90.18*10%＝万元

当把上面的文字和计算式全部定义后，点击“计算板”中的计算结果如下：

1、年期修正：

Y＝(1-1/(1+8%)^40)/(1-1/(1+8%)^{^}40)＝1.0

2、计算单价：

662.86*(1+3.92%)*100%* 1.0＝688.84元／平方米

3、总价： 　　

688.84*90.18*10%＝0.6212万元

盼守版主能解决此问题！！！！！

在工作中有大量的计算式的计算，上面只是其中的一小部份。在一个工作报告中有上百条计算式？？？？？一键完成提高工作效率。

[此贴子已经被作者于2005-1-22 21:29:46编辑过]

守柔

以下是引用tudi6709在2005-1-23 9:30:00的发言：

顶

短信已收到，请上传一个附件，我需要梳理一下。

另外，我正在研究另外一个网友的问题，请耐心和给我一点时间。

tudi6709

守版主：

一楼就是一个附件，在一个文档中有若干个任意的计算式。这些计算式不是固定不变的，

以一楼为例：

1、年期修正：

Y＝(1-1/(1+7%)^70)/(1-1/(1+7%)^70)＝

2、单价：

796.94*(1+2.69%)*100%*“定义引用1、的结果”=

元／平方米　　　

3、总价：

“定义引用2、的结果”*13.51=万元

4、文本进革

45+78/8*56=

5、奋地魂牵梦萦地

78*5+56-4*1345=

。。。。。。。。。

N、古老古朴

“定义引用1的结果”+“定义引用2的结果”+“定义引用3的结果”+“定义引用4的结果”+“定义引用5的结果”=

“计算板”定义计算整篇文档计算式的结果。难点就是有些计算式的结果相互引用。定义引用后点击“计算板”计算。计算出整篇文档计算式的结果。 (文档中年期修正的，小数保留6位；有单位元/平方米的保留2位小数；有单位万元的保留4位小数。)

[此贴子已经被作者于2005-1-23 13:10:46编辑过]

守柔

这个问题，楼主是钻了牛角尖了，强WORD所难了。计算本非WROD所长，WORD程序本身就要求计算尽可能放在姊妹程序EXCEL中。

我的处理思路（恕不提供直接过程，有兴趣的你自己琢磨）

一，首先项，在EXCEL中进行，类似此定义，在EXCEL/插入/定义/名称中定义某个单元格名称为其中的数据引用，也可以不定义，直接引用相关单元格。

二，可以使用WORD中的域计算，不过，楼主的功力可能有些困难。关于WORD中的计算，请参WORD自带帮助中的“=formula域”，里面有较为详细的介绍，主要是书签域的引用与计算以及小数点格式图片的选项开关。所有计算可以通过该域完成

三，可以结合我的“简单计算”，使用多个书签，比如定义"(1-1/(1+7%)^70)/(1-1/(1+7%)^70)"区域的书签为"年期修正",再定义一个书签,其内容为引用{REF 年期修正 \# 0.00},其书签名为"BK2",以后每当使用此数据年期修正时,可以使用如"{REF BK2}*100-50*6.02",选中BK2这段带引号的文本数据,点"简单计算",即可计算出结果.以后同,只是较繁锁.

注意事项,WORD中的域,远没有EXCEL中的函数的更新来得方便,当手动更新出现问题时,你可能需要运行此段代码,进行强制更新域(预览也不能全部更新的话)

Sub UPFilds() Me.Fields.Update End Sub