답변:
그 목적을 위해 사용자 정의 기능이 필요하다고 생각합니다. 이 코드를 통합 문서 내의 모듈에 놓으십시오 (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)