Podsumowanie na podstawie koloru tła komórki

Potrzebujesz wykonać podsumowanie warunkowe. Dane do obliczeń i kryteria znajdują się w osobnych kolumnach i nie są określone wartościami, a kolorami. Jak nakłonić Excela, aby podsumował te wartości, którym odpowiadają komórki oznaczone kolorem w innej kolumnie. Rozwiązaniem jest funkcja napisana w języku Visual Basic. Przykładowe dane do podsumowania przedstawia rysunek.

Aby przygotować odpowiednią funkcję:
1. Otwórz Edytor Visual Basic za pomocą kombinacji klawiszy lewy Alt + F11.
2. Z menu Insert wybierz polecenie Module.
3. Wpisz kod widoczny na rysunku.

4. Zapisz i zamknij Edytor VBA.
5. Zaznacz komórkę B12 i wprowadź następującą formułę:

=SumaKolorow(B2:B11)

Otrzymałeś gotowy wynik.

Dostosuj funkcję do swoich potrzeb:
- Jeżeli komórki oznaczone kolorem (kryteria) są oddalone od kwot o dwie kolumny w lewą stronę wpisz -2 w drugim argumencie funkcji Offset. Jeżeli leżałyby po prawej stronie, użyj dodatniej liczby określającej przesunięcie.
- Funkcja uwzględnia jedynie komórki, których kolor tła jest czerwony. Jeżeli użyłeś innego, zmień liczbę określającą kolor przy właściwości Interior.ColorIndex. Przykładowo: liczba 1 to numer koloru czarnego, 2 – białego, 4 – zielonego, 5 – niebieskiego, 6 – żółtego, 7 – różowego, 8 – błękitnego, a 9 – brązowego.