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
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
0