그 목적을 위해 사용자 정의 기능이 필요하다고 생각합니다. 이 코드를 통합 문서 내의 모듈에 놓으십시오 (VB 편집기 열기, 모듈 삽입, 아래 코드를 해당 모듈에 붙여 넣기, VB 편집기 닫기).

 Function COUNTCELLCOLORSIF(CellRange As Range, ColorIndex As Integer) As Long

     Dim rngCell

     Application.Volatile 'Thanks, Excellll!

     For Each rngCell In CellRange
        If rngCell.Interior.ColorIndex = ColorIndex Then
           COUNTCELLCOLORSIF = COUNTCELLCOLORSIF + 1
        End If
     Next rngCell

End Function

Function CELLCOLORINDEX(CellRange As Range) As Integer

     Application.Volatile 'Thanks, Excellll!
     CELLCOLORINDEX = CellRange.Interior.ColorIndex

End Function

CELLCOLORINDEX를 사용하면 지정된 셀 색상의 정수 값을 결정할 수 있습니다. 예를 들어, A1 내부 색상의 정수 값을 확인하려면 공식은 다음과 같습니다.

 =CELLCOLORINDEX(A1)

그런 다음 COUNTCELLCOLORSIF를 사용하여 지정된 영역에서 해당 색상의 셀 수를 계산할 수 있습니다. 예를 들어 A1에 확인하려는 색상의 정수 값이 포함되어 있고 확인하려는 셀이 B1 : B150에 있으면 공식은 다음과 같습니다.

 =COUNTCELLCOLORSIF($B$1:$B$150, $A$1)

답변