Akademia VBA

czyli jak uzyskać władzę nad światem … danych

Sumuj wartości z kolorowych komórek

Kategorie: Excel VBA,Podstawy VBA — Darek Kolasa o 10:15, 11 Sty 2017

Dzisiaj prosta wprawka z użyciem pętli For Each
Zaznaczamy zakres a makro zsumuje wartości z komórek wypełnionych dowolnym kolorem

Sub SumujKolorowe()
    Dim Kom As Range
    Dim Wynik As Double
    Dim Nic As String
    For Each Kom In Selection
        If Kom.Interior.ColorIndex <> xlNone Then
            Wynik = Wynik + Kom.Value
        End If
    Next
    Nic = _
        InputBox("W polu poniżej jest suma wartości znalezionych w kolorowych komórkach :)" _
        & vbNewLine & _
        "Możesz skopiować ten wynik (Ctrl+C) aby później go gdzieś wkleić", , Wynik)
End Sub

2 komentarze »

Komentarz- cbr

11 Sty 2017 @ 11:34

Należało by zaznaczyć, że kod nie działa dla komórek wypełnionych kolorem przez formatowanie warunkowe.

Komentarz- Darek Kolasa

11 Sty 2017 @ 11:52

i że wręcz niewiarygodnie trudno dowiedzieć się, jaki kolor generuje format warunkowy :)
http://www.cpearson.com/Excel/CFColors.htm

RSS komentarzy do wpisu. Adres trackback

Zostaw komentarz

Dozwolone znaczniki XHTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>