Totales en textbox

5 envíos / 0 nuevos
Último envío
Jesús Martínez
Imagen de Jesús Martínez
Offline
última acción: Hace 3 años 9 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 5008
Totales en textbox

Hola
Tengo un formulario que filtra por combobox y los visualiza los datos en el listbox  al formulario aumente dos textbox con el nombre de Total ventas Bolivianos - Dólares , como se puede sumar el contenido de un listbox? ayuda por favor
la contraseña es JMP

AdjuntoTamaño
Package icon ayudacaja.zip108.43 KB

Etiquetas: 

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 1 día 1 hora
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11175
calcular la suma de los elementos de un listbox

Hola:

Lo primero es que si abres tu libro con la techa mayúsculas (shift) pulsada, se deshabilitan las macros, así que no pregunta por la contraseña.

 

Sobre tu duda:

Excel opera con datos en las celdas, para operar con controles y demás lo tendrás que programar.

 

¿Cómo sumas el contenido de una lista? pues haciendo un bucle que recorra la lista

En tu caso tienes un lisbox con 10 columnas

 

Hay que tener en cuenta que los índices tanto de las filas del listbox como de las columnas empiezan en 0 (por eso el bucle es de 0 al número de filas menos uno, y por eso la columna 10 es la que tiene el índice 9

Utilizo Me, porque pongo esta función en el código del propio formulario (porque sólo la vamos a utilizar en el formulario)

Un bucle que sume los datos de una columna cualquiera de tu listbox podría ser algo así: 

Private Function calcula_suma_columna(numerocolumna As Integer)

Dim i

    calcula_suma_columna = 0

    With Me.ListBox1

        For i = 0 To .ListCount - 1

            calcula_suma_columna = calcula_suma_columna + .Column(numerocolumna - 1, i)

        Next

    End With

End Function

 

 

------
Ya sé Excel, pero necesito más.

Jesús Martínez
Imagen de Jesús Martínez
Offline
última acción: Hace 3 años 9 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 5008
Re: calcular la suma de los elementos de un listbox

Gracias por responder, pero esos codigos lo taipeo dentro del textbox? ó como sería el código completo?

Saludos

Jesús

Jesus Martinez Plantarosa

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 1 día 1 hora
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11175
Re: calcular la suma de los elementos de un listbox

esta función tal y como está escrita debe de estar en el código del formulario.

ahora bien, lo que tienes que programar también es cuándo quieres que esto se calcule

¿por ejemplo cuando hagas una búsqueda?

entonces asigna los valores a los textbox dentro de tu código del botón buscar

después de haber leido los valores del listbox, claro.

 

Private Sub BtnBuscarCart_Click()

....

 

' en algún lugar de este procedimiento añade algo parecido a esto para calcular las sumas

Me.TextBox1.Value = calcula_suma_columna(9)

Me.TextBox6.Value = calcula_suma_columna(10)

' fin de lo que tienes que añadir
....

End sub


yo cambiaria los nombres textbox1 y textbox6 por algo más representativo

 

también veo que cuando hay valores nulos no suma. Habrá que retocar un poco la función para ver qué quieres hacer con los nulos.

 

------
Ya sé Excel, pero necesito más.

Jesús Martínez
Imagen de Jesús Martínez
Offline
última acción: Hace 3 años 9 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 5008
Re: calcular la suma de los elementos de un listbox

Si perfecto gracias mil

Un abrazo

Jesús

Jesus Martinez Plantarosa