Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

calcola esiti ultime 5 partite

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

calcola esiti ultime 5 partite

Postdi raimea » 08/10/14 20:25

ciao
se possibile, avrei bisogno di una super macro.... :undecided:

vorrei calcolare gli esiti delle ultime 5 partite piu recenti di ogni squadra

in col AD4: in giu ho l'elenco alfabetico di tutte le mie squadre che devo analizzare.

partendo dal "basso" di colonne Al e AN, con le partite piu recenti ,
vorrei andare a ritroso fino a trovare l'esito delle ultime 5 partite
e riportarlo nelle celle di col AE, AF, AG

quindi in AE il numero di quante vinte, AF quante pareggiate , AG quante perse.

la ricerca delle ultime 5 partite di una squadra va fatta sia in col AL che AN
quindi non mi interessa se in casa o fuori casa , ma mi serve l'esito generale
delle ultime 5 partite.

vi allego il file
https://dl.dropboxusercontent.com/u/96374724/ultime%205.rar

grazie
ciao
http://www.lelugarine.eu
S.O. Seven7, Excell 2010
Avatar utente
raimea
Utente Senior
 
Post: 1101
Iscritto il: 11/02/10 07:33
Località: lago

Sponsor
 

Re: calcola esiti ultime 5 partite

Postdi Flash30005 » 09/10/14 00:55

Perché limitare agli ultimi 5 incontri e non a tutti gli incontri già consolidati e fare una percentuale?
esempio se la squadra Pippo ha giocato 9 incontri ne ha vinti 4, pareggiati 2 e persi 3
avresti 44% vittorie, 22% pareggi e il 33% di perdite (resti a parte)

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: calcola esiti ultime 5 partite

Postdi raimea » 09/10/14 05:23

ciao
mi servirebbero solo le ultime 5 per calcolare il "picchetto "forma".

cosa che attualmente calcolo manualmente per la singola partita
che mi interessa , ricavando l'esito ultime 5 , andando in internet a cercarlo.

Immagine

ho pensato che avendo un archivio potrei ricavalo .


grazie
ciao
http://www.lelugarine.eu
S.O. Seven7, Excell 2010
Avatar utente
raimea
Utente Senior
 
Post: 1101
Iscritto il: 11/02/10 07:33
Località: lago

Re: calcola esiti ultime 5 partite

Postdi Flash30005 » 09/10/14 09:47

Prova questa macro
Codice: Seleziona tutto
Sub SaluteSq()
Dim FA As Worksheet, myMatch
Set FA = Sheets("Archivio")
URAD = FA.Range("AD" & Rows.Count).End(xlUp).Row
FA.Range("AE4:AG" & URAD).ClearContents
URAL = FA.Range("AL" & Rows.Count).End(xlUp).Row
For RAL = URAL To 4 Step -1
    If FA.Range("AL" & RAL).Value <> 0 Then
        UREFF = RAL
        Exit For
End If
Next RAL
Application.ScreenUpdating = False
Application.Calculation = xlManual
For RAD = 4 To URAD
    NomeSq = FA.Range("AD" & RAD).Value
    ContaP = 0
    For RAL = UREFF To 4 Step -1
        Esito = ""
        If NomeSq = FA.Range("AL" & RAL).Value Then
            Esito = FA.Range("AM" & RAL).Value
        End If
        If NomeSq = FA.Range("AN" & RAL).Value Then
            Esito = UCase(FA.Range("AO" & RAL).Value)
        End If
        If Esito <> "" Then
            ContaP = ContaP + 1
            Select Case Esito
                Case "V"
                Col = 31
                Case "X"
                Col = 32
                Case "P"
                Col = 33
            End Select
            FA.Cells(RAD, Col).Value = FA.Cells(RAD, Col).Value + 1
            If ContaP >= 5 Then GoTo SaltaRad
        End If
    Next RAL
SaltaRad:
Next RAD
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub


Impiega un po' di tempo anche se ho cercato di ridurre il tempo di esecuzione con la ricerca dell'ultima riga effettiva nella colonna AL dove hai delle formule fino alla riga 40000 quando gli incontri attuali popolano fino alla riga 5000

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: calcola esiti ultime 5 partite

Postdi raimea » 09/10/14 10:02

ciao
è vero ho messo formule fino riga 40000
xche il fgl archivio si amplia ogni giorno, quindi ho dovuto restare di manica larga,
appena posso la macro e faccio sapere
grazie
http://www.lelugarine.eu
S.O. Seven7, Excell 2010
Avatar utente
raimea
Utente Senior
 
Post: 1101
Iscritto il: 11/02/10 07:33
Località: lago

Re: calcola esiti ultime 5 partite

Postdi raimea » 09/10/14 17:30

ciao
PERFETTA... :eeh: :eeh: :eeh:

considerando il super lavoro che deve svolgere
il tempo che ci impiega e' nulla....


grazie

ciao
http://www.lelugarine.eu
S.O. Seven7, Excell 2010
Avatar utente
raimea
Utente Senior
 
Post: 1101
Iscritto il: 11/02/10 07:33
Località: lago


Torna a Applicazioni Office Windows


Topic correlati a "calcola esiti ultime 5 partite":


Chi c’è in linea

Visitano il forum: patel e 13 ospiti