Listbox que cuente los números negativos en un textbox
Tengo un Listbox y y en una de sus columnas tengo números negativos y positivos, necesito que en un textbox me cuente los números negativos y en otro textbox los números positivos.
1 Respuesta
Respuesta de Elsa Matilde
1
No indicas en qué col están los valores así que asumo que será en la col 3. Ajusta este detalle y el nombre de tus controles en la siguiente macro:
Private Sub CommandButton1_Click() 'x Elsamatilde For i = 0 To ListBox1.ListCount - 1 If ListBox1.List(i, 3) >= 0 Then cantP = cantP + 1 Else cantN = cantN + 1 End If Next i TextBox1 = cantP 'cantidad de positivos TextBox2 = cantN 'cantidad de negativos End Sub
Adjunto imagen del resultado. Si esta respuesta resuelve tu consulta no olvides valorarla (Excelente o Buena)... sino comenta y la seguimos tratando.
