Jump to content
  • Debido a la crisis sanitaria, hasta el día 31 de marzo, el registro al foro de Ayuda Excel será totalmente gratuito para facilitar el teletrabajo. Todos los registros que se produzcan entre estas fechas tendrán acceso gratuito ilimitado a la comunidad hasta el 30 de abril.

    Regístrate

    Si te surge alguna duda mientras estás trabajando en casa con Excel, ya tienes a quien preguntar.

    Espero que esta medida te sirva de ayuda. Frenar la expansión del coronavirus depende de todos. Sé responsable.

jmadridporto2025

Como calcular combinaciones de partidos

Recommended Posts

Tengo una inquietud, me gustaría sacar todas las posibles combinaciones de una tabla de 16 partidos, cada partido con 2 opciones una A y una B, con un solo resultado por partido de esas dos opciones.

 
como hago para generar todas las posibles combinaciones y que no se me escape ni una sola para no perder, es para una apuesta de online de futbol.

Share this post


Link to post
Share on other sites

Buenas @jmadridporto2025

Para una combinación simple, usa

Sub GetAllCombis()
    Dim c   As Long
    Dim i1  As Long
    Dim i2  As Long
    Dim i3  As Long
    Dim i4  As Long
    Dim n   As Long
    Dim s   As Long
    Dim u   As Long
    Dim v()
    u = 16                          ' Número de Partidos
    c = ((u * 2) * u)               ' Número de combinaciones
    n = ((u * 2) * u) + (u * 2)     ' Nùmero de combinaciones con titulos
    ReDim v(1 To n, 1 To 3)
    For i1 = 2 To 3
        For i2 = 1 To u
            s = s + 1
            ' Se crea el tiulo de columna
            v(s, 1) = "Partido"
            v(s, 2) = "Alta"
            v(s, 3) = "Baja"
            For i3 = 1 To i2
                s = s + 1
                v(s, 1) = Hoja1.Range("A" & i3 + 1).Value
                v(s, i1) = "x"
            Next
            If i2 < u Then
                For i4 = i2 + 1 To u
                    s = s + 1
                    v(s, 1) = Hoja1.Range("A" & i4 + 1).Value
                    v(s, IIf(i1 = 2, 3, 2)) = "x"
                Next
            End If
        Next
    Next
    Hoja2.Range("A2").Resize(s, 3).Value = v
    MsgBox "Se crearon " & c & " combinaciones", vbInformation, Application.OrganizationName
End Sub

Un saludo

Edited by logroastur

Share this post


Link to post
Share on other sites
Hace 12 horas, logroastur dijo:

Buenas @jmadridporto2025

Para una combinación simple, usa


Sub GetAllCombis()
    Dim c   As Long
    Dim i1  As Long
    Dim i2  As Long
    Dim i3  As Long
    Dim i4  As Long
    Dim n   As Long
    Dim s   As Long
    Dim u   As Long
    Dim v()
    u = 16                          ' Número de Partidos
    c = ((u * 2) * u)               ' Número de combinaciones
    n = ((u * 2) * u) + (u * 2)     ' Nùmero de combinaciones con titulos
    ReDim v(1 To n, 1 To 3)
    For i1 = 2 To 3
        For i2 = 1 To u
            s = s + 1
            ' Se crea el tiulo de columna
            v(s, 1) = "Partido"
            v(s, 2) = "Alta"
            v(s, 3) = "Baja"
            For i3 = 1 To i2
                s = s + 1
                v(s, 1) = Hoja1.Range("A" & i3 + 1).Value
                v(s, i1) = "x"
            Next
            If i2 < u Then
                For i4 = i2 + 1 To u
                    s = s + 1
                    v(s, 1) = Hoja1.Range("A" & i4 + 1).Value
                    v(s, IIf(i1 = 2, 3, 2)) = "x"
                Next
            End If
        Next
    Next
    Hoja2.Range("A2").Resize(s, 3).Value = v
    MsgBox "Se crearon " & c & " combinaciones", vbInformation, Application.OrganizationName
End Sub

Un saludo

ES TAL CUAL AMIGO, PERO NECESITO QUE COMBINE TODAS LAS POSIBILIDADES, QUE NO SE ME ESCAPE UNA, ES DECIR QUE DESPUES QUE ME HACE TODO ESO, DESPUES ME EMPIECE A COMBINAR ENTRE ELLAS, OSEA DOS VECES A Y 14 VECES B, LUEGO 5 VECES B Y 11 A, ASI SU

CASIIIII.xlsm                                                                  CECIVAMENTE, NO SE SI ME HAGO ENTENDER :(

Share this post


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



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png