Método Cell.AutoSum (Word)
Inserta un campo = (Fórmula) que calcula y muestra la suma de los valores de las celdas de la tabla situada sobre la celda especificada en la expresión o a la izquierda de la misma.
Sintaxis
expresión. AutoSum
expresión obligatoria. Variable que representa un objeto 'Cell'.
Comentarios
Para obtener información acerca de la forma en que Word determina los valores que van a agregarse, vea el método Formula.
Ejemplo:
En este ejemplo se crea una tabla de 3 x 3 en un nuevo documento y se suman los números de la primera columna.
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
En este ejemplo se suman los números sobre o a la izquierda de la celda que contiene el punto de inserción.
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
Consulte también
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.
Comentarios
https://aka.ms/ContentUserFeedback.
Próximamente: A lo largo de 2024 iremos eliminando gradualmente GitHub Issues como mecanismo de comentarios sobre el contenido y lo sustituiremos por un nuevo sistema de comentarios. Para más información, vea:Enviar y ver comentarios de