Jump to content
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