Jump to content
Sign in to follow this  
Juan Pelfort

ANSWERED no me funciona el programa

Recommended Posts

Hola a todos, si alguien va a Internet y pone "Excel juego de memoria" el primero que se ve, es un cuadro de 6x6 de números.

(lo digo por si alguien que me pueda ayudar vea el original)

Bien he copiado el programa el código exactamente igual, pero no me funciona, 

solo he hacho distinto el tema de generar números aleatorios, (no se ve completo en el original)

me da fallos varios, por todos lados,

envío el mío por si me pueden, modificar lo que este mal o decírmelo, 

no se mucho de vba, estoy aprendiendo, gracias

Joc de memòria.xlsm

Share this post


Link to post
Share on other sites

En el adjunto encontrarás un juego de emparejamiento.

El juego permite hasta 18 números/letras/palabras/frases o lo que se te ocurra.

Los valores y formatos se toman de la columna A de la hoja NÚMEROS,.

Pulsa CREAR JUEGO para empezar.

Los mensajes de alerta desaparecen al cabo de 2 o 3 segundos.

JUEGO CASAR PAREJAS.xlsm

Share this post


Link to post
Share on other sites

Hola Antoni, referente al JOC DE MEMORIA, que funciona perfectamente, pero he observado una cosa,

no se puede terminar todo el cuadro ya que quedan números por salir o no coinciden con otros.

Pienso que puede haber dos soluciones (que yo no se como se hace)

1ª Que salgan números no repetidos del 1 al 18 en las tres primeras filas, y compare con números del 1 al 18 de las filas 4, 5 y 6.

2ª (que es la que me parece mejor) aunque no se si se puede hacer. Es que entre las 36 casillas solo se repitan una vez, o sea 

que los números no salgan más de dos veces, pero que salgan todos, se puede hacer ? 

Muchísimas gracias de nuevo Antoni

Share this post


Link to post
Share on other sites

Había un error en la macro:

Sub Calcular18(Rango As Range)
Dim v(18) As Integer
Do Until v(18) <> 0
   Do: n = Int((18 * Rnd) + 1)
       ok = True
       For x = 1 To 18
         If v(x) = 0 Then Exit For
         If v(x) = n Then
            ok = False
            Exit For
         End If
       Next
   Loop Until ok = True
   v(x) = n
Loop
For Each Celda In Rango
   c = c + 1
   Celda.Value = v(c)
Next
End Sub

 

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png