Ver originales (Francés)

Todas las combinaciones posibles

Resuelto
Proferic06 Mensajes publicados 18 Estado Miembro -  
zorro$01 Mensajes publicados 3 Estado Miembro -
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 respuestas

  1.
    via55 Mensajes publicados 14393 Fecha de registro   Estado Miembro Última intervención   2 759
     
    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
    1. Proferic06 Mensajes publicados 18 Estado Miembro
       
      ¡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
      1. Amel_2846 Mensajes publicados 5 Estado Miembro > Proferic06 Mensajes publicados 18 Estado Miembro
         

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

        0
    2. zorro$01 Mensajes publicados 3 Estado Miembro 1
       

      Hola,

      Gracias.

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

      El enlace ya no es visible.

      Saludos cordiales.

      Zizou

      0