Valutazione 4.87/ 5 (100.00%) 5838 voti

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: 147
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
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: 13885
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
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: 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: 147
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
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: 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: 147
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: 147
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
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: 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: 147
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
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: Piccolo Aiuto Differenza Punteggi

Postdi Francesco6918 » 17/10/12 15:23

Grazie flash30005 molto gentile

Saluti
Francesco6918
Utente Senior
 
Post: 147
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
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: 13885
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Piccolo Aiuto Differenza Punteggi":


Chi c’è in linea

Visitano il forum: Nessuno e 11 ospiti