Condividi:        

[excel] Sorteggio abbinamenti

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

[excel] Sorteggio abbinamenti

Postdi totopc » 28/05/10 10:20

vorrei sapere se esiste un sistema per sorteggiare dei gruppi
mi spiego avendo n°tot.di persone fare un sorteggio in modo che si possano creare tot.gruppi(il n°dei gruppi lo devo decidere io,come anche il n°di persone che appartengono al gruppo)
Avatar utente
totopc
Utente Senior
 
Post: 126
Iscritto il: 26/05/10 15:51

Sponsor
 

Re: [excel] Sorteggio abbinamenti

Postdi Flash30005 » 28/05/10 11:04

Il titolo del topic è una delle cose più importanti in un forum.
Attraverso il titolo si rintracciano argomenti, quesiti e soluzioni.
Hai aperto due topic diversi aventi lo stesso titolo [Excel]
e questo non è una cosa corretta.
Ti prego di fare più attenzione la prossima volta.

Nell'altro topic penso che tu debba dare una risposta all'ultimo post
Quando una persona si si rende disponibile per aiutare chi ne fa richiesta, impegna parte del proprio tempo ed è buona educazione che, chi riceve il servigio, abbia almeno l'accortezza di dire che quel tempo non è andato perso inutilmente e che ha soddisfatto quanto richiesto oppure, nel caso di problemi, farli presente.
In questo caso, il Forum, rimane uno strumento utilissimo per tutti gli utenti e non solo per la singola persona.

Per quanto riguarda l'attuale quesito puoi fare una ricerca con parole chiave tipo:
casuali
sorteggio
abbinamenti
gruppi
o altra parola attinente al tuo tema

Una discussione simile, comunque, la puoi trovare qui
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: [excel] Sorteggio abbinamenti

Postdi totopc » 28/05/10 13:41

mi scuso di tutto ma non sapevo di questi accorgimenti
mi sono iscritto da poco e non conoscevo le "regole"
comunque per quanto riguarda l'allegato del sorteggio sorteggia a coppie invece io vorrei mettendo per esempio che i gruppi debbano essere di 4 un sorteggio che mi formi dall'insieme di partenza (14 mi sembra)gruppi di 4 persone e i 2 che rimangono me li porta in due gruppi
esempio
a b c d e f g h i l m n o p = gruppo
voglio sorteggiare gruppi da 4
a b c d
e f g h sono 3 gruppi restano o p
i l m n
i restanti me li deve mettere uno in un gruppo e l'altro in altro gruppo (non mi interessa dove purche siano divisi)
Avatar utente
totopc
Utente Senior
 
Post: 126
Iscritto il: 26/05/10 15:51

Re: [excel] Sorteggio abbinamenti

Postdi totopc » 28/05/10 13:47

totopc ha scritto:mi scuso di tutto ma non sapevo di questi accorgimenti
mi sono iscritto da poco e non conoscevo le "regole"
comunque per quanto riguarda l'allegato del sorteggio sorteggia a coppie invece io vorrei mettendo per esempio che i gruppi debbano essere di 4 un sorteggio che mi formi dall'insieme di partenza (14 mi sembra)gruppi di 4 persone e i 2 che rimangono me li porta in due gruppi
esempio
a b c d e f g h i l m n o p = gruppo
voglio sorteggiare gruppi da 4
a b c d
e f g h sono 3 gruppi restano 2 nomi o p
i l m n
i restanti me li deve mettere uno in un gruppo e l'altro in altro gruppo (non mi interessa dove purche siano divisi)

ps scusami di tutto ma non conoscevo come funzionasse la cosa non perche volevo mancare di rispetto a voi che invece ci aiutate
Avatar utente
totopc
Utente Senior
 
Post: 126
Iscritto il: 26/05/10 15:51

Re: [excel] Sorteggio abbinamenti

Postdi Flash30005 » 29/05/10 01:21

Prova questa macro
Codice: Seleziona tutto
Public Gr, RR, MRR As Integer
Sub Sorteggia()
Gr = 1
ContaGr = 0
Formato = 0
MRR = 2
UR = Range("A" & Rows.Count).End(xlUp).Row
UD = Range("C" & Rows.Count).End(xlUp).Row
If UD < 2 Then UD = 2
    Range("C2:E" & UD + 1).Clear
Ripeti:
For Each S In Range("C2:C" & UR)
If S.Value = 0 Then
UA = Range("D" & Rows.Count).End(xlUp).Row + 1
If UA < 2 Then UA = 2
salta:
Cas = Int(Rnd() * (UR + 1))
If Cas < 2 Then Cas = 2
If Range("C" & Cas).Value > 0 Then GoTo salta
ContaGr = ContaGr + 1
Range("C" & Cas).Value = Gr
If ContaGr Mod 4 = 0 Then Gr = Gr + 1
Range("D" & UA).Value = Range("A" & Cas).Value
End If
Next S
ContaV = 0
For TV = 2 To UR
If Range("C" & TV).Value = 0 Then
ContaV = ContaV + 1
End If
Next TV
If ContaV > 0 Then GoTo Ripeti
If ContaGr Mod 4 <> 0 Then
Formato = 1
For Each R In Range("C2:C" & UR)
    If R.Value = Gr Then
RUg:
    CasR = Int(Rnd() * Gr)
    If CasR = 0 Then GoTo RUg
    If MCasR = CasR Then GoTo RUg
    Range("C" & R.Row).Value = CasR
    MCasR = CasR
    End If
Next R
End If
Call SepGr
If Formato = 1 Then
Call TrovaRForm
End If
Range("D1").Select
End Sub
Sub SepGr()
    Range("C2:D15").Select
    Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Key2:=Range("D2") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
        :=xlSortNormal
    Range("C1").Select

End Sub
Sub TrovaRForm()
UD = Range("C" & Rows.Count).End(xlUp).Row + 1
For TRF = 1 To Gr - 1
For RR = MRR To UD
If Range("C" & RR).Value <> TRF Then
Call FormGruppi
'TRF = Range("C" & RR).Value
GoTo SaltaR
End If
Next RR
SaltaR:
Next TRF

End Sub

Sub FormGruppi()

    Range("C" & MRR & ":D" & RR - 1).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    MRR = RR
End Sub

Inserire nella cella "A1" la testata "Concorrenti"
dalla cella A2 alla cella A15 i 14 concorrenti
avviare la macro "Sorteggia"
oppure usa questo foglio

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: [excel] Sorteggio abbinamenti

Postdi totopc » 29/05/10 08:33

grazie lo sapevo che mi avreste risolto il problema siete grandi ho visto il file allegato e funziona bene
la macro nonl'ho provata ancora per tempo e perche devo vedere se mi riesce (non ho pratica)
volevo dire come si fa ad aggiungere o togliere concorrenti
mi spiego sono 14 concorrenti pero potrei fare questo sorteggio con 6 oppure con 60 oppure con 1000 (trattandosi di gruppi di persone)
non ce possibilita di inserire un comando che stabilisca prima il n°di persone e poi le sorteggi ?
grazie
Avatar utente
totopc
Utente Senior
 
Post: 126
Iscritto il: 26/05/10 15:51

Re: [excel] Sorteggio abbinamenti

Postdi totopc » 29/05/10 08:36

totopc ha scritto:grazie lo sapevo che mi avreste risolto il problema siete grandi ho visto il file allegato e funziona bene
la macro nonl'ho provata ancora per tempo e perche devo vedere se mi riesce (non ho pratica)
volevo dire come si fa ad aggiungere o togliere concorrenti
mi spiego sono 14 concorrenti pero potrei fare questo sorteggio con 6 oppure con 60 oppure con 1000 (trattandosi di gruppi di persone)
non ce possibilita di inserire un comando che stabilisca prima il n°di persone e poi le sorteggi ?
grazie

ho provato con il file ma mi scrive il concorrente pero quando premo sortegggio nella colonna D non mi riporta il nome che ho scritto
Avatar utente
totopc
Utente Senior
 
Post: 126
Iscritto il: 26/05/10 15:51

Re: [excel] Sorteggio abbinamenti

Postdi Flash30005 » 29/05/10 10:12

La macro è stata creata per elaborare un numero variabile di concorrenti quindi se ne inserirai 20 60 100 o 1000, nella colonna A, distribuirà gli stessi in gruppi da 4 (se occorre variare in numero dei concorrenti per gruppo possiamo fare variabile anche questo).

totopc ha scritto:ho provato con il file ma mi scrive il concorrente pero quando premo sortegggio nella colonna D
non mi riporta il nome che ho scritto


Questa non l'ho capita :roll:
Ma stai usando il mio file?

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: [excel] Sorteggio abbinamenti

Postdi totopc » 29/05/10 11:26

avevi ragione
pero mi succede una cosa scrivo nella colonna A altri nomi e non mi divide per 4 (non vengono raggruppati a dovere)bensi a caso
avrei necessita di avendo una lista su colonna A indefinita di nomi io stabilisca i gruppi (per esempio di 3 di 4 di 10 )
invio file per consultarlo
http://rapidshare.com/files/392861585/C ... i.xls.html
Avatar utente
totopc
Utente Senior
 
Post: 126
Iscritto il: 26/05/10 15:51

Re: [excel] Sorteggio abbinamenti

Postdi Flash30005 » 29/05/10 13:47

Modificato
Prova anche a cambiare il numero concorrenti per gruppo nella cella G1

download file

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: [excel] Sorteggio abbinamenti

Postdi totopc » 29/05/10 15:44

funzione tutto ok grazie
pero se scrivo 31 persone e sorteggio gruppi da 8 mi da:
2 gruppi da 11
1 gruppo da 9
non si potrebbe fare in modo che mi dia ..........
(volendo stabilire insieme alle persone appartenenti al gruppo anche il numero dei gruppi)
......3 gruppi da 8
1 gruppo da 7
Avatar utente
totopc
Utente Senior
 
Post: 126
Iscritto il: 26/05/10 15:51

Re: [excel] Sorteggio abbinamenti

Postdi Flash30005 » 29/05/10 23:30

senti un conto è la logica ed un conto "ad capocchiam" e spiego
nel primo posto hai detto
totopc ha scritto:esempio
a b c d e f g h i l m n o p = gruppo
voglio sorteggiare gruppi da 4
a b c d
e f g h sono 3 gruppi restano o p
i l m n
i restanti me li deve mettere uno in un gruppo e l'altro in altro gruppo (non mi interessa dove purche siano divisi)

Quindi nel caso di 31 persone con gruppi da 8 avremo
24 persone in 3 gruppi (3x8) le rimanenti 7 (31-24) dovranno essere suddivise nei gruppi formatisi quindi il programma ne ha inserite 3 in un gruppo, 3 in un altro e 1 nell'ultimo formando così 2 gruppi da 11 e un gruppo da 9 in maniera del tutto casuale
(chiaramente perché i restanti sono superiori al numero dei gruppi che questa volta vuoi, cosa che non era stabilita dalla prima specifica)

Quindi, per me, se il programma funziona, il topic è "chiuso".

Ciao

P.s. La moderatrice Alexsandra nel primo topic di questa sezione avvisa e ripete più volte di essere chiari, sapere bene cosa si intende chiedere, scrivere e poi rileggere cosa avete scritto, prima di pubblicare.
Quando si realizza un programma è come la costruzione di un palazzo,
si crea un progetto
dal progetto si valuta e acquista il materiale,
si assolda la manodopera
si costruisce il palazzo
e, una volta finito,
non si può dire all'ingegnere
"vorrei aggiungere dei balconi oppure creare un terrazzo perché non mi piace la finitura a tetto"
La programmazione è simile, forse con costi inferiori rispetto alla costruzione ma...
dipende dal valore che una persona dà al proprio tempo.
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: [excel] Sorteggio abbinamenti

Postdi totopc » 30/05/10 11:10

il mio errore e stato che purtroppo non avevo definito bene in mente il progetto
penso possa capitare a chiunque
anche quando si fa un palazzo si parte con un progetto poi escono dei problemi e si cerca di sistemarlo con oppportune modifiche rispetto al progetto iniziale
non e che io vada ad capocchiam ma realizzando il progetto puo succedere che nel corso si possa vedere meglio l'esigenza e correggerla (mi sembre che questo succeda anche nello sport,in politica ecc....)
ho visto che i gruppi venivano divisi male ed ho chiesto se era possibile sistemarli
vorrei stabilire (avendoo 30 persone in totale)io il n°di gruppi e se e possibile anche il n° di persone poi lo scarto me li puo sistemare dove vuole
se e possibile grazie se no ho scherzato e comunque grazie
Avatar utente
totopc
Utente Senior
 
Post: 126
Iscritto il: 26/05/10 15:51

Re: [excel] Sorteggio abbinamenti

Postdi Flash30005 » 30/05/10 12:26

Si, sono perfettamente d'accordo
ma la specifica iniziale va in conflitto con l'ultima specifica se non addirittura opposta.
Specifica1: distribuzione casuale, dei concorrenti rimanenti, nei gruppi formatisi (come avrai visto dalla quantità di righe codice non è stato per me semplice da realizzare)
Specifica2: i concorrenti rimanenti creano un altro gruppo
Quest'ultima specifica è anche più semplice da realizzare e troverai molti utenti pronti ad aiutarti.

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: [excel] Sorteggio abbinamenti

Postdi totopc » 30/05/10 12:40

forse non mi sono spiagato bene cosi e nato un frainteso non e che non va bene il funzionamento ma volevo un sistema che mi poteva far scegliere se dividerli per n°gruppi o per n°persaone
mi sono sbagliato dall'inizio ma me ne sono accorto dopo
mi dispiace se tu ti sai sentito "offeso"ma non era nelle mie intenzioni
mi dipiace che alla fine usi un tono di distacco
comunque ti ringrazio di tutto
....se mi poui aiutare se saro lieto..
Avatar utente
totopc
Utente Senior
 
Post: 126
Iscritto il: 26/05/10 15:51

Re: [excel] Sorteggio abbinamenti

Postdi Flash30005 » 30/05/10 14:39

Secondo me mancano le specifiche sul da farsi.
Vuoi che i concorrenti rimanenti vengano divisi per i gruppi formatisi
oppure
creino un gruppo a sé stante?
Personalmente viste le diverse esigenze farei così:
se i concorrenti sono inferiori o uguali ai numeri dei gruppi li distribuirei all'interno dei gruppi
se maggiore farei un gruppo a parte
Questa è solo una mia interpretazione di ciò che ti occorre perché, in primis, devi essere tu a mettere i tuoi interlocutori in condizioni di capire ciò che ti occorre, e... ciò che ti occorre deve essere ben ponderato, analizzato, studiato da te per raggiungere lo scopo.
Solo dopo tutto ciò farai la tua richiesta, perché, ripeto, mettersi a disposizione del prossimo non significa esaudire i "capricci" di ogni momento.
Ti prego di non prendertela a male ma cerca solo di metterti, qualche volta, nei panni del prossimo che vuole aiutarti, per una forma di rispetto reciproco
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: [excel] Sorteggio abbinamenti

Postdi totopc » 30/05/10 18:50

utilizzando il file da te preparatomi vorrei che nella condizione dell'esempio di 31 persone risultasse cosi:
3 gruppi da 8
1 gruppo da 7
non so come spiegartelo ma avendo come scarto un numero cosi grande (31-24=7)di persone mi dovrebbe creare un altro gruppo da 7
ps se proprio non e possibile mi tengo il foglio che gia cio'
pero dovendo dididere queste persone in questo modo si farebbero gruppi grandi e gruppi piccoli a me servirebbero omogenei
il problema sta che se io scrivo gruppi da 8 i gruppi non devono superare l'8
gli scarti li potrbbe inserire in un altro gruppo
spero mi sia spiegato bene
Avatar utente
totopc
Utente Senior
 
Post: 126
Iscritto il: 26/05/10 15:51

Re: [excel] Sorteggio abbinamenti

Postdi Flash30005 » 30/05/10 19:48

Ok,
quindi i concorrenti restanti non devono essere distribuiti nei gruppi formatisi precedentemente ma creeranno l'ultimo gruppo con numero inferiore a quello stabilito.

Prova questo file

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: [excel] Sorteggio abbinamenti

Postdi totopc » 30/05/10 20:33

va benissimo
ti ringrazio di tutto
specialmente per la pazienza che hai avuto
sei grande!
Avatar utente
totopc
Utente Senior
 
Post: 126
Iscritto il: 26/05/10 15:51

Re: [excel] Sorteggio abbinamenti

Postdi bulle » 10/12/15 03:12

Ciao ragazzi sto cercando il file ma essendo uppato su rapidshare non è possibile scaricarlo.
potete upparlo da qualche altra parte?

Comunque io sto cercando un programma per calcolare dei turni che variano a seconda dei partecipanti (multipli di 3) e delle postazioni che anche quelle variano a seconda dei partecipanti, non so se riesco a fare qualcosa con quello che avete già fatto, vi spiego un po cosi per capirsi meglio.

Per ogni turno deve associare 3 persone di cui 1 è il giudice e 2 pescano ad una postazione.
Cosa importante! le 2 persone che pescano non devono più ricapitare insieme.

esempio a 15 persone:
5 postazioni -> perché 15/3=5

1°turno
1 - 2 - 3 - 4 - 5
(6)-(7)-(8)-(9)-(10)
11-12- 13-14- 15
A B C D E
il 6 fa da giudice al 1 e 11 alla postazione A
il 7 fa da giudice al 2 e 12 alla postazione B
bulle
Newbie
 
Post: 6
Iscritto il: 10/12/15 02:42

Prossimo

Torna a Applicazioni Office Windows


Topic correlati a "[excel] Sorteggio abbinamenti":


Chi c’è in linea

Visitano il forum: Nessuno e 83 ospiti