[求助]如何求两页小计数的合计

hnliyx · 发表于 2006-10-25 08:24

现有两张表，每张表都有小计数，哪如何在第二张表将小计数求和？如附件。

nEMPBVqV.rar (5.28 KB, 下载次数: 12)

daley · 发表于 2006-10-25 08:42

你好,好像在WORD中不能这样计算的,可以去问一下守柔版主。

hnliyx · 发表于 2006-10-25 08:58

版主帮帮忙，看一看

daley · 发表于 2006-10-25 09:22

将它转换成EXCEL给你行吗？

hnliyx · 发表于 2006-10-25 09:28

我在WORD中，有许多表格需要进行统计。查了帮助，在域中使用公式：{ sum=(tb1 m:m) },tb1为使用书签命名的表格1，可以在另一表格中求和tb1表格的数值。但我始终不能在我表格应用上述公式。请指教。

daley · 发表于 2006-10-25 09:41

我也不懂这个，你在论坛上搜索一下WORD公式看看。

守柔 · 发表于 2006-10-25 12:06

即便在EXCEL中也无法使用精简的公式，何况是WORD中呢？

必须使用VBA，请将光标移到合计的单元格中，运行以下代码可求合计：

Sub Tatol()
    Dim myRange As Range, myCell As Cell
    Dim PreTable As Table, N As Integer
    Dim PreCell As Cell, UpCell As Cell
    With Selection
        If .Information(wdWithInTable) Then
            Set myCell = .Cells(1)
            Set UpCell = .Tables(1).Cell(myCell.RowIndex - 1, myCell.ColumnIndex)
            Set myRange = ActiveDocument.Range(0, .Tables(1).Range.End)
            N = myRange.Tables.Count
            If N = 1 Then
                myCell.Range.Text = Val(UpCell.Range.Text)
            Else
                Set PreTable = ActiveDocument.Tables(N - 1)
                Set PreCell = PreTable.Cell(myCell.RowIndex, myCell.ColumnIndex)
                myCell.Range.Text = VBA.Val(PreCell.Range.Text) + Val(UpCell.Range.Text)
            End If
        End If
    End With
End Sub

sylun · 发表于 2006-10-25 13:51

QUOTE:

以下是引用hnliyx在2006-10-25 9:28:01的发言：

我在WORD中，有许多表格需要进行统计。查了帮助，在域中使用公式：{ sum=(tb1 m:m) },tb1为使用书签命名的表格1，可以在另一表格中求和tb1表格的数值。但我始终不能在我表格应用上述公式。请指教。

看看这样是否合适：

ZsLTXHNq.rar (7.77 KB, 下载次数: 8)

hnliyx · 发表于 2006-10-25 15:54

兄弟，域中：{ =aa+g12 },g12是指哪里？

hnliyx · 发表于 2006-10-25 16:32

QUOTE:

以下是引用hnliyx在2006-10-25 9:28:01的发言：

我在WORD中，有许多表格需要进行统计。查了帮助，在域中使用公式：{ sum=(tb1 m:m) },tb1为使用书签命名的表格1，可以在另一表格中求和tb1表格的数值。但我始终不能在我表格应用上述公式。请指教。

在sylun兄的帮助下，终于理解了为什么不能应用 { sum=(tb1 m:m) }，tb1的命名格式有误，会被理解为是表格tb列的第一行，从而产生错误。将tb1改为tb_1，公式恢复正常。一定要注意是字母加数字命名表格时，在引用时可能会被理解为是表格的第几列第几行。

另守柔版主可能没有理解我的意思。谢谢大家

		自动登录	找回密码
密码			免费注册

[求助]如何求两页小计数的合计

[注意]书签命名表格注意事项