이 기사에서는 정의 된 색상을 가진 범위의 셀 수를 계산하는 사용자 지정 함수를 만듭니다.

이 예에서 샘플 데이터는 100에서 1000 사이의 값을 갖는 범위로 구성됩니다. 셀의 값은 다른 색상으로 강조 표시됩니다. 우리는 각 색상의 개수를 찾고 싶습니다.

ArrowMain

특정 색상의 개수를 계산하기 위해 사용자 정의 함수 “CountByColor”를 만들었습니다. 이 함수는 두 개의 범위 매개 변수를 입력으로 사용합니다. 첫 번째 범위 매개 변수는 셀의 내부 색상을 정의하고 두 번째 범위 매개 변수는 샘플 범위를 정의합니다.

ArrowOutput

코드 설명

Application.Volatile은 통합 문서에서 셀 값이 변경 될 때마다 다시 계산되므로 사용됩니다.

DefinedColorRange.Interior.ColorIndex 위 코드는 정의 된 범위의 내부 색상을 가져 오는 데 사용됩니다.

아래 코드를 따르세요

Function CountByColor(DefinedColorRange As Range, CountRange As Range)

Application.Volatile

'Declaring variables

Dim ICol As Integer

Dim GCell As Range

'Getting the interior color of the cell

ICol = DefinedColorRange.Interior.ColorIndex

'Looping through the defined range

For Each GCell In CountRange



If ICol = GCell.Interior.ColorIndex Then

'Getting the count of matching colored cell

CountByColor = CountByColor + 1

End If

Next GCell

End Function

이 블로그가 마음에 들면 Facebook 및 Facebook에서 친구들과 공유하십시오.

여러분의 의견을 듣고 싶습니다. 작업을 개선하고 더 나은 서비스를 제공 할 수있는 방법을 알려주십시오. [email protected]로 문의 해주세요