엑셀 VBA - 색깔별 갯수 세기(color count 기능)

1. 엑셀에서 [개발도구]-[Visual Basic]을 연다. (단축키 ALT+F11)

 

* [파일]-[옵션]에서 [리본사용자지정]-[개발자 도구]를 클릭한다.

 

2.  활성화된 Visual Basic 창에서 [삽입]-[모듈]을 클릭한다.

 

 

3.  아래 코드를 추가한다.

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

5. 적용을 위하여 저장을 한다 *파일 형식은 꼭 ∨눌러 'excel 추가 기능'으로 해야한다.

 

6. 저장된 파일을 불러오기 위하여 [개발도구]-[excel 추가기능]을 클릭하고 방금 추가한 함수 파일 명을 체크하고 확인을 누른다.

 

7. 함수마법사를 열고 범주 선택에서 '사용자 정의'를 선택한다.

8. inrng 범위에는 전체 색상 범위, incolor 범위에는 찾고하는 색이 있는 셀 하나를 샘플로 선택한다.

미리 샘플 색을 옆에 만들어서 스크롤을 당기면 편하게 구할 수 있다.