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

이 예에서 샘플 데이터는 영업 팀 데이터로 구성됩니다. 영업팀 데이터에는 판매 된 품목 수와 관련된 세부 정보가 포함됩니다. 그레이, 레드, 그린의 3 가지 색상으로 제공되는 제품 관련 정보를 담고 있습니다. 제품 색상별로 판매 된 품목의 합계를 찾고 싶습니다.

ArrowRaw

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

ArrowOutput

코드 설명

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

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

아래 코드를 따르세요

Option Explicit

Function SumByColor(DefinedColorRange As Range, SumRange 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 SumRange



If ICol = GCell.Interior.ColorIndex Then

'Getting the sum of matching colored cell

SumByColor = SumByColor + GCell.Value

End If

Next GCell

End Function

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

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