Richard는 찾기 및 바꾸기를 사용하여 특정 채우기 색상을 사용하여 서식이 지정된 셀 수를 계산하려고합니다. 채우기가 조건부 서식의 결과 인 경우를 제외하고는 정상적으로 작동합니다. 이 경우 찾기 및 바꾸기가 찾지 못합니다. 그러나 채우기 색상을 기준으로 조건부 서식이 지정된 셀이 포함 된 행을 필터링 할 수 있습니다. Richard는 자동 필터가 두 유형의 셀 서식을 감지 할 수있는 경우 찾기 및 바꾸기가 해당 셀을 찾을 수없는 이유를 궁금해합니다.

물론 “이유”로 제시 될 수있는 모든 것은 추측 일 것입니다. (마이크로 소프트가 그들이했던 방식으로 일을하기로 선택한 이유에 대해 여러 번 궁금해했습니다.) 즉, 대체 할 수있는 것을 찾을 수 있도록 찾기 및 바꾸기가 코딩되는 것이 합리적입니다. 조건부 서식의 결과로 표시되는 채우기 색상은 실제 채우기 색상이 아니라 표시 색상입니다. 디스플레이 색상은 교체 할 수 없으므로 찾을 수 없습니다.

그러나 다른 방법 (매크로)을 사용하여 원하는 개수를 표시 할 수 있습니다. 다음 매크로는 특정 범위의 모든 셀을 살펴보고 원하는 색상과 일치하는 항목이 있으면 카운터가 증가합니다. (검사되는 것은 .DisplayFormat 객체이므로 “표시된대로”색상이됩니다. 이는 조건부 서식이 표시 할 수있는 것과도 일치 함을 의미합니다.

Sub CountCellColors()

Dim Rng As Range     Dim c As Range     Dim Colr As Variant     Dim J As Integer     Dim sTemp As String

Set Rng = Range("A1:Z500") 'Change as needed     Colr = vbYellow            'Set color you want to count

J = 0     sTemp = ""

For Each c In Rng         If c.DisplayFormat.Interior.Color = Colr Then             J = J + 1             sTemp = sTemp & vbCr & "     " & c.Address         End If     Next c

Select Case J         Case 0             sTemp = "There are no colored cells in the range."

Case 1             sTemp = "There is 1 colored cell in the range:" _               & vbCr & sTemp         Case Else             sTemp = "There are " & J & " colored cells in the range:" _               & vbCr & sTemp     End Select     MsgBox sTemp End Sub

매크로 실행이 완료되면 일치하는 셀의 주소뿐만 아니라 일치하는 색상 수를 보여주는 메시지 상자가 표시됩니다. 작성된대로 매크로는 A1 : Z500 셀을 확인하고 셀에서 노란색 채우기를 찾습니다. 이러한 값이 설정된 두 줄은 모두 사용자의 필요에 따라 변경할 수 있습니다.

_ 참고 : _

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

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

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

이 팁 (13742)은 Office 365의 Microsoft Excel 2007, 2010, 2013, 2016, 2019 및 Excel에 적용됩니다.