엑셀 색깔별 개수 구하기(ColorCount 함수)

 

추가기능 다운로드

ColorCount.zip

0.01MB

 

추가기능 활성화 방법

• 바로가기

 

설명

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

 

구문

• =ColorCount(countRange, colorRange, [colorType])

 

인수

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

 

주의

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

 

예제1

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

 

예제2

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

 

예제3

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

 

예제4

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

 

VBA Code

[VBA] ColorCount

Function ColorCount(countRange As range, colorRange As range, Optional colorType As Boolean = False) As Long
    Application.Volatile True
    On Error Resume Next
    Dim rng As range, result As Double
    If colorType Then
        For Each rng In countRange
            If rng.Font.Color = colorRange.Font.Color Then result = result + 1
        Next rng
    Else
        For Each rng In countRange
            If rng.Interior.Color = colorRange.Interior.Color Then result = result + 1
        Next rng
    End If
    ColorCount = result
End Function

 

유사함수

• 색깔별 합계 구하기(ColorSum 함수)
• 색깔별 평균 구하기(ColorAverage 함수)

 

Update Note : 2020-04-25

---

글자색을 기준으로 카운트할시 비어있는 셀의 글자색도 카운트하던 문제를 수정하였습니다.

 

 

기타

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