Condividi:        

sorteggio abbinamento nome squadra

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 abbinamento nome squadra

Postdi ilTodda91 » 27/12/13 11:29

Ciao a tutti.

Avrei bisogno di aiuto per creare un foglio di excel che mi abbini casualmente un utente ad una squadra.

Ho 6 squadre da sorteggiare a 6 utenti diversi.. esempio:

Inter
Milan
Roma
Juventus
Napoli
Fiorentina

devono essere abbinate a:

utente 1
utente 2
utente 3
utente 4
utente 5
utente 6

e l'abbinamento deve essere univoco..

Ringrazio anticipatamente per le eventuali risposte..
ilTodda91
Utente Junior
 
Post: 23
Iscritto il: 16/04/09 18:58

Sponsor
 

Re: sorteggio abbinamento nome squadra

Postdi Flash30005 » 27/12/13 12:21

Supponendo che le squadre le abbia in colonna A da A2 a A7 (riga 1 testata)
e vorresti il sorteggio in colonna B
puoi usare questa routine
Codice: Seleziona tutto
Sub Sorteggia()
Range("B2:B7").ClearContents
For RR = 2 To 7
IniS:
MySort = Int(Rnd(6) * 6) + 1
For RRC = 2 To RR
If Range("B" & RRC) = MySort Then GoTo IniS
Next RRC
Range("B" & RR) = MySort
Next RR
End Sub


Non sapendo dove hai i nomi utenti per il momento la macro assegna un numero casuale a fianco di ogni suqadra
è possibile inserire anche il nome utente ma bisognerebbe sapere dove è dislocato nel tuo foglio
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 abbinamento nome squadra

Postdi ilTodda91 » 27/12/13 12:41

Ipotizziamo che :
da A2 ad A7 scrivo i nomi delle squadre
da B2 a B7 scrivo i nomi dei partecipanti

ho inserito la macro che mi hai scritto ma i numeri rimango sempre nello stesso posto..

oppure in alternativa andrebbe bene anche una casella di input che chieda prima i 6 nomi delle squadre e poi i 6 nomi dei partecipanti.
ilTodda91
Utente Junior
 
Post: 23
Iscritto il: 16/04/09 18:58

Re: sorteggio abbinamento nome squadra

Postdi Anthony47 » 27/12/13 18:48

Prova questa macro:
Codice: Seleziona tutto
Sub scrambl()
Dim VArr(), Teams As String, Players As String, Destin As String, myRand As Long, I As Long
'
'Teams = "A2:A7"     '<< Le celle con le Squadre
Players = "B2:B7"   '<< Le Celle con i giocatori
Destin = "B2:B7"    '<< Le celle di destinazione
'
ReDim VArr(1 To Range(Players).Rows.Count)
VArr = Range(Players).Value
Range(Destin).ClearContents
For I = 1 To Range(Players).Rows.Count
reRand:
    DoEvents
    myRand = 1 + Int(Range(Players).Rows.Count * Rnd())
    If Range(Destin).Cells(myRand, 1).Value <> "" Then GoTo reRand
    Range(Destin).Cells(myRand, 1).Value = VArr(I, 1)
Next I
'
End Sub
Le istruzioni marcate << sono da personalizzare.

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

Re: sorteggio abbinamento nome squadra

Postdi ilTodda91 » 27/12/13 21:30

Ottimo.. adesso sto cercando di farlo diventare con l'aspetto di un programma anzichè del foglio di calcolo.

La macro però è perfetta.
ilTodda91
Utente Junior
 
Post: 23
Iscritto il: 16/04/09 18:58


Torna a Applicazioni Office Windows


Topic correlati a "sorteggio abbinamento nome squadra":


Chi c’è in linea

Visitano il forum: Nessuno e 84 ospiti