글꼴 색상이 빨간색인지 확인하고 Excel에서 결과를 반환하는 VBA

VBA 매크로 구현 Excel에서 모든 작업을 실행하는 가장 효과적이고 빠르고 안전한 방법입니다. 이 기사에서는 데이터세트의 글꼴 색상이 빨간색인 경우 VBA를 사용하여 Excel에서 특정 결과를 얻는 방법을 보여줍니다. .

통합 문서 다운로드

여기에서 무료 연습 Excel 워크북을 다운로드할 수 있습니다.

글꼴 색상이 빨간색인지 확인한 다음 Excel에서 VBA를 사용하여 특정 결과를 반환하는 6가지 방법

글꼴 색상이 빨간색인 값이 있는 다음 데이터세트를 살펴보세요. 이 섹션에서는 글꼴 색상이 빨간색인 경우 단계별 절차와 Excel에서 특정 결과를 얻는 방법에 대해 설명합니다.

1. 글꼴 색상이 빨간색이면 Excel에서 특정 단어 반환

예를 반환하고 싶습니다. 글꼴 색상이 빨간색이고 아니요인 경우 글꼴 색상이 빨간색이 아닌 경우. Excel VBA로 이 작업을 수행하는 방법을 살펴보겠습니다. .

단계:

• Alt + F11 누르기 키보드에서 또는 개발자 -> Visual Basic 탭으로 이동합니다. Visual Basic Editor 열기 .

• 팝업 코드 창의 메뉴 표시줄에서 삽입 -> 모듈을 클릭합니다. .

• 다음 코드를 복사하여 코드 창에 붙여넣습니다.

Function FontColorRed(target As Range)
    Application.Volatile
    If target.Font.Color = 255 Then
    FontColorRed = "Yes"
    Else
    FontColorRed = "No"
    End If
End Function

이것은 VBA에 대한 하위 절차가 아닙니다. 프로그램을 실행하면 사용자 정의 함수(UDF)가 생성됩니다. . 따라서 코드를 작성한 후 실행 버튼을 클릭하는 대신 메뉴 표시줄에서 저장을 클릭합니다. .

• 이제 관심 있는 워크시트로 돌아가서 VBA로 방금 만든 함수를 작성합니다. 코드(함수 FontColorRed 코드의 첫 번째 줄) 및 FontColorRed 괄호 안에 함수, 셀 참조 번호 전달 문자로 변환하려는 항목(이 경우 C5 셀을 전달합니다. 괄호 안).

따라서 최종 공식은 다음과 같습니다.

=FontColorRed(C5)

• Enter 키를 누릅니다. .

예가 표시됩니다. C5 셀의 글꼴 색상이 빨간색이면 아니요가 표시됩니다. . 우리의 경우 C5 셀 안에 있는 텍스트의 글꼴 색상 빨간색이 아니므로 아니요를 얻었습니다.

• 이제 채우기 핸들로 행을 아래로 드래그합니다. UDF 적용 나머지 셀로 이동하면 예가 표시됩니다. 빨간색 글꼴 색상의 텍스트가 있는 셀 옆에 있습니다.

2. 글꼴 색상이 빨간색인 경우 색상 코드 반환

여기서는 VBA를 사용하여 Excel의 글꼴 색상 빨간색을 기반으로 색상 코드를 추출하는 방법을 배웁니다. .

단계:

• 이전과 같은 방식으로 Visual Basic Editor를 엽니다. 개발자 탭 및 삽입 모듈 코드 창에서
• 코드 창에서 다음 코드를 복사하여 붙여넣습니다.

Function ColorCode(rng As Range)
    ColorCode = rng.Font.ColorIndex
End Function

• 이제 이전에 표시된 대로 전화 색상 코드 데이터세트의 UDF, 셀 참조 번호 전달 (예:C5 )를 인수로 사용하려면 Enter 키를 누릅니다.

관련 색상 코드를 반환 값으로 가져옵니다.

• 이제 채우기 핸들로 행을 아래로 드래그합니다. UDF 적용 나머지 셀로 이동하여 글꼴 색상 코드를 빨간색으로 가져옵니다.

3. 글꼴 색상이 빨간색이면 Excel에서 색인을 반환합니다.

여기서는 VBA를 사용하여 Excel의 글꼴 색상 빨간색을 기반으로 인덱스 번호를 반환하는 방법을 배웁니다. .

단계:

• 이전과 같은 방식으로 Visual Basic Editor를 엽니다. 개발자 탭 및 삽입 모듈 코드 창에서
• 코드 창에서 다음 코드를 복사하여 붙여넣습니다.

Function IndexColor(cell As Range)
        IndexColor = cell.Font.Color
End Function

• 이제 이전에 표시된 대로 전화 색인 색상 데이터세트의 UDF, 셀 참조 번호 전달 (예:C5 )를 인수로 사용하려면 Enter 키를 누릅니다.

글꼴 색상과 관련된 색인 번호를 반환 값으로 가져옵니다.

• 이제 채우기 핸들로 행을 아래로 드래그합니다. UDF 적용 나머지 셀로 이동하여 빨간색 글꼴 색상의 색인 번호를 가져옵니다.

빨간색 글꼴이 있는 텍스트를 포함하는 셀은 255를 반환합니다. 빨간색 색상의 색인 번호로 255입니다. .

4. Excel에서 글꼴 색상이 빨간색인 경우 RGB 코드 반환

여기에서는 VBA를 사용하여 Excel에서 빨간색 글꼴 색상을 기반으로 RGB 코드를 얻는 방법을 배웁니다. .

단계:

• 이전과 같은 방식으로 Visual Basic Editor를 엽니다. 개발자 탭 및 삽입 모듈 코드 창에서
• 코드 창에서 다음 코드를 복사하여 붙여넣습니다.

Function FontRGB(cell As Range)
    Dim iColorIndex As Long
    Dim iColor As Variant
    iColorIndex = cell.Font.Color
    iColor = iColorIndex Mod 256
    iColor = iColor & ", "
    iColor = iColor & (iColorIndex \ 256) Mod 256
    iColor = iColor & ", "
    iColor = iColor & (iColorIndex \ 256 \ 256) Mod 256
    FontRGB = iColor
End Function

• 이제 이전에 표시된 대로 전화 글꼴RGB 데이터세트의 UDF, 셀 참조 번호 전달 (예:C5 )를 인수로 사용하려면 Enter 키를 누릅니다.

글꼴 색상의 관련 RGB 코드를 반환 값으로 가져옵니다.

• 이제 채우기 핸들로 행을 아래로 드래그합니다. UDF 적용 나머지 셀로 이동하여 글꼴 색상이 빨간색인 RGB 코드를 가져옵니다.

빨간색 글꼴이 있는 텍스트를 포함하는 셀은 255,0,0을 반환합니다. 빨간색 색상의 RGB 코드로 255,0,0입니다. .

5. 글꼴 색상이 빨간색이면 셀 강조 표시

텍스트가 있는 셀을 빨간색 글꼴로 강조 표시하려면 해당 방법을 알아보기 위해 기사를 계속 읽으십시오.

단계:

• 이전과 같은 방식으로 Visual Basic Editor를 엽니다. 개발자 탭 및 삽입 모듈 코드 창에서
• 코드 창에서 다음 코드를 복사하여 붙여넣습니다.

Sub HighlightCell()    
    Set ws = Sheets("Highlight") 'set the worksheet    
    For r = 1 To 104
        For c = 1 To 36
            If (ws.Cells(r, c).Font.Color = 255) Then
                'set the desired color index
                ws.Cells(r, c).Interior.ColorIndex = 34
            End If
        Next c
    Next r
End Sub

이제 코드를 실행할 준비가 되었습니다.

• F5 누르기 키보드 또는 메뉴 모음에서 실행 -> 하위/UserForm 실행을 선택합니다. . 작은 재생 아이콘을 클릭할 수도 있습니다. 하위 메뉴 표시줄에서 매크로를 실행합니다.

이제 빨간색 글꼴이 있는 셀이 강조 표시되는 것을 볼 수 있습니다.

6. 글꼴 색상이 빨간색인 경우 글꼴 색상 변경

글꼴 색상을 빨간색으로 다시 기본 색상으로 변경하려면 다음 단계를 따르세요.

단계:

• 이전과 같은 방식으로 Visual Basic Editor를 엽니다. 개발자 탭 및 삽입 모듈 코드 창에서
• 코드 창에서 다음 코드를 복사하여 붙여넣습니다.

Sub ChangeFontColor()
    With Application.FindFormat.Font
        .Subscript = False
        .Color = 255
        .TintAndShade = 0
    End With
    With Application.ReplaceFormat.Font
        .Subscript = False
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
    Cells.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder:= _
    xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True
End Sub

이제 코드를 실행할 준비가 되었습니다.

• 실행 매크로.

글꼴 색상이 빨간색인 값이 이제 기본 글꼴 색상으로 돌아갑니다.

결론

이 문서에서는 데이터세트 값의 글꼴 색상이 빨간색인 경우 VBA를 사용하여 Excel에서 특정 결과를 얻는 방법을 보여주었습니다. . 이 글이 당신에게 많은 도움이 되었기를 바랍니다. 주제와 관련하여 궁금한 점이 있으면 언제든지 문의하세요.

탐색을 좋아할 수도 있습니다.

• Excel의 문자열에서 문자를 제거하는 VBA(7가지 방법)
• VBA를 사용하여 Excel에서 빈 행을 삭제하는 방법
• 기준에 따라 Excel에 행을 삽입하는 VBA 매크로(4가지 방법)
• Excel에서 VBA로 행을 계산하는 방법(5가지 접근 방식)
• Excel의 셀 값을 기반으로 전체 행을 삭제하는 VBA(3가지 방법)