[vba] 조건부 서식이 걸린 셀 Display 색상 가져오기

728x90

조건부 서식이 걸린 셀의 색상을 카운트할 수 있습니다.

아래처럼 [알고자 하는 셀].DisplayFormat.Interior.Color로 조건부 서식으로 지정한 셀 색상 값을 가져올 수 있습니다.

dColor = rasCell.DisplayFormat.Interior.Color

Function Color(intRng As Range) As String
    Dim rasCell As Range
    Dim Y As Integer
    Dim R As Integer
    Dim G As Integer
    Dim dColor As Long
    For Each rasCell In intRng
        If rasCell.FormatConditions.Count > 0 Then
            dColor = rasCell.DisplayFormat.Interior.Color
            If dColor = RGB(255, 255, 0) Then
                Y = Y + 1
            ElseIf dColor = RGB(255, 0, 0) Then
                R = R + 1
            ElseIf dColor = RGB(84, 130, 53) Then
                G = G + 1
            End If
        End If
    Next
    Color = Y & R & G
End Function
 
 