Sumif criteriul fiind culoarea celulei - Microsoft Visual Basic | Cursuri microsoft
15603
post-template-default,single,single-post,postid-15603,single-format-standard,bridge-core-1.0.6,ajax_fade,page_not_loaded,,qode_grid_1200,qode-theme-ver-18.2,qode-theme-bridge,qode_header_in_grid,wpb-js-composer js-comp-ver-6.0.5,vc_responsive

Sumif criteriul fiind culoarea celulei – Microsoft Visual Basic

(Microsoft Office Excel 2010,2007 Function Category: User Defined)

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

image

Clic pe meniul Insert si clic pe optiunea Module

image

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

image

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

image

Apare fereastra Insert Function, se alege categoria User Defined

image

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

image

Apare fereastra Function Arguments

image

  • 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

image

  • 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.
1 Comment
  • cristea florin
    Posted at 14:42h, 28 martie Răspunde

    pentru numararea lor ? ce functie putem folosi ?

Post A Comment