엑셀에서 색깔있는 셀만 셀수 있는 방법

엑셀에서 색깔있는 셀만 셀수 있는 방법에 대해 알아보자 

 

VGA로하여야 하며, 엑셀 2010이상 버전에서 하였습니다.

ALT + F11 하신 후, 삽입>>모듈을 선택하시면 Module1 이 삽입이 됩니다.

그러면 오른쪽 흰 공백 부분에 아래 코드를 복사해서 붙여넣으세요.

그런 후 워크시트 상에서 사용하실때는

=cntColor(기준색상셀,개수를 셀 대상범위)

이런식으로 사용하시면 됩니다.

그림을 참고해 보세요.

 

Function cntColor(rngCell As Range, rngArea As Range)

Dim i As Integer
Dim j As Integer
Dim rng As Range

i = rngCell.Interior.ColorIndex

For Each rng In rngArea

    If rng.Interior.ColorIndex = i Then j = j + 1

Next rng

cntColor = j

End Function