Прочитать на английском

Поделиться через


Метод 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

См. также

Объект Cell

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.