Risultati da 1 a 15 di 15

Discussione: Sorteggio gironi torneo con fasce



  1. #1
    L'avatar di frankuaku
    Clicca e Apri
    Data Registrazione
    Apr 2016
    LocalitÓ
    Cagliari
    EtÓ
    20
    Messaggi
    12
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    2

    Sorteggio gironi torneo con fasce

    Buonasera a tutti!
    Vorrei un aiuto per migliorare questo file Excel che ho giÓ, in modo da poter svolgere il sorteggio dei gironi per fasce. Non so da dove iniziare per modificarlo...

    Grazie a tutti in anticipo,
    Francesco
    File Allegati File Allegati

  2. #2
    L'avatar di Cuc¨^_^
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    TrentoGallipoliTaranto
    EtÓ
    46
    Messaggi
    311
    Versione Office
    2010
    Likes ricevuti
    57
    Likes dati
    18

    Re: Sorteggio gironi torneo con fasce

    Devi essere pi¨ dettagliato spiegando bene lo scenario di partenza e dove vuoi arrivare inserendo esempi pratici (scritti a mano) altrimenti la vedo dura.
    Cuc¨

  3. #3

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    LocalitÓ
    Sardegna
    EtÓ
    37
    Messaggi
    4020
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923

    Re: Sorteggio gironi torneo con fasce

    Io non ho capito nulla di quello che vuoi fare (nŔ di quello che hai), quindi in compagnia di Cuc¨ .... aspettiamo le tue spiegazioni ed un file che possa essere compreso


    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno pu˛ immaginare."

  4. #4
    L'avatar di frankuaku
    Clicca e Apri
    Data Registrazione
    Apr 2016
    LocalitÓ
    Cagliari
    EtÓ
    20
    Messaggi
    12
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    2

    Re: Sorteggio gironi torneo con fasce

    Il file che ho postato ha giÓ una macro, come si pu˛ vedere. Si inseriscono le squadre nella colonna A e si dÓ inizio al sorteggio cliccando sul pulsante. Il sorteggio quindi Ŕ completamente casuale: una volta premuto il pulsante appaiono 2 finestre, nella prima si inserisce il numero delle squadre da sorteggiare e nella seconda il numero dei gironi. Io vorrei "evolvere" il file aggiungendo la possibilitÓ di fare un sorteggio per "fasce" con le teste di serie. Sicuramente si tratta di risistemare il foglio e modificare la macro di base...

  5. #5

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    LocalitÓ
    Sardegna
    EtÓ
    37
    Messaggi
    4020
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923

    Re: Sorteggio gironi torneo con fasce

    Citazione Originariamente Scritto da frankuaku Visualizza Messaggio
    Il file che ho postato ha giÓ una macro, come si pu˛ vedere. Si inseriscono le squadre nella colonna A e si dÓ inizio al sorteggio cliccando sul pulsante. Il sorteggio quindi Ŕ completamente casuale: una volta premuto il pulsante appaiono 2 finestre, nella prima si inserisce il numero delle squadre da sorteggiare e nella seconda il numero dei gironi. Io vorrei "evolvere" il file aggiungendo la possibilitÓ di fare un sorteggio per "fasce" con le teste di serie. Sicuramente si tratta di risistemare il foglio e modificare la macro di base...
    SI,
    fino a li c'ero arrivato....
    ma sei tu che devi mettere le squadre e mostrarci il risultato e partendo da quello... farci capire cosa non ti va bene, scrivendo (a parte) il risultato che vorresti ottenere.

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno pu˛ immaginare."

  6. #6

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    LocalitÓ
    Sardegna
    EtÓ
    37
    Messaggi
    4020
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923

    Re: Sorteggio gironi torneo con fasce

    P.S.
    nell'ultima discussione che hai aperto:
    http://www.forumexcel.it/forum/6-dom...mmunity-online

    @Powerwin ti ha giustamente consigliato/proposto di allegare la tua soluzione finale, in modo che possa completare la discussione da te aperta ed essere d'aiuto a futuri visitatori..... ma non ti sei pi¨ fatto vivo.

    Un forum serve per aiutare il richiedente ma la stessa discussione potrebbe essere d'aiuto ad un altro utente con un problema simile... un "do ut des" senza molta fatica e a beneficio di tutti.

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno pu˛ immaginare."

  7. I seguenti utenti hanno dato un "Like"


  8. #7
    L'avatar di frankuaku
    Clicca e Apri
    Data Registrazione
    Apr 2016
    LocalitÓ
    Cagliari
    EtÓ
    20
    Messaggi
    12
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    2

    Re: Sorteggio gironi torneo con fasce

    Citazione Originariamente Scritto da cromagno Visualizza Messaggio
    P.S.
    nell'ultima discussione che hai aperto:
    http://www.forumexcel.it/forum/6-dom...mmunity-online

    @Powerwin ti ha giustamente consigliato/proposto di allegare la tua soluzione finale, in modo che possa completare la discussione da te aperta ed essere d'aiuto a futuri visitatori..... ma non ti sei pi¨ fatto vivo.

    Un forum serve per aiutare il richiedente ma la stessa discussione potrebbe essere d'aiuto ad un altro utente con un problema simile... un "do ut des" senza molta fatica e a beneficio di tutti.
    Ecco cosa dovevo fare... ora finisco di fare il post poi spiego come ho fatto :D scusatemi!

    Comunque, il primo foglio del file, com'Ŕ ora, va benissimo, perchÚ per i sorteggi semplici funziona ottimamente. Ho aggiunto nel Foglio2, che ho rinominato "Sorteggio a 4 fasce", le 4 fasce con le squadre. Quello che vorrei che succedesse, con una macro, Ŕ che le squadre della prima fascia vadano a disporsi nella prima riga dei sei gironi, quelle della seconda nella seconda ecc. Non essendo per˛ esperto di macro, non so neppure da dove iniziare...
    File Allegati File Allegati

  9. #8
    L'avatar di Cuc¨^_^
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    TrentoGallipoliTaranto
    EtÓ
    46
    Messaggi
    311
    Versione Office
    2010
    Likes ricevuti
    57
    Likes dati
    18

    Re: Sorteggio gironi torneo con fasce

    Praticamente un copia incolla con trasponi?

  10. #9
    L'avatar di frankuaku
    Clicca e Apri
    Data Registrazione
    Apr 2016
    LocalitÓ
    Cagliari
    EtÓ
    20
    Messaggi
    12
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    2

    Re: Sorteggio gironi torneo con fasce

    Citazione Originariamente Scritto da Cuc¨^_^ Visualizza Messaggio
    Praticamente un copia incolla con trasponi?
    Pi¨ che altro che comunque non siano nello stesso ordine, quindi che vengano sorteggiate come accade nel primo foglio, con la differenza per˛ che andrebbero distribuite in modo casuale solo su 6 celle (quelle della prima riga) e non sul totale.

  11. #10
    L'avatar di Cuc¨^_^
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    TrentoGallipoliTaranto
    EtÓ
    46
    Messaggi
    311
    Versione Office
    2010
    Likes ricevuti
    57
    Likes dati
    18

    Re: Sorteggio gironi torneo con fasce

    Ti allego il file richiesto.

    Questo Ŕ il codice, lo posto poichŔ ritengo sia un metodo originale per fare quanto mi hai chiesto...
    Ovviamente sono graditi i commenti di tutti.
    Codice: 
    Option Explicit
    Sub Elabora_Sorteggio()
    Dim Ic As Byte, N As Byte, R As Byte, C As Byte
    Dim Dictx As Object
    Dim Matrix(1 To 6, 1 To 4) As String
    '--------- By Cuc¨
    Set Dictx = CreateObject("Scripting.Dictionary")
    Range("G2:L5").ClearContents
    Randomize
    Ic = 1
    For C = 1 To 4
        For R = 1 To 6
            For N = 1 To 6
                Dictx.Add N, N
            Next
            Do While Ic < 7
                N = Int(6 * Rnd) + 1
                If Dictx.Exists(N) Then
                    Dictx.Remove (N)
                    Matrix(Ic, C) = Cells(N + 1, C)
                    Ic = Ic + 1
                End If
            Loop
        Ic = 1
        Next R
    Next C
    Range("G2:L5").Value = Application.Transpose(Matrix)
    MsgBox "Estrazione Torneo Completata"
    End Sub
    Bye Cuc¨
    File Allegati File Allegati

  12. I seguenti 2 utenti hanno dato un "Like" a Cuc¨^_^ per questo post:


  13. #11
    L'avatar di frankuaku
    Clicca e Apri
    Data Registrazione
    Apr 2016
    LocalitÓ
    Cagliari
    EtÓ
    20
    Messaggi
    12
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    2

    Re: Sorteggio gironi torneo con fasce

    Ottimo! Grazie mille davvero!

  14. #12
    L'avatar di Cuc¨^_^
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    TrentoGallipoliTaranto
    EtÓ
    46
    Messaggi
    311
    Versione Office
    2010
    Likes ricevuti
    57
    Likes dati
    18

    Re: Sorteggio gironi torneo con fasce


  15. #13

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Cosenza
    EtÓ
    45
    Messaggi
    2809
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979

    Re: Sorteggio gironi torneo con fasce

    Ciao a tutti. Propongo la soluzione con le Collection:
    Codice: 
    Sub Estrai_Collection()
    'by Rubik72
    Dim Coll As Collection
    Dim iRow As Long
    Dim i As Byte
    Dim iCount As Byte
    
    
    Range("G2:L5").ClearContents
    On Error Resume Next
    Randomize Timer
    For iRow = 2 To 5
        Set Coll = New Collection
        Do Until Coll.Count = 6
            i = Int(6 * Rnd) + 1
            Coll.Add i, CStr(i)
        Loop
        For iCount = 1 To 6
            Cells(iRow, iCount + 6) = Cells(Coll(iCount) + 1, iRow - 1)
        Next
    Next
    
    
    End Sub

    Citazione Originariamente Scritto da Cuc¨^_^ Visualizza Messaggio
    Ti allego il file richiesto.

    Questo Ŕ il codice, lo posto poichŔ ritengo sia un metodo originale per fare quanto mi hai chiesto...
    Ovviamente sono graditi i commenti di tutti.
    Codice: 
    Option Explicit
    Sub Elabora_Sorteggio()
    Dim Ic As Byte, N As Byte, R As Byte, C As Byte
    Dim Dictx As Object
    Dim Matrix(1 To 6, 1 To 4) As String
    '--------- By Cuc¨
    Set Dictx = CreateObject("Scripting.Dictionary")
    Range("G2:L5").ClearContents
    Randomize
    Ic = 1
    For C = 1 To 4
        For R = 1 To 6
            For N = 1 To 6
                Dictx.Add N, N
            Next
            Do While Ic < 7
                N = Int(6 * Rnd) + 1
                If Dictx.Exists(N) Then
                    Dictx.Remove (N)
                    Matrix(Ic, C) = Cells(N + 1, C)
                    Ic = Ic + 1
                End If
            Loop
        Ic = 1
        Next R
    Next C
    Range("G2:L5").Value = Application.Transpose(Matrix)
    MsgBox "Estrazione Torneo Completata"
    End Sub
    Bye Cuc¨
    Ciao @Cuc¨^_^, sbaglio o il ciclo "R" Ŕ superfluo?

    P.S. Preferivo il tuo avatar di prima (Muttley)

  16. I seguenti utenti hanno dato un "Like"


  17. #14
    L'avatar di Cuc¨^_^
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    TrentoGallipoliTaranto
    EtÓ
    46
    Messaggi
    311
    Versione Office
    2010
    Likes ricevuti
    57
    Likes dati
    18

    Re: Sorteggio gironi torneo con fasce

    Citazione Originariamente Scritto da Rubik72 Visualizza Messaggio
    Ciao @Cuc¨^_^, sbaglio o il ciclo "R" Ŕ superfluo?

    P.S. Preferivo il tuo avatar di prima (Muttley)
    Ciao Rubik72

    ottima vista... infatti sono quei classici refusi ( il valore R non viene mai usato...) di quando parti con un'idea e poi in corso d'opera cambi idea ma poi ti dimentichi di togliere il superfluo..



    In realtÓ mi sembra interessante questo metodo perchŔ permette di non utilizzare a differenza della collection "on error resume..." sempre molto pericoloso a mio modo di vedere...

    Tu che ne pensi?

  18. #15

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Cosenza
    EtÓ
    45
    Messaggi
    2809
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979

    Re: Sorteggio gironi torneo con fasce

    Citazione Originariamente Scritto da Cuc¨^_^ Visualizza Messaggio
    Ciao Rubik72

    ottima vista... infatti sono quei classici refusi ( il valore R non viene mai usato...) di quando parti con un'idea e poi in corso d'opera cambi idea ma poi ti dimentichi di togliere il superfluo..



    In realtÓ mi sembra interessante questo metodo perchŔ permette di non utilizzare a differenza della collection "on error resume..." sempre molto pericoloso a mio modo di vedere...

    Tu che ne pensi?
    Con una oculata gestione degli errori:
    On Error Resume Next
    On erro goto 0
    le due soluzioni sono molto simili.

    La collezione Dictionary ha il vantaggio di supportare il metodo Exist (molto comodo)

Discussioni Simili

  1. Calcolare differenza a fasce
    Di Gianfranco55 nel forum Domande su Excel in generale
    Risposte: 32
    Ultimo Messaggio: 22/09/17, 18:08
  2. Distribuire orario straordinario su fasce diverse
    Di sbanf nel forum Domande su Excel in generale
    Risposte: 6
    Ultimo Messaggio: 26/05/16, 11:37
  3. Conteggio ore in pi¨ fasce orarie
    Di Paolo71 nel forum Domande su Excel in generale
    Risposte: 1
    Ultimo Messaggio: 10/03/16, 13:03
  4. Torneo Calcio Tennis 2 Gironi all'Italiana
    Di CassFab nel forum Domande su Excel VBA e MACRO
    Risposte: 13
    Ultimo Messaggio: 08/02/16, 15:04
  5. Sorteggio torneo con le formule con delle condizioni!!!!
    Di Fabio1972 nel forum Domande su Excel in generale
    Risposte: 7
    Ultimo Messaggio: 30/09/15, 20:25

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •