Necesito funcion suma

10/04/2004 - 01:27 por Amadeo GOVONI | Informe spam

Estimado grupo
Necesito generar una función suma es VB
No me sirve la que hay en Excel

Necesito sumar un detrminado rango variable

Se que es

Public Function Sumapersonal(byVal Rango as Range)

'Selecciones un rango A1:A5 por ejemplo
'Necesito el código para sumar esas celdas
'Se que hay una manera la hevistoy no me acuerdo.
'les pido ayuda al foro

Rango.Count > me dice cuantas filas tengo
como recorro el rango?

End Function

Gracias y saludos

Amadeo

Siga el debate

3 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Luiz Cláudio

10/04/2004 - 05:25 | Informe spam

Oi Amadeo,

será que é isto que procura?

Public Function Sumapersonal(ByVal Rango As Range)
Dim l As Integer
Dim c As Integer
Dim myValue As Currency

For c = 1 To Rango.Columns.Count
For l = 1 To Rango.Rows.Count
myValue = myValue + Rango.Columns.Cells(l, c)
Next l
Next c

Sumapersonal = myValue
End Function

"Amadeo GOVONI" escreveu na mensagem
news:

Estimado grupo
Necesito generar una función suma es VB
No me sirve la que hay en Excel

Necesito sumar un detrminado rango variable

Se que es

Public Function Sumapersonal(byVal Rango as Range)

'Selecciones un rango A1:A5 por ejemplo
'Necesito el código para sumar esas celdas
'Se que hay una manera la hevistoy no me acuerdo.
'les pido ayuda al foro

Rango.Count > me dice cuantas filas tengo
como recorro el rango?

End Function

Gracias y saludos

Amadeo

Responder a este mensaje

#2 Manuel Romero

12/04/2004 - 16:35 | Informe spam

Otra forma

Public Function Sumapersonal(ByVal Rango As Range)

Dim rng As Range

Dim myValue As Currency

For Each rng In Rango
myValue = myValue + CCur(Rng.Value)
Next

Sumapersonal = myValue
End Function

"Luiz Cláudio" escribió en el mensaje
news:%

Oi Amadeo,

será que é isto que procura?

Public Function Sumapersonal(ByVal Rango As Range)
Dim l As Integer
Dim c As Integer
Dim myValue As Currency

For c = 1 To Rango.Columns.Count
For l = 1 To Rango.Rows.Count
myValue = myValue + Rango.Columns.Cells(l, c)
Next l
Next c

Sumapersonal = myValue
End Function

"Amadeo GOVONI" escreveu na mensagem
news:
> Estimado grupo
> Necesito generar una función suma es VB
> No me sirve la que hay en Excel
>
> Necesito sumar un detrminado rango variable
>
> Se que es
>
> Public Function Sumapersonal(byVal Rango as Range)
>
>
>
> 'Selecciones un rango A1:A5 por ejemplo
> 'Necesito el código para sumar esas celdas
> 'Se que hay una manera la hevistoy no me acuerdo.
> 'les pido ayuda al foro
>
> Rango.Count > me dice cuantas filas tengo
> como recorro el rango?
>
> End Function
>
> Gracias y saludos
>
> Amadeo
>
>
>
>

Responder a este mensaje

#3 Amadeo GOVONI

12/04/2004 - 16:46 | Informe spam

Gracias por tu ayuda
Amadeo -- Bariloche
Argentina

"Luiz Cláudio" escribió en el mensaje
news:%

Oi Amadeo,

será que é isto que procura?

Public Function Sumapersonal(ByVal Rango As Range)
Dim l As Integer
Dim c As Integer
Dim myValue As Currency

For c = 1 To Rango.Columns.Count
For l = 1 To Rango.Rows.Count
myValue = myValue + Rango.Columns.Cells(l, c)
Next l
Next c

Sumapersonal = myValue
End Function

"Amadeo GOVONI" escreveu na mensagem
news:
> Estimado grupo
> Necesito generar una función suma es VB
> No me sirve la que hay en Excel
>
> Necesito sumar un detrminado rango variable
>
> Se que es
>
> Public Function Sumapersonal(byVal Rango as Range)
>
>
>
> 'Selecciones un rango A1:A5 por ejemplo
> 'Necesito el código para sumar esas celdas
> 'Se que hay una manera la hevistoy no me acuerdo.
> 'les pido ayuda al foro
>
> Rango.Count > me dice cuantas filas tengo
> como recorro el rango?
>
> End Function
>
> Gracias y saludos
>
> Amadeo
>
>
>
>

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida