View original (French)

Todas las combinaciones posibles

Resuelto
Proferic06 Mensajes publicados 18 Estado Membre -  
zorro$01 Mensajes publicados 3 Estado Membre -
Hola a todos,

¿cómo crear en Excel todas las combinaciones posibles de Euromillones sin las estrellas,
es decir:
todas las combinaciones posibles de 5 números con los números del 1 al 50?

Ejemplo: 1.2.3.4.5/ 1.2.3.4.6/ 1.2.3.4.7....etc
Es aproximadamente 2 millones.

Gracias a todos.

10 réponses

Réponse 1 / 10
via55 Mensajes publicados 14730 Fecha de registro   Estado Membre Última intervención   2 755
 
Hola

La macro para las combinaciones de 5 cifras 
Sub combi() y = 1 For a = 1 To 46 For b = a + 1 To 47 For c = b + 1 To 48 For d = c + 1 To 49 For e = d + 1 To 50 comb = a & " " & b & " " & c & " " & d & " " & e x = x + 1 If x = 1000000 Then x = 1: y = y+1 Cells(x, y) = comb Next Next Next Next Next End Sub


En 3 columnas porque una no es suficiente 2 118 760 combinaciones

Visto el número de iteraciones, la macro tarda un poco en ejecutarse

Saludos cordiales
Vía

--
"La imaginación es más importante que el conocimiento."    A. Einstein
3
Proferic06 Mensajes publicados 18 Estado Membre
 
¡Ya gracias por sus respuestas, Via55 y Zoul67!
Sin embargo, no sé cómo hacerlo...
¿Alguien puede enviármelo por correo, por favor?
Dirección de correo eliminada Moderación CCM
Gracias por adelantado.
0
Amel_2846 Mensajes publicados 5 Estado Membre > Proferic06 Mensajes publicados 18 Estado Membre
 

¿Podría también recibir la tabla por correo electrónico?

0
zorro$01 Mensajes publicados 3 Estado Membre 1
 

Hola,

Gracias.

¿Podrían enviarme la tabla por correo: ***@***

El enlace ya no es visible.

Saludos cordiales.

Zizou

0