셀의 개수를 구하기

 

 

셀의 개수를 구하는 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 : 색상 클릭