색상에 따른 합산

셀에 특정 색상을 적용해 놓고

지정한 색상의 값들만 합산하고 싶을 때

사용할 수 있는 사용자 함수입니다.

 

 

 

 

VBA로 주어진 색상이 칠해진 셀들의 합을 구하는 사용자 함수를 만들어 사용할 수 있습니다.

=SumColor(범위, 기준색상셀) 형식입니다.

=SumColor(A2:B20, F2) 라면 A2:B20 범위에서 F2의 배경색상과 같은 셀의 숫자를 모두 합한 결과를 출력합니다.

 

Function SumColor(Rng As Range, cRng As Range) As Long
    Dim r As Range
    For Each r In Rng
    
        If r.Interior.Color = cRng.Interior.Color Then
            If IsNumeric(r.Value) Then
                SumColor = SumColor + r.Value
            End If
        End If
        
    Next r
    
End Function

 

 

샘플 파일 참고하세요.

 

SumColor1.xlsm

0.01MB

 

 

참고: 지식인