Michala에는 다양한 색상의 다양한 텍스트가 포함 된 설문 조사 응답 워크 시트가 있습니다. 예를 들어 설문 조사 응답이 “나는 개가 싫어요”인 경우 “개”라는 단어는 빨간색으로 표시되고 나머지 텍스트는 검은 색으로 표시 될 수 있습니다. 응답에는 여러 색상이있을 수 있습니다. 예를 들어 “나는 개와 고양이를 좋아합니다.”라는 응답에서 “개”라는 단어는 빨간색으로, “고양이”라는 단어는 파란색으로 표시 될 수 있습니다. Michala는 셀 범위를 강조 표시하고 빨간색 또는 파란색과 같은 특정 색상의 텍스트를 포함하는 셀 수를 계산하는 방법이 필요합니다.

이는 계산을 수행 할 수있는 사용자 정의 함수를 개발하여 가장 잘 수행됩니다. 다음 예제는 셀 범위를 단계별로 살펴보고 지정한 색상 인덱스 값에 대해 계산합니다.

Function CountColorIndex(rng As Range, iColor As Integer)

Dim v As Variant     Dim rCell As Range     Dim str As String     Dim sChar As String     Dim x As Integer     Dim iCount As Integer

iCount = 0     For Each rCell In rng         v = rCell.Font.ColorIndex         If IsNull(v) Then             For x = 1 To Len(rCell.Value)

If rCell.Characters(x, 1).Font.ColorIndex _                   = iColor Then                     iCount = iCount + 1                     Exit For                 End If             Next         ElseIf v = iColor Then             iCount = iCount + 1         End If     Next     CountColorIndex = iCount End Function

이 함수는 먼저 전체 셀의 글꼴 색상을 확인합니다. 셀 색상이 Null이면 개별 문자의 색상이 변경되었으므로 함수가 각 문자를 살펴보기 시작합니다. 일치하는 색상을 찾으면 개수 (iCount)가 증가하고 함수는 각 문자 검색을 중지합니다.

셀 색상이 Null이 아닌 경우이 함수는 셀 전체의 글꼴 색상이 원하는 색상과 일치하는지 확인합니다. 그렇다면 카운트가 증가합니다.

이 프로세스는 지정된 범위의 각 셀에 대해 반복되고 함수는 카운트 값을 반환합니다. 다음과 같은 방식으로 함수를 사용합니다.

=CountColorIndex(B7:D42,3)

이 수식은 B7 : D42 범위를 확인하여 빨간색 인스턴스가 있는지 확인합니다. 그런 다음 수식에 의해 개수가 반환됩니다.

함수가 색상 인덱스 값에 의존한다는 점을 언급 할 가치가 있습니다.

빨간색의 일반적인 기본값은 3이고 파란색의 값은 5이지만 이러한 값은 사용자가 수정할 수 있으며 사용중인 Excel 버전에 따라 다를 수 있습니다. 함수가 원하는 결과를 반환하려면 수식의 두 번째 매개 변수에 지정된 색 인덱스 값을 수정하여 특정 통합 문서에 사용 된 색 인덱스를 나타내도록해야합니다.

_ 참고 : _

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

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

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

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