¿Cómo cuento estos datos?

Hola amigo, uso visual studio 2010, visual basic. ¿ como cuento valores numéricos repetidos que están dentro de una listbox? Los valores son del tipo String
le explico: Hay estos datos dentro de una listbox, 00 01 00 10 00 01 01 10 00 20 30 10 00 01
00 y así hasta 80 datos, necesito que la formula me haga lo siguiente:
00 se repite 6 veces
01 se repite 4 veces
10 se repite 3 veces
y así sucesivamente con cada dato que se repita.
ya tengo la formula para cargar la listbox.

ListBox1.Items.Add(TextBox17.Text & TextBox21.Text)

Private
Sub txtImprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtImprimir.Click
Dim i As String
For i = 0 To Me.ListBox1.Items.Count - 1
Select Case i
Case i = "00"
TextBox500.Text = i + 1
End Select
Next
End Sub

Esta formula no me da ningun resultado

1 respuesta

Respuesta
1

Esa pregunta ya me la haz hecho, ¿algo te falta?

Lo que pasa es que la formula no me hace el conteo de los items, solo me cuenta el total de items dentro del listbox.

Ponme el código que estás utilizando.

Hazlo de esta manera.

Private
Sub btnLlenar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLlenar.Click
ListBox1.Items.Add(TextBox8.Text & TextBox9.Text)
ListBox1.Items.Add(TextBox8.Text & TextBox11.Text)
ListBox1.Items.Add(TextBox8.Text & TextBox12.Text)
ListBox1.Items.Add(TextBox9.Text & TextBox8.Text)
ListBox1.Items.Add(TextBox9.Text & TextBox11.Text)
ListBox1.Items.Add(TextBox9.Text & TextBox12.Text)
ListBox1.Items.Add(TextBox9.Text & TextBox10.Text)
ListBox1.Items.Add(TextBox9.Text & TextBox13.Text)
ListBox1.Items.Add(TextBox10.Text & TextBox9.Text)
ListBox1.Items.Add(TextBox10.Text & TextBox12.Text)
ListBox1.Items.Add(TextBox10.Text & TextBox13.Text)
ListBox1.Items.Add(TextBox11.Text & TextBox8.Text)
ListBox1.Items.Add(TextBox11.Text & TextBox9.Text)
ListBox1.Items.Add(TextBox11.Text & TextBox12.Text)
ListBox1.Items.Add(TextBox11.Text & TextBox14.Text)
ListBox1.Items.Add(TextBox11.Text & TextBox15.Text)
ListBox1.Items.Add(TextBox12.Text & TextBox8.Text)
ListBox1.Items.Add(TextBox12.Text & TextBox9.Text)
ListBox1.Items.Add(TextBox12.Text & TextBox10.Text)
ListBox1.Items.Add(TextBox12.Text & TextBox11.Text)
ListBox1.Items.Add(TextBox12.Text & TextBox13.Text)
ListBox1.Items.Add(TextBox12.Text & TextBox14.Text)
ListBox1.Items.Add(TextBox12.Text & TextBox15.Text)
ListBox1.Items.Add(TextBox12.Text & TextBox16.Text)
ListBox1.Items.Add(TextBox13.Text & TextBox9.Text)
ListBox1.Items.Add(TextBox13.Text & TextBox10.Text)
ListBox1.Items.Add(TextBox13.Text & TextBox15.Text)
ListBox1.Items.Add(TextBox13.Text & TextBox16.Text)
ListBox1.Items.Add(TextBox14.Text & TextBox11.Text)
ListBox1.Items.Add(TextBox14.Text & TextBox12.Text)
ListBox1.Items.Add(TextBox14.Text & TextBox15.Text)
ListBox1.Items.Add(TextBox15.Text & TextBox11.Text)
ListBox1.Items.Add(TextBox15.Text & TextBox12.Text)
ListBox1.Items.Add(TextBox15.Text & TextBox13.Text)
ListBox1.Items.Add(TextBox15.Text & TextBox14.Text)
ListBox1.Items.Add(TextBox15.Text & TextBox16.Text)

Private
Sub txtImprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtImprimir.Click
Dim total As Integer
For Each Me.item In ListBox1.Items
If item = "00" Then
End If
total = item + 1
Next
TextBox500.Text = total

Private
 Sub txtImprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtImprimir.Click
Dim total As Integer
For Each Me.item In ListBox1.Items
If item = "00" Then
End If
 total = item + 1
Next
 TextBox500.Text = total
ListBox1.Items.Add(TextBox8.Text & TextBox9.Text)
 ListBox1.Items.Add(TextBox8.Text & TextBox11.Text)
 ListBox1.Items.Add(TextBox8.Text & TextBox12.Text)
 ListBox1.Items.Add(TextBox9.Text & TextBox8.Text)
 ListBox1.Items.Add(TextBox9.Text & TextBox11.Text)
 ListBox1.Items.Add(TextBox9.Text & TextBox12.Text)
 ListBox1.Items.Add(TextBox9.Text & TextBox10.Text)
 ListBox1.Items.Add(TextBox9.Text & TextBox13.Text)
 ListBox1.Items.Add(TextBox10.Text & TextBox9.Text)
 ListBox1.Items.Add(TextBox10.Text & TextBox12.Text)
 ListBox1.Items.Add(TextBox10.Text & TextBox13.Text)
 ListBox1.Items.Add(TextBox11.Text & TextBox8.Text)
 ListBox1.Items.Add(TextBox11.Text & TextBox9.Text)
 ListBox1.Items.Add(TextBox11.Text & TextBox12.Text)
 ListBox1.Items.Add(TextBox11.Text & TextBox14.Text)
 ListBox1.Items.Add(TextBox11.Text & TextBox15.Text)
 ListBox1.Items.Add(TextBox12.Text & TextBox8.Text)
 ListBox1.Items.Add(TextBox12.Text & TextBox9.Text)
 ListBox1.Items.Add(TextBox12.Text & TextBox10.Text)
 ListBox1.Items.Add(TextBox12.Text & TextBox11.Text)
 ListBox1.Items.Add(TextBox12.Text & TextBox13.Text)
 ListBox1.Items.Add(TextBox12.Text & TextBox14.Text)
 ListBox1.Items.Add(TextBox12.Text & TextBox15.Text)
 ListBox1.Items.Add(TextBox12.Text & TextBox16.Text)
 ListBox1.Items.Add(TextBox13.Text & TextBox9.Text)
 ListBox1.Items.Add(TextBox13.Text & TextBox10.Text)
 ListBox1.Items.Add(TextBox13.Text & TextBox15.Text)
 ListBox1.Items.Add(TextBox13.Text & TextBox16.Text)
 ListBox1.Items.Add(TextBox14.Text & TextBox11.Text)
 ListBox1.Items.Add(TextBox14.Text & TextBox12.Text)
 ListBox1.Items.Add(TextBox14.Text & TextBox15.Text)
 ListBox1.Items.Add(TextBox15.Text & TextBox11.Text)
 ListBox1.Items.Add(TextBox15.Text & TextBox12.Text)
 ListBox1.Items.Add(TextBox15.Text & TextBox13.Text)
 ListBox1.Items.Add(TextBox15.Text & TextBox14.Text)
 ListBox1.Items.Add(TextBox15.Text & TextBox16.Text)

Sigues haciéndolo mal, en la respuesta de la otra pregunta yo te expliqué como hacerlo paso a paso pero no haz hecho nada de eso.

¿Hay algo que no entiendas en lo que explico?

¿Por qué no haces lo que te explico?

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Como cuento varios items en una listbox en VS 2010

Tengo 84 items numéricos dentro de una listbox, repetido y no repetidos, necesito saber que números están dentro de la listbox y cuantas veces se repite cada uno. Ejemplo: el numero 10 se repite 20 veces, el 15 se repite 14 veces, etc... Uso visual...
1 respuesta

Formularios VBA en excel

Estoy realizando un directorio y quisiera que a la hora de introducir mis datos en el formulario que ya he realizado me los clasifique en las distintas hojas que he creado para cada sector pero que tambien se quede registrado en la hoja principal que...
1 respuesta

Items de distintos colores en un listbox (VB NET)

Quisiera tener un listbox con los elementos de distintos colores. Estos items se irán añadiendo en distintos momentos. El problema que me aparece es que rediseña el listbox por completo en cada adición poniendo todos los items del mismo color. En el...
1 respuesta

Combinar listbox y un textbox

Quisiera que me apoyaran, para seleccionar varioa números de un listbox y al irles dando clic, se pasen o se copien a un textbox. Utilizo este código, pero solo pasa un solo dato y necesito varios TextBox2 = ListBox2.Text
1 respuesta

Items de un listbox con varias columnas a otro

Agradecería si me pueden ayudar en pasar los datos de un listbox1 con 6 columnas a otro listbox2, pero que pase los datos de las 6 columnas y a su vez borrar el item del texbox1 seleccionado/s. He encontrado este código por la red, pero me parece que...
1 respuesta

Eliminar error en tiempo de ejecución 13

Estoy trabajando con macros en excel 2010 y tengo un userform para el cual utilizo el código abajo descrito, todos los textbox me los llena bien pero al momento de aceptar y enviar los datos a las celdas respectivas me manda el error "error en tiempo...
1 respuesta

Visual basic.net

Estoy trabajando un proyecto con vb.net y mysql ... El problema me surgió cuando utilice en 2 procedimientos unos dataadapter..., el primero lo uso para limpiar ciertos txtbox según los que en la base de datos estén habilitados para ser borrados cada...
1 respuesta

Visual redondea números y no quiero que redondee

Grracias por ayudarme de antemano Mi duda es la siguiente, soy novato hice un programa de altas y bajas en visual basic con base de datos en access si me da todos los datos y puedo modificar me va bien en todo, lo único es que al meter yo un numero...
1 respuesta

Cuando intento asignar el valor de un textbox a una celda excel me envía un error

Sucede que cuando intento asignar el valor de un textbox a una celda excel me envia un error y lo hago de la siguiente manera Sub Agregar() Sheets("Base").Select Range("B8").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Select...
1 respuesta

Formato condicional actualizable.-

Tengo una formulario al cual me extrae de una base de datos, fechas de vencimiento al cual he logrado que en el textbox que las trae me refleje el color rojo con el cual esta en la base de datos, la base de datos esta con un formato condicional el...
1 respuesta