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
| Adjunto | Tamaño |
|---|---|
 ayudacaja.zip | 108.43 KB |
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.
Gracias por responder, pero esos codigos lo taipeo dentro del textbox? ó como sería el código completo?
Saludos
Jesús
Jesus Martinez Plantarosa
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)
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.
Si perfecto gracias mil
Un abrazo
Jesús
Jesus Martinez Plantarosa