Excel에서는 통합 문서의 셀에 모든 종류의 서식을 적용 할 수 있습니다. 할 수있는 작업 중 하나는 패턴이나 색상을 사용하여 셀을 “음영 처리”하는 것입니다. (셀 서식 대화 상자의 패턴 탭에서이 작업을 수행합니다.) 어느 시점에서 범위에서 음영 처리되는 셀 수를 알고 싶을 수 있습니다.

Excel에는 음영 처리 된 셀을 계산할 수있는 워크 시트 수식이 없습니다. 대신이 작업을 수행하려면 고유 한 매크로를 개발해야합니다. 다음 매크로는이 문제에 접근하는 방법의 예입니다. A1에서 J20까지의 범위에서 음영 처리 된 셀의 수를 계산하고 셀 A1에 계수를 배치합니다.

Sub CountColor()

Dim irow, icol As Integer

Cells(1, 1) = 0     For irow = 1 To 20         For icol = 1 To 10             If Cells(irow, icol).Interior.ColorIndex _               <> xlColorIndexNone Then                 Cells(1, 1) = Cells(1, 1) + 1             End If         Next icol     Next irow End Sub

루틴의 핵심은 각 셀의 ColorIndex와 미리 정의 된 xlColorIndexNone 상수 사이에서 수행되는 비교입니다. 같지 않으면 셀이 어떤 식 으로든 음영 처리 된 것입니다.

이 동일한 기본 기술을 사용자 지정 기능에 쉽게 적용 할 수 있습니다.

다음에서 동일한 비교가 셀 단위로 수행됩니다.

Function FindShades(a As Range) As Integer     FindShades = 0     For Each c In a         If c.Interior.ColorIndex <> xlColorIndexNone Then             FindShades = FindShades + 1         End If     Next c End Function

이 함수를 사용하려면 셀에서 수식으로 사용하고 수식에서 범위를 지정하십시오.

= FindShades(B7:E52)

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (2059)은 Microsoft Excel 97, 2000, 2002 및 2003에 적용됩니다.