같은 글자색의 숫자 더하기

같은 색깔의 숫자를 더하는 사용자정의함수입니다.

=ColorSum(더하고자 하는 글자색, 더하고자 하는 영역)

으로 입력하면 원하는 색깔의 숫자를 더해줍니다.

Option Explicit
 
Function ColorSum(SampleRange As Range, SumRange As Range) As Long
'SampleRange의 글자색과 일치하는 숫자를 더하는 사용자정의함수입니다.
    
    Dim SampleColor As Long '글자색 번호
    Dim tmp As Long '글자색이 같은 숫자의 임시 합
    Dim SingleRange As Range    '순환문에 쓸 변수
    
    '더하고자 하는 글자색
    SampleColor = SampleRange.Font.Color
 
    For Each SingleRange In SumRange
        
        '글자색이 같으면 숫자를 더합니다.
        If SingleRange.Font.Color = SampleColor Then
        
            tmp = tmp + SingleRange.Value2
            
        End If
        
    Next
    
    ColorSum = tmp
    
End Function
 

같은 색깔의 숫자 더하기.xlsm