Risultati da 1 a 14 di 14

Discussione: Classifica auto aggiornante



  1. #1
    L'avatar di domen
    Clicca e Apri
    Data Registrazione
    May 2016
    Località
    milan
    Età
    27
    Messaggi
    6
    Versione Office
    2007
    Likes ricevuti
    0
    Likes dati
    0

    Classifica auto aggiornante

    Salve,
    mi chiamo renato sono nuovo nel forum.
    Vi chiedo aiuto perche' sono giorni che cerco di creare una classifica con excel ma senza ottenere alcun risultato.
    Per farvi fare un idea sto cercando di creare una classifica auto aggiornante con condizioni, la condizione e che il valore di un risultato sia uguale ad un valore pronosticato. Es:

    Partita risultato dovrei assegnare 3 pt per ogni
    atl. Madrid - real madrid 2-1 risultato pronosticato correttamente, 1 punto
    per chi ha pronosticato correttamente solo
    giocatore pronostico l'esito; e verrebbe una classifica tipo questa:
    Marco 2-1 1° marco 3
    luca 1-1 2° renato 1
    renato 1-0 3° luca 0
    matteo 0-0 4° matteo 0

    potreste aiutarmi sono quasi disperato.
    Grazie

  2. #2

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

    Re: Classifica auto aggiornante

    Ciao domen,
    se ci alleghi il file possiamo aiutarti.
    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 domen
    Clicca e Apri
    Data Registrazione
    May 2016
    Località
    milan
    Età
    27
    Messaggi
    6
    Versione Office
    2007
    Likes ricevuti
    0
    Likes dati
    0

    Re: Classifica auto aggiornante

    ecco il file. grazie
    File Allegati File Allegati
    Ultima modifica fatta da:domen; 27/05/16 alle 19:04 Motivo: tag

  4. #4
    L'avatar di domen
    Clicca e Apri
    Data Registrazione
    May 2016
    Località
    milan
    Età
    27
    Messaggi
    6
    Versione Office
    2007
    Likes ricevuti
    0
    Likes dati
    0

    Re: Classifica auto aggiornante

    non riesco a inserire il tag vba

  5. #5

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

    Re: Classifica auto aggiornante

    Il codice si inserisce cliccando sul simbolo del cancelletto nella finestra della risposta.
    Per il tuo file è pieno di celle unite .... :62: ed è più complicato lavorarci.
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  6. #6
    L'avatar di domen
    Clicca e Apri
    Data Registrazione
    May 2016
    Località
    milan
    Età
    27
    Messaggi
    6
    Versione Office
    2007
    Likes ricevuti
    0
    Likes dati
    0

    Re: Classifica auto aggiornante

    Codice: 
    VBA
    ho diviso le celle
    File Allegati File Allegati

  7. #7
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3222
    Versione Office
    Excel2010
    Likes ricevuti
    628
    Likes dati
    155

    Re: Classifica auto aggiornante

    Ciao Domen
    col permesso di Ges (che saluto) allego il file con la seguente macro (associata al rettangolo Mostra Classifica).
    Codice: 
    Option Explicit
    
    
    Sub classifica()
    Dim nome(1 To 5) As String, num(1 To 5) As Integer, ris(1 To 2) As String
    Dim prn(1 To 2, 1 To 5) As String
    Dim i As Integer, j As Integer
    Dim spt() As String, spr() As String, rst As Integer, rpn As Integer
    For i = 3 To 7
        nome(i - 2) = Cells(2, i)
        num(i - 2) = 0
    Next i
    For i = 6 To 7
        ris(i - 5) = Cells(i, 2)
        For j = 3 To 7
            prn(i - 5, j - 2) = Cells(i, j)
        Next j
    Next i
    For i = 1 To 2
        For j = 1 To 5
            If ris(i) = prn(i, j) Then
                num(j) = num(j) + 3
            Else
                spt = Split(ris(i), "-") 'divide risultato
                If Val(spt(0)) > Val(spt(1)) Then rst = 1
                If Val(spt(0)) = Val(spt(1)) Then rst = 3
                If Val(spt(0)) < Val(spt(1)) Then rst = 2
                spr = Split(prn(i, j), "-") 'divide pronostico
                If Val(spr(0)) > Val(spr(1)) Then rpn = 1
                If Val(spr(0)) = Val(spr(1)) Then rpn = 3
                If Val(spr(0)) < Val(spr(1)) Then rpn = 2
                If rst = rpn Then num(j) = num(j) + 1
            End If
        Next j
    Next i
    For i = 6 To 10
        Cells(i, 18) = nome(i - 5)
        Cells(i, 19) = num(i - 5)
    Next i
    Range("R5:S10").Sort Key1:=Range("S5"), Order1:=xlDescending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Range("R1").Select
    End Sub
    Ovviamente non mancherà a te adattarla alle tue esigenze (più risultati, più pronostici, ecc).

    Fai sapere. Ciao,
    Mario
    File Allegati File Allegati

  8. I seguenti utenti hanno dato un "Like"

    ges

  9. #8

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

    Re: Classifica auto aggiornante

    Ciao Mario,
    hai fatto benissimo a postare la tua soluzione ..... ogni soluzione è sempre utile e più soluzioni ci sono meglio è.
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  10. #9

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2815
    Versione Office
    Excel 2013
    Likes ricevuti
    1024
    Likes dati
    982

    Re: Classifica auto aggiornante

    Col permesso di Marius44 (che saluto:43:), ho reso "dinamica" la sua eccellente :97: routine:
    Codice: 
    Option Explicit
    Option Base 1
    
    
    Sub classifica()
    Dim nome() As String, num() As Integer, ris() As String
    Dim prn() As String
    Dim i As Integer, j As Integer
    Dim spt() As String, spr() As String, rst As Integer, rpn As Integer
    Dim NumGiocat As Integer
    Dim NumPart As Integer
    
    
    NumGiocat = CInt(InputBox("Inserire il numero di giocatori", "INSERIMENTO", 1))
    NumPart = CInt(InputBox("Inserire il numero delle partite", "INSERIMENTO", 1))
    
    
    ReDim nome(NumGiocat)
    ReDim num(NumGiocat)
    ReDim ris(NumPart)
    ReDim prn(NumPart, NumGiocat)
    
    
    For i = 3 To NumGiocat + 2
        nome(i - 2) = Cells(2, i)
        num(i - 2) = 0
    Next i
    For i = 6 To NumPart + 5
        ris(i - 5) = Cells(i, 2)
        For j = 3 To NumGiocat + 2
            prn(i - 5, j - 2) = Cells(i, j)
        Next j
    Next i
    For i = 1 To NumPart
        For j = 1 To NumGiocat
            If ris(i) = prn(i, j) Then
                num(j) = num(j) + 3
            Else
                spt = Split(ris(i), "-") 'divide risultato
                If Val(spt(0)) > Val(spt(1)) Then
                    rst = 1
                ElseIf Val(spt(0)) = Val(spt(1)) Then
                    rst = 3
                ElseIf Val(spt(0)) < Val(spt(1)) Then
                    rst = 2
                End If
                spr = Split(prn(i, j), "-") 'divide pronostico
                If Val(spr(0)) > Val(spr(1)) Then
                    rpn = 1
                ElseIf Val(spr(0)) = Val(spr(1)) Then
                    rpn = 3
                ElseIf Val(spr(0)) < Val(spr(1)) Then
                    rpn = 2
                End If
                If rst = rpn Then num(j) = num(j) + 1
            End If
        Next j
    Next i
    For i = 6 To NumGiocat + 5
        Cells(i, 18) = nome(i - 5)
        Cells(i, 19) = num(i - 5)
    Next i
    
    
    Range("R5:S" & NumGiocat + 5).Sort _
        Key1:=Range("S5"), _
        Order1:=xlDescending, _
        Header:=xlGuess, _
        OrderCustom:=1, _
        MatchCase:=False, _
        Orientation:=xlTopToBottom
    Range("R1").Select
    End Sub

  11. I seguenti utenti hanno dato un "Like"

    ges

  12. #10
    L'avatar di rollis13
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Cordenons
    Messaggi
    821
    Versione Office
    2016 64bit
    Likes ricevuti
    148
    Likes dati
    55

    Re: Classifica auto aggiornante

    Citazione Originariamente Scritto da domen Visualizza Messaggio
    non riesco a inserire il tag vba
    Mi ci è voluto più di una giornata di riposo per capire perché volevi inserire il "tag vba":274::261:

  13. #11
    L'avatar di domen
    Clicca e Apri
    Data Registrazione
    May 2016
    Località
    milan
    Età
    27
    Messaggi
    6
    Versione Office
    2007
    Likes ricevuti
    0
    Likes dati
    0

    Re: Classifica auto aggiornante

    Ciao marius44 e rubik72 ho provato a modificare per adattarla alle mie esigenze ma niente, sono troppo impedito...
    Io ho modificato il file inserendo il numero di colonne e celle che mi servono, e ho messo la classifica in foglio 2. Non è che potreste farmela???
    Ps volevo inserire anche un altro parametro oltre a quelli gia detti, e cioe' che il risultato esatto nelle righe in blu se indovinato da 4 , se solo il pronostico 1 punto, senno' 0 punti. Grazie in anticipo a prescindere.
    #vba
    File Allegati File Allegati

  14. #12

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2815
    Versione Office
    Excel 2013
    Likes ricevuti
    1024
    Likes dati
    982

    Re: Classifica auto aggiornante

    Citazione Originariamente Scritto da domen Visualizza Messaggio
    Ciao marius44 e rubik72 ho provato a modificare per adattarla alle mie esigenze ma niente, sono troppo impedito...
    Io ho modificato il file inserendo il numero di colonne e celle che mi servono, e ho messo la classifica in foglio 2. Non è che potreste farmela???
    Hai cambiato tutti i riferimento:235:. Prova così:
    Codice: 
    Option Explicit
    Option Base 1
    
    
    
    
    Sub classifica()
    Dim nome() As String, num() As Integer, ris() As String
    Dim prn() As String
    Dim i As Integer, j As Integer
    Dim spt() As String, spr() As String, rst As Integer, rpn As Integer
    Dim NumGiocat As Integer
    Dim NumPart As Integer
    
    
    NumGiocat = CInt(InputBox("Inserire il numero di giocatori", "INSERIMENTO", 1))
    NumPart = CInt(InputBox("Inserire il numero delle partite", "INSERIMENTO", 1))
    
    
    
    
    ReDim nome(NumGiocat)
    ReDim num(NumGiocat)
    ReDim ris(NumPart)
    ReDim prn(NumPart, NumGiocat)
    
    
    
    
    For i = 3 To NumGiocat + 2
        nome(i - 2) = Foglio1.Cells(2, i)
        num(i - 2) = 0
    Next i
    For i = 6 To NumPart + 5
        ris(i - 5) = Foglio1.Cells(i, 2)
        For j = 3 To NumGiocat + 2
            prn(i - 5, j - 2) = Foglio1.Cells(i, j)
        Next j
    Next i
    For i = 1 To NumPart
        For j = 1 To NumGiocat
            If ris(i) = prn(i, j) Then
                num(j) = num(j) + 3
            Else
                spt = Split(ris(i), "-") 'divide risultato
                If Val(spt(0)) > Val(spt(1)) Then
                    rst = 1
                ElseIf Val(spt(0)) = Val(spt(1)) Then
                    rst = 3
                ElseIf Val(spt(0)) < Val(spt(1)) Then
                    rst = 2
                End If
                spr = Split(prn(i, j), "-") 'divide pronostico
                If Val(spr(0)) > Val(spr(1)) Then
                    rpn = 1
                ElseIf Val(spr(0)) = Val(spr(1)) Then
                    rpn = 3
                ElseIf Val(spr(0)) < Val(spr(1)) Then
                    rpn = 2
                End If
                If rst = rpn Then num(j) = num(j) + 1
            End If
        Next j
    Next i
    For i = 2 To NumGiocat + 1
        Foglio2.Cells(i, 3) = nome(i - 1)
        Foglio2.Cells(i, 4) = num(i - 1)
    Next i
    
    
    
    
    Foglio2.Range("C2:D" & NumGiocat + 1).Sort _
        Key1:=Range("D2"), _
        Order1:=xlDescending, _
        Header:=xlGuess, _
        OrderCustom:=1, _
        MatchCase:=False, _
        Orientation:=xlTopToBottom
    'Range("R1").Select
    End Sub
    Citazione Originariamente Scritto da domen Visualizza Messaggio
    [...]Ps volevo inserire anche un altro parametro oltre a quelli gia detti, e cioe' che il risultato esatto nelle righe in blu se indovinato da 4 , se solo il pronostico 1 punto, senno' 0 punti. Grazie in anticipo a prescindere.
    #vba
    Non ho capito

  15. #13
    L'avatar di domen
    Clicca e Apri
    Data Registrazione
    May 2016
    Località
    milan
    Età
    27
    Messaggi
    6
    Versione Office
    2007
    Likes ricevuti
    0
    Likes dati
    0

    Re: Classifica auto aggiornante

    [...]Ps volevo inserire anche un altro parametro oltre a quelli gia detti, e cioe' che il risultato esatto nelle righe in blu se indovinato da 4 , se solo il pronostico 1 punto, senno' 0 punti. Grazie in anticipo a prescindere.
    #vba

    che tipo il valore di punti di una partita, (quelle nelle celle blu) valgono 4 punti anziché 3


    PERO' COMUNQUE NON RIESCO A INSERIRE LA MACRO NEL FILE EXCEL. COME DEVO FARE?

  16. #14

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2815
    Versione Office
    Excel 2013
    Likes ricevuti
    1024
    Likes dati
    982

    Re: Classifica auto aggiornante

    Citazione Originariamente Scritto da domen Visualizza Messaggio
    [...]PERO' COMUNQUE NON RIESCO A INSERIRE LA MACRO NEL FILE EXCEL. COME DEVO FARE?
    ALT+F11
    Inserisci modulo
    e incolli il codice

    Citazione Originariamente Scritto da domen Visualizza Messaggio
    [...]che tipo il valore di punti di una partita, (quelle nelle celle blu) valgono 4 punti anziché 3[...]
    se non lo fa qualcuno, appena ho un po di tempo la sistemo.

Discussioni Simili

  1. [Risolto] Classifica auto aggiornante problemi
    Di Whipper nel forum Domande su Excel VBA e MACRO
    Risposte: 5
    Ultimo Messaggio: 13/02/17, 17:02
  2. Auto aggiornamento dati fino a risultato voluto
    Di vrfabio nel forum Domande su Excel VBA e MACRO
    Risposte: 1
    Ultimo Messaggio: 12/10/16, 20:36
  3. Estrapolare una classifica di categoria da una classifica generale
    Di Albyspace nel forum Domande su Excel in generale
    Risposte: 6
    Ultimo Messaggio: 29/09/16, 00:54
  4. Nuova auto
    Di Baloon_50 nel forum Pausa caffè (Off-Topic)
    Risposte: 5
    Ultimo Messaggio: 10/01/16, 00:49
  5. Estrarre dati (modelli Auto) in base alla casa produttrice
    Di Gerardo Zuccalà nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 14/07/15, 14:26

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
  •