În acest articol, vom crea o funcție personalizată pentru a număra numărul de celule din gama cu culori definite.
Pentru acest exemplu, eșantionul de date constă dintr-un interval care are valori cuprinse între 100 și 1000. Valorile din celule sunt evidențiate în culori diferite. Vrem să găsim numărul fiecărei culori.
Pentru a calcula numărul unei anumite culori, am creat o funcție personalizată „CountByColor”. Această funcție ia doi parametri de gamă ca intrare. Primul parametru de gamă definește culoarea interioară a celulei, iar al doilea parametru de gamă definește gama de eșantionare.
Explicarea codului
Aplicație. Volatilul este utilizat, deoarece se va recalcula de fiecare dată când se schimbă valoarea unei celule în registrul de lucru.
DefinedColorRange.Interior.ColorIndex
Codul de mai sus este utilizat pentru a obține culoarea interioară a gamei definite.
Vă rugăm să urmați codul de mai jos
Funcție CountByColor (DefinedColorRange As Range, CountRange As Range) Aplicație. Variabile „Variabile declarante Dim ICol Ca întreg Număr GCell Ca gamă” Obținerea culorii interioare a celulei ICol = DefinedColorRange.Interior.ColorIndex ”Buclare prin intervalul definit pentru fiecare GCell în CountRange If ICol = GCell.Interior.ColorIndex, apoi „Obținerea numărului de celule colorate potrivite CountByColor = CountByColor + 1 End If Next GCell End Function
Dacă ți-a plăcut acest blog, distribuie-l prietenilor tăi de pe Facebook. De asemenea, ne puteți urmări pe Twitter și Facebook.
Ne-ar plăcea să aflăm de la dvs., să ne anunțați cum putem îmbunătăți munca noastră și o putem îmbunătăți. Scrieți-ne pe site-ul de e-mail