셀의 개수를 구하는 COUNT, COUNTA, COUNTIF 등의 함수는 모두 셀의값을 기준으로 개수를 구한다

셀에 채우기 색을 기준으로 개수를 구하는 함수 추가 하기

Function ColorCount(inRng As Range, inColor As Range)

    Dim rngCell As Range

    Dim allCount As Long

    For Each rngCell In inRng

        If rngCell.Interior.Color = inColor.Interior.Color Then

            allCount = allCount + 1

        End If

    Next

    ColorCount = allCount

End Function

윗부분까지 복사를 합니다.

[파일]-[옵션]을 클릭하여[리본사용자 지정]에서 [개발도구]를 체크한다

[개발도구] - [Visual Basic]을 클릭한다  단축키는 Alt _F11

[Visual Basic] 편집기 창에서 [삽입] - [모듈]

아까 복사한 파일을 붙여넣기 한다

저장버튼을 누른다

[개발도구] - [Excel 추가기능] 또는[추가기능] 선택

엑셀에서 함수에 자동합게 하단 기타함수

함수 ColorCount 선택

InRng : 색상이 있는셀 행

inColor : 색상클릭