Condividi:        

EXCEL formula somma

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: EXCEL formula somma

Postdi Flash30005 » 27/02/10 18:43

Me lo potevi dire perché in quel caso puoi togliere o commentare queste due righe di codice
Codice: Seleziona tutto
            Else
                If Conta > 1 And Range("J" & R).Value = 1 Then Range("N" & R).Value = 0


avevo letto, nelle tue specifiche, che in caso di secondo segno 1 (nel gruppo) doveva esserci zero e così...
l'ho inserito, ma non lo vedi :roll:

Comunque fai tu

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-

Sponsor
 

Re: EXCEL formula somma

Postdi Francesco53 » 27/02/10 20:03

Ciao Flash, non ci avevo pensato, ho notato però una cosa, se aggiorno i dati da analizzare e quindi i numeri 1 della colonna J di valutazione assumono altre posizioni, se rilancio la macro, rimangono presenti anche i precedenti 1, domanda: mi consigli di creare un range nella colonna J ("risultato") ed inserire all'inizio della macro che mi hai inviato le seguenti righe,
Application.Goto Reference:="risultato"
Selection.ClearContents
Oppure c'è la possibilità che la tua macro quando il risultato non è valido inserisca lo 0 ?
Grazie comunque per la tua disponibilità.
Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Re: EXCEL formula somma

Postdi Flash30005 » 27/02/10 21:45

Si la cosa più semplice è cancellare tutto con una riga-codice come riportato qui
Codice: Seleziona tutto
    Trov = 0      '<<< riga esistente
    Columns("N:N").ClearContents     '     '<<< riga da aggiungere
    For R = 4 To UR     '<<< riga esistente


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: EXCEL formula somma

Postdi Francesco53 » 27/02/10 21:55

Ottimo grazie
Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Re: EXCEL formula somma

Postdi Francesco53 » 01/03/10 16:35

Ciao Flash, ti chiedo il favore di valutare un caso in cui la macro non restituisce 1 nella colonna N, se provi nel file che mi hai inviato a digitare 1 nella cella D15, per cui la numerazione è consecutiva alla precedente, non inserisce 1 nella cella N16. Un saluto e grazie di tutto.
Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Re: EXCEL formula somma

Postdi Flash30005 » 02/03/10 02:10

Io non so cosa succede prima della colonna J (cioè dalla colonna A alla colonna I), mi sembrava che quel problema l'avessi risolto da solo, anche perché dal tuo foglio di excel chiarivi che si dovevano trascrivere dei segni 1 nella colonna N quando questi segni erano nella colonna J rispettando certe condizioni (del gruppo da 1 a 8 della colonna E).
Ora mi dici che la colonna N è "influenzata" dalla colonna D è la cosa mi giunge del tutto nuova e non saprei cosa risponderti.
Pubblico la macro così potrai leggere tu stesso che non c'è alcun richiamo alla colonna D
Codice: Seleziona tutto
    Sub Trova()
    UR = Range("E" & Rows.Count).End(xlUp).Row
    Conta = 0
    Trov = 0
    Columns("N:N").ClearContents
    For R = 4 To UR
        If Range("E" & R).Value = 0 Then
            Conta = 0
            Trov = 0
        Else
            Conta = Conta + 1
        End If
        If Conta <= [F1] And Trov = 0 Then
            If Range("J" & R).Value = 1 Then
                Range("N" & R).Value = 1
                Trov = 1
            End If
            Else
                If Conta > 1 And Range("J" & R).Value = 1 Then Range("N" & R).Value = 0
        End If
    Next R
    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: EXCEL formula somma

Postdi Francesco53 » 02/03/10 09:39

Il problema che riscontro è che, se due o più serie di numeri nella colonna E sono continui, cioè;
1,2,3,4,5,6,7,8,1,2,3,4,5,6,7,8, non riesce a segnare nella seconda serie, nella colonna N, il primo
segno 1 trovato nella colonna J. Allego immagine.
Immagine
Ciao e scusa se insisto, ma di vba non capisco molto, e voi siete l'unico supporto che posso consultare.
Grazie
Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Re: EXCEL formula somma

Postdi Flash30005 » 03/03/10 03:14

Ok, avendo analizzato il primo foglio che hai pubblicato non prevedevo che ci fosse continuità di numeri senza celle vuote o zeri tra una serie e l'altra comunque rimediamo con questa macro (anche più semplice)
Codice: Seleziona tutto
Sub Trova2()
UR = Range("E" & Rows.Count).End(xlUp).Row
Conta = 0
passo = 0
Columns("N:N").ClearContents
    For R = 4 To UR
        If Range("E" & R).Value = 1 Then passo = 1
        If passo = 1 Then
            If Range("J" & R).Value = 1 Then
                Range("N" & R).Value = 1
                passo = 0
                Conta = 0
            End If
            Conta = Conta + 1
            If Conta > [F1] Then passo = 0
       End If
    Next R
End Sub


Prova e fai sapere
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: EXCEL formula somma

Postdi Francesco53 » 03/03/10 09:06

Grazie è perfetta.
Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Re: EXCEL formula somma

Postdi Francesco53 » 04/03/10 11:18

Buon giorno Flash, scusa se continuo a disturbarti, il problema è questo, la seconda macro è perfetta per una ventina di righe, se analizza su un numero superiore di righe perde parecchie valutazioni. Ti allego file esempio con entrambe le macro, la prima e la seconda, vedrai come le somme delle valutazioni sono diverse. Questo è il file:
http://www.megaupload.com/?d=9C7I1QTE
Grazie
Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Re: EXCEL formula somma

Postdi Flash30005 » 05/03/10 10:15

Si, in effetti in queste condizioni sballa

ma rimediamo con questa piccola modifica
Codice: Seleziona tutto
Sub Trova3()
    UR = Range("E" & Rows.Count).End(xlUp).Row
    Conta = 0
    passo = 0
    Columns("N:N").ClearContents
        For R = 4 To UR
            If Range("E" & R).Value = 1 Then passo = 1
            If passo = 1 Then
                If Range("J" & R).Value = 1 Then
                    Range("N" & R).Value = 1
                    passo = 0
                End If
                Conta = Conta + 1
                If Conta > [F1] Then passo = 0
           End If
        Next R
End Sub


Prova e fai sapere

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: EXCEL formula somma

Postdi Francesco53 » 05/03/10 10:31

Ciao Flash, ho provato la macro sul foglio che ti ho inviato, non riesce a rilevare tutti i casi. Trova solo 8 casi, quella che funziona meglio è la Trova() rileva 28 casi ma non riesce a fare il controllo se consecutivi, Trova2() ne rileva solo 13.
Attendo eventuali tue indicazioni, grazie
Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Re: EXCEL formula somma

Postdi Flash30005 » 05/03/10 13:12

Ok, ma non è come dici: "la macro funziona se trova più casi"
perché se aggiunge dei segni 1 dove non dovrebbe di casi ne hai molti ma sbagliati :D

qyundi prova questa che sembra faccia ciò che chiedi

Codice: Seleziona tutto
Sub Trova4()
    UR = Range("E" & Rows.Count).End(xlUp).Row
    Conta = 0
    Columns("N:N").ClearContents
        For R = 4 To UR
            If Range("E" & R).Value = 1 Then Conta = 1
            If Conta > 0 Then
                If Range("J" & R).Value = 1 Then
                    Range("N" & R).Value = 1
                    Conta = 0
                End If
           End If
        Next R
End Sub


(semplificandola funziona ancora meglio) :lol:
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: EXCEL formula somma

Postdi Francesco53 » 05/03/10 14:35

Si riesce a rilevare tutti i casi del foglio, grazie. :lol:
Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Re: EXCEL formula somma

Postdi Francesco53 » 09/03/10 09:46

Un saluto a tutti ed un ringraziamento per la perfetta efficienza della macro a Flash. Una ulteriore richiesta se è possibile, ho provato a fare io delle modifiche, ma il risultato non è andato bene, vorrei aggiungere su un altro pulsante, la possibilità che nella Colonna O, si potesse inserire quando il risultato è nullo, (cioè non rileva la presenza nella colonna J di valori = 1 per tutto il conteggio della seguenza della Colonna E) Il valore 1, apparirà nella Col. O in corrispondenza del numero 1 (Col.E inizio della seguenza di numeri). Spero di essere riuscito a spiegare . Grazie
Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Re: EXCEL formula somma

Postdi Flash30005 » 09/03/10 12:03

E io spero di aver realizzato quello che ti occorre
Codice: Seleziona tutto
Sub Trova5()
    UR = Range("E" & Rows.Count).End(xlUp).Row
    Conta = 0
    ContaV = 0
    Columns("N:N").ClearContents
        For R = 4 To UR
            If Range("E" & R).Value = 1 Then
            Riga = R
                Conta = 1
            End If
            If Range("E" & R).Value = 0 Then
                Conta = 0
                GoTo saltaR
            End If
            If Conta > 0 Then
                ContaV = ContaV + 1
                If Range("J" & R).Value = 1 Then
                    Range("N" & R).Value = 1
                    Conta = 0
                    ContaV = 0
                End If
                If ContaV = [F1] Then Range("O" & Riga).Value = 1
           End If
saltaR:
        Next R
End Sub

Sostituisce la macro Trova4

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: EXCEL formula somma

Postdi Francesco53 » 09/03/10 20:08

Grazie Flash per la nuova macro, l'ho provata, funziona perfettamente se trova prima un riscontro positivo nella colonna N, se i casi negativi si ripetono anche non consecutivamente, rileva solo il primo caso, e sino a quando non ritrova un caso positivo nella colonna N, non riesce ad inserire l'1 nella colonna "O".
Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Re: EXCEL formula somma

Postdi Flash30005 » 10/03/10 08:24

Eh sì
mancava un reset..
questa ora dovrebbe andare
Codice: Seleziona tutto
Sub Trova5()
    UR = Range("E" & Rows.Count).End(xlUp).Row
    Conta = 0
    ContaV = 0
    Columns("N:O").ClearContents
        For R = 4 To UR
            If Range("E" & R).Value = 1 Then
            Riga = R
                Conta = 1
            End If
            If Range("E" & R).Value = 0 Then
                Conta = 0
                GoTo saltaR
            End If
            If Conta > 0 Then
                ContaV = ContaV + 1
                If Range("J" & R).Value = 1 Then
                    Range("N" & R).Value = 1
                    Conta = 0
                    ContaV = 0
                End If
                If ContaV = [F1] Then
                Range("O" & Riga).Value = 1
                ContaV = 0
                End If
           End If
saltaR:
        Next R
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: EXCEL formula somma

Postdi Francesco53 » 10/03/10 11:27

Grazie Flash, la macro è perfetta, ti ringrazio per la tua disponibilità e per il tuo altruismo. Un complimento a tutto il forum per l'aiuto che ci date. Spero di riuscire visionando le vs macro a capire ed apprendere qualcosa, non sarà facile a 57 anni, ma la buona volontà c'è. Buona giornata a tutti voi,
Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Re: EXCEL formula somma

Postdi Flash30005 » 10/03/10 22:32

Francesco53 ha scritto:... non sarà facile a 57 anni...


Sshhh,
non è vero! ;)

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-

Precedente

Torna a Applicazioni Office Windows


Topic correlati a "EXCEL formula somma":


Chi c’è in linea

Visitano il forum: Nessuno e 26 ospiti