Cum se aduna numere in functie de culoare?

[ioan72]

Va salut cu respect pe toti membri acestui forum.Sunt nou pe acest forum si doresc sa imi imbunatatesc cunostintele in Excel la nivel de incepator (amator) pentru a-mi usura munca la birou.
Va rog sa imi spuneti cum se pot aduna caracterele de pe un rand in functie de culoarea lor.Adica am un rand care are anumite cifre care sunt de doua culori(rosu si negru) iar la capat vreau sa fac sume(formula) care sa stie sa faca selectia in functie de culoare rosu sau negru.Mentionez ca cifrele de pe rand sunt de la 1-10 si poate fi acceasi cifra la ambele culori.
Va multumesc anticipat.Cele bune tuturor.

[Dr.Windows]

Vezi daca te ajuta functia SumColor de aici: http://www.ozgrid.com/VBA/Sum.htm

Si ca sa explic putin functia de acolo - iti va aduna cifrele (nu caractarele... ) luand ca referinta culoarea celulei transmisa ca prim parametru, cel dea-l doilea parametru fiind zona de adunat.

Daca luam exemplul dat si in pagina cu functia de acolo au vazut ca apeleaza sub forma =SUMCOLOR(B2, B1:B10) unde B2 este o celula colorata cu galben.

In situatia ta fiind vorba de 2 seturi de culori va trebui sa ai 2 functii SUMCOLOR pentru a referi cate o celula din fiecare set de culori chiar daca range-ul de adunat o sa fie acelasi.

Luand tot exemplul de acolo, un al doilea SUMCOLOR ar fi =SUMCOLOR(B3,B1:B10) pentru a aduna celulele pe culoarea alba...

[ioan72]

Mersi de raspuns dar la mine cifrele sunt de culori diferite nu celulele.Pun un exemplu.Mersi.

[Dr.Windows]

Asta se rezolva modificand in functia de acolo Interior.ColorIndex cu Font.ColorIndex, mai exact functia devine:

Cod: Selectaţi tot

Function SumColor(rColor As Range, rSumRange As Range)
    Dim rCell As Range
    Dim iCol As Integer
    Dim vResult
    
    iCol = rColor.Font.ColorIndex
    For Each rCell In rSumRange
        If rCell.Font.ColorIndex = iCol Then
            vResult = WorksheetFunction.Sum(rCell) + vResult
        End If
    Next rCell
    
    SumColor = vResult

End Function

Ai si exemplul atasat unde "referinta de culoare" se face la cate o celula din randul 8 (antetul tabelului)...

[ioan72]

Superrrr.M-ai descurcat...si ce simplu era.Mersi mult de ajutor.Toate cele bune iti doresc.

[Dr.Windows]

Cu placere... dar ai MARE ATENTIE la celula pe care o trimiti ca parametru pentru detectarea culorii, pentru ca in functie de ea iti va calcula suma - de aia este bine sa iei ca "referinta" o celula la care culoarea este putin probabil sa se modifice (de ex. din antetul tabelului, und eprobabil cu rosu ai zilele libere sau ceva "de genul"...)

[ioan72]

Sa sti ca nu imi merge.Cand introduc cifre noi nu mai face nimic rezultatul e name?

[Dr.Windows]

Nu reusesc sa reproduc problema... cel putin pe "mostra" atasata si mai sus... dar daca poti atasa fisierul tau aici cred ca ar fi mai usor (dar cred ca ai gresit numele functiei).

L.E.: Cred ca mai degraba eroarea apare din cauza ca NU activezi macrourile - in aceasta situatie intr-adevar iti apare eroarea #NAME in momentul in care modifici continutul unui "range" care face parte din zona de insumare...

[ioan72]

Nu stiu sa activez macrourile.De unde se activeaza?

[IPP]

Buna seara

Daca Security Level-ul nu este pe "Low", atunci cand deschideti un fisier care contine macrocomenzi va apare automat o fereastra de dialog in care veti avea posibilitatea sa impiedicati sau nu actiunea macrocomenzilor (vedeti si poza atasata).
Pentru activare macrourilor alegeti "Enable macros".

IP

Nota. Activarea macrocomenzilor in fisiere provenite din surse nesigure poate fi riscanta. Daca veti cauta pe acest forum veti mai gasi si alte discutii care au tangenta cu aceasta problema.