请问为什么我的word不能用求和公式

bbyod

word是2010版，但是用不了公式，一直显示无效字符设置，跪求大神解决方法

不经意的回头

切换到域代码模式查看下代码
求上面连续数据区域的和，可用代码{ =SUM(ABOVE) },注意花括号必须要按CTRL+F9输入才行
另外，建议求助时一定要以附件形式上传模拟文件，这样大家才好更快的帮助你

bbyod

不经意的回头 发表于 2016-4-14 07:15
切换到域代码模式查看下代码
求上面连续数据区域的和，可用代码{ =SUM(ABOVE) },注意花括号必须要按CTRL+F ...

谢谢，我是新人不太懂要求，但是按你的说法切换之后代码是没错的呀，就是{ =SUM(ABOVE) }

不经意的回头

bbyod 发表于 2016-4-14 13:09
谢谢，我是新人不太懂要求，但是按你的说法切换之后代码是没错的呀，就是{ =SUM(ABOVE) }

把文件上传上来看看吧

bbyod

这样传附件？

bbyod

不经意的回头 发表于 2016-4-14 21:28
把文件上传上来看看吧

这样可以吗

不经意的回头

bbyod 发表于 2016-4-14 23:02
这样可以吗

哈哈，只顾看你的域代码了，WORD不同于EXCEL，上面的数值有问题，把千分符也就是那个逗号去掉就可以啦

bbyod

不经意的回头 发表于 2016-4-15 08:39
哈哈，只顾看你的域代码了，WORD不同于EXCEL，上面的数值有问题，把千分符也就是那个逗号去掉就可以啦

真觉得是我软件的问题，我就算去掉小数位 去掉分隔符也还是计算不出来

banjinjiu

试试用程序：

1. Sub Example()
   
2.     '表格插入域
   
3.     '表格求和
   
4.     Dim myRange As Range
   
5.     Dim str_Field As String
   
6.     str_Field = "=sum(above)"
   
7.     Application.ScreenUpdating = False
   
8.     ActiveDocument.Tables(1).Cell(4, 2).Range = ""
   
9.     ActiveDocument.Tables(1).Cell(4, 3).Range = ""
   
10.     For i = 2 To 3
    
11.     Set myRange = ActiveDocument.Tables(1).Cell(4, i).Range
    
12.     myRange.SetRange myRange.End - 1, myRange.End - 1
    
13.     myRange.Fields.Add myRange, wdFieldEmpty, str_Field, True
    
14.     Next
    
15.     Application.ScreenUpdating = True
    
16. End Sub

复制代码

bbyod

banjinjiu 发表于 2016-4-16 13:22
试试用程序：

这个咋用？我不是IT界的，不太懂操作