Cindy는 여러 셀에서 색상을 사용하는 완전히 서식이 지정된 워크 시트를 가지고 있습니다.

일부 셀에는 값이 있습니다. 많은 사람들이 그렇지 않습니다. 그녀는 비어있는 유색 세포를 세는 방법이 필요하며이를 수행하는 빠른 방법이 있는지 궁금합니다.

필요한 정보를 얻을 수있는 몇 가지 방법이 있습니다. 한 가지 방법은 다음 단계를 수행하는 것입니다.

  1. 카운트에 사용할 색상을 파악하십시오.

  2. F5를 누릅니다. Excel은 이동 대화 상자를 표시합니다.

  3. 특수 버튼을 클릭합니다. Excel은 특별하게 이동 대화 상자를 표시합니다.

(그림 1 참조)

  1. 공백 라디오 버튼을 선택합니다.

  2. 확인을 클릭하십시오. 이제 워크 시트의 모든 빈 셀이 선택됩니다.

  3. Ctrl + F를 누릅니다. Excel은 찾기 및 바꾸기 대화 상자의 찾기 탭을 표시합니다.

  4. 옵션 버튼을 클릭하여 대화 상자를 확장합니다. (그림 2 참조)

  5. 포맷 버튼을 클릭합니다. Excel에서 형식 찾기 대화 상자가 표시됩니다.

  6. 채우기 탭이 표시되는지 확인합니다. (그림 3 참조)

  7. 검색하려는 색상을 클릭하십시오. (1 단계에서 결정한 색상입니다.)

  8. 확인을 클릭하여 형식 찾기 대화 상자를 닫습니다.

  9. 모두 찾기를 클릭합니다.

이러한 단계를 수행하면 Excel에서 찾기 및 바꾸기 대화 상자의 아래쪽에 색과 일치하는 셀 수를 표시합니다. 빈 셀만 선택하여 검색을 시작 했으므로 결과 개수는 색상으로 채워진 비어있는 모든 셀입니다.

물론이 개수를 여러 번 확인해야하는 경우 이러한 단계는 매우 빠르게 지루해질 수 있습니다. 이러한 경우 매크로를 사용하는 것이 좋습니다. 다음 매크로는 선택한 범위의 각 빈 셀을 단계별로 실행하고 패턴이나 색상이 포함되어 있고 비어 있는지 확인합니다. 조건이 충족되면 해당 색상에 대한 카운터가 증가합니다.

Sub CountBlankColors1()

Dim c As Range     Dim J As Integer     Dim ColorCount(56) As Long

ActiveSheet.Range("a1").CurrentRegion.SpecialCells(xlCellTypeBlanks).Select

For Each c In Selection         With c.Interior             If .Pattern <> xlNone Then                 If .ColorIndex <> xlNone Then                     If IsEmpty(c) Then                         ColorCount(.ColorIndex) = _                           ColorCount(.ColorIndex) + 1                     End If                 End If             End If         End With     Next c

sTemp = "These are the color counts" & vbCrLf & vbCrLf     For J = 0 To 56         If ColorCount(J) > 0 Then             sTemp = sTemp & "Color " & J & ": " & ColorCount(J) & vbCrLf         End If     Next J

MsgBox sTemp End Sub

물론 개별적으로 다른 색상을 세고 싶지 않을 수도 있습니다.

대신, 어떤 색으로 채워진 빈 셀 수를 집계하여 간단히 알고 싶을 수 있습니다. 이 경우 매크로가 훨씬 간단 해집니다.

Sub CountBlankColors2()

Dim c As Range     Dim x As Long

x = 0     ActiveSheet.Range("a1").CurrentRegion.SpecialCells(xlCellTypeBlanks).Select

For Each c In Selection         If c.Interior.Pattern <> xlNone Then             If c.Interior.ColorIndex <> xlNone Then                 If IsEmpty(c) Then x = x + 1             End If         End If     Next c     MsgBox "Number of colored blank cells: " & x End Sub

이러한 접근 방식은 셀이 조건부 형식을 사용하여 색상이 지정되는지 여부를 고려하지 않는다는 점에 유의해야합니다.

(사실 조건부 형식은 전혀 고려하지 않습니다.)

_ 참고 : _

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

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

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

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