|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(2013):
* 아래줄에 질문을 작성하세요 >>
웹상에서 구한 폰트색에 따라 합계 구하는 로직을 폰트색 확인하는 레인지와 합계 구하는 레인지를 나누고자 합니다.
아래처럼 수정하면 루프가 이중으로 도는데 그걸 원하는건 아닙니다.ㅎㅎ
cellRange에서 폰트색 확인하고 sumRange에서 합계 구하는 로직으로 가이드 좀 부탁 드립니다.
감사합니다,
Function ColorSum(cellRange As Range, colorRange As Range, sumRange As Range, Optional colorType As Boolean = False) As Double
Application.Volatile (True)
Dim rng1 As Range, rng2 As Range, result As Double
If colorType Then
For Each rng1 In cellRange
For Each rng2 In sumRange
If rng1.Font.ColorIndex = colorRange.Font.ColorIndex Then result = result + rng2.Value
Next rng2
Next rng1
Else
For Each rng1 In cellRange
For Each rng2 In sumRange
If rng1.Interior.ColorIndex = colorRange.Interior.ColorIndex Then result = result + rng2.Value
Next rng2
Next rng1
End If
ColorSum = result
End Function
|
|