Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 70537 Skopiuj do schowka Sumowanie wartości po kolorze komórki
Autor Wiadomość
bartss
Starszy Forumowicz


Wersja: Win Office 365
Posty: 47
Wysłany: 28-03-2021, 17:47   Sumowanie wartości po kolorze komórki

Hej,

znalazem kod VBA w internecie( nie znam VBA zupełnie), tworzący formułę.
Niestety, z niezrozumiałego dla mnie powodu, wyrzuca błąd.

Czy ktoś byłby uprzejmy spojrzeć?

kolory.xlsm
Pobierz Plik ściągnięto 10 raz(y) 14.48 KB

ID posta: 402867 Skopiuj do schowka
 
 
Maciej Gonet 
Excel Expert


Wersja: Win Office 2016
Pomógł: 2118 razy
Posty: 6628

Wysłany: 28-03-2021, 18:05   

Zobacz teraz. Powinno działać.
Był błąd formalny w strukturze funkcji If.

kolory_.xlsm
Pobierz Plik ściągnięto 6 raz(y) 13.74 KB

ID posta: 402868 Skopiuj do schowka
 
 
bartss
Starszy Forumowicz


Wersja: Win Office 365
Posty: 47
Wysłany: 28-03-2021, 20:07   

Mógbyś mi wyjaśnić, co zrobiłeś? Przekopiowałem ten moduł do innego pliku, i wyrzuca mi idenytyczny błąd jak poprzednio. Twój plik naturalnie działa.
ID posta: 402871 Skopiuj do schowka
 
 
Maciej Gonet 
Excel Expert


Wersja: Win Office 2016
Pomógł: 2118 razy
Posty: 6628

Wysłany: 28-03-2021, 21:03   

Powinno być tak:
Kod:
If cl.Interior.ColorIndex = ColIndex Then
       cSum = WorksheetFunction.Sum(cl, cSum)
End If
albo tak:
Kod:
If cl.Interior.ColorIndex = ColIndex Then cSum = WorksheetFunction.Sum(cl, cSum)

A Ty miałeś tak:
Kod:
If cl.Interior.ColorIndex = ColIndex Then cSum = WorksheetFunction.Sum(cl, cSum)
End If
To jest niepoprawne składniowo, bo instrukcja If jest albo jednowierszowa bez End If albo wielowierszowa z End If, a tak jak miałeś jest źle.

Tej funkcji możesz też używać z zakresem złożonym, tylko trzeba go ująć w nawiasy.
Nie wiem czy Ci to potrzebne, ale piszę tak na wszelki wypadek, bo nie każdy o tym wie.

kolory_.xlsm
Pobierz Plik ściągnięto 7 raz(y) 13.81 KB

ID posta: 402873 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Wersja: Win Office 2013
Pomógł: 797 razy
Posty: 4311
Wysłany: 28-03-2021, 21:40   

To nie żadna złośliwość - dla lepszego zrozumienia:
Kod:
If cl.Interior.ColorIndex = ColIndex Then
    cSum = WorksheetFunction.Sum(cl, cSum)
    'tu kolejne ewentualne instrukcje
End If
_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
Chcesz precyzyjną odpowiedź - zadaj precyzyjne pytanie.
ID posta: 402875 Skopiuj do schowka
 
 
bartss
Starszy Forumowicz


Wersja: Win Office 365
Posty: 47
Wysłany: 29-03-2021, 12:56   

Bardzo dziękuję za wyjaśnienie! :)
ID posta: 402906 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe