본문 바로가기

엑셀(Excel)/사용자 정의 함수

엑셀 색깔별 개수 구하기(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

Basic 파일 다운로드 함수 사용방법 바로가기 VBA Code Function ColorCount(countRange As range, colorRange As range, Optional colorType As Boolean = False) As Long Application.Volatile True On Error R..

xlmaster.tistory.com

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

 

유사함수

 

Update Note : 2020-04-25


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

 

 

기타

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