- Codice: Seleziona tutto
Sub CreaSviluppo10ellotto()
RangeN = 20
GrN = 10
Open "Sviluppo.txt" For Output As #1
For R1 = 1 To RangeN - (GrN - 1)
For R2 = R1 + 1 To RangeN - (GrN - 2)
For R3 = R2 + 1 To RangeN - (GrN - 3)
For R4 = R3 + 1 To RangeN - (GrN - 4)
For R5 = R4 + 1 To RangeN - (GrN - 5)
For R6 = R5 + 1 To RangeN - (GrN - 6)
For R7 = R6 + 1 To RangeN - (GrN - 7)
For R8 = R7 + 1 To RangeN - (GrN - 8)
For R9 = R8 + 1 To RangeN - (GrN - 9)
For R10 = R9 + 1 To RangeN - (GrN - 10)
AggR = Range("A" & R1).Value & "," & Range("A" & R2).Value & "," & Range("A" & R3).Value & "," & Range("A" & R4).Value & "," & Range("A" & R5).Value & "," & Range("A" & R6).Value & "," & Range("A" & R7).Value & "," & Range("A" & R8).Value & "," & Range("A" & R9).Value & "," & Range("A" & R10).Value & ","
Print #1, AggR
Next R10
Next R9
Next R8
Next R7
Next R6
Next R5
Next R4
Next R3
Next R2
Next R1
Close #1
End Sub
la macro riportata serve a sviluppare un sistema integrale al 10elotto, mettendo in gioco 20 numeri con il risultato di 184756 colonne sviluppate.
voglio integrare in questa macro, oppure con una diversa la riduzione a garanzia 9, oppure garanzia 8, garanzia 7, ect ect.
e cioe' garanzia 9 sono sviluppate 6140 colonne, invece a garanzia 8 sono sviluppate 583 colonne e garanzia 7 76 colonne.
dato la mia scarsa conoscienza del vba, cerco aiuto fra voi piu esperti di me per inserire questa funzione di riduzione.
attendo con fiducia le vostre risposte.
EDIT Flash 10/01/2016 23:16 - Inserito codice macro nell'apposito tag Code