În acest articol, vom crea o funcție personalizată pentru a calcula suma numerelor din celulele din intervalul cu culoare definită.
Pentru acest exemplu, eșantionul de date constă în date despre echipa de vânzări. Datele echipei de vânzări conțin detalii legate de numărul de articole vândute. Conține informații despre produs, care sunt disponibile în trei culori Gri, Roșu și Verde. Vrem să găsim suma articolelor vândute după culoarea produsului.
Pentru a calcula suma în funcție de culoare, am creat funcția personalizată „SumByColor”. Această funcție ia ca intrare doi parametri de gamă. Primul parametru de gamă definește culoarea interioară a celulei și al doilea parametru de gamă definește gama de eșantionare.
Explicarea codului
Aplicație. Volatil 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
Opțiune Funcție explicită SumByColor (DefinedColorRange As Range, SumRange As Range) Aplicație. Variabile „Variabile declarative 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 In SumRange If ICol = GCell.Interior.ColorIndex Apoi 'Obținerea sumei de celule colorate potrivite SumByColor = SumByColor + GCell.Value 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