[땡큐엑셀vba & 엑셀매크로] 바탕색이 같은 셀의 합계-사용자정의함수

 

 

 

 

 

 

 

 

'이미지에서 주황색 셀의 더하기 수식 좀 알려주세요. 칸은 계속해서 추가될거라 수식이 필요합니다.
'또하나 저 이미지로 예를 들면 주황색 셀이 a13 , a18, a26 이라고 가정했을때 이 경우의 수식도 가능한가요?
'답변 부탁드리겠습니다.


'작성자: 땡큐엑셀vba & 엑셀매크로
'Module
'사용자 정의함수
'같은바탕색의 합계
'Rng : 범위
'C : 바탕색
Function colorSUM(Rng As Range, C As Range)
    
    '현행화
    Application.Volatile True
    
    Dim R As Range, X As Range, A As Range
    

    '범위의 셀을 하나 하나씩 꺼내어 루프
    For Each R In Rng
        '바탕색이 같은것만 더하기
        If R.Interior.ColorIndex = C.Interior.ColorIndex Then
            colorSUM = colorSUM + R
        End If
    Next
    
    
     MsgBox "완료되었습니다", vbInformation, "땡큐엑셀vba & 엑셀매크로"
        
End Function

 

같은바탕색의 합계구하기-colorSum-사용자정의함수-땡큐엑셀vba.xlsm

0.15MB