Sumif criteriul fiind culoarea celulei – Microsoft Visual Basic

UPDATE – functioneaza si in Excel 2013/2016

Microsoft Office Excel 2010,2007 – nu au functie default care stie sa adune valorile din celule pe baza culorilor, dar suma valorilor se poate realiza folosind structura de tip Table si filtrarea pe baza culorii celulei sau se poate construi o functie
care realizeaza aceasta operatie.

Pentru a construi functia se apasa combinatia de taste Alt+ F11 si apare Fereastra Microsoft Visual Basic

Clic pe meniul Insert si clic pe optiunea Module

Se introduce in fereastra aparuta codul pentru functia construita de catre user (vezi exemplu mai jos) care executa
operatia de adunare  a valorilor din celule care au  culoarea dorita.

Exemplu de cod:

Function SumInteriorCuloare(Culoare_Interior As Range, Zona_Insumare As Range)
‘Def variabilelor
Dim ssRange As Range
Dim sumaColor As Long
Dim zZona_Insumare As Range

‘Def constantelor
sumaColor = 0
Set zZona_Insumare = Zona_Insumare
vCuloare = Culoare_Interior.Interior.ColorIndex

‘ Suma pe culori
For Each ssRange In zZona_Insumare
If ssRange.Interior.ColorIndex = vCuloare Then
sumaColor = sumaColor + ssRange.Cells.Value
End If
Next ssRange

‘ Returnare rezultat
SumInteriorCuloare = sumaColor

End Function

• Se inchide Fereastra Visual Basic
• Clic pe tab-ul Formulas, cilc pe butonul Insert Function

Apare fereastra Insert Function, se alege categoria User Defined

Se selecteaza Functia construita SumInteriorCuloare,  apoi clic  pe butonul Ok.

Apare fereastra Function Arguments

• In caseta corespunzatoare zonei Culoare_Interior avem introdusa adresa unei celule colorate ce contine culoarea
  respectiva(rosu).
• In caseta corespunzatoare zonei Zona_Insumare avem introdusa adresa zonei de celule  cu valori.
• Clic pe Ok

• Se obtine valoarea 1 pentru celulele care au culoarea rosu.
• Se obtine valoarea 9 pentru celulele care au culoarea galben.
• Se obtine valoarea 13 pentru celulele care au culoarea albastru.