Newsgroup: it.comp.aiuto
Titolo: Colore celle in Excel

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 

gigivi ha scritto:

Ti devi appoggiare al VBA. Non credo che si possa tramite le funzioni Excel.
-- 
Ciao Denis
Arriva un momento nella vita in cui non rimane altro da fare che
percorrere la propria strada fino in fondo...
Quello e' il momento di inseguire i propri sogni, quello e' il momento
di prendere il largo, forti delle proprie convinzioni.

gigivi ha usato la sua tastiera per scrivere :

aggiungo alla puntualizzazione di Denis:
a meno che le celle siano colorate per una regola
-- 
Marco

 .... 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
-- 
Tiziano "Lapalissiano" Marmiroli
Microsoft MVP - Office System


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

 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 



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.


 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

 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
'-------- 



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