OpenOffice - Sumatorio

   
Vista:
Imágen de perfil de José Luis Torre Hernández

Sumatorio

Publicado por José Luis Torre Hernández (1 intervención) el 13/04/2008 10:22:44
Hola:

Agradecería que alguien experimentado en macros OO codificara esta función VBA.

Function sumatorio(x)

'
' sumatorio(x)
'

' Definición de las variables locales utilizadas (aparte del parámetro x)
' sólo son necesarias en el caso de que se utilicen otras variables globales
' con el mismo nombre.
'

Dim nf ' número de filas
Dim nc ' número de columnas
Dim f ' índice de fila
Dim c ' índice de columna
Dim sx ' suma acumulada de los valores de x

' Obtención del número de filas y del número de columnas de rango utilizado

nf = x.Rows.Count
nc = x.Columns.Count

sx = 0
For f = 1 To nf Step 1
For c = 1 To nc Step 1
sx = sx + x(f, c)
Next c
Next f

sumatorio = sx


End Function
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder