Condividi:        

Sorteggio Casuale Squadre

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

Sorteggio Casuale Squadre

Postdi nickcave » 29/08/10 11:49

Ciao a tutti,
è il mio primo post su questo forum per cui abbiate pazienza...
Ho bisogno di aiuto.
Devo simulare con excel un sorteggio di 24 squadre ciascuna delle quali deve essere inserita in otto gironi corrispondenti.
Mi potete aiutare su come gestire tramite excel una cosa del genere?
Grazie fin d'ora.
:)
nickcave
Newbie
 
Post: 3
Iscritto il: 29/08/10 11:43

Sponsor
 

Re: Sorteggio Casuale Squadre

Postdi Flash30005 » 29/08/10 15:14

Benvenuto nel Forum

Nel topic dove avevi postato (qui) non hai trovato nulla?
Se non sono stati sufficienti gli spunti dovresti meglio specificare la tua esigenza inviando anche il file con le squadre impostate e descrivendo cosa vorresti ottenere

Fai sapere
Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Sorteggio Casuale Squadre

Postdi nickcave » 29/08/10 16:21

Probabilmente non mi sono spiegato bene, ci riprovo.
Vorrei simulare un sorteggio di 24 squadre in otto gironi (A,B,C,D,E,F,G,H).
In pratica a sorteggio ultimato la situazione ottenuta dovrebbe darmi 3 squadre per ogni girone.
Puoi aiutarmi?
Grazie.
nickcave
Newbie
 
Post: 3
Iscritto il: 29/08/10 11:43

Re: Sorteggio Casuale Squadre

Postdi Anthony47 » 30/08/10 18:19

Ciao nickcave e benvenuto nel forum.
Potresti fare cosi':
-Il tuo elenco e' in col A, da A2 ad A25
-In una colonna libera, ad esempio la B, accanto alla prima squadra segni la formula =CASUALE()
-Nella colonna successiva inserisci =INT((RANGO(B2;B$2:B$25)-1)/3)
-Copi B2:C2 verso il basso

A questo punto imposti il calcolo in Manuale (Menu /Strumenti /Opzioni, tab Calcolo, setta Manuale), premi una o piu' volte F9; i girono saranno composti dalle 3 squadre che in col C hanno lo stesso indice.

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

Re: Sorteggio Casuale Squadre

Postdi raimea » 31/08/10 05:46

prova a dare un occhio a questi file che troi qui...
http://www.lelugarine.eu/downloads.asp?id=535
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Re: Sorteggio Casuale Squadre

Postdi nickcave » 05/09/10 20:47

Anthony47 ha scritto:Ciao nickcave e benvenuto nel forum.
Potresti fare cosi':
-Il tuo elenco e' in col A, da A2 ad A25
-In una colonna libera, ad esempio la B, accanto alla prima squadra segni la formula =CASUALE()
-Nella colonna successiva inserisci =INT((RANGO(B2;B$2:B$25)-1)/3)
-Copi B2:C2 verso il basso

A questo punto imposti il calcolo in Manuale (Menu /Strumenti /Opzioni, tab Calcolo, setta Manuale), premi una o piu' volte F9; i girono saranno composti dalle 3 squadre che in col C hanno lo stesso indice.

Ciao



Dire che sei stato superlativo è dire poco, credimi.
Grazie per la gentilezza e sopratutto per la chiarezza.
Ciao ;)
nickcave
Newbie
 
Post: 3
Iscritto il: 29/08/10 11:43

Re: Sorteggio Casuale Squadre

Postdi geri21 » 26/04/11 09:54

La macro (girone2) del file del 31-08-10 scaricata da http://www.lelugarine.eu se opportunamente modificata potrei applicarla al mio lavoro. Posso postare la domanda specificando in dettaglio le mie esigenze ?
Saluti e ringraziamenti.
geri21
Utente Junior
 
Post: 54
Iscritto il: 24/07/08 07:32

Sorteggio Casuale Squadre

Postdi raimea » 26/04/11 18:58

da parte mia nessun problema :D
non garantisco che sia in grado di soddifare le tue necessita'.
ma con i cervelloni del forum vedrai che riuscirai a risolvere.
posta posta...
ciao
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Re: Sorteggio Casuale Squadre

Postdi geri21 » 26/04/11 20:32

Tento di essere per quanto possibile breve ed espressivo.
Premetto che il foglio è protetto e le celle da copiare sono sedi di formule.
La macro dovrebbe: Copiare valori e formato da V8:W57 e da Z8:AA57, dividere in gruppi o gironi come da vostro file e incollarli da cella I8 e successive dello stesso foglio, lasciando vuote due colonne tra i gruppi che avranno a crearsi.
Nelle celle (?8) delle prime colonne vuote dovrei inserire se non contemplata nella macro, la formula opportunamente adeguata =SOMMA(Z8+AA8*10^-4), quindi filtrare i risultati dal più grande al più piccolo.
La seconda colonna di ciascun gruppo da usarsi come separatore tra i gironi.
Grazie.
geri21
Utente Junior
 
Post: 54
Iscritto il: 24/07/08 07:32

Sorteggio Casuale Squadre

Postdi raimea » 29/04/11 06:15

Copiare valori e formato da V8:W57 e da Z8:AA57, dividere in gruppi o gironi


nel file a cui tu fai riferimento (gironi2),
le colonne V, W Z, AA sono vuote non contengono nulla
quindi cosa si deve copiare ? :undecided:
ciao
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Re: Sorteggio Casuale Squadre

Postdi geri21 » 29/04/11 09:14

Le colonne V,W,Z,AA da copiare sono riferite al mio foglio e i gruppi dovrebbero essere incollati affiancati sullo stesso foglio da cella I8 e successive come già descritto nel primo post.
saluti.
geri21
Utente Junior
 
Post: 54
Iscritto il: 24/07/08 07:32

Re: Sorteggio Casuale Squadre

Postdi geri21 » 29/04/11 09:50

Causa errore si annulla precedente post e si sostituisce con il seguente:
Le colonne V,W,Z,AA da copiare sono riferite al mio foglio e i gruppi dovrebbero essere incollati affiancati sullo stesso foglio da cella AI8 e successive come da primo post.
geri21
Utente Junior
 
Post: 54
Iscritto il: 24/07/08 07:32

Re: Sorteggio Casuale Squadre

Postdi raimea » 30/04/11 06:11

ha..
allora prova ad allegare il tuo file altrimenti non si riesce a provare.
fai sapere.
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Re: Sorteggio Casuale Squadre

Postdi geri21 » 30/04/11 11:04

A mezzo posta elettronica ho inviato il file con una breve descrizione a: info@lelugarine.eu.
grazie dell'interessamento
geri21
Utente Junior
 
Post: 54
Iscritto il: 24/07/08 07:32

Re: Sorteggio Casuale Squadre

Postdi coseinvendita » 29/03/16 20:31

Salve a tutti,
sono un nuovo utente inesperto ma interessato, voglio ringraziare Flash30005 per il suo aiuto e consiglio.
In questo momento sono alle prese con la realizzazione di un file excel per i tornei di pallavolo di mio figlio dato che hanno un sistema praticamente manuale vorrei poter dare il mio contributo per velocizzare e ridurre i tempi durante l'evento.
In questa fase sono alle prese con la parte di sorteggio delle squadre che sono 40 e li devo suddividere in circa 10 gironi mischiando ovviamente, ho analizzato una parte interessante presa da un vostro post e grazie all'aiuto di Fash30005 è stata semplificata e funziona alla grande solo che io non mi intendo di VBA, anche se trovo interessante il tutto mi riesce comunque difficile, vi inserisco il codice modificato e se qualcuno puoi aiutarmi con delle spiegazioni su come modificare le posizioni ve ne sarei grato:

Codice: Seleziona tutto
Public RR As Integer, SS As Integer, I As Integer, J As Integer
Public Numero_casuale As Integer, Riga_Inizio As Integer

Sub Sorteggia_Coppie()
' Tutte le coppie da sorteggiare sono in colonna "D" e "E" del Foglio1 = Coppie_Concorrenti
' Le copiie sorteggiate sono in colonna "D" e "E" del Foglio2 = Coppie_Sorteggiate
' Per colonne divese da "D" (colonna 4) e "E" (colonna 5) modificare le istruzioni che fanno riferimenti a queste colonne e valori
' dove trovi la parola "QUI"

 RR = Foglio1.Range("D" & Rows.Count).End(xlUp).Row
 SS = Foglio2.Range("D" & Rows.Count).End(xlUp).Row
 Riga_Inizio = 8
  If SS < 8 Then SS = Riga_Inizio
 Foglio2.Range("D" & Riga_Inizio & ":E" & SS).ClearContents
SS = 8
 Application.ScreenUpdating = False
 For I = Riga_Inizio To RR
Riprova:
 Numero_casuale = Int((RR - 7) * Rnd()) + 1
 If Foglio2.Cells(Numero_casuale + 7, 4) <> "" Then GoTo Riprova
  Foglio2.Cells(Numero_casuale + 7, 4) = Foglio1.Cells(I, 4)
 Foglio2.Cells(Numero_casuale + 7, 5) = Foglio1.Cells(I, 5)
 Next I
 MsgBox "Sono state sorteggiate '" & RR - Riga_Inizio + 1 & "' Coppie in modo casuale"
 Application.ScreenUpdating = True
 Foglio2.Select
 [D8].Select
End Sub


Vorrei cambiare posizioni delle squadre dato che ho creato una macro che mi inserisce le squadre.

Ringrazio anticipatamente.
Un saluto
Alessandro

EDIT Flash 30/03/2016: - Inserita macro nel Tag Code
coseinvendita
Newbie
 
Post: 1
Iscritto il: 28/03/16 20:49

Re: Sorteggio Casuale Squadre

Postdi Flash30005 » 30/03/16 03:05

Ciao Coseinvendita e benvenuto nel Forum

Prova questa macro
Codice: Seleziona tutto
Public RR As Integer, SS As Integer, I As Integer, J As Integer
Public Numero_casuale As Integer, Riga_Inizio As Integer

Sub Sorteggia_Coppie()
' Tutte le coppie da sorteggiare sono in colonna "D" e "E" del Foglio1 = Coppie_Concorrenti
' Le copiie sorteggiate sono in colonna "D" e "E" del Foglio2 = Coppie_Sorteggiate
' Per colonne divese da "D" (colonna 4) e "E" (colonna 5) modificare le istruzioni che fanno riferimenti a queste colonne e valori
' dove trovi la parola "QUI"

 RR = Foglio1.Range("D" & Rows.Count).End(xlUp).Row
 SS = Foglio2.Range("D" & Rows.Count).End(xlUp).Row
 Riga_Inizio = 8
  If SS < 8 Then SS = Riga_Inizio
 Foglio2.Range("D" & Riga_Inizio & ":E" & SS).ClearContents
SS = 8
 Application.ScreenUpdating = False
 For I = Riga_Inizio To RR
Riprova:
 Numero_casuale = Int((RR - 7) * Rnd()) + 1
 If Foglio2.Cells(Numero_casuale + 7, 4) <> "" Then GoTo Riprova
  Foglio2.Cells(Numero_casuale + 7, 4) = Foglio1.Cells(I, 4)
 Foglio2.Cells(Numero_casuale + 7, 5) = Foglio1.Cells(I, 5)
 Next I
 MsgBox "Sono state sorteggiate '" & RR - Riga_Inizio + 1 & "' Coppie in modo casuale"
 Application.ScreenUpdating = True
 Foglio2.Select
 [D8].Select
End Sub


Cambia i nomi dei fogli, nella macro, all'occorrenza
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-


Torna a Applicazioni Office Windows


Topic correlati a "Sorteggio Casuale Squadre":


Chi c’è in linea

Visitano il forum: Nessuno e 30 ospiti

cron