Risultati da 1 a 14 di 14

Discussione: confronto dati in gruppi



  1. #1
    L'avatar di StefanoDB
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Brescia
    Messaggi
    19
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    confronto dati in gruppi

    Buongiorno a tutti, ho una necessità per la quale esita una soluzione, però ve la sottopongo ugualmente magari qualcuno di voi ha già fatto qualcosa di simile.

    Ho tre colonne nello stesso foglio ( ma il layout potrebbe essere anche diverso ) che mi serve per gestire delle manche da quattro piloti ciascuna. Il problema è che dovrei verificare se nelle varie batterie non si incontrino stessi piloti e non so come fare. Allego il file e metto colorato per far capire.
    File Allegati File Allegati

  2. #2

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7174
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2066
    Likes dati
    1308

    Re: confronto dati in gruppi

    Ciao,
    non so se ho ben capito ma in pratica vorresti che si evidenziassero - se presenti - i nominativi uguali in almeno due delle tre colonne?

    Se è così, basterebbe una formattazione condizionale con la seguente formula:

    =O($Q5=$X5;$Q5=$AE5;$X5=$AE5)

    File Allegati File Allegati
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  3. #3
    L'avatar di StefanoDB
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Brescia
    Messaggi
    19
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: confronto dati in gruppi

    No vorrei evitare che un pilota possa incontrare uno stesso pilota nelle tre manches, cioè devono essere sempre diversi tra loro. Ho colorato le celle solo per evidenziare la situazione

  4. #4

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7174
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2066
    Likes dati
    1308

    Re: confronto dati in gruppi

    Citazione Originariamente Scritto da StefanoDB Visualizza Messaggio
    No vorrei evitare che un pilota possa incontrare uno stesso pilota nelle tre manches, cioè devono essere sempre diversi tra loro. Ho colorato le celle solo per evidenziare la situazione
    ... e quindi? Non mi è ancora chiaro.
    Parliamo del file: hai evidenziato in giallo PELLIZZOLI GIOVANNI e in rosso ZAMORANO FABIO perchè non anche LARIANI LUCA o altri che si trovano come loro in più colonne?
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  5. #5
    L'avatar di StefanoDB
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Brescia
    Messaggi
    19
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: confronto dati in gruppi

    Si magari mi spiego male, quello che devo fare è in questi termini, non devo far incontrare persone che hanno già gareggiato tra loro ( Pelizzoli e Zamorano si sono incontrati in manche due e tre quindi non ok). Quello che mi potrebbe servire è di evidenziare o segnalare queste situazioni. Fai conto però che le manche sono a gruppi di quattro. Io l'unica cosa che riesco a fare è una spunta manuale su un foglio di carta

  6. #6
    L'avatar di StefanoDB
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Brescia
    Messaggi
    19
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: confronto dati in gruppi

    Citazione Originariamente Scritto da StefanoDB Visualizza Messaggio
    Si magari mi spiego male, quello che devo fare è in questi termini, non devo far incontrare persone che hanno già gareggiato tra loro ( Pelizzoli e Zamorano si sono incontrati in manche due e tre quindi non ok). Quello che mi potrebbe servire è di evidenziare o segnalare queste situazioni. Fai conto però che le manche sono a gruppi di quattro. Io l'unica cosa che riesco a fare è una spunta manuale su un foglio di carta
    Temo non ci sia soluzione..

  7. #7

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7174
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2066
    Likes dati
    1308

    Re: confronto dati in gruppi

    Ciao,
    io non ho pi risposto perchè purtroppo continuo a non capire ... speravo che qualcuno comprendesse quello che vuoi e ti rispondesse.

    Mi parli di gare, di piloti ... io vorrei parlare del foglio excel: nel tuo esempio ci sono tre colonne con gli stessi nomi, alcuni li vuoi evidenziare perchè "si sono incontrati in due manche" ma che vuol dire in termini di excel? Avevo capito che vollesse dire la loro presenza nelle tre colonne ma questo criterio si riferisce alla moltitudine dei nomi ma non è così.
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  8. #8
    L'avatar di StefanoDB
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Brescia
    Messaggi
    19
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: confronto dati in gruppi

    Ho allegato di nuovo il file, spero di possa capire, cerco comunque di spiegarmi, le tre colonne sono le manche da disputare, all'interno delle manche ci sono delle batterie nelle quali i piloti correranno formate da quattro piloti ciascuna. Siccome queste vengono formate con un sistema random alcune volte mi abbina alcuni piloti che hanno già corso tra di loro, ecco vorrei che ciò non avvenga quindi mi sarebbe sufficiente avere modo in qualche modo che ciò sia evdenziato.
    File Allegati File Allegati

  9. #9

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4046
    Versione Office
    2013
    Likes ricevuti
    1239
    Likes dati
    931

    Re: confronto dati in gruppi

    Ciao a tutti,

    @Stefano
    invece di evidenziare gli "errori", non sarebbe meglio creare da subito una classifica che non ne presenti?

    Conviene ricorrere al VBA e sicuramente il codice è migliorabile, ma è solo per darti un'idea.

    La lista dei piloti (insieme a ID ed Estratto) li ho presi dalla tabella della 1° Manche, in quanto la prima estrazione non contiene errori di "doppioni".
    Ho visto la parte nascosta del foglio...probabilmente è meglio prendere da li la lista iniziale, ma non sapevo per cosa la usassi.

    Il codice è associato al pulsante "Randomizza 2° Manche" e ti crea la lista solo per la tabella 2 (per la terza vedremo in seguito ).
    Dovresti controllare tu se risultano "doppioni" e se non ce ne dovessero essere potremo andare avanti.

    Codice: 
    Sub Crea_Gare()
    Dim Piloti As Collection, Id_Estratto(), Concorrenti As Long, i As Long
    Dim uRiga, Gara2 As Collection, num_rnd As Long, Verifica As Collection
    Dim j As Long, Uguali As Integer, x As Long, y As Long, Indice As Long
    
    
    Set Piloti = New Collection
    Set Gara2 = New Collection
    
    
    For i = 5 To Rows.Count
        If Range("Q" & i) <> "" Then
            Concorrenti = Concorrenti + 1
        Else
            GoTo prossimo
        End If
    Next i
    prossimo:
    uRiga = Concorrenti + 4
    
    
    Range("U5:W" & uRiga).ClearContents
    Range("AA5:AC" & uRiga).ClearContents
    ReDim Id_Estratto(1 To Concorrenti, 1 To 4)
    
    
    For i = 5 To uRiga
        Piloti.Add Range("Q" & i).Value
        Id_Estratto(i - 4, 1) = Range("N" & i).Value
        Id_Estratto(i - 4, 2) = Range("P" & i).Value
    Next i
    
    
    inizio:
    Indice = 1
    On Error GoTo again
    For i = 1 To Concorrenti
        Randomize
        num_rnd = Int(rnd * Concorrenti) + 1
        Gara2.Add Piloti(num_rnd), Piloti(num_rnd)
        Id_Estratto(Indice, 3) = Id_Estratto(num_rnd, 1)
        Id_Estratto(Indice, 4) = Id_Estratto(num_rnd, 2)
        Indice = Indice + 1
        
    again:
        If Err.Number = 457 Then
            i = i - 1
        End If
        Resume Next
    Next i
    On Error GoTo 0
    
    
    For i = 1 To Concorrenti - 4 Step 5
        For j = i To i + 3
            For x = 1 To Concorrenti - 4 Step 5
                Uguali = 0
                For y = x To x + 3
                    If Gara2(j) = Piloti(y) Then
                        Uguali = Uguali + 1
                    End If
                    If Uguali > 1 Then GoTo inizio
                Next y
            Next x
        Next j
    Next i
                   
    For i = 5 To uRiga
        Range("U" & i).Value = Id_Estratto(i - 4, 3)
        Range("V" & i).Value = Id_Estratto(i - 4, 4)
        Range("W" & i).Value = Gara2(i - 4)
    Next i
    
    
    Set Piloti = Nothing
    Set Gara2 = Nothing
    End Sub
    Ti riallego il file..
    Nel foglio "Partecipanti - Prove" ho eliminato le colonne con il random per le tabelle 2 e 3.
    File Allegati File Allegati

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

  10. #10
    L'avatar di StefanoDB
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Brescia
    Messaggi
    19
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: confronto dati in gruppi

    Allego il file, ci sono ancora tre coppie che sono già presenti in prima manche. Ho notato anche che nella colonna numero piloti i numeri non sono corretti. Naturalmente non penso sia un problema, in quanto ho volontariamente omesso il DB piloti su cui poi mi appoggio con un cerca vert. Ho anche dimenticato di dire che il numero piloti totale varia per ogni gara
    Comunque grazie per il favore che mi stai facendo
    File Allegati File Allegati
    Ultima modifica fatta da:Canapone; 16/05/17 alle 16:04

  11. #11

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4046
    Versione Office
    2013
    Likes ricevuti
    1239
    Likes dati
    931

    Re: confronto dati in gruppi

    Ciao,
    si, hai ragione... mi sembrava strano che funzionasse tutto al primo tentativo

    Adesso non riesco a modificarlo, proverò domani sera...

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

  12. #12

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4046
    Versione Office
    2013
    Likes ricevuti
    1239
    Likes dati
    931

    Re: confronto dati in gruppi

    Ciao a tutti,

    @Stefano
    ho fatto un pò di prove e sembra andare bene... solo per la seconda tabella. Prima di passare anche alla terza, come al solito, fai un pò di prove per assicurarti che non escano doppioni.

    Codice: 
    Sub Crea_Gare()
    Dim Piloti(), ID_Estratto(), Concorrenti As Long, i As Long
    Dim uRiga, Gara2 As Collection, num_rnd As Long, Verifica As Collection
    Dim j As Long, Uguali As Integer, x As Long, y As Long, z As Long, Indice As Long
    Dim a, b
    
    
    For i = 5 To Rows.Count
        If Range("Q" & i) <> "" Then
            Concorrenti = Concorrenti + 1
        Else
            GoTo prossimo
        End If
    Next i
    prossimo:
    uRiga = Concorrenti + 4
    
    
    Range("U5:W" & uRiga).ClearContents
    Range("AA5:AC" & uRiga).ClearContents
    ReDim Piloti(1 To Concorrenti, 1 To 3)
    ReDim ID_Estratto(1 To Concorrenti, 1 To 4)
    
    
    For i = 5 To uRiga
        Piloti(i - 4, 1) = Range("N" & i).Value
        Piloti(i - 4, 2) = Range("P" & i).Value
        Piloti(i - 4, 3) = Range("Q" & i).Value
    Next i
    
    
    inizio:
    Set Gara2 = Nothing
    Set Gara2 = New Collection
    
    
    Indice = 1
    On Error GoTo again
    For z = 1 To Concorrenti
        Randomize
        num_rnd = Int(rnd * Concorrenti) + 1
        ID_Estratto(Indice, 1) = Piloti(num_rnd, 1)
        ID_Estratto(Indice, 2) = Piloti(num_rnd, 2)
        Indice = Indice + 1
        Gara2.Add Piloti(num_rnd, 3), Piloti(num_rnd, 3)
        
    again:
        If Err.Number = 457 Then
            z = z - 1
            Indice = Indice - 1
        End If
        Resume Next
    Next z
    On Error GoTo 0
    
    
    For i = 1 To Concorrenti Step 4
        For x = 1 To Concorrenti Step 4
            Uguali = 0
            For j = i To i + 3
                For y = x To x + 3
                    a = Gara2(j)
                    b = Piloti(y, 3)
                    If Gara2(j) = Piloti(y, 3) Then
                        Uguali = Uguali + 1
                    End If
                    If Uguali > 1 Then GoTo inizio
                Next y
            Next j
        Next x
    Next i
                   
    For i = 5 To uRiga
        Range("U" & i).Value = ID_Estratto(i - 4, 1)
        Range("V" & i).Value = ID_Estratto(i - 4, 2)
        Range("W" & i).Value = Gara2(i - 4)
    Next i
    
    
    Erase Piloti
    Set Gara2 = Nothing
    End Sub
    P.S.
    Forse nel codice ho dimenticato di togliere qualche variabile che ho utilizzato solo per fare dei controlli.

    P.P.S.
    I piloti nella prima tabella li ho ordinati per nome in modo da rendere più semplice le verifiche dei "doppioni".
    File Allegati File Allegati

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

  13. #13
    L'avatar di StefanoDB
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Brescia
    Messaggi
    19
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: confronto dati in gruppi

    Ciao, la randomizzazione ora funziona benissimo, non ci sono più i doppioni

  14. #14

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4046
    Versione Office
    2013
    Likes ricevuti
    1239
    Likes dati
    931

    Re: confronto dati in gruppi

    Citazione Originariamente Scritto da StefanoDB Visualizza Messaggio
    Ciao, la randomizzazione ora funziona benissimo, non ci sono più i doppioni
    Grazie del riscontro.
    Anche se non subito, proverò a completarlo (o puoi sempre provare da solo ).

    A presto

    Tore

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

Discussioni Simili

  1. "trasponi" dati dividendoli in gruppi
    Di Tullio17 nel forum Domande su Excel in generale
    Risposte: 29
    Ultimo Messaggio: 26/05/17, 01:11
  2. [Risolto] Confronto dati di due celle parallele
    Di Cristina1 nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 06/02/17, 22:41
  3. Rappresentare due gruppi di dati con un istogramma
    Di migdan nel forum Domande sui Grafici di Excel
    Risposte: 6
    Ultimo Messaggio: 21/05/16, 13:00
  4. Elenco dinamico su confronto dati
    Di Maxy nel forum Domande su Excel in generale
    Risposte: 10
    Ultimo Messaggio: 29/12/15, 10:27
  5. Confronto tra dati vecchi e nuovi
    Di Obscures nel forum Domande su Excel in generale
    Risposte: 7
    Ultimo Messaggio: 29/10/15, 10:45

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
  •