Moderatori: Anthony47, Flash30005
Sub SviluppoSys()
Worksheets("foglio1").Select
col = 1
riga = 1
For N = 1 To 90 - 6 Step 4
For NS = N + 4 To 90 Step 6
If NS + 5 > 90 Then GoTo salta
Cells(riga, col + 1).Value = N
Cells(riga, col + 2).Value = N + 1
Cells(riga, col + 3).Value = N + 2
Cells(riga, col + 4).Value = N + 3
Cells(riga, col + 5).Value = NS
Cells(riga, col + 6).Value = NS + 1
Cells(riga, col + 7).Value = NS + 2
Cells(riga, col + 8).Value = NS + 3
Cells(riga, col + 9).Value = NS + 4
Cells(riga, col + 10).Value = NS + 5
riga = riga + 1
Next NS
salta:
Next N
Range("A1").Select
End Sub
duilio arcari ha scritto:ciao flash grazie per la risposta
avevo calcolato qualche colonna di meno, ma ho formulato male la domanda.
se ho 9480 combinazioni da 5 numeri dovrei ridurle a 37 combinazioni da 10 numeri
perchè il 5 sta nel 10 ....252 volte,quindi dovrei dividere:9480:252=37
ma forse mi sbaglio di grosso.
grazie comunque per l'aiuto.
duilio arcari ha scritto:...voglio formare delle combinazioni
da 10 numeri ....
i doppioni non devono essere + di 4 es:
1-2-3-4-5-6-7-8-9-10
1-2-3-4-11-12-13-14-15-16
1-2-3-4-17-18-19-20-21-22 ecc. ecc.fino a coprire tutte le possibilità.
... ho usato 90 numeri,
duilio arcari ha scritto:dovrei generare 50 numeri a piacere dall'1 al 90 in combinazioni di 5 numeri.
Sub CreaSvilIntExcel()
On Error Resume Next
Kill "C:\SvilIDA.txt"
On Error GoTo 0
Worksheets("Foglio1").Select
Dim i As Long, ris As Long
Dim AggR As String
Application.ScreenUpdating = False
Application.Calculation = xlManual
URN = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
NS = Worksheets("Foglio1").Range("B2").Value
riga = 1
ColonneNt = 1
For i = 2 To URN - 1
ColonneNt = ColonneNt * i
Next i
ColonneNG = 1
For g = 2 To URN - 1 - NS
ColonneNG = ColonneNG * g
Next g
ColonneNGE = 1
For e = 2 To NS
ColonneNGE = ColonneNGE * e
Next e
Colonne = (ColonneNt / ColonneNG) / ColonneNGE
MsgBox "Sviluppo Integrale N. " & Colonne & " Colonne"
Open "C:\SvilIDA.txt" For Append As #1
For Sv1 = 2 To URN + 1 - NS
For Sv2 = Sv1 + 1 To URN + 2 - NS
For Sv3 = Sv2 + 1 To URN + 3 - NS
For Sv4 = Sv3 + 1 To URN + 4 - NS
For Sv5 = Sv4 + 1 To URN + 5 - NS
AggR = Cells(Sv1, 1).Value & "," & Cells(Sv2, 1).Value & "," & Cells(Sv3, 1).Value & "," & Cells(Sv4, 1).Value & "," & Cells(Sv5, 1).Value & ","
Print #1, AggR
riga = riga + 1
Next Sv5
Next Sv4
Next Sv3
Next Sv2
Next Sv1
Close #1
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Sub SviluppoSys()
Worksheets("foglio1").Select
URN = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
col = 2
riga = 1
For N = 1 To URN - 6 Step 4
For NS = N + 4 To URN Step 6
If NS + 5 > URN Then GoTo salta
Cells(riga, col + 1).Value = Cells(N, 1).Value
Cells(riga, col + 2).Value = Cells(N + 1, 1).Value
Cells(riga, col + 3).Value = Cells(N + 2, 1).Value
Cells(riga, col + 4).Value = Cells(N + 3, 1).Value
Cells(riga, col + 5).Value = Cells(NS, 1).Value
Cells(riga, col + 6).Value = Cells(NS + 1, 1).Value
Cells(riga, col + 7).Value = Cells(NS + 2, 1).Value
Cells(riga, col + 8).Value = Cells(NS + 3, 1).Value
Cells(riga, col + 9).Value = Cells(NS + 4, 1).Value
Cells(riga, col + 10).Value = Cells(NS + 5, 1).Value
riga = riga + 1
Next NS
salta:
Next N
Range("A1").Select
End Sub
duilio arcari ha scritto:... il metodo
migliore sia quello di creare una macro che trasformi i gruppi da 5 in gruppi da 10 prendendo in considerazione tutti
i gruppi da 5 generati in maniera integrale...
Sub SviluppoSys2()
Worksheets("foglio1").Select
Columns("C:L").ClearContents
URN = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
col = 2
riga = 1
For N = 1 To URN - 9
For NF = N + 9 To URN
For NS = 1 To 10
If NS = 10 Then
Cells(riga, col + NS).Value = Cells(NF, 1).Value
Else
Cells(riga, col + NS).Value = Cells(N + NS - 1, 1).Value
End If
Next NS
riga = riga + 1
Next NF
Next N
Range("A1").Select
End Sub
duilio arcari ha scritto:http://rapidshare.com/files/272304054/coprire_le_righe_da_5_con_quelle_da_10_
sammi sapere se sono arrivati.ciao.
ho controllato la nuova macro,in foglio1 tutto o.k. fino a riga 76,ma da riga 77 i numeri si ripetono nella
stessa numerazione. riga 77 dovrebbe cominciare con 3-4 riga 102 con 4-5 riga 127 con 5-6,ecc.ecc.
Torna a Applicazioni Office Windows
Macro che ricerca combinazioni che danno un valore Autore: kar64 |
Forum: Applicazioni Office Windows Risposte: 10 |
formattare una colonnacon numeri senza virgolaSalve Autore: giorgioa |
Forum: Applicazioni Office Windows Risposte: 5 |
Come nascondere I Numeri non Appartenenti Al Mese Deside Autore: Maury170419 |
Forum: Applicazioni Office Windows Risposte: 3 |
Visitano il forum: Nessuno e 43 ospiti