Sumowanie warunkowe według koloru

Autor: Piotr Dynia
Data: 31-03-2015 r.

Na pewno nieraz zdarzyło się korzystać z funkcji SUMA.JEŻELI, która sumuje dane z jednej kolumny na podstawie odpowiadających im wartości w innej kolumnie (kryteriów). Czasami jednak kryteria nie są określone wartościami, ale kolorami. Takiego obliczenia funkcja SUMA.JEŻELI nie wykona.

Proponujemy zatem przygotowanie własnej funkcji w języku VBA. Przykładowe dane do podsumowania przedstawia rysunek 1.

Rysunek 1. Niektórzy klienci zostali oznaczeni żółtym kolorem

Aby przygotować odpowiednią funkcję:

  1. Otwórzmy Edytor VBA, wciskając kombinację klawiszy [Alt]+[F11].

  2. Z menu Insert wybierzmy polecenie Module.

  3. Wpiszmy następujący kod:

Function SumaKolorow(ByVal r As Range)

Dim j As Range

Dim k As Double

For Each j In r

If j.Offset(0, -1).Interior.ColorIndex = 6 Then k = k + j.Value

Next j

SumaKolorow = k

End Function

  1. Zapiszmy i zamknijmy Edytor VBA.

  1. Zaznaczmy komórkę B12 i wprowadźmy następującą formułę:

=SumaKolorow(B2:B11)

Mamy gotowy wynik.

Rysunek 3. Suma kwot, które odnoszą się do klientów oznaczonych kolorem

Jeżeli komórki oznaczone kolorem (kryteria) są oddalone od kwot o dwie kolumny w lewą stronę, wpiszmy -2 w drugim argumencie funkcji Offset. Jeśli leżałyby po prawej stronie, użyjmy dodatniej liczby określającej przesunięcie.

Funkcja uwzględnia jedynie komórki, których kolor tła jest żółty. Jeżeli użyto innego, zmieńmy liczbę określającą kolor przy właściwości Interior.ColorIndex. Przykładowo: liczba 1 to numer koloru czarnego, 2 – białego, 3 – czerwonego, 4 – zielonego, 5 – niebieskiego, 7 – różowego, 8 – błękitnego, a 9 – brązowego.

Piotr Dynia

Zaloguj się, aby dodać komentarz

Nie masz konta? Zarejestruj się »

Zobacz także

Jak zatrzeć ślady po przeglądaniu Internetu?

pobierz

Biznesplan

pobierz

Wzór Polityki Bezpieczeństwa w ochronie danych osobowych

pobierz

Konfiguracja bezpieczeństwa. Windows 10

pobierz

Polecane artykuły

Polecamy kancelarię:

  • Kancelaria Prawna Iurisco Edyta Przybyłek

    ul. Zgrzebnioka 28, 40-520 Katowice

    Wyświetl wizytówkę
  • Kancelaria Radcy Prawnego Marcin Majcherczyk

    ul. Stawowa 4 lok. 39, 41-200 Sosnowiec

    Wyświetl wizytówkę
  • THE N.E.W.S. LAW CENTER Kancelaria Adwokatów i Radców Prawnych

    ul. Kazachska 1/89, 02-999 Warszawa

    Wyświetl wizytówkę
  • adwokat Wojciech Rudzki - kancelaria adwokacka

    Józefa Piłsudskiego 40/4 Kraków 31 - 111

    Wyświetl wizytówkę
  • Kancelaria Radcy Prawnego Robert Dudkowiak

    ul. Jana Pawła II 11 lok. 5, 62-300 Września

    Wyświetl wizytówkę
  • Kancelaria Adwokacka Adwokata Piotra Sęka

    ul. Narutowicza 44 lok. 20, 90-135 Łódź

    Wyświetl wizytówkę
  • Kancelaria Radców Prawnych ARVE M.Kusztan & R.Ponichtera Sp. K.

    ul. Czysta 4, 50-013 Wrocław

    Wyświetl wizytówkę
  • Kancelaria Radcy Prawnego Marek Foryś

    ul. Słupecka 9/1, Gdynia

    Wyświetl wizytówkę
  • Kancelaria MERITUM

    ulica Westerplatte 13/5, 31-033 Kraków

    Wyświetl wizytówkę
  • Kancelaria Radcy Prawnego Radosław Tymiński

    Łukowska 9 Lok. 126, 04-133 Warszawa

    Wyświetl wizytówkę
Array ( [docId] => 36839 )
Array ( [docId] => 36839 )

Array ( [docId] => 36839 )