특정 텍스트와 채우기/글꼴 색상을 가진 Excel에서의 셀 수를 어떻게 계산합니까?

특정 텍스트나 글꼴/채우기 색상과 같이 하나의 조건만 포함하는 셀 수를 계산하는 것은 쉬울 수 있습니다. 그러나 여러 조건을 가진 셀 수를 계산하는 방법은 알고 있습니까? 예를 들어, 특정 텍스트와 글꼴/채우기 색상을 모두 포함하는 셀 수를 계산합니다. 이 문서에서는 해결책을 보여드리겠습니다.

VBA 코드로 특정 텍스트와 채우기 색상이 있는 셀 수를 계산하기
VBA 코드로 특정 텍스트와 글꼴 색상이 있는 셀 수를 계산하기

VBA 코드로 특정 텍스트와 채우기 색상이 있는 셀 수를 계산하기

아래 스크린샷에 표시된 것처럼 E2 셀의 텍스트와 채우기 색상을 기준으로 B 열의 셀을 계산하려는 경우 다음 VBA 코드를 적용하십시오.

1. Alt + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. Microsoft Visual Basic for Applications 창에서 삽입 > 모듈을 클릭한 다음 아래 VBA 코드를 모듈 창에 복사합니다.

VBA 코드: 특정 텍스트와 채우기 색상이 있는 셀 수를 계산하기

Sub CountFillColorValue()
'Update by Extendoffice 20180702
    Dim I As Long
    Dim xNum As Long
    Dim Rows As Long
    Dim xRgD As Range
    Dim xRg, xRgS As Range
    On Error Resume Next
    Set xRg = Range("B2:B9")
    Set xRgS = Range("E2")
    Set xRgD = Application.InputBox("Please select a cell:", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRgD Is Nothing Then Exit Sub
    xRows = xRg.Rows.Count
    Set xRg = xRg(1)
    xNum = 0
    For I = 1 To xRows
        If xRg.Offset(I - 1, 0).Interior.ColorIndex = xRgS.Interior.ColorIndex Then
            If xRg.Offset(I - 1, 0).Value = xRgS.Value Then
                xNum = xNum + 1
            End If
        End If
    Next
    xRgD = xNum
End Sub

참고: 코드에서 B2:B9는 셀을 계산할 범위이며, E2는 셀을 계산할 기준인 텍스트와 채우기 색상을 포함하고 있습니다. 필요에 따라 변경할 수 있습니다.

3. 코드를 실행하기 위해 F5 키를 누르면 Kutools for Excel 대화 상자가 나타납니다. 결과를 배치할 셀을 선택한 다음 확인 버튼을 클릭하십시오. 스크린샷 참조:

그러면 계산 결과가 선택한 셀에 즉시 표시됩니다.

Kutools AI로 엑셀의 마법을 풀다

• 스마트 실행: 셀 작업 수행, 데이터 분석 및 차트 생성 - 간단한 명령어로 모든 것을 처리합니다.
• 사용자 정의 수식: 작업을 간소화하기 위한 맞춤형 수식을 생성합니다.
• VBA 코딩: 손쉽게 VBA 코드를 작성하고 실행합니다.
• 수식 해석: 복잡한 수식도 쉽게 이해할 수 있습니다.
• 텍스트 번역: 스프레드시트 내 언어 장벽을 허물어 보세요.

AI 기반 도구로 엑셀 활용 능력을 강화하세요. 지금 다운로드하여 그 어느 때보다 높은 효율성을 경험해 보세요!

VBA 코드로 특정 텍스트와 글꼴 색상이 있는 셀 수를 계산하기

E2 셀의 텍스트와 글꼴 색상을 기준으로 B2:B9 범위의 셀을 계산하려면 다음과 같이 하십시오.

1. Alt + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. Microsoft Visual Basic for Applications 창에서 삽입 > 모듈을 클릭한 다음 아래 VBA 코드를 모듈 창에 복사합니다.

VBA 코드: 특정 텍스트와 글꼴 색상이 있는 셀 수를 계산하기

Sub CountFontColorValue()
'Update by Extendoffice 20180702
    Dim I As Long
    Dim xNum As Long
    Dim xRows As Long
    Dim xRgD As Range
    Dim xRg, xRgS As Range
    On Error Resume Next
    Set xRg = Range("B2:B9")
    Set xRgS = Range("E2")
    Set xRgD = Application.InputBox("Please select a cell:", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRgD Is Nothing Then Exit Sub
    xRows = xRg.Rows.Count
    Set xRg = xRg(1)
    xNum = 0
    For I = 1 To xRows
        If xRg.Offset(I - 1, 0).Font.ColorIndex = xRgS.Font.ColorIndex Then
            If xRg.Offset(I - 1, 0).Value = xRgS.Value Then
                xNum = xNum + 1
            End If
        End If
    Next
    xRgD = xNum
End Sub

참고: 코드에서 B2:B9는 셀을 계산할 범위이며, E2는 셀을 계산할 기준입니다. 필요에 따라 변경할 수 있습니다.

3. 코드를 실행하기 위해 F5 키를 누르면 Kutools for Excel 대화 상자가 나타납니다. 결과를 배치할 셀을 선택한 다음 확인 버튼을 클릭하십시오. 스크린샷 참조:

아래 스크린샷에 표시된 것처럼 결과를 얻게 됩니다:

관련 기사:

• Excel에서 두 값 또는 날짜 사이의 셀 수를 계산하는 방법은 무엇입니까?
• Excel에서 선택 영역 내 특정 텍스트가 있는 셀 수를 계산하는 방법은 무엇입니까?
• Excel에서 셀에 텍스트 또는 부분 텍스트가 포함되어 있는지 계산하는 방법은 무엇입니까?
• Excel에서 셀 또는 셀 범위 내 특정 단어 수를 계산하는 방법은 무엇입니까?