Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Sommare celle con lo stesso colore

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

Sommare celle con lo stesso colore

Postdi Charly_new » 01/02/12 20:27

Buona sera a tutti.
Sto cercando una formula che mi consenta di sommare, in un dato intervallo, tutte le celle dello stesso colore ma non ne esco!
Probabile che si debba ricorrere al VBA?
Grazie si da ora per l'aiuto.

L'immagine nel caso in cui non fossi riuscito a farmi comprendere.
http://imageshack.us/photo/my-images/715/excely.jpg/
Avatar utente
Charly_new
Utente Junior
 
Post: 59
Iscritto il: 08/03/10 15:57

Sponsor
 

Re: Sommare celle con lo stesso colore

Postdi Flash30005 » 01/02/12 21:33

Con una macro non è complicato puoi provare
Codice: Seleziona tutto
Sub TrovaColSomma()
'<<<< questa prima parte della macro trova il colore nelle celle C1, D1, E1
Range("C1:E2").ClearContents
Dim VCol(3) As Integer
For Ccol = 1 To 3
For ColC = 1 To 54
If Cells(1, Ccol + 2).Interior.ColorIndex = ColC Then
VCol(Ccol) = ColC
End If
Next ColC
Next Ccol

'<<<<<<< questa seconda parte fa la somma delle celle a parità di colore
UR = Range("A" & Rows.Count).End(xlUp).Row
For RR = 1 To UR
If Cells(RR, 1).Interior.ColorIndex = VCol(1) Then Range("C2").Value = Range("C2").Value + Cells(RR, 1).Value
If Cells(RR, 1).Interior.ColorIndex = VCol(2) Then Range("D2").Value = Range("D2").Value + Cells(RR, 1).Value
If Cells(RR, 1).Interior.ColorIndex = VCol(3) Then Range("E2").Value = Range("E2").Value + Cells(RR, 1).Value
Next RR
End Sub


Fai 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: Sommare celle con lo stesso colore

Postdi Charly_new » 01/02/12 22:11

Grazie flash, funziona in quanto mi ritorna il totale dei valori delle celle.
Quel che vorrei, e qui mi sono espresso male, è quello di totalizzare semplicemente il numero di celle dello stesso colore di fondo.
Es: nell'intervallo A3:A100 ci sono n°xcelle di colore verde, n°xcelle di colore giallo, etc, etc.
Avatar utente
Charly_new
Utente Junior
 
Post: 59
Iscritto il: 08/03/10 15:57

Re: Sommare celle con lo stesso colore

Postdi Anthony47 » 01/02/12 22:44

Prova a guardare la funzione CCC descritta in questo post: viewtopic.php?f=26&t=72430#p412767

Ciao, fai sapere.
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: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Sommare celle con lo stesso colore

Postdi Charly_new » 01/02/12 22:58

Ciao anthony, grazie anche a te.
Siete davvero molto gentili!

Ho provato il tuo suggerimento, ho scritto le istruzioni nel VBA, ho inserito la formula, il risultato però è quello nell'immagine.
http://imageshack.us/photo/my-images/688/excel1q.jpg/
Avatar utente
Charly_new
Utente Junior
 
Post: 59
Iscritto il: 08/03/10 15:57

Re: Sommare celle con lo stesso colore

Postdi Anthony47 » 01/02/12 23:06

In quale "Modulo" hai scritto il codice? (lo leggi nella intestazione della window del vba, quella colorata).

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: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Sommare celle con lo stesso colore

Postdi Charly_new » 01/02/12 23:09

questo è come ho scritto il codice... in pratica ho fatto il copia/incolla.
http://imageshack.us/photo/my-images/198/vbah.jpg/
Avatar utente
Charly_new
Utente Junior
 
Post: 59
Iscritto il: 08/03/10 15:57

Re: Sommare celle con lo stesso colore

Postdi Flash30005 » 01/02/12 23:11

Scusa charly ma nel primo post tu hai inserito i tre colori da sommare nelle celle C1, D1, E1
e i valori colorati nella colonna A (ok)
nell'ultima immagine hai i tre colori da ricercare in H, I, J :?:

Io ti invio il file test per farti vedere che la macro funziona come hai richiesto nel primo post

Download File

Fammi sapere dove non ti trovi
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: Sommare celle con lo stesso colore

Postdi Anthony47 » 01/02/12 23:14

Guarda il messaggio di Flash sopra.
Lo hai messo quindi nel "modulo di codice di un foglio", che contiene le macro di eventi; da quella posizione la puoi richiamare solo con =Foglio2!CCC(etc etc)
Sposta sotto Modulo1, che inserirai con Menu /Inserisci /Modulo

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: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Sommare celle con lo stesso colore

Postdi Charly_new » 01/02/12 23:18

Flash, innanzitutto grazie ancora: come ti dicevo in precedenza, il tuo codice funziona perfettamente in quanto restituisce nella cella il totale dei valori presenti nelle celle dell'intervallo.
Quello che invece a me occorre, è di totalizzare il numero di celle, presenti all'interno dell'intervallo, con lo stesso colore di fondo.
Spero di essere riuscito a farmi comprendere.
Avatar utente
Charly_new
Utente Junior
 
Post: 59
Iscritto il: 08/03/10 15:57

Re: Sommare celle con lo stesso colore

Postdi Flash30005 » 01/02/12 23:26

Ahhh
contare il numero di celle!!
è semplicissimo devi modificare solo tre righe
Codice: Seleziona tutto
Sub TrovaColSomma()
'<<<< questa prima parte della macro trova il colore nelle celle C1, D1, E1
Range("C1:E2").ClearContents
Dim VCol(3) As Integer
For Ccol = 1 To 3
For ColC = 1 To 54
If Cells(1, Ccol + 2).Interior.ColorIndex = ColC Then
VCol(Ccol) = ColC
End If
Next ColC
Next Ccol

'<<<<<<< questa seconda parte fa la somma delle celle a parità di colore
UR = Range("A" & Rows.Count).End(xlUp).Row
For RR = 1 To UR
If Cells(RR, 1).Interior.ColorIndex = VCol(1) Then Range("C2").Value = Range("C2").Value + 1  '<<<< questa
If Cells(RR, 1).Interior.ColorIndex = VCol(2) Then Range("D2").Value = Range("D2").Value + 1  '<<<< questa
If Cells(RR, 1).Interior.ColorIndex = VCol(3) Then Range("E2").Value = Range("E2").Value + 1  '<<<< e questa
Next RR
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: Sommare celle con lo stesso colore

Postdi Charly_new » 01/02/12 23:34

Anthony, ora funziona: l'ho scritto nel modulo!
Ultima dritta: come posso ottenere un'aggiornamento immediato del calcolo senza dover chiudere e riaprire il file?

Flash, non so in che modo modificarlo: me lo puoi suggerire tu?
Grazie!
Avatar utente
Charly_new
Utente Junior
 
Post: 59
Iscritto il: 08/03/10 15:57

Re: Sommare celle con lo stesso colore

Postdi Anthony47 » 01/02/12 23:37

F9=ricalcola
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: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Sommare celle con lo stesso colore

Postdi Flash30005 » 01/02/12 23:38

Copia la macro qui (interamente con apposito pulsante "Seleziona Tutto" tasto destro mouse Copia)
Apri il file di excel
premi ALT+F11
e trovi il modulo1 e sulla finestra di destra la macro da sostituire (la selezioni tutta e incolli la nuova)
in pratica la sovrascrivi

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: Sommare celle con lo stesso colore

Postdi Flash30005 » 01/02/12 23:55

Aggiungo, per sicurezza, questo file :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: Sommare celle con lo stesso colore

Postdi Charly_new » 02/02/12 18:34

Ciao Antony, va tutto bene; un chiarimento se puoi.
Nella formula che suggerisci, all'interno della parentesi metti nell'ordine:
l'intervallo entro il quale contare il numero di celle con stesso colore e poi l'indirizzo di cella con il riferimento di sfondo.
Ti chiedo, normalmente non avviene il contrario?

Ciao Flash, non volermene:
il codice che mi hai inviato è si funzionante, ma solo se le celle dell'intervallo, oltre al colore di fondo, hanno un valore/carattere.
Nel mio foglio, le celle dell'intervallo, hanno solo il colore.
E' possibile correggere il codice?

Grazie di nuovo per la disponibilità e la pazienza, grazie!
Avatar utente
Charly_new
Utente Junior
 
Post: 59
Iscritto il: 08/03/10 15:57

Re: Sommare celle con lo stesso colore

Postdi Flash30005 » 02/02/12 20:29

Ho riprodotto ciò che tu hai inserito nell'immagine del primo post
e nella colonna A le celle oltre ad essere colorate avevano anche un valore
non solo il titolo di questo topic recita
"Sommare celle con lo stesso colore"

All'inizio ho fatto la somma e invece era un conteggio ora dici che non c'è nemmeno un carattere/numero
è chiaro che non può funzionare (la macro conta le celle con dati non le celle vuote!
Dovrò modificare la macro per questa nuova esigenza
che se fossi stato chiaro sin dall'inizio avremmo da tempo raggiunto l'obiettivo :aaah

Ma non ti preoccupare non te ne voglio ;)

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: Sommare celle con lo stesso colore

Postdi Charly_new » 02/02/12 20:52

Flash, grazie ancora per la pazienza.
Avatar utente
Charly_new
Utente Junior
 
Post: 59
Iscritto il: 08/03/10 15:57

Re: Sommare celle con lo stesso colore

Postdi Flash30005 » 02/02/12 20:56

Per me è anche abbastanza semplice e semplicistico il disocorso della modifica
nella macro hai questa riga
Codice: Seleziona tutto
UR = Range("A" & Rows.Count).End(xlUp).Row

assegna invece a UR il numero di righe che occorrono es 1000 o 10000 o 100000 (anche esagerando; con excel2003 max righe 65000 circa)
quindi scriverai
Codice: Seleziona tutto
UR = 1000

e la macro funzionerà perfettamente con o senza caratteri

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: Sommare celle con lo stesso colore

Postdi Charly_new » 02/02/12 21:46

Flash, ti sono estremamente grato... buona serata!
Avatar utente
Charly_new
Utente Junior
 
Post: 59
Iscritto il: 08/03/10 15:57

Prossimo

Torna a Applicazioni Office Windows


Topic correlati a "Sommare celle con lo stesso colore":


Chi c’è in linea

Visitano il forum: Nessuno e 4 ospiti