엑셀 색깔별 합계 구하기(ColorSum 함수)

 

추가기능 다운로드

ColorSum.zip

0.01MB

 

추가기능 활성화 방법

• 바로가기

 

설명

• 주어진 조건에 의해 지정된 셀들의 색깔별 합계를 구합니다.
• ColorSum함수는 엑셀에서 기본으로 제공하는 함수가 아닌 사용자 정의 함수로서 추가기능 파일을 다운받고 엑셀에서 추가기능 활성화 후 사용하시기 바랍니다.

 

구문

• =ColorSum(sumRange, colorRange, [colorType])

 

인수

• sumRange(필수) : 조건에 맞는지 검사할 셀 및 합계를 구할 셀들입니다.
• colorRange(필수) : 더할 셀의 조건을 지정하는 셀입니다.
• colorType(선택) : 더할 셀의 색깔 종류 입니다. 글자색을 기준으로 합계를 구하려면 TRUE를, 채우기색을 기준으로 합계를 구하려면 FALSE(또는 생략)을 지정합니다.

 

주의

• Mac OS에서는 동작하지 않을 수 있습니다.

 

예제1

• 채우기색이 빨간색인 것들의 합계를 구합니다.

 

예제2

• 채우기색이 하늘색인 것들의 합계를 구합니다.
• 채우기색 기준으로 합계를 구할때는 colorType 인수를 생략할 수 있습니다.

 

예제3

• 글자색이 빨간색인 것들의 합계를 구합니다.

 

예제4

• 글자색이 파란색인 것들의 합계를 구합니다.

 

VBA Code

[VBA] ColorSum

Function ColorSum(sumRange As range, colorRange As range, Optional colorType As Boolean = False) As Double
    Application.Volatile True
    On Error Resume Next
    Dim rng As range, result As Double
    If colorType Then
        For Each rng In sumRange
            If rng.Font.ColorIndex = colorRange.Font.ColorIndex Then result = result + rng.Value
        Next rng
    Else
        For Each rng In sumRange
            If rng.Interior.ColorIndex = colorRange.Interior.ColorIndex Then result = result + rng.Value
        Next rng
    End If
    ColorSum = result
End Function

 

유사함수

• 색깔별 개수 구하기(ColorCount 함수)
• 색깔별 평균 구하기(ColorAverage 함수)

 

기타

• 이용에 불편한 점이나 건의하실 것 있으면 알려주시기 바랍니다.
• E-mail : devlunar@naver.com