Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

formule excel per sostituzioni automatiche fantacalcio

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

formule excel per sostituzioni automatiche fantacalcio

Postdi marmotta87 » 13/02/13 22:40

Ciao a tutti, sono nuovo nel forum, avrei bisogno un super aiuto!!!
Ho creato un excel per calcolare i voti del fantacalcio di ogni formazione...ma non riesco a trovare una formula che mi faccia automaticamente il calcolo del punteggio facendo automaticamente le eventuali sostituzioni, che siano massimo 3.
Per farvi capire meglio posso inviarvi l'excel che ho creato fino ad ora (però non so come si faccia a condividerlo con voi).
grazie a tutti per l'aiuto!!!
marmotta87
Utente Junior
 
Post: 13
Iscritto il: 11/02/13 00:23

Sponsor
 

Re: formule excel per sostituzioni automatiche fantacalcio

Postdi Anthony47 » 13/02/13 23:50

Ciao marmotta; per allegare un file guarda qui: viewtopic.php?f=26&t=80395
(forse il sito piu' semplice da usare e' http://www.filedropper.com/)

Ciao, ti aspettiamo.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13894
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: formule excel per sostituzioni automatiche fantacalcio

Postdi marmotta87 » 15/02/13 23:40

grazie anthony molto gentile, ecco qui il file:

http://www.filedropper.com/cartel2_1

per ora le sostituzioni le faccio manualmente, come si vede nel file, inserendo nei punteggi subentrati i cambi....
vorrei automatizzare il tutto, e magari inserendo il calcolo automatico del modificatore di difesa..............
grazie
marmotta87
Utente Junior
 
Post: 13
Iscritto il: 11/02/13 00:23

Re: formule excel per sostituzioni automatiche fantacalcio

Postdi Anthony47 » 16/02/13 02:58

Perdona, ma non mi occupo ne' di calcio ne' di fantacalcio (sono cose diverse, vero? :D ), pertanto non ho idea di che cosa ci sia da fare.
Se non arrivano contributi da persone che conoscono le regole allora suggerisco di spiegare un po' di piu'.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13894
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: formule excel per sostituzioni automatiche fantacalcio

Postdi marmotta87 » 16/02/13 17:46

hai ragione, provo a illustrarti bene di cosa ho bisogno:
nella colonna E inserisco io i giocatori titolari e nella G ci sono i voti rispettivi da calcolare, nella colonna H i panchinari e nella colonna J i loro voti.
Io ho bisogno di fare la somma della colonna G, ma se un titolare non ha giocato(quindi nella colonna G non ha il voto)al posto di quel giocatore entra uno della panchina, e si conta la cella rispettiva della colonna J,sempre rispettando i ruoli(dalla riga 4 a 6 portieri, dalla 8 a 15 difensori, dalla 17 a 24 centrocampisti, dalla 26 a 31 attaccanti), se non entra il primo panchinaro entrerà il secondo, per un massimo di tre sostituti ai titolari.
spero di essere stato abbastanza chiaro.....grazie mille!
marmotta87
Utente Junior
 
Post: 13
Iscritto il: 11/02/13 00:23

Re: formule excel per sostituzioni automatiche fantacalcio

Postdi Flash30005 » 17/02/13 01:05

Il file ha il collegamento ad un altro file che non hai inviato
ma in colonna J esiste solo un punteggio (di Lodi) e, nel file inviato, non manca alcun titolare cosa che avresti dovuto mettere per fare un esempio pratico
come dovremmo comportarci a parte la tua "chiarezza"?

ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: formule excel per sostituzioni automatiche fantacalcio

Postdi marmotta87 » 17/02/13 18:09

chiedo scusa ma pensavo di avere caricato il file in modo corretto, provo a ricaricarlo ancora in versione excel 97-2003.
nel file caricato c'è l'esempio di 2 sostituzioni da fare.

http://www.filedropper.com/formazione

<a href=http://www.filedropper.com/formazione><img src=http://www.filedropper.com/download_button.png width=127 height=145 border=0/></a><br /><div style=font-size:9px;font-family:Arial, Helvetica, sans-serif;width:127px;font-color:#44a854;> <a href=http://www.filedropper.com >file upload</a></div>

provo a mettere tutti e due i link possibili...
grazie x l'aiuto!
marmotta87
Utente Junior
 
Post: 13
Iscritto il: 11/02/13 00:23

Re: formule excel per sostituzioni automatiche fantacalcio

Postdi Flash30005 » 17/02/13 22:57

Proviamo a vedere se così va bene
Codice: Seleziona tutto
Sub InsPanch()

ContaA = 0
ContaG = 0
For RR = 4 To 6
If Range("G" & RR).Value = "-" Then ContaA = ContaA + 1
If Range("E" & RR).Value <> "" Then ContaG = ContaG + 1
Next RR
For RR = 4 To 6
    If ContaA > 0 Then
        MyC = Evaluate("COUNTIF(E4:E6,H" & RR & ")")
        If MyC = 0 Then
            If Range("J" & RR).Value <> "-" And Range("J" & RR).Value <> "" Then
                ContaA = ContaA - 1
                Range("E" & ContaG + 4).Value = Range("H" & RR).Value
                Range("G" & ContaG + 4).Value = Range("J" & RR).Value
                ContaG = ContaG + 1
            End If
        End If
    End If
Next RR


ContaA = 0
ContaG = 0
For RR = 8 To 15
If Range("G" & RR).Value = "-" Then ContaA = ContaA + 1
If Range("E" & RR).Value <> "" Then ContaG = ContaG + 1
Next RR
For RR = 8 To 15
    If ContaA > 0 Then
        MyC = Evaluate("COUNTIF(E8:E15,H" & RR & ")")
        If MyC = 0 Then
            If Range("J" & RR).Value <> "-" And Range("J" & RR).Value <> "" Then
                ContaA = ContaA - 1
                Range("E" & ContaG + 8).Value = Range("H" & RR).Value
                Range("G" & ContaG + 8).Value = Range("J" & RR).Value
                ContaG = ContaG + 1
            End If
        End If
    End If
Next RR

ContaA = 0
ContaG = 0
For RR = 17 To 24
If Range("G" & RR).Value = "-" Then ContaA = ContaA + 1
If Range("E" & RR).Value <> "" Then ContaG = ContaG + 1
Next RR
For RR = 17 To 24
    If ContaA > 0 Then
        MyC = Evaluate("COUNTIF(E17:E24,H" & RR & ")")
        If MyC = 0 Then
            If Range("J" & RR).Value <> "-" And Range("J" & RR).Value <> "" Then
                ContaA = ContaA - 1
                Range("E" & ContaG + 17).Value = Range("H" & RR).Value
                Range("G" & ContaG + 17).Value = Range("J" & RR).Value
                ContaG = ContaG + 1
            End If
        End If
    End If
Next RR

ContaA = 0
ContaG = 0
For RR = 26 To 31
If Range("G" & RR).Value = "-" Then ContaA = ContaA + 1
If Range("E" & RR).Value <> "" Then ContaG = ContaG + 1
Next RR
For RR = 26 To 31
    If ContaA > 0 Then
        MyC = Evaluate("COUNTIF(E26:E31,H" & RR & ")")
        If MyC = 0 Then
            If Range("J" & RR).Value <> "-" And Range("J" & RR).Value <> "" Then
                ContaA = ContaA - 1
                Range("E" & ContaG + 26).Value = Range("H" & RR).Value
                Range("G" & ContaG + 26).Value = Range("J" & RR).Value
                ContaG = ContaG + 1
            End If
        End If
    End If
Next RR

End Sub


Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: formule excel per sostituzioni automatiche fantacalcio

Postdi Anthony47 » 17/02/13 23:44

Vedi se l' approccio di Flash (sopra) risolve il problema.
La mia proposta e' che cominci a inserire in colonna A il ruolo del giocatore (ad esempio P per portiere, D per difensore; l' importante e' che siano sigle diverse e presenti accanto a ogni giocatore).
Poi un una colonna libera calcoli quanti di quei ruoi sono senza punteggio; io ho usato la colonna P, quindi in P4 ho inserito la formua
Codice: Seleziona tutto
=SOMMA(($A$4:$A$31=A4)*($G$4:$G$31="-"))
Da confermare con Contr-Maiusc-Enter, non il solo Enter.
Si copia poi la formula verso il basso.

Nella colonna successiva (quindi partendo da Q4) ho calcolato i punteggi sostitutivi, usando la formula
Codice: Seleziona tutto
=SE(E(SOMMA(--(A$3:A3=A4)*(G$3:G3="-"))<P4;CONTA.NUMERI(Q$1:Q3)<3);SE(E(J4<>"-";J4>0);J4;"");"")
Sempre da confermare con Contr-Maiusc-Enter.
Copiandola verso il basso si otterranno i punteggi da prendere in sostituzione, rispettando il ruolo e max 3 punteggi.

Fai sapere se e' applicabile.
Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13894
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: formule excel per sostituzioni automatiche fantacalcio

Postdi Anthony47 » 18/02/13 00:23

Nel caso sia preferibile una macro, suggerisco questa (ad esempio Flash mi pare che non controlli il limite di sostituzioni per ruolo):
Codice: Seleziona tutto
Sub PuPank()
Dim I As Long, LastA As Long, CInd As Long, Ruol As Long, _
    LastInd As Long, Miss As Long, Repl As Long, TRep As Long
Const TMag = "G"    '<< La colonna con i puntaggi dei Titolari
Const PMag = "J"    '<< La colonna coi punteggi dei sostituti
Const RepMag = "V"  '<< La colonna dove saranno inseriti i punteggi sostitutivi

CInd = 4
LastA = Cells(Rows.Count, "A").End(xlUp).Row
Cells(CInd, RepMag).Resize(LastA - CInd + 1).Clear
'
For Ruol = 1 To 4
    LastInd = Cells(CInd, "A").End(xlDown).Row
    Repl = 0
    Miss = Application.WorksheetFunction.CountIf( _
            Range(TMag & CInd).Resize(LastInd - CInd + 1, 1), "-")
    For I = CInd To LastInd
        If I > LastA Then Exit For
        If Repl < Miss And Val(Cells(I, PMag).Value) > 0 And TRep < 3 Then
            Cells(I, "V").Value = Cells(I, PMag)
            Repl = Repl + 1
            TRep = TRep + 1
        End If
    Next I
    CInd = I + 1
    If I > LastA Then Exit For
Next Ruol
End Sub

Lavora sul tracciato dati originale di marmotta.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13894
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: formule excel per sostituzioni automatiche fantacalcio

Postdi marmotta87 » 18/02/13 21:45

Ringrazio per le risposte di flash e anthony, in quella di flash l'errore è che mi calcola tutti i giocatori che hanno preso il voto compresi quelli sostituti che non devono essere calcolati, ad esempio se ho tutti i difensori titolari che hanno il voto, i difensori sostituti non devono essere calcolati, invece con questa macro mi calcola tutti...
in quella di anthony mi esce errore 400....
marmotta87
Utente Junior
 
Post: 13
Iscritto il: 11/02/13 00:23

Re: formule excel per sostituzioni automatiche fantacalcio

Postdi Anthony47 » 18/02/13 23:03

Azz... l' ho provato sul file dopo che avevo inserito in colonna A i ruoli!
Modifica la riga LastA = Cells(Rows.Count, "A").End(xlUp).Row in
LastA = Cells(Rows.Count, "B").End(xlUp).Row

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13894
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: formule excel per sostituzioni automatiche fantacalcio

Postdi Flash30005 » 18/02/13 23:46

Leggi la correzione di Anthony

marmotta87 ha scritto:in quella di flash l'errore è che mi calcola tutti i giocatori che hanno preso il voto compresi quelli sostituti che non devono essere calcolati

La macro non aggiunge sostituti se tutti i voti (valori) in G ma solo se in G c'è il simbolo "-"
Per esempio Dainelli ha il segno "-" quindi aggiunge Masiello
se inserisco in colonna G un 6 a Dainelli e ripeto la macro Masiello non viene inserito
Ora non capisco cosa viene aggiunto che non dovrebbe

ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: formule excel per sostituzioni automatiche fantacalcio

Postdi marmotta87 » 20/02/13 01:41

Si ok, il problema è che anche se nella colonna E non è inserito nessuno giocatore, quindi non deve essere sostituito nessuno con nessuno, mi aggiunge lo stesso i valori.
i valori devono essere aggiunti solamente se in colonna E esiste un giocatore e se in colonna G c'è: "-", se E è vuota non deve essere contata...
marmotta87
Utente Junior
 
Post: 13
Iscritto il: 11/02/13 00:23

Re: formule excel per sostituzioni automatiche fantacalcio

Postdi Flash30005 » 20/02/13 07:56

Infatti in E non aggiunge nessuno se in G non ci sono segni - (meno)

Per maggior chiarezza invio questo file originale con la macro che si attiva premendo i tasti Ctrl+m

Se trovi anomalie sei pregato di rispedirmelo evidenziando l'anomalia direttamente sul foglio

ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: formule excel per sostituzioni automatiche fantacalcio

Postdi Anthony47 » 20/02/13 15:37

In relazione alla correzione pubblicata qui: viewtopic.php?f=26&t=98402&p=566088#p565994
Mi accorgo solo ora che la macro che avevo pubblicato contiene due volte il riferimento alla colonna A, che in origine e' vuota (l' avevo usata per inserire il ruolo dei giocatori, utile per la formula che avevo pubblicato); quindi una seconda riga della macro doveva essere corretta per dare il risultato corretto.
La macro finale e' questa (le due righe inizialmente errate sono marcate >>>):
Codice: Seleziona tutto
    Sub PuPank()
    Dim I As Long, LastA As Long, CInd As Long, Ruol As Long, _
        LastInd As Long, Miss As Long, Repl As Long, TRep As Long
    Const TMag = "G"    '<< La colonna con i puntaggi dei Titolari
    Const PMag = "J"    '<< La colonna coi punteggi dei sostituti
    Const RepMag = "V"  '<< La colonna dove saranno inseriti i punteggi sostitutivi

    CInd = 4
    LastA = Cells(Rows.Count, "B").End(xlUp).Row              '>>>
    Cells(CInd, RepMag).Resize(LastA - CInd + 1).Clear
    '
    For Ruol = 1 To 4
        LastInd = Cells(CInd, "B").End(xlDown).Row               '>>>
        Repl = 0
        Miss = Application.WorksheetFunction.CountIf( _
                Range(TMag & CInd).Resize(LastInd - CInd + 1, 1), "-")
        For I = CInd To LastInd
            If I > LastA Then Exit For
            If Repl < Miss And Val(Cells(I, PMag).Value) > 0 And TRep < 3 Then
                Cells(I, "V").Value = Cells(I, PMag)
                Repl = Repl + 1
                TRep = TRep + 1
            End If
        Next I
        CInd = I + 1
        If I > LastA Then Exit For
    Next Ruol
    End Sub
:oops: :oops:

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13894
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: formule excel per sostituzioni automatiche fantacalcio

Postdi marmotta87 » 20/02/13 20:42

Ah ecco, l'excel che possiedi tu non è lo stesso su cui lavoro io, perchè c'era stato il problema di caricamento....
ti invio il file definitivo(dove la tua macro non funziona perchè come ti dicevo inserisce i voti quando c'è il "-", e quindi sempre in questo excel)

http://www.filedropper.com/formazionev2_1

Ho aggiunto la pagina "pagelle" da dove prendo i voti.
Quello che mi interessa per ora è che la sostituzione avvenga solamente quando in E esiste un giocatore e in G non ci sia un valore, se E è vuota non deve avvenire niente.
Inoltre come diceva anthony ho visto che non c'è il limite massimo di 3 sostituzioni, potresti metterlo per favore?
Se noti ho inserito un CALCOLA che servirà a eseguire il calcolo dei voti, e un AZZERA.
L'AZZERA mi servirà a annullare la macro che mi calcola i voti, come posso fare???

grazie Flash
marmotta87
Utente Junior
 
Post: 13
Iscritto il: 11/02/13 00:23

Re: formule excel per sostituzioni automatiche fantacalcio

Postdi marmotta87 » 20/02/13 20:45

Ciao Anthony, guarda il nuovo file che ho caricato, la macro che mi hai inviato tu non funziona in questo....
marmotta87
Utente Junior
 
Post: 13
Iscritto il: 11/02/13 00:23

Re: formule excel per sostituzioni automatiche fantacalcio

Postdi Flash30005 » 20/02/13 21:09

Il file sul quale ho lavorato non me lo sono inventato: è il file che hai inviato tu
Quindi, in futuro, sei pregato di non farci perdere tempo inutilmente: il tempo è la cosa più preziosa che ha una persona, quindi rispettalo!
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: formule excel per sostituzioni automatiche fantacalcio

Postdi marmotta87 » 20/02/13 21:18

Si hai ragione, vi chiedo scusa, ma non è stata mia intenzione farvi perdere tempo, c'era stato il disguido sul caricamento che non riuscivo all'inizio se ti ricordi, nel frattempo è stato modificato, ma ho caricato quello vecchio....
perdonami ma è la prima volta che ho a che fare con un forum e le sue funzionalità, e non credevo ci fossero persone disponibili come voi...ho sbagliato e vi chiedo perdono
marmotta87
Utente Junior
 
Post: 13
Iscritto il: 11/02/13 00:23

Prossimo

Torna a Applicazioni Office Windows


Topic correlati a "formule excel per sostituzioni automatiche fantacalcio":


Chi c’è in linea

Visitano il forum: Nessuno e 14 ospiti