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
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.
Comentários
https://aka.ms/ContentUserFeedback.
Em breve: Ao longo de 2024, eliminaremos os problemas do GitHub como o mecanismo de comentários para conteúdo e o substituiremos por um novo sistema de comentários. Para obter mais informações, consulteEnviar e exibir comentários de