formule excel

[giank1966]

Visto ke siete in forma.... possiamo ... (o meglio.. potete!!!) .. risolvere anche questa...

Allego il file di un settore, sempre di 5 concorrenti, stavolta di una gara a coppie.
Come potrete vedere il conteggio è suddiviso i turni, ovvero ogni turno nella colonna pesci vengono inserite le catture effettuate dalla coppia e nella colonna penalità si deve ottenere la classifica del turno in questione (in questo caso il conteggio è "inverso" ... chi prende + pesci rispetto agli altri 4 concorrenti "segna" 1 penalità e a scalare fino al 5 posto e ciò ripetuto per il numero dei turni)
Tenete presente che:
a) non abbiamo un punteggio tecnico e uno effettivo: ma solo quello effettivo quindi le coppie che in ogni singolo turno catturano lo stesso numero di pesci si divideranno le penalità relative.
b) la colonna penalità non può essere ordinata
c) non abbiamo la colonna del punteggio tecnico

Attendo Vostre notizie.... sarà un passeggiata per Voi!!!!
Grazie

Ciao

G


https://rapidshare.com/files/837628507/Calcolo_Punteggio_Gara_a_Coppie.xls

[Flash30005]

Ma... I pesci, non interessano a nessuno?

Prova questa macro

Codice: Seleziona tutto

Sub TrovaD()
Dim Vu(5) As Integer
For CC = 5 To 15 Step 2
PtMax = 0
MPtR = 0
Div = 1
TCr = 0
Cr = 0
    Range(Cells(3, CC), Cells(7, CC)).ClearContents
    For RR1 = 3 To 7
    If Cells(RR1, CC - 1).Value = "" Then GoTo Esci
        If Cells(RR1, CC - 1).Value > PtMax Then PtMax = Cells(RR1, CC - 1).Value
    Next RR1
    For PtR = PtMax To 0 Step -1
        For RR1 = 3 To 7
            If Cells(RR1, CC - 1).Value = PtR Then
                Cr = Cr + 1
                Vu(Cr) = PtR
                If MPtR = PtR Then
                    TCr = TCr + Cr
                    Div = Div + 1
                Else
                    TCr = Cr
                    Div = 1
                End If
                MPtR = PtR
            End If
        Next RR1
    For RP = 3 To 7
        If Vu(Cr) = Cells(RP, CC - 1).Value Then
        If Cells(RP, CC).Value = "" Then Cells(RP, CC).Value = TCr / Div
        End If
    Next RP
Next PtR
Esci:
Next CC
End Sub

Ciao

P.s. Se funziona, nelle stampe delle classifiche, dovrai inserire anche il mio logo

[giank1966]

Ciao Flash.... il logo? Ti faccio un monumento!!!!
Senti... la macro funziona ke è un meraviglia!!! sistema soltanto l'ultimo dettaglio.... il caso in cui tutte e 5 le coppie
hanno ZERO pesci... il risultato è 2,5 mentre deve essere 3 (1+2+3+4+5/5 = 3).

Poi ... viene il bello....
Qui trovi il file ufficiale per la gestione della classifica.... i risultati vengono inseriti nelle cartelle "colore rosso" e "colore nero" (da colonna H riga 8 a riga 12 a colonna Z, poi da riga 14 a 18 etc. etc....)... come procedo per adattare la macro?

Grazie 10000000
Ciao

G


https://rapidshare.com/files/681397413/Classifica_Coppie_Trota_Lago_2012.xls

[Flash30005]

Beh ma se cosa vanno a fare 5 concorrenti ad una gara e nessuno dei cinque non prende nemmeno un pesce?

Ti invio la macro corretta e adattata allo schema da te inviato

Codice: Seleziona tutto

Sub TrovaD()
Dim Vu(5) As Integer
Application.ScreenUpdating = False
Application.Calculation = xlManual
For Ciclo = 8 To 42 Step 6
For CC = 8 To 26 Step 2
PtMax = 0
MPtr = 0
Div = 1
TCr = 0
Cr = 0
    Range(Cells(Ciclo, CC), Cells(Ciclo + 4, CC)).ClearContents
    For RR1 = Ciclo To Ciclo + 4
    If Cells(RR1, CC - 1).Value = "" Then GoTo Esci
        If Cells(RR1, CC - 1).Value > PtMax Then PtMax = Cells(RR1, CC - 1).Value
    Next RR1
    For PtR = PtMax To 0 Step -1
        For RR1 = 8 To 12
            If Cells(RR1, CC - 1).Value = PtR Then
                Cr = Cr + 1
                Vu(Cr) = PtR
                If MPtr = PtR Then
                    TCr = TCr + Cr

                    Div = Div + 1
                Else
                    TCr = Cr
                    Div = 1
                End If
                MPtr = PtR
            End If
        Next RR1
        If MPtr = 0 Then Div = 5
    For RP = Ciclo To Ciclo + 4
        If Vu(Cr) = Cells(RP, CC - 1).Value Then
        If Cells(RP, CC).Value = "" Then Cells(RP, CC).Value = TCr / Div
        End If
    Next RP
Next PtR
Esci:
Next CC
Next Ciclo
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = False
End Sub


Temo, però, che le penalità debbano essere scritte man mano che finisca il turno
quindi la macro non dovrebbe traslare in orizzontale ma in verticale
es.: 1° turno vengono trascritti il numero di pesci da G8 a G12 e G14 a G18, in pratica vinene compilata prima la colonna G da 8 a 42 poi la colonna I da 8 a 42, etc... o sbaglio?
Perché, se è così, la macro va modificata in maniera tale che non appena sono completi i 5 concorrenti di un turno automaticamente vengano trascritte le 5 penalità

Fa sapere
Ciao

[giank1966]

Ciao Flash... Ti ritrasmetto il file... dagli un'occhiata... c'è qualcosa che non "gira" nel verso giusto...
Ctrl+Maius+Z per attivare la macro.

https://rapidshare.com/files/1011845667/Classifica_Coppie_Trota_Lago_2012.xls

Per quanto riguarda la compilazione del file ... purtroppo si compila il file alla fine della gara.... quindi l'inserimento del numero pesci per ogni coppia avviene alla fine e partendo da sx fino a completare i 10 turni di pesca....

.. scusami... magari dico un'idiozia... ma non si potrebbe "assegnare" una macro per ogni settore magari abbinandola ad un pulsante di attivazione (posizionato per esempio in AC7) dopo aver inserito (da sx a dx) i pesci di tutti i turni del settore??

Attendo Tue notizie!!!!
Grazie

Ciao

G

[giank1966]

Ciao Flash... Ti ritrasmetto il file... dagli un'occhiata... c'è qualcosa che non "gira" nel verso giusto...
Ctrl+Maius+Z per attivare la macro.

https://rapidshare.com/files/1011845667/Classifica_Coppie_Trota_Lago_2012.xls

Per quanto riguarda la compilazione del file ... purtroppo si compila il file alla fine della gara.... quindi l'inserimento del numero pesci per ogni coppia avviene alla fine e partendo da sx fino a completare i 10 turni di pesca....

.. scusami... magari dico un'idiozia... ma non si potrebbe "assegnare" una macro per ogni settore magari abbinandola ad un pulsante di attivazione (posizionato per esempio in AC7) dopo aver inserito (da sx a dx) i pesci di tutti i turni del settore??

Attendo Tue notizie!!!!
Grazie

Ciao

G[/quote]


Ciao.... Flash.... pensavo di avere Tue notizie!!!!


Non lasciarmi con la macro a metà!!!!
Grazieeeeeee

[Flash30005]

Ho avuto un po' da fare e mi era anche sfuggito il tuo post
penso di dare un'occhiata al programma nel pomeriggio/sera ma affacciati ogni tanto per avere eventuali delucidazioni

ciao

[Flash30005]

Ho capito dove è il problema, però mi sorge un dubbio su quanto da te descritto nella casella testo relativo al primo turno (dove si hanno due concorrenti con 1 e tre con 0
hai evidenziato i tre valori con zero dicendo
"il 2,4 deve diventare 3
(3+4+5 / 3 = 3)"
ma 3+4+5 (=12) diviso 3 fa 4 e non 3
a meno che non intendevi 2+3+4 (=9) diviso 3 fa 3
quindi in quel caso cosa devo considerare, 3 o 4?
(penso debba essere 4 e non 3 ma vorrei una conferma)

ciao

[giank1966]

Ho avuto un po' da fare e mi era anche sfuggito il tuo post
penso di dare un'occhiata al programma nel pomeriggio/sera ma affacciati ogni tanto per avere eventuali delucidazioni

ciao

grazie Flash... il problema è ke qui in ufficio... siamo IPER-MONITORATI sugli accessi web... in specialmodo sui forum, siti sportivi.. etc. etc..... vabbè....

Attendo fiducioso Tue notizie.....

Grazie

Ciao
G

[giank1966]

.... scusami... vedo ke stai diventanto un mega-esperto anke di classifiche !!!
chiedo venia.... 3+4+5=12 / 3 = 4

[Flash30005]

Non si finisce mai di imparare

Ora dovrebbe essere a posto
Download File

Ho disabilitato il tasto scelta rapida Ctrl+Z
perché avrai tutte le penalità non appena in un settore sarà completìato con i punti (pesci) assegnati

fai sapere

ciao

P.s. Troverai una piccola "sorpresa"

[giank1966]

Sei UN VERO MITO!!!!
Funziona alla PERFEZIONE!!!

https://rapidshare.com/files/3174127275/Powered_by_Flash_-_Classifica_Coppie_Trota_Lago_2012.pdf

la piccola sorpresa sul file è assolutamente DOVEROSA... quindi ho pensato di mettere ancora + in risalto inserendo la nota a piè di pagina!!!

GRAZIE 100000000000

A presto...
Ah... non pensare di esserti liberato così facilmente ...

G

[giank1966]

Ciao... ri-eccomi!!!
Ti allego un template.... semplicemente dovresti adattare la macro per il calcolo esattamente come per il coppie...
in questo caso il calcolo va adeguato a 3 concorrenti
(pleonastico quindi ke le penalità saranno, 1 oppure 1,5 - 2 - 2,5 - 3 o nel caso di 3 ex.equo 2 (1+2+3/3 = 2)

Grazie 10000000


Ciao

G

https://rapidshare.com/files/257768556/Classifica_Box_Trota_Lago_2012_G2_2_.xls

[giank1966]

Spettacolo oggi...
classifica finale di giornata calcolata e controllata in meno di 5 minuti!!!
tieni presente ke prima... ce ne volevano almeno 45 !!!
Grazie

Ciao
G

[Flash30005]

Spettacolo oggi...
classifica finale di giornata calcolata e controllata in meno di 5 minuti!!!

5 minuti

in mezzo secondo vorrai dire!?

Oppure... Avete i Pc a manovella?

Ciao

[giank1966]

Ciao... ri-eccomi!!!
Ti allego un template.... semplicemente dovresti adattare la macro per il calcolo esattamente come per il coppie...
in questo caso il calcolo va adeguato a 3 concorrenti
(pleonastico quindi ke le penalità saranno, 1 oppure 1,5 - 2 - 2,5 - 3 o nel caso di 3 ex.equo 2 (1+2+3/3 = 2)

Grazie 10000000


Ciao

G


5 minuti tra inserimento del numero dei pesci, controllo, stampa ed esposizione della classifica!!!
... no... dai ... il pc è ok...

Grazie ancora....
Ciao

p.s.: hai già adattato il programma anche per il file ke Ti avevo inviato?
https://rapidshare.com/files/257768556/Classifica_Box_Trota_Lago_2012_G2_2_.xls


EDIT Flash: evita di inserire i Tag (Quote o altri) se non necessario altrimenti il post non è molto leggibile

[Flash30005]

Ti invio anche il file precedente nel quale ho corretto una riga codice che faceva rimanere bloccato l'aggiornamento schermo, ora è ok



download file

ciao

[giank1966]

Ottimo.... veramente un grandissimo lavoro!

Te ne sarò sempre grato!!!

grazie e .... a presto!!!

ciaoooo

G

[giank1966]

Ciao Flash, purtroppo mi hanno appena comunicato che per questioni logistiche le gare a box saranno strutturate in maniera diversa rispetto al solito...
Ti trasmetto il template da utilizzare... Ti prego voler adattare il calcolo alla nuova struttura....
Attendo fiducioso la nuova versione!!!

Ancora grazie 1000
Ciao
Giank

n.b.: ho notato che una volta inserito l'ultimo numero (per esempio in Y10) la formula Controllo Penalità per settore (celle H11, J11 etc. etc.) viene cancellata....


https://rapidshare.com/files/324176494/template_Classifica_box_Trota_Lago_2012.xls

[Flash30005]

Spero che cosi vada bene

http://uploading.com/files/73a12maf/template_Classifica_box_Trota_Lago_2012_2.xls/

Ciao

N.B. Evita di quotare i post precedenti se non intendi rimarcare un determinato specifico post o parti di esso
(normalmente si quota quando nel frattempo si sono interposti messaggi di altri utenti)