엑셀 같은색 합계구하기

Excel에서 Alt + F11을 누르시면

Microsoft Visual Basic Editor 창이 나타납니다..

메뉴에서 삽입 -> 모듈을 하면 창이 하나 나타나는데..거기에 아래 내용을 붙혀 넣습니다..

 

안녕하세요~

 

다음의 사용자 정의함수를 이용해 보세요~

 

=sumColor(범위,기준색셀)

 

=sumColor($A$1:$G$9,A1)

 

'----------------------------------------------

 

Function sumColor(ByVal rng As Range, rngPick As Range)

    Dim lngColor    As Long

    Dim C           As Range

    lngColor = rngPick.Interior.Color

    For Each C In rng

    If C.Interior.Color = lngColor Then

            sumColor = sumColor + Val(C.Value)

        End If

    Next

    End Function

'----------------------------------------------

이렇게 하고 닫고 나와서 쓰시면 됩니다.