Método Cell.Formula (Word)

Insere em uma célula de tabela um campo = (Formula) contendo a fórmula especificada.

Sintaxe

mais simples. Fórmula (Fórmula, NumFormat)

expressão Obrigatório. Uma variável que representa um objeto 'Cell'.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Fórmula	Opcional	Variant	A fórmula matemática que você deseja que seja avaliada pelo campo = (Formula). Referências como as de planilha são válidas para células de tabela. Por exemplo, "=SUM(A4:C4)" especifica os três primeiros valores na quarta linha. Para obter mais informações sobre o campo = (Formula), consulte Códigos de campo: campo = (Formula).
NumFormat	Opcional	Variant	A format for the result of the = (Formula) field. Para obter informações sobre os tipos de formatos que você pode aplicar, consulte Opção de campo de imagem numérica (#).

Comentários

Fórmula é opcional, desde que há pelo menos uma célula que contém um valor acima ou à esquerda da célula que contém o ponto de inserção. Se as células acima do ponto de inserção contiverem valores, o campo inserido será {= SUM (ABOVE)}; Se as células à esquerda da inserção ponto contiverem valores, o campo inserido será {= SUM (LEFT)}. Se tanto as células acima do ponto de inserção e as células à esquerda do ponto de inserção contiverem valores, o Microsoft Word usa as regras a seguir para determinar a função SUM para inserir:

• Se a célula imediatamente acima do ponto de inserção contiver um valor, o Word inserirá {=SUM(ABOVE)}.

• Se a célula imediatamente acima do ponto de inserção não contiver um valor e a célula imediatamente à esquerda dele contiver, o Word inserirá {= SUM(LEFT)}.

• Se nenhuma das células adjacentes contiver um valor, o Word inserirá {= SUM(ABOVE)}.

• Se você não especificar que Formula e todas as células acima e à esquerda do ponto de inserção estiverem vazias, o resultado do campo é um erro.

Exemplo

Este exemplo cria uma tabela 3x3 no início do documento ativo e faz uma média dos números da primeira coluna.

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

Este exemplo insere uma fórmula no ponto de inserção que determina o maior número nas células acima da célula selecionada.

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

Confira também

Objeto Cell

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.