Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Come cambiare la posizione dei numeri di una estrazione(i)

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

Come cambiare la posizione dei numeri di una estrazione(i)

Postdi papiriof » 16/01/21 10:13

Vorrei cambiare l'ordine di uscita dei numeri di estrazione che sono adesso in ordine crescente per intenderci , queste sono le estrazioni di una lotteria che ha 42 numeri ogni estrazione è formata da 6 numeri che naturalmente in origine escono in modo casuale e poi vengono messi in ordine crecsente . Attenzione mi interessa mantenere gli stessi numeri di ciascuna estrazione ma con posizioni diverse nella maniera sottonotata senza produrre delle colonne diverse da quelle che ho attualmente che partono dalla Colonna "C"
e finiscono nella colonna "H"
4 10 17 21 35 36 ---------> 21 10 17 4 36 35
5 8 18 19 39 41 ---------> 39 19 8 5 41 18
4 11 12 30 36 38 ---------- > ecc ecc
2 13 18 21 25 34 ----------> ecc ecc
3 11 14 20 25 28
12 13 19 24 31 35
3 4 8 12 20 37
3 11 21 26 37 41
Win 7+Office 2010
papiriof
Utente Senior
 
Post: 270
Iscritto il: 16/02/10 13:23

Sponsor
 

Re: Come cambiare la posizione dei numeri di una estrazione(

Postdi Anthony47 » 16/01/21 10:42

Dagli esempi pubblicati non deduco quale sia la logica negli spostamenti richiesti. Quindi (senza pubblicare un terzo esempio) dovresti spiegare "meglio" quale e' la logica da seguire nel riposizionare i numerini

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 17449
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Come cambiare la posizione dei numeri di una estrazione(

Postdi Dylan666 » 16/01/21 11:24

Vuole mescolare i numeri estratti riportati su ogni riga, al momento ordinati in maniera crescente.
Quindi vanno riposizionati randomicamente mantenendoli all'interno della riga di appartenenza.
Ognuno dei 6 numeri occupa una colonna dalla C alla H
Avatar utente
Dylan666
Moderatore
 
Post: 38875
Iscritto il: 18/11/03 16:46

Re: Come cambiare la posizione dei numeri di una estrazione(

Postdi papiriof » 16/01/21 16:05

Dylan666 ha scritto:Vuole mescolare i numeri estratti riportati su ogni riga, al momento ordinati in maniera crescente.
Quindi vanno riposizionati randomicamente mantenendoli all'interno della riga di appartenenza.
Ognuno dei 6 numeri occupa una colonna dalla C alla H

Esatto!! tutto qui .
Più difficile invece spiegare a cosa serve , diciamo che questa disposizione dei numeri non è sicuramente quella originale, e siccome non ho la possibilità di risalire all' estrazioni naturali le devo per forza mescolare( mantenendole all'interno della riga di appartenenza) èer simulare una estrazione random.
A cosa serve? esempio non potrò mai sapere,volendo fare una ricerca sul primo estratto, quante volte sono usciti in prima posizione
gli ultimi 6 numeri ( 42,41,40,39,38,37) invece cosi potrei .
Win 7+Office 2010
papiriof
Utente Senior
 
Post: 270
Iscritto il: 16/02/10 13:23

Re: Come cambiare la posizione dei numeri di una estrazione(

Postdi Anthony47 » 16/01/21 17:32

Dylan ha scritto:Vuole mescolare i numeri estratti riportati su ogni riga, al momento ordinati in maniera crescente
Stavo per scrivere "Humm... Mi sembra poco probabile, visto che sarebbe stato molto piu' semplice spiegare che voleva metterli in ordine casuale piuttosto che stare a fare due esempi" :D :D

Ma vista l'evoluzione della discussione propongo questa macro:
Codice: Seleziona tutto
Sub ripos()
Dim wArr(), wBarr(), I As Long, J As Long
'
Randomize
LastC = Cells(Rows.Count, "C").End(xlUp).row
wBarr = Range("C1").Resize(LastC, 6).Value
ReDim wArr(1 To LastC, 1 To 6)
For I = 1 To LastC
    For J = 1 To 6
        Do
            cPos = Application.WorksheetFunction.RandBetween(1, 6)
            If wArr(I, cPos) = "" Then
                wArr(I, cPos) = wBarr(I, J)
                Exit Do
            End If
        Loop
    Next J
Next I
Range("C1").Resize(LastC, 6).Value = wArr
End Sub

Va messa in un Modulo standard del vba; poi, selezionato il foglio con i Dati, si esegue la Sub ripos

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 17449
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Come cambiare la posizione dei numeri di una estrazione(

Postdi papiriof » 16/01/21 18:09

PERFETTO!!! :lol: :lol: :D
Win 7+Office 2010
papiriof
Utente Senior
 
Post: 270
Iscritto il: 16/02/10 13:23


Torna a Applicazioni Office Windows


Topic correlati a "Come cambiare la posizione dei numeri di una estrazione(i)":

estrazione pagine
Autore: themisterx
Forum: Software Windows
Risposte: 2

Chi c’è in linea

Visitano il forum: Nessuno e 45 ospiti