Somma valore celle con testo colorato

Question

Buon giorno

dovrei fare la somma dei valori contenuti nel range T10:T1000 con il testo colorato in rosso?

il risultato deve comparire nella cella T7.

Si può fare con una formula oppure con una Formattazione condizionale?

Grazie

Answer 1

               

Ho inserito la funzione in un modulo e la formula nella cella T7 ma non mi funziona.

I testi "che vengono colorati" nel range T vengono colorati con una formattazione condizionale. Non è che è questa che mi crea problemi?

<cut>

Sì, è la formattazione condizionale.

Prova questa:

Public Function f(ByVal v As Variant, _

    Optional lng As Long = 0) As Double

    Dim c As Range

    Application.Volatile

    If lng = 0 Then

        f = Evaluate("=SUM(" & v.Address & ")")

        Exit Function

    End If

    f = 0

    For Each c In v

        If c.Offset(0, -8) = lng Then

            f = f + c.Value

        End If

    Next

    Set c = Nothing

End Function

Da richiamare così:

T7: =f(T10:T100)  Calcola tutto

T7: =f(T10:T100;7) Calcola se in colonna L c'è un 7

T7: =f(T10:T100;6) Calcola se in colonna L c'è un 6

T7: =f(T10:T100;3) Calcola se in colonna L c'è un 3

ecc.

Answer 2

Grazie mille

tutto ok.

Ciao

Answer 3

Ciao Mauro

ho provato entrambe le cose che hai suggerito ma ne funziona solo una... quella con il filtro automatico.

Purtroppo mi piacerebbe avere sempre aggiornata la somma senza dover utilizzare i filtri.

Ho inserito la funzione in un modulo e la formula nella cella T7 ma non mi funziona.

I testi "che vengono colorati" nel range T vengono colorati con una formattazione condizionale. Non è che è questa che mi crea problemi?

Ti allego il file così puoi vedere se magari è quello il problema. Ormai ho provato in tutti i modi. Ieri ho passato la giornata a cercare funzioni che mi facessero questa "maledetta" somma.

Altra cosa: non è che nella mia formattazione condizionale metto dei colori "sbagliati". A me interessano i colori rosso e verde.

Grazie

https://skydrive.live.com/redir?resid=B0B49F425410C6EB!261

Answer 4

Buon giorno

dovrei fare la somma dei valori contenuti nel range T10:T1000 con il testo colorato in rosso?

il risultato deve comparire nella cella T7.

Si può fare con una formula oppure con una Formattazione condizionale?

Grazie

Mettiamo tu abbia la tua tabella da T9(intestazione) a T100. Metti il filtro automatico su T9.

T7: =SUBTOTALE(9;T10:T1000)

Filtra per colore (solo da Excel 2007 in poi).

Un altro modo. Copia/incolla questa in un modulo standard:

Public Function f(ByVal v As Variant) As Double

    Dim c As Range

    Application.Volatile

    f = 0

    For Each c In v

        If c.Interior.ColorIndex = 3 Then

            f = f + c.Value

        End If

    Next

    Set c = Nothing

End Function

Quindi:

T7: =f(T10:T100)

La funzione *deve* essere ricalcolata se vengono modificati i colori delle celle *senza* che siano modificati i contenuti. Per ricalcolare, premi F9.