Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

formule excel

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

Re: formule excel

Postdi giank1966 » 13/04/12 12:24

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!!!! :lol: :lol: :lol:
Grazie

Ciao

G


https://rapidshare.com/files/837628507/Calcolo_Punteggio_Gara_a_Coppie.xls
giank1966
Utente Junior
 
Post: 32
Iscritto il: 05/04/12 11:10

Sponsor
 

Re: formule excel

Postdi Flash30005 » 14/04/12 04:04

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

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 :D
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

Postdi giank1966 » 16/04/12 06:48

Ciao Flash.... il logo? Ti faccio un monumento!!!! :D :D :D
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 :lol: :lol:
Ciao ;) ;)

G


https://rapidshare.com/files/681397413/Classifica_Coppie_Trota_Lago_2012.xls
giank1966
Utente Junior
 
Post: 32
Iscritto il: 05/04/12 11:10

Re: formule excel

Postdi Flash30005 » 16/04/12 11:05

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

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
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

Postdi giank1966 » 16/04/12 13:33

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?? :roll:

Attendo Tue notizie!!!! ;)
Grazie

Ciao

G
giank1966
Utente Junior
 
Post: 32
Iscritto il: 05/04/12 11:10

Re: formule excel

Postdi giank1966 » 18/04/12 11:50

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?? :roll:

Attendo Tue notizie!!!! ;)
Grazie

Ciao

G[/quote]


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

Non lasciarmi con la macro a metà!!!!
Grazieeeeeee :lol: :lol: :lol:
giank1966
Utente Junior
 
Post: 32
Iscritto il: 05/04/12 11:10

Re: formule excel

Postdi Flash30005 » 18/04/12 12:05

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
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

Postdi Flash30005 » 18/04/12 13:25

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
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

Postdi giank1966 » 18/04/12 13:32

Flash30005 ha scritto: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..... :roll:

Grazie ;)

Ciao
G
giank1966
Utente Junior
 
Post: 32
Iscritto il: 05/04/12 11:10

Re: formule excel

Postdi giank1966 » 18/04/12 13:38

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

:P
giank1966
Utente Junior
 
Post: 32
Iscritto il: 05/04/12 11:10

Re: formule excel

Postdi Flash30005 » 18/04/12 15:21

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" ;)
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

Postdi giank1966 » 18/04/12 16:24

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 :lol: :lol:

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

G
giank1966
Utente Junior
 
Post: 32
Iscritto il: 05/04/12 11:10

Re: formule excel

Postdi giank1966 » 18/04/12 16:57

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
:lol: :lol:

Ciao

G

https://rapidshare.com/files/257768556/Classifica_Box_Trota_Lago_2012_G2_2_.xls
giank1966
Utente Junior
 
Post: 32
Iscritto il: 05/04/12 11:10

Re: formule excel

Postdi giank1966 » 22/04/12 19:15

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

Ciao
G
giank1966
Utente Junior
 
Post: 32
Iscritto il: 05/04/12 11:10

Re: formule excel

Postdi Flash30005 » 23/04/12 12:06

giank1966 ha scritto:Spettacolo oggi...
classifica finale di giornata calcolata e controllata in meno di 5 minuti!!!

5 minuti :!: :?: :eeh:

in mezzo secondo vorrai dire!? :roll:

Oppure... Avete i Pc a manovella? :D

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

Postdi giank1966 » 23/04/12 13:21

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
:lol: :lol:

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
giank1966
Utente Junior
 
Post: 32
Iscritto il: 05/04/12 11:10

Re: formule excel

Postdi Flash30005 » 23/04/12 21:10

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
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

Postdi giank1966 » 24/04/12 07:35

Ottimo.... veramente un grandissimo lavoro! :lol: :lol:

Te ne sarò sempre grato!!! ;) ;)

grazie e .... a presto!!!

ciaoooo

G
giank1966
Utente Junior
 
Post: 32
Iscritto il: 05/04/12 11:10

Re: formule excel

Postdi giank1966 » 24/04/12 13:49

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

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
giank1966
Utente Junior
 
Post: 32
Iscritto il: 05/04/12 11:10

Re: formule excel

Postdi Flash30005 » 24/04/12 23:18

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)
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-

PrecedenteProssimo

Torna a Applicazioni Office Windows


Topic correlati a "formule excel":


Chi c’è in linea

Visitano il forum: Nessuno e 12 ospiti