Sumar una columna en especifico de un listbox
como puedo sumar una columna de un listbox sin que me arroje "error 6 desbordamiento"
esto sucede cuando trato de sumar con cifras mayores a 6 dígitos
este es el código que yo uso:
Dim p As Byte, tot As Integer
For p = 0 To ListBox1.ListCount - 1
tot = tot + Val(ListBox1.List(p, 3))
Next p
Label8 = tot
agradecería que me ayudaran
1 Respuesta
Respuesta de Luis Mondelo
1
Yo lo he probado y me ha funcionado bien de esta manera.
En mi ejemplo está desarrollado al pulsar un botón y he utilizado la conversión CDBL en lugar de VAL
Private Sub CommandButton1_Click() For x = 0 To ListBox1.ListCount - 1 suma = suma + CDbl(ListBox1.List(x, 3)) Next TextBox1.Value = suma End Sub
recuerda finalizar la consulta
