Метод Cell.AutoSum (Word)
Вставляет поле = (формула), которое вычисляет и отображает сумму значений в ячейках таблицы выше или слева от ячейки, указанной в выражении.
выражение. AutoSum
выражение (обязательно). Переменная, представляющая объект Cell.
Сведения о том, как Word определяет добавляемые значения, см. в разделе Метод Formula .
В этом примере создается таблица 3x3 в новом документе и суммы чисел в первом столбце.
Dim docNew as Document
Dim tableNew as Table
Set docNew = Documents.Add
Set tableNew = docNew.Tables.Add(Selection.Range, 3, 3)
With tableNew
.Cell(1, 1).Range.InsertAfter "10"
.Cell(2, 1).Range.InsertAfter "15"
.Cell(3, 1).AutoSum
End With
В этом примере суммирование чисел выше или слева от ячейки, содержащей точку вставки.
Selection.Collapse Direction:=wdCollapseStart
If Selection.Information(wdWithInTable) = True Then
Selection.Cells(1).AutoSum
Else
MsgBox "The insertion point is not in a table."
End If
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.