Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

macro excel 2003 10elotto sviluppo sistema ridotto a garanzi

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

macro excel 2003 10elotto sviluppo sistema ridotto a garanzi

Postdi turbonet » 08/01/16 19:29

salve a tutti, cerco il vostro aiuto per questa macro che vi sottopongo:

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
turbonet
Newbie
 
Post: 7
Iscritto il: 01/04/15 21:24

Sponsor
 

Re: macro excel 2003 10elotto sviluppo sistema ridotto a gar

Postdi Flash30005 » 10/01/16 23:52

a parte che questa macro mi è familiare...
ma sei sicuro che sviluppi il sistema integrale di n. colonne con 10 numeri?

Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: macro excel 2003 10elotto sviluppo sistema ridotto a gar

Postdi turbonet » 11/01/16 17:34

ciao Flash.... certo che sono sicuro.....
nel precedente post ho omesso di dire che:
bisogna inserire i 20 numeri scelti nella colonna a; ed esattamente dalla cella a1 alla cella a20 e avviare la macro...
sperando di essere stato piu' chiaro, ti ringrazio della risposta...
turbonet
Newbie
 
Post: 7
Iscritto il: 01/04/15 21:24


Torna a Applicazioni Office Windows


Topic correlati a "macro excel 2003 10elotto sviluppo sistema ridotto a garanzi":


Chi c’è in linea

Visitano il forum: Nessuno e 8 ospiti