Quisiera saber como combinar números brinco en argentina
Quisiera saber como hacer para combinar 24 números de mi elección del 0 al 39 formando grupos de 6 números . Como por ejemplo 5-12-19-27-32.
1 Respuesta
·
·
¡Hola Renato!
No entiendo del todo tu pregunta. Si quieres obtener todas las combinaciones de esos 24 elementos tomadas de 6 en 6 son muchas
C(24,6) = 24! /(18!·6!) = 134596
Ese es el número. Respecto a escribirlas no sé si Excel serviría para eso, a lo mejor es mucho trabajo, pero es que es lo único que se me ocurre para que las tengas de una forma fácil.
Espero me aclares lo que quieres con más detalle.
Saludos.
:
:
Este es la macro que hace eso
Sub Combinar()
Dim i, j, k, fila, colu As Integer
Dim bolas(23), comprobador(23), combiant(5) As Integer
Dim fin As Boolean
For i = 0 To 23
bolas(i) = Cells(Int(i / 6) + 1, i Mod 6 + 1)
comprobador(i) = bolas(i)
Next
For i = 0 To 22
For j = i To 22
If comprobador(j) > comprobador(j + 1) Then
k = comprobador(j)
comprobador(j) = comprobador(j + 1)
comprobador(j + 1) = k
End If
Next
Next
For i = 0 To 23
If comprobador(i) < 0 Or comprobador(i) > 39 Then
res = MsgBox("Número fuera de rango " & comprobador(i), vbCritical)
Exit Sub
End If
If i > 0 Then
If comprobador(i) = comprobador(i - 1) Then
res = MsgBox("Número repetido " & comprobador(i), vbCritical)
Exit Sub
End If
End If
Next
Cells.Range("H1:M134536").Clear
fila = 1
For i = 0 To 5
combiant(i) = i
Cells(fila, i + 8) = bolas(combiant(i))
Next
Do
colu = 5
Do While combiant(colu) = 18 + colu
colu = colu - 1
If colu = -1 Then
fin = True
Exit Do
End If
Loop
If Not fin Then
fila = fila + 1
combiant(colu) = combiant(colu) + 1
For i = colu + 1 To 5
combiant(i) = combiant(i - 1) + 1
Next
For i = 0 To 5
Cells(fila, i + 8) = bolas(combiant(i))
Next
If fila Mod 1000 = 0 Then Cells(1, 15) = fila
End If
Loop Until fin
MsgBox ("FIN")
End SubY aquí puedes descargar la hoja de Excel que lo hace.
https://drive.google.com/file/d/0B3nG6r7qbZZ_dUtmU1VGSE9DTlU/view?usp=sharing
Voy a poner un poco de colchón debajo porque muchas veces desaparecen los enlaces si no loo haces.
Saon cosas de la página.
Espero sea esto lo que querías.
Saludos.
·
:
