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