Colore celle in Excel

[gigivi]

salve a tutti,
ho un problema :
in Excel devo sommare (con somma.se) solo le celle che hanno un certo colore
.... non riesco a trovare la funzione, qualcuno riesce ad aiutarmi ?

grazie

gigivi

[Denis]

Post by gigivi
salve a tutti,
in Excel devo sommare (con somma.se) solo le celle che hanno un certo colore
.... non riesco a trovare la funzione, qualcuno riesce ad aiutarmi ?

Ti devi appoggiare al VBA. Non credo che si possa tramite le funzioni Excel.

[Marco]

Post by gigivi
salve a tutti,
in Excel devo sommare (con somma.se) solo le celle che hanno un certo colore
.... non riesco a trovare la funzione, qualcuno riesce ad aiutarmi ?
grazie
gigivi

aggiungo alla puntualizzazione di Denis:

a meno che le celle siano colorate per una regola

[Lapalissiano]

Post by gigivi
in Excel devo sommare (con somma.se) solo le celle che hanno un certo colore
.... non riesco a trovare la funzione, qualcuno riesce ad aiutarmi ?

Newsgroups: microsoft.public.it.office.excel
Subject: sommare celle
Date: Wed, 1 Sep 2004 11:02:27 +0200
http://www.google.it/groups?threadm=ch432h%24ik%241%40grillo.cs.interbusiness.it

[gigivi]

Post by Lapalissiano
Newsgroups: microsoft.public.it.office.excel
Subject: sommare celle
Date: Wed, 1 Sep 2004 11:02:27 +0200
http://www.google.it/groups?threadm=ch432h%24ik%241%40grillo.cs.interbusiness.it

scusa la mia ignoranza, come posso creare una funzione personalizzata in
Excel dove mettere le righe di VB ?

[Denis]

Post by gigivi
scusa la mia ignoranza, come posso creare una funzione personalizzata in
Excel dove mettere le righe di VB ?

Apri Excel e il foglio che ti serve.
Poi premi Alt+11 e ti si apre il Visual Basic Editor...
Da li scrivi il codice...

[gigivi]

Post by Denis

Post by gigivi
scusa la mia ignoranza, come posso creare una funzione personalizzata in
Excel dove mettere le righe di VB ?

Apri Excel e il foglio che ti serve.
Poi premi Alt+11 e ti si apre il Visual Basic Editor...
Da li scrivi il codice...
--

Ok, scritto .... poi .... grazie

[Lapalissiano]

Post by gigivi

Post by Lapalissiano
Newsgroups: microsoft.public.it.office.excel
Subject: sommare celle
Date: Wed, 1 Sep 2004 11:02:27 +0200
http://www.google.it/groups?threadm=ch432h%24ik%241%40grillo.cs.interbusiness.it

scusa la mia ignoranza, come posso creare una funzione personalizzata in
Excel dove mettere le righe di VB ?

Newsgroups: microsoft.public.it.office.excel
Subject: Re: Formule e formattazione condizionale
http://www.google.it/groups?threadm=h93qgvongr0kk2l2gqpq5et0htlnfeqdj3%404ax.com


Facci sapere se e come hai risolto, grazie.

[gigivi]

Post by Lapalissiano

Post by gigivi

Post by Lapalissiano
Newsgroups: microsoft.public.it.office.excel
Subject: sommare celle
Date: Wed, 1 Sep 2004 11:02:27 +0200
http://www.google.it/groups?threadm=ch432h%24ik%241%40grillo.cs.interbusiness.it

scusa la mia ignoranza, come posso creare una funzione personalizzata in
Excel dove mettere le righe di VB ?

Newsgroups: microsoft.public.it.office.excel
Subject: Re: Formule e formattazione condizionale
http://www.google.it/groups?threadm=h93qgvongr0kk2l2gqpq5et0htlnfeqdj3%404ax.com
Facci sapere se e come hai risolto, grazie.

ciao e grazie,
non ho risolto però !
dopo avere copiato la funzione su un nuovo modulo, creo la formula ma quando
vado a fare "invio" mi torna sull'editor e mi dice che c'è : "errore di
compilazione non valido all'esterno di una routine", per la precisione
"r.color" nella quarta riga

'Sums cells based on a specified fill color.
'''''''''''''''''''''''''''''''''''''''
Dim rCell As Range
Dim iCol As Integer
Dim vResult


iCol = rColor.Interior.ColorIndex


For Each rCell In rSumRange
If rCell.Interior.ColorIndex = iCol Then
vResult = WorksheetFunction.Sum(rCell) + vResult
End If
Next rCell


SumColor = vResult
End Function



dove sbaglio ?



grazie ancora e auguri a tutti

[Lapalissiano]

Post by gigivi

Post by Lapalissiano
Newsgroups: microsoft.public.it.office.excel
Subject: Re: Formule e formattazione condizionale
http://www.google.it/groups?threadm=h93qgvongr0kk2l2gqpq5et0htlnfeqdj3%404ax.com

ciao e grazie,
non ho risolto però !
dopo avere copiato la funzione su un nuovo modulo, creo la formula ma quando
vado a fare "invio" mi torna sull'editor e mi dice che c'è : "errore di
compilazione non valido all'esterno di una routine"

Non hai copiato "la funzione", ne hai saltato l'inizio.

'-------------
Function SumColor(rColor As Range, rSumRange As Range)

''''''''''''''''''''''''''''''''''''''
'Written by Ozgrid Business Applications
'www.ozgrid.com

'Sums cells based on a specified fill color.
'''''''''''''''''''''''''''''''''''''''
Dim rCell As Range
Dim iCol As Integer
Dim vResult

iCol = rColor.Interior.ColorIndex

For Each rCell In rSumRange
If rCell.Interior.ColorIndex = iCol Then
vResult = WorksheetFunction.Sum(rCell) + vResult
End If
Next rCell

SumColor = vResult
End Function
'--------

[gigivi]

Post by Lapalissiano

Post by gigivi

Post by Lapalissiano
Newsgroups: microsoft.public.it.office.excel
Subject: Re: Formule e formattazione condizionale
http://www.google.it/groups?threadm=h93qgvongr0kk2l2gqpq5et0htlnfeqdj3%404ax.com

ciao e grazie,
non ho risolto però !
dopo avere copiato la funzione su un nuovo modulo, creo la formula ma quando
vado a fare "invio" mi torna sull'editor e mi dice che c'è : "errore di
compilazione non valido all'esterno di una routine"

Non hai copiato "la funzione", ne hai saltato l'inizio.

Grande !
grazie non l'avevo notato !

ora funziona, l'unica cosa da notare è che per aggiornare la somma bisogna
tutte le volte entrare nella casella con la formula, con il cursore cliccare
dentro la formula e poi digitare INVIO ...
basta saperlo ...

ciao e buon anno !

Gigivi