Condividi:        

Formula Excel (piccolo aiuto)

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

Formula Excel (piccolo aiuto)

Postdi Lucio Peruggini » 17/12/12 16:28

Gentilmente, qual è la formula da adottare?
In colonna “F” e in corrispondenza dell’evento uscito in colonna “D” facendo riferimento alla colonna “A”, dovrei marcare il ritardo da un evento all’altro come da foto e file allegati.
Il tutto partendo dalla riga 2; esempio come da foto:

A304 – A284 =20 da assegnare in colonna “F”.
A308 – A304 =4
A316 – A308=8
A319 – A316=3 etc.

https://dl.dropbox.com/u/18220462/FILE/ ... Cicli.xlsx

https://dl.dropbox.com/u/18220462/IMMAG ... 0Ciclo.PNG

Grazie
Lucio P.
Versione Office - 2013
Lucio Peruggini
Utente Senior
 
Post: 896
Iscritto il: 24/01/11 16:23

Sponsor
 

Re: Formula Excel (piccolo aiuto)

Postdi wallace&gromit » 17/12/12 17:04

magari qualcuno ha un'idea migliore, io intanto risolverei così:
in E2 inserisci:
Codice: Seleziona tutto
=SE(D1<>"";1;E1+1)

e applichi un formato condizionale, selezioni "la formula è":
Codice: Seleziona tutto
=$D2=""
e applichi testo di colore bianco
trascini verso il basso.
Avrai una colonna con numeri progressivi che però rimarranno nascosti fino a quando nella cella adiacente è presente un valore, in seguito si azzerano e ricomincia la progressione
Office2016 + 2019 su win11
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2174
Iscritto il: 16/01/12 14:21

Re: Formula Excel (piccolo aiuto)

Postdi Lucio Peruggini » 17/12/12 19:21

wallace, GRAZIE!!!

Ho preferito lasciare tutti i ritardi visibili e, all'occorrenza mi basta togliere le celle vuote in "D" per ottenere i risultati solamente degli eventi interessati.
Ciao
Lucio P.
Versione Office - 2013
Lucio Peruggini
Utente Senior
 
Post: 896
Iscritto il: 24/01/11 16:23

Re: Formula Excel (piccolo aiuto)

Postdi Lucio Peruggini » 18/12/12 14:21

https://dl.dropbox.com/u/18220462/IMMAG ... SCO%20.PNG

Ciao a tutti, c'è un modo per marcare anche l'asterisco nella successiva cella? Nell'immagine allegata si può vedere la formula inserita che è:

=SE(E(B31=B32;E31=E32);"*";"")

Intendo in "G32", ma i gruppi potrebbero anche essere tre o quattro e quindi, le due o tre o quattro celle consecutive devono avere tutte l'asterisco.

Grazie
Lucio P.
Versione Office - 2013
Lucio Peruggini
Utente Senior
 
Post: 896
Iscritto il: 24/01/11 16:23

Re: Formula Excel (piccolo aiuto)

Postdi wallace&gromit » 18/12/12 14:38

ecco una formula che potresti inserire in g32 (non è proprio bellissima, magari qualcuno sa fare di meglio).
Codice: Seleziona tutto
=SE(O(E(B31=B32;E31=E32);E(B32=B33;E32=E33));"*";"")
Office2016 + 2019 su win11
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2174
Iscritto il: 16/01/12 14:21

Re: Formula Excel (piccolo aiuto)

Postdi Lucio Peruggini » 18/12/12 15:00

Ciao wallace, non va bene.

Allego il file completo in modo da poter fare delle prove.

Ora, in colonna "G" ci sono le formule che marcano con asterisco i valori consecutivi uguali sia di "B" che "G".
Sotto questi asterischi e per ogni gruppo (uno, due, tre, quattro asterischi), bisogna aggiungere quello mancante che è la richiesta fatta.

In pratica, laddove vi è un asterisco bisogna che ci sia anche l'altro; dove c'è ne sono due ne manca uno, il terso; così per gli altri.

https://dl.dropbox.com/u/18220462/FILE/ ... li%29.xlsx

Andrebbe bene anche una macro.

ciao
Lucio P.
Versione Office - 2013
Lucio Peruggini
Utente Senior
 
Post: 896
Iscritto il: 24/01/11 16:23

Re: Formula Excel (piccolo aiuto)

Postdi wallace&gromit » 18/12/12 15:51

allora non capisco cosa vuoi fare.
La mia formula guarda se ci sono valori identici nella riga superiore o in quella inferiore alla riga di riferimento.
Se sì inserisce un asterisco.
In questo modo l'asterisco appare tante volte quante sono le righe identiche.
Office2016 + 2019 su win11
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2174
Iscritto il: 16/01/12 14:21

Re: Formula Excel (piccolo aiuto)

Postdi Lucio Peruggini » 18/12/12 18:44

Partendo da G12 così come vedi nel foglio allegato, fai conto di non avere nessun asterisco.
La formula che ho chiesto dovrebbe inserire gli asterischi a tutte quelle righe o celle nelle quali si trovano valori uguali sia in B che E.

Infatti, la prima coppia di asterischi va a posizionarsi in G31:G32.
La seconda coppia di asterischi va a posizionarsi in G67:68 e G69:G70.
La terza la trovi in G74:G75.
Cosi per le altre celle di identico valore.
Ciao
Lucio P.
Versione Office - 2013
Lucio Peruggini
Utente Senior
 
Post: 896
Iscritto il: 24/01/11 16:23

Re: Formula Excel (piccolo aiuto)

Postdi wallace&gromit » 18/12/12 21:49

la mia formula fa proprio questo, cosa non funziona a te?
Purtoppo da casa non posso allegarti il file, ma prova ancora a inserire la formula, garantisco che a me funziona.
Office2016 + 2019 su win11
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2174
Iscritto il: 16/01/12 14:21

Re: Formula Excel (piccolo aiuto)

Postdi Lucio Peruggini » 18/12/12 22:23

wallace, scusami!

Funziona tutto perfettamente; sbagliavo io inserendo in G12 dati errati.
Grazie!!!
Lucio P.
Versione Office - 2013
Lucio Peruggini
Utente Senior
 
Post: 896
Iscritto il: 24/01/11 16:23

Re: Formula Excel (piccolo aiuto)

Postdi Anthony47 » 18/12/12 22:47

Sbaglio o c' e' un disallineamento di 1 riga tra quanto richiesto e quanto calcolato? Se Si, potrebbe essere corretto usando questa variante in G12 e sottostanti:
Codice: Seleziona tutto
=SE(O(E(B12=B13;E12=E13);E(B11=B12;E11=E12));"*";"")


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

Re: Formula Excel (piccolo aiuto)

Postdi Lucio Peruggini » 18/12/12 23:10

E' vero ma non mi sono preoccupato più del dovuto visto che marcava l'asterisco nelle giuste posizioni.
Ho corretto, comunque, con la tua formula.
Ciao
Lucio P.
Versione Office - 2013
Lucio Peruggini
Utente Senior
 
Post: 896
Iscritto il: 24/01/11 16:23

Re: Formula Excel (piccolo aiuto)

Postdi Lucio Peruggini » 19/12/12 00:03

Ciao Anthony
Una ulteriore cortesia se possibile.

Mi chiedo se con le formule si possono diversificare i gruppi di asterischi mettendo:

In colonna "G" solamente gli asterischi per le coppie cioè due eventi uguali di
"B e E", riga 31; 67; 69 etc.
In colona "H" i gruppi che contengono tre asterischi sempre con riferimento a
"B e E", riga 116; 129; 133 etc.
In colonna "I" idem per quattro asterischi, riga 300; 395; 505 etc.
In colonna "J" per cinque asterischi, riga 356; 395; 505.

Con le formule così immesse, potrei adoperarle su diversi fogli di lavoro.

Ciao
Lucio P.
Versione Office - 2013
Lucio Peruggini
Utente Senior
 
Post: 896
Iscritto il: 24/01/11 16:23

Re: Formula Excel (piccolo aiuto)

Postdi Lucio Peruggini » 19/12/12 00:55

Scusa Anthony, se non hai ancora messo mano alle formule, potrei utilizzare queste due macro mi sembra fatte da Flesh. Svolgono il lavoro che ho chiesto.

Poiché circa un mese e mezzo or sono ho formattato il PC perdendo un bel po di lavoro ho ritrovato le macro su un CD dove avevo memorizzato alcuni lavori.

Unico inconveniente: le macro mi formattano le colonne A1:F11 e anche la colonna J 1:11.

E' possibile rimediare lasciando libere le prime 11 righe dove ho dei dati importanti?

Codice: Seleziona tutto
Sub ColoraSe4()
    Worksheets("Attuali").Select
    UR = Range("A" & Rows.Count).End(xlUp).Row
    Columns("A:F").Interior.ColorIndex = xlNone
    Columns("A:G").Font.ColorIndex = 0
    Columns("G:G").Clear
    Dim VR(10) As String
    For RR = 8 To UR - 1
    For ResetVR = 1 To 10
    VR(ResetVR) = ""
    Next ResetVR
    RF = RR
    RI = RR
        Str1 = Range("A" & RR).Value & Range("D" & RR).Value & Range("E" & RR).Value & Range("F" & RR).Value
        Conta = 1
        VR(Conta) = Range("B" & RR).Value
        For RR2 = RR + 1 To UR
            Str2 = Range("A" & RR2).Value & Range("D" & RR2).Value & Range("E" & RR2).Value & Range("F" & RR2).Value
            VR(Conta + 1) = Range("B" & RR2).Value
            If Str1 <> Str2 Then GoTo SaltaRR
            For RC = 1 To Conta
                For RC2 = RC + 1 To Conta + 1
                    If VR(RC) = VR(RC2) Then GoTo SaltaRR
                Next RC2
            Next RC
                RF = RR2
                RR = RR2
                Conta = Conta + 1
        Next RR2
SaltaRR:
    ColR = xlNone
    Select Case Conta
    Case 2
    ColR = 6
    Case 3
    ColR = 40
    Case 4
    ColR = 48
    Case 5
    ColR = 33
    Case 6
    ColR = 44
    Case 7
    ColR = 50
    Case 8
    ColR = 3
    Case 9
    ColR = 41
    End Select

    Range("A" & RI & ":F" & RF).Interior.ColorIndex = ColR
    If Conta > 1 Then
    Range("G" & RI & ":G" & RF).Value = Conta
    Range("G" & RI + 1 & ":G" & RF).Font.ColorIndex = 2
    End If
    RR = RF
    Next RR
    End Sub




Sub ColoraSe3()
    Worksheets("Attuali").Select
    UR = Range("A" & Rows.Count).End(xlUp).Row
    Columns("A:F").Interior.ColorIndex = xlNone
    Columns("A:F").Font.ColorIndex = 0
    Columns("J:J").Clear
    For RR = 8 To UR - 1
    RF = RR
    RI = RR
    AC = 0
    AggCol = Range("B" & RR).Value
        Str1 = Range("A" & RR).Value & Range("B" & RR).Value & Range("D" & RR).Value & Range("E" & RR).Value & Range("F" & RR).Value
        Conta = 1
        For RR2 = RR + 1 To UR
            Str2 = Range("A" & RR2).Value & Range("B" & RR2).Value & Range("D" & RR2).Value & Range("E" & RR2).Value & Range("F" & RR2).Value
            If Str1 <> Str2 Then GoTo SaltaRR
                RF = RR2
                RR = RR2
                Conta = Conta + 1
        Next RR2

SaltaRR:
    Select Case AggCol
    Case "Ba"
    AC = 0
    Case "Ca"
    AC = 9
    Case "Fi"
    AC = 10
    Case "Ge"
    AC = 11
    Case "Mi"
    AC = 12
    Case "Na"
    AC = 13
    Case "Pa"
    AC = 14
    Case "Ro"
    AC = 15
    Case "To"
    AC = 16
    Case "Ve"
    AC = 17
    End Select
    ColR = xlNone
    Select Case Conta
    Case 2
    ColR = 6
    Case 3
    ColR = 43
    Case 4
    ColR = 48
    Case 5
    ColR = 33
    End Select

    If ColR <> xlNone Then
    ColR = (ColR + AC) Mod 49
    If ColR = 0 Or ColR = 1 Then ColR = ColR + 10
    End If


    Range("A" & RI & ":F" & RF).Interior.ColorIndex = ColR
    If Conta > 1 Then
    Range("J" & RI & ":J" & RF).Value = Conta
    Range("J" & RI + 1 & ":J" & RF).Font.ColorIndex = 2
    End If
    If ColR = 11 Or ColR = 9 Or ColR = 13 Or ColR = 5 Or ColR = 21 Then
    Range("A" & RI & ":F" & RF).Font.ColorIndex = 2
    End If
    RR = RF
    Next RR
    End Sub



Tolgo il "mi sembra fatte da Flash"

Sono sue!!!

Ciao
Lucio P.
Versione Office - 2013
Lucio Peruggini
Utente Senior
 
Post: 896
Iscritto il: 24/01/11 16:23

Re: Formula Excel (piccolo aiuto)

Postdi Flash30005 » 19/12/12 07:10

Se la macro funziona, non entro nel merito anche se sono stato io a crearla (se è come dici Flesh [carne] non sono stato io visto che mi chiamo Flash [lampo])
è sufficiente cambiare l'inizio riga dalla riga 8 attuale a 12 quindi (per lasciare la testata di 11 righe)
dove trovi
Codice: Seleziona tutto
    For RR = 8 To UR - 1

inserirai
Codice: Seleziona tutto
    For RR = 12 To UR - 1

che trovi in due punti della macro

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: Formula Excel (piccolo aiuto)

Postdi Lucio Peruggini » 19/12/12 11:56

Ciao Flash, avevo già modificato i due For ma quando si avviano le macro formatta quanto ho detto.

"Unico inconveniente: le macro mi formattano le colonne A1:F11 e anche la colonna J 1:11."
Lucio P.
Versione Office - 2013
Lucio Peruggini
Utente Senior
 
Post: 896
Iscritto il: 24/01/11 16:23

Re: Formula Excel (piccolo aiuto)

Postdi Flash30005 » 19/12/12 23:53

Io non ho il tuo file
se UR è inferiore a 11 allora formatta anche le celle che dici altrimenti non vedo come possa formattare visto che il ciclo è superiore a 11

Poi hai pubblicato due macro
coloraS3 e coloraS4 quale delle due non funziona?

Oppure quale delle due usi?

Codice: Seleziona tutto
    UR = Range("A" & Rows.Count).End(xlUp).Row
'Qui inserisci la condizione
If UR < 12 The UR = 12

'Questa riga dovrà divenire da così
    Columns("A:F").Interior.ColorIndex = xlNone

'a così
Columns("A12:F65536").Interior.ColorIndex = xlNone

'idem questa
    Columns("A12:G65536").Font.ColorIndex = 0


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: Formula Excel (piccolo aiuto)

Postdi Lucio Peruggini » 20/12/12 00:40

Ciao Flash, le adopero entrambe.

https://dl.dropbox.com/u/18220462/IMMAG ... Se4%20.PNG

https://dl.dropbox.com/u/18220462/IMMAG ... Se3%20.PNG

https://dl.dropbox.com/u/18220462/FILE/ ... %29%20.zip

La prima “ColoraSe4” controlla la colonna “G” segnalando i gruppi da due in poi, cioè le formazioni isocrone che, come ben sai, sono quelle formazioni aventi ruote diverse con stesso ritardo e quindi stessa partenza (colonna A). Questa, però, non mi parte salvo che, tolga tutto ciò che è contenuto nelle righe da 1 a 11.

La macro ColoraSe3 inserisce i risultati in colonna “J” colorando come l’altra, tutte le formazioni sincrone da due in poi. Come vedi nella foto e probabilmente la causa è quest’ultima macro, la colonna “J” cancella completamente le celle da 1 a 11. Inoltre toglie via i colori da A1 a F11. Sto notando solo ora che, a differenza dell’altra, che segna correttamente le due righe col numero “2 o 3 etc”, marca solamente la prima riga.
Comunque allego file con macro inserite.
Ciao
Lucio P.
Versione Office - 2013
Lucio Peruggini
Utente Senior
 
Post: 896
Iscritto il: 24/01/11 16:23

Re: Formula Excel (piccolo aiuto)

Postdi Flash30005 » 20/12/12 00:45

Ma hai provato le modifiche riportate nel post precedente?

Penso dipenda proprio da questo
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: Formula Excel (piccolo aiuto)

Postdi Lucio Peruggini » 20/12/12 01:09

Ora provo, stavo vedendo di trovare la macro giusta. Ricordo se non sbaglio che anche la macro riguardante la colonna "J", marcava correttamente le righe con i due numeri o tre posti per ogni formazione.

Questo è stato il motivo primario del post: Ottenere con gli asterischi i vari gruppi di due, tre, quattro e cinque; poi mi sono ricordato di queste macro che svolgevano egregiamente quanto ho chiesto.

Se non trovo questa macro nel mio Pc, probabilmente la recupero nel forum.
Ciao
Lucio P.
Versione Office - 2013
Lucio Peruggini
Utente Senior
 
Post: 896
Iscritto il: 24/01/11 16:23

Prossimo

Torna a Applicazioni Office Windows


Topic correlati a "Formula Excel (piccolo aiuto)":


Chi c’è in linea

Visitano il forum: Nessuno e 58 ospiti