condicionar un algoritmo para correr en excel, conbinaciones de numeros sin repeticiones
Publicado por Jorge Jimenez (3 intervenciones) el 18/10/2015 05:34:54
buenas necesito organizar un algoritmo que ya tengo, pero hacerle unas modificaciones y me suelte todas las combinaciones posibles sin repeticiones.
lo deseo con 6 columnas, la primera columna del 1 al 29, la segunda columna del 2 al 39, la tercera columna del 3 al 39, la cuarta columna del 10 al 49, la quinta columna del 11 al 49 y la quinta columna del 20 al 49
pero que nunca la columna anterior va a ser mayor a la columna que le sigue, ejemplo la columna (A es 3, entonces la columna que le sigue es la B no puede salir 2) y asi sucesivamente
gracias
este es elgoritmo:
lo deseo con 6 columnas, la primera columna del 1 al 29, la segunda columna del 2 al 39, la tercera columna del 3 al 39, la cuarta columna del 10 al 49, la quinta columna del 11 al 49 y la quinta columna del 20 al 49
pero que nunca la columna anterior va a ser mayor a la columna que le sigue, ejemplo la columna (A es 3, entonces la columna que le sigue es la B no puede salir 2) y asi sucesivamente
gracias
este es elgoritmo:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Combinacion()
i = 1For b1 = 1 To 61For b2 = b1 + 1 To 62
For b3 = b2 + 1 To 63
For b4 = b3 + 1 To 64
Cells(i, 1) = b1
Cells(i, 2) = b2
Cells(i, 3) = b3
Cells(i, 4) = b4
Range("E1") = i
i = i + 1
Next
Next
Next
Next
End Sub
Valora esta pregunta
0
