Condividi:        

Piccolo Aiuto Differenza Punteggi

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

Piccolo Aiuto Differenza Punteggi

Postdi Francesco6918 » 17/10/12 01:21

Ciao a tutti gli amici del forum cerco un piccolo aiuto o 3 celle con punteggi variabili tra celle con una differenza sempre di 20 punti;esempio se la cella g4 rispetto alle celle h2, i2 e maggiore di 20 punti mi deve concatenare o prendere come riferimento la cella superiore g3 ecc... (Al contrario con le altre).
Invio un file come esempio.

www.filedropper.com/esempio_1

Saluti
:aaah
Francesco6918
Utente Senior
 
Post: 265
Iscritto il: 04/03/11 11:20

Sponsor
 

Re: Piccolo Aiuto Differenza Punteggi

Postdi Anthony47 » 17/10/12 02:28

Perdona, ma non ho capito la domanda; questi sono i tuoi dati di esempio Immagine

Uploaded with ImageShack.us
Che cosa vorresti ottenere?

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Piccolo Aiuto Differenza Punteggi

Postdi Flash30005 » 17/10/12 03:41

Sicuramente il quesito è risolvibile con una formula

Intanto, però, invio una macro da inserire nel vba del foglio1 (non modulo)
Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
 If Application.Intersect(Target, Range("G4:Q4")) Is Nothing Then Exit Sub
    If Target.Address = "$J$4" Or Target.Address = "$N$4" Then Exit Sub
    Application.EnableEvents = False
    Max1 = 0
    For CC1 = 7 To 9
        If Max1 < Cells(4, CC1).Value Then
            Max1 = Cells(4, CC1).Value
            Col1 = CC1
        End If
    Next CC1
    Max2 = 0
    For CC2 = 11 To 13
        If Max2 < Cells(4, CC2).Value Then
            Max2 = Cells(4, CC2).Value
            Col2 = CC2
        End If
    Next CC2
    Max3 = 0
    For CC3 = 15 To 17
        If Max3 < Cells(4, CC3).Value Then
            Max3 = Cells(4, CC3).Value
            Col3 = CC3
        End If
    Next CC3
    Range("G8").Value = Cells(3, Col1).Value
    Range("L8").Value = Cells(3, Col2).Value
    Range("Q8").Value = Cells(3, Col3).Value
    Application.EnableEvents = True
End Sub


Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Piccolo Aiuto Differenza Punteggi

Postdi Francesco6918 » 17/10/12 11:25

Buongiorno a tutti l esempio N°1 riporta la cella più grande (G4) rispetto alle altre 2 (H4:I4) dunque voglio come riferimento la cella (G3) questo vale al contrario.
Tutto questo deve rientrare quando la cella più grande a come differenza di 20 punti come da esempio (H4).
Spero di essermi spiegato.

Saluti
Francesco6918
Utente Senior
 
Post: 265
Iscritto il: 04/03/11 11:20

Re: Piccolo Aiuto Differenza Punteggi

Postdi Flash30005 » 17/10/12 14:24

La macro che ti ho postato fa proprio questo, l'hai provata?

se hai problemi di incollare i codici scarica questo file test nel quale puoi divertirti a modificare i valori della riga 4 (automaticamente ottieni il risultato nella riga 8.

ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Piccolo Aiuto Differenza Punteggi

Postdi Francesco6918 » 17/10/12 14:35

Ciao flash30005 va bene se impostiamo con la formula e molto più semplice .

Grazie
Francesco6918
Utente Senior
 
Post: 265
Iscritto il: 04/03/11 11:20

Re: Piccolo Aiuto Differenza Punteggi

Postdi Francesco6918 » 17/10/12 14:38

flash30005 impostami la formula
Francesco6918
Utente Senior
 
Post: 265
Iscritto il: 04/03/11 11:20

Re: Piccolo Aiuto Differenza Punteggi

Postdi Flash30005 » 17/10/12 14:46

Francesco6918 ha scritto:Ciao flash30005 va bene se impostiamo con la formula e molto più semplice .



Più semplice di cosa?

L'hai provato il file?
Fa quello che richiedevi?
Non appena digiti un valore nelle celle numeriche ottieni il rislutato voluto?
Hai "faticato" per realizzarlo?

Più semplice di così!!! (?)
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Piccolo Aiuto Differenza Punteggi

Postdi Francesco6918 » 17/10/12 14:51

Si lo provato e va bene vorrei la formula in modo da capire come funziona e posso fare eventuali modifiche molto più semplice

Grazie
Francesco6918
Utente Senior
 
Post: 265
Iscritto il: 04/03/11 11:20

Re: Piccolo Aiuto Differenza Punteggi

Postdi Flash30005 » 17/10/12 15:20

In G8 inserisci questa formula
Codice: Seleziona tutto
=INDICE(G3:I3;0;CONFRONTA(MAX(G4:I4);G4:I4;0))


Puoi copiarla e adattarla a L8 e Q8

ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Piccolo Aiuto Differenza Punteggi

Postdi Francesco6918 » 17/10/12 15:23

Grazie flash30005 molto gentile

Saluti
Francesco6918
Utente Senior
 
Post: 265
Iscritto il: 04/03/11 11:20

Re: Piccolo Aiuto Differenza Punteggi

Postdi Anthony47 » 18/10/12 01:01

Non c' era anche un vincolo di Differenza >20?
Se si, in G8
Codice: Seleziona tutto
=SE(E(G4=MAX($G$4:$I$4);GRANDE($G$4:$I$4;1)>=(GRANDE($G$4:$I$4;2))+20);G3;"")
Va adattata per il secondo e terzo blocco.

Quest'altra (sempre da mettere in G8) e' meno immediata ma puo' essere copiata da G8 su tutti i blocchi descritti, cosa che peraltro e' valida solo col layout che hai presentato:
Codice: Seleziona tutto
=SE(E(G4=MAX(SCARTO(G4;0;1-RESTO(RIF.COLONNA(A1);4);1;3));GRANDE(SCARTO(G4;0;1-RESTO(RIF.COLONNA(A1);4);1;3);1)>=(GRANDE(SCARTO(G4;0;1-RESTO(RIF.COLONNA(A1);4);1;3);2))+20);G3;"")

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Piccolo Aiuto Differenza Punteggi":

aiuto windows 10
Autore: mod360
Forum: Software Windows
Risposte: 1
aiuto installazione
Autore: mod360
Forum: Software Windows
Risposte: 3
aiuto x mobili
Autore: MarioLombardi
Forum: Forum off-topic
Risposte: 8

Chi c’è in linea

Visitano il forum: Nessuno e 45 ospiti