Método Cell.AutoSum (Word)

Insere um campo = (Formula) que calcula e exibe a soma dos valores das células de tabela acima ou à esquerda da célula especificada na expressão.

Sintaxe

expression. AutoSum

expression é obrigatório. Uma variável que representa um objeto 'Cell'.

Comentários

Para obter informações sobre como o Word determina quais valores adicionar, consulte o método Formula.

Exemplo

Este exemplo cria uma tabela 3x3 em um novo documento e soma os números da primeira coluna.

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

Este exemplo soma os números acima ou à esquerda da célula que contém o ponto de inserção.

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

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.