Buenas Tardes a toda la comunidad.

Queria plantear una duda que tengo con un listbox y si fueran tan amables de hecharme una mano, es para un proyecto que esta casi terminado solo me queda ese punto terminandolo completo el proyecto, asique les agradeceria mucho si me ayudaran Gracias de antemano.


Comprobar si falta algún número del 1 al 9, casillas vacías

Comprobar si hay números repetidos en la Lista

Comprobar si no son números, o no estén entre el intervalo entre 1 y 9

Por último comprobar si están correctos los números de la Lista


Un Cordial Saludo.

Imagino q lo q tienes en la lista son solamente los números del 1 al 9 o eso es lo q quieres tener, entonces para hacer cada una de las comprobaciones, te propongo lo siguiente:

1. Para saber si falta algún número se me ocurre q utilices lo siguiente:
Dim iCount As Integer
Dim i As Integer
Dim bResult As Boolean
iCount = 1
Do
bresult = False
For i = 0 to List1.ListCount - 1
If List1.List(i) = CStr(iCount) Then bResult = True: Exit For
Next
If bResult = False Then
'Significa q no esta ese número
'Aquí deberías colocar lo q quieras q haga el programa si no encuentra un número
End If
iCount = iCount + 1
Loop Until iCount = 10

2. Para saber si esta repetido un número puedes recorres la lista igual q en el ejemplo anterior comparando cada valor con cada uno de los números del 1 al 9.

3. Para comprobar si son números:
Dim i As Integer
For i = 0 to List1.ListCount - 1
If IsNumeric(List1.List(i)) = False Then
MsgBox "El elemento " & List1.List(i) & " no es un número."
End If
Next

4. Para saber si está en el intervalo:
Dim i As Integer
For i = 0 to List1.ListCount - 1
If Val(List1.List(i)) < 1 Or Val(List1.List(i)) > 9 Then
MsgBox "El elemento " & List1.List(i) & " no se encuentra entre 1 y 9."
End If
Next

La última no la entiendo: "Comprobar si están correctos los números de la Lista"???

Espero te sea de ayuda mi respuesta, cualquier cosa preguntas.

__________________
HERNAN GUILLERMO SIABATO M.
Medicina - UPTC
chronos682@hotmail.com

hola muchisimas gracias por ayudarme lo he probado y va estupendamente te agradezco el apoyo.

solo tengo una duda, el ultimo paso no se si lo entendiste bien, es que compruebe que en la lista están los numeros correctos, del 1 al 9, que esten todos y mande un mensaje de que los numeros estan correctos.

ami me sale ese mensaje por cada textbox osea por cada numero xD
y tengo que aceptarle tantas veces como numeros tiene el sudoku.

si me pudieras hechar una mano para dejarlo bien te lo agradeceria.

Muchisimas gracias de antemano, Un cordial Saludo y gracias por su atencion.

Podrías hacerlo así:

'Primero q revise si hay 9 ítems asi
If List1.ListCount <> 9 Then
MsgBox "Solo deben existir 9 ítems en la lista"
Exit Sub
End If
'Si hay los 9 ítems q revise si estan los números del 1 al 9
Dim iActual As Integer
Dim i As Integer
Dim bFlag As Boolean
iActual = 1
Do Until iActual = 10
bFlag = False
For i = 0 to List1.ListCount - 1
If iActual = List1.List(i) Then bFlag = True: Exit For
Next
If bFlag = False Then
MsgBox "Hace falta el número " & iActual & " en la lista."
Exit Sub
Else
iActual = iActual + 1
End If
Loop
MsgBox "Encontrados los números del 1 al 9 correctamente."


Espero te sirva mi respuesta, creo q es lo q necesitas. Cualquier duda la preguntas en el foro.

__________________
HERNAN GUILLERMO SIABATO M.
Medicina - UPTC
chronos682@hotmail.com

Hola muy buenas tardes.

acabo de pillar el codigo te agradezco mucho toda la molestia que te estas tomando siento ser tan pesado, pero esque esto ultimo que me queda me tiene algo mareado ya jeje.

ahora mismo voy a probar esto y aplicarlo, en cuanto lo ponga en marcha te cuento vale.

Un cordial saludo y de nuevo muchisimas gracias.