VBA를 사용하여 특정 셀 색의 셀 수 계산

  • 아티클
  • 적용 대상:
    Excel for Office 365, Excel 2019, Excel 2016, Excel 2013, Excel 2010, Microsoft Office Excel 2007, Microsoft Office Excel 2003

요약

Microsoft Excel 수식 탭에서 More Functions>통계 범주에는 지정된 조건을 충족하는 범위 내의 셀 수를 계산하는 COUNTIF라는 함수가 있다는 것을 알고 있습니다. 해당 함수에 대한 조건은 텍스트 또는 숫자로 제한됩니다. 그러나 VBA를 사용하여 셀 색과 같은 다른 조건을 가진 셀 수를 계산하는 함수를 만들 수 있습니다.

Countif

추가 정보

VBA를 사용하여 UDF(사용자 정의 함수)를 만들고 추가 기능 파일에 저장하여 다른 통합 문서에서 사용하고 다른 컴퓨터로 전송할 수 있습니다.

UDF를 만드는 방법

다음은 셀 색을 계산하는 UDF를 만드는 단계입니다.

  1. Microsoft Excel을 연 다음 Alt+F11을 눌러 VBE(Visual Basic Editor) 창을 표시합니다.

  2. 삽입 메뉴에서 모듈을 선택하여 모듈을 만듭니다. 그런 다음, 다음 스크립트를 입력합니다.

    Function CountCcolor(range_data As range, criteria As range) As Long     Dim datax As range     Dim xcolor As Long xcolor = criteria.Interior.ColorIndex For Each datax In range_data     If datax.Interior.ColorIndex = xcolor Then         CountCcolor = CountCcolor + 1     End If Next datax End Function

    삽입 메뉴에서 모듈을 선택하여 모듈을 만듭니다. 그런 다음, 다음 스크립트를 작성합니다.

  3. Excel로 돌아가려면 VBE 창을 닫습니다.

  4. UDF를 테스트하려면 다양한 색의 셀 열이 포함된 예제 데이터를 만듭니다.

  5. D3 셀에서 함수를 작성합니다.

=CountCcolor(range_data,criteria)

  • "range_data" 인수에서 C2에서 C51까지의 셀을 선택합니다.

  • "criteria" 인수에서 F1 셀을 선택합니다.

    D3 셀에서 =CountCcolor 함수를 작성합니다.

  1. Enter 키를 누릅니다. F2 셀의 결과는 6입니다. 즉, 파란색으로 음영 처리된 셀 수는 6입니다.

    Enter 키를 누르고 F2 셀에서 결과는 6입니다. 파란색 셀 색이 6개인 셀 수를 의미합니다.

  2. 다른 색을 사용하여 테스트할 수 있습니다. 홈> 채우기 색을 사용하여 데이터에서 원하는 색으로 F1 셀의 색을 변경합니다.

    다른 색을 테스트할 수도 있습니다. 서식 복사를 사용하여 데이터에서 원하는 색으로 F1 셀의 색을 변경하여 동일한 색을 가져옵니다.

  3. 다른 통합 문서 또는 다른 컴퓨터에서 함수를 사용할 수 있도록 UDF를 압축할 수도 있습니다. 제거하려면 다음 단계를 수행합니다.

    1단계: 통합 문서 저장

    a. 파일을 선택한 다음 다른 이름으로 저장합니다. (필요한 경우 찾아보기를 선택합니다.)

    b. Excel Add-In(.xlam)을 형식으로 선택하고 파일에 CountCcolor와 같은 이름을 지정합니다.

    참고

    원하는 위치에 Add-In 파일을 저장할 수 있습니다. 그러나 Excel 프로그램 내에서 Add-In 나열되도록 하려면 기본 위치에 저장합니다. Windows 7에서 Microsoft Excel 버전에 대한 기본 위치는 C:\Users\RADDINI\AppData\Roaming\Microsoft\AddIns입니다.

    2단계: 추가 기능 설치

    a. 추가 기능을 설치하려는 컴퓨터에서 Microsoft Excel을 엽니다.

    b. Excel 2013용 Excel 추가 기능 이상을 선택하여 Add-Ins 대화 상자를 엽니다. (Excel 2010의 추가 기능)

    c. 추가 기능 대화 상자 에서찾아보기를 선택합니다. Add-In 대화 상자에서 찾아보기 단추를 클릭하여 찾아보기 대화 상자가 표시됩니다.

    d. Add-In 파일이 저장되는 파일 위치(예: USB 드라이브 또는 클라우드 기반 폴더)로 이동합니다. 파일을 선택한 다음 열기를 선택합니다.

    e. Add-Ins 대화 상자에서 추가 기능 확인란이 선택 취소되어 있는지 확인합니다. 그런 다음 확인을 선택합니다. Add-Ins 대화 상자에서 추가 기능 확인란이 선택 취소되어 있는지 확인합니다. 그런 다음 확인을 선택합니다.

Count 셀 색 UDF가 설치되어 사용할 준비가 완료되었습니다. 워크시트의 셀에 커서를 놓고 다음을 입력하여 언제든지 이 함수에 액세스할 수 있습니다.

=CountCcolor(range_data,criteria)

커뮤니티 솔루션 콘텐츠 고지 사항

MICROSOFT CORPORATION 및/또는 해당 공급업체는 여기에 포함된 정보 및 관련 그래픽의 적합성, 안정성 또는 정확도에 대해 어떠한 표현도 하지 않습니다. 이러한 모든 정보 및 관련 그래픽은 어떠한 종류의 보증도 없이 "있는 그대로" 제공됩니다. MICROSOFT 및/또는 해당 공급업체는 이러한 정보 및 관련 그래픽과 관련된 모든 보증 및 조건을 부인하며, 여기에는 모든 묵시적 보증 및 가맹점 조건, 특정 목적에 대한 적합성, 장인 같은 노력, 직함 및 비침해가 포함됩니다. 귀하는 어떠한 경우에도 MICROSOFT 및/또는 해당 공급업체가 여기에 포함된 정보 및 관련 그래픽의 사용 또는 사용 불가와 관련하여 발생하거나 어떠한 방식으로든 발생하는 사용 손실, 데이터 또는 수익에 대한 손해를 포함하여 직접, 간접, 징벌적, 부수적, 특별, 결과적 손해 또는 손해에 대해 책임을 지지 않는다는 데 동의합니다. 계약, 불법 행위, 과실, 엄격한 책임 또는 기타에 따라 MICROSOFT 또는 해당 공급업체에 손해 배상 가능성을 통보한 경우에도 마찬가지입니다.