Метод Cell.Formula (Word)
Вставляет поле = (формула), содержащее указанную формулу, в ячейку таблицы.
expression. Формула (Формула, NumFormat)
выражение (обязательно). Переменная, представляющая объект Cell.
Имя | Обязательный или необязательный | Тип данных | Описание |
---|---|---|---|
Formula | Необязательный | Variant | Математическая формула, которую требуется вычислить в поле = (Формула). Допустимы ссылки типа электронной таблицы на ячейки таблицы. Например, "=SUM(A4:C4)" указывает первые три значения в четвертой строке. Дополнительные сведения о поле = (формула) см. в разделе Поля Коды полей:= (формула). |
NumFormat | Необязательный | Variant | Формат для результата поля = (формула). Сведения о типах форматов, которые можно применить, см. в разделе Переключатель полей Numeric Picture (#). |
Формула необязательна, если есть по крайней мере одна ячейка, содержащая значение выше или слева от ячейки, содержащей точку вставки. Если ячейки над точкой вставки содержат значения, то вставленное поле — {=СУММ(ВЫШЕ)}; Если ячейки слева от точки вставки содержат значения, то вставленным полем будет {=SUM(LEFT)}. Если и ячейки над точкой вставки, и ячейки слева от точки вставки содержат значения, Microsoft Word использует следующие правила, чтобы определить, какую функцию СУММ следует вставить:
Если ячейка непосредственно над точкой вставки содержит значение, Word вставляет {=SUM(ABOVE)}.
Если ячейка непосредственно над точкой вставки не содержит значения, а ячейка слева от нее выполняется, Word вставляет {=SUM(LEFT)}.
Если ни один из смежных ячеек не содержит значения, Word вставляет {=SUM(ABOVE)}.
Если не указать формулу и все ячейки выше и слева от точки вставки пусты, результат поля будет ошибкой.
В этом примере создается таблица 3x3 в начале активного документа, а затем выполняется усреднения чисел в первом столбце.
Set myRange = ActiveDocument.Range(0, 0)
Set myTable = ActiveDocument.Tables.Add(myRange, 3, 3)
With myTable
.Cell(1,1).Range.InsertAfter "100"
.Cell(2,1).Range.InsertAfter "50"
.Cell(3,1).Formula Formula:="=Average(Above)"
End With
В этом примере в точку вставки вставляется формула, которая определяет наибольшее число в ячейках над выбранной ячейкой.
Selection.Collapse Direction:=wdCollapseStart
If Selection.Information(wdWithInTable) = True Then
Selection.Cells(1).Formula Formula:="=Max(Above)"
Else
MsgBox "The insertion point is not in a table."
End If
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.