VBA로 Excel 텍스트 글꼴 색상을 설정하는 방법은 무엇입니까?

이 자습서에서는 VBA(Visual Basic for Applications)를 사용하여 셀 내용을 기반으로 Excel 셀의 텍스트 크기와 스타일을 수정하는 방법을 배웁니다. 이 튜토리얼은 Excel 365, 2021, 2019 및 2016에 적용됩니다.

예선

Excel VBA 개발을 처음 접하는 경우 자습서를 진행하기 전에 Excel VBA 매크로 입문서 를 살펴보는 것이 좋습니다 .

코딩을 시작하기 전에 리본의 Excel에서 개발자 탭을 활성화 해야 합니다 . 그렇지 않으면 Visual Basic Editor에 액세스할 수 없습니다.

VBA로 Excel 셀 텍스트 속성 변경

스프레드시트 정의

예제로 사용할 Excel 스프레드시트를 정의하는 것으로 시작하겠습니다. 이 튜토리얼을 따라가기 위해 자유롭게 사용하세요.

• Microsoft Excel을 열고 Excel_Macros.xlsm 이라는 새 매크로 사용 Excel 통합 문서( .xlsm ) 를 만듭니다.
• 로컬 드라이브에 스프레드시트를 저장합니다.
• Sheet1 워크시트 에서 아래 표를 추가합니다.

• 이제 리본에서 Formulas 를 누르십시오 .
• 그런 다음 이름 정의 를 누르 십시오 .
• 아래와 같이 VBA 코드를 적용할 명명된 범위를 정의하고 확인을 누릅니다 .

Cell.Font VBA 속성을 사용하여 글꼴 색상 및 스타일 변경

• 개발자 탭 으로 이동합니다 .
• 다음으로 가서 Visual Basic 버튼을 누르십시오.
• 왼쪽 프로젝트 탐색기 에서 Excel_Macros.xlsm 프로젝트를 강조 표시한 다음 삽입 을 누르고 모듈 을 선택 합니다.
• Module1 이라는 새 VBA 모듈 이 생성됩니다.
• 계속해서 새로 생성된 모듈에 다음 코드를 붙여넣습니다.

Sub Color_Cell_Text_Condition()

Dim MyCell As Range
Dim StatValue As String
Dim StatusRange As Range

Set StatusRange = Range("Completion_Status")

'loop through all cells in the range
For Each MyCell In StatusRange

StatValue = MyCell.Value

'modify the cell text values as needed.
Select Case StatValue

    'green
    Case "Progressing"
    With MyCell.Font
        .Color = RGB(0, 255, 0)
        .Size = 14
        .Bold = True
     End With

    'orange
    Case "Pending Feedback"
    With MyCell.Font
        .Color = RGB(255, 141, 0)
        .Size = 14
        .Bold = True
    End With
    
    'red
    Case "Stuck"
    With MyCell.Font
        .Color = RGB(255, 0, 0)
        .Size = 14
        .Bold = True
    End With

End Select

Next MyCell

End Sub

• Visual Basic 편집기에서 저장 버튼을 누르 십시오 .
• 이제 Run을 누르고 Run Sub/UserForm 을 선택 합니다(또는 단순히 F5를 누르십시오).
• Sheet1 워크시트 로 이동하여 변경 사항을 확인합니다. 테이블 항목에는 텍스트에 따라 여러 색상 코드가 할당되었으며(RGB 색상 기능 사용), 텍스트를 굵게 설정하고 크기를 늘렸습니다.

• 코드를 저장하지 않은 경우 저장 버튼(또는 Ctrl+S)을 누른 다음 통합 문서도 저장합니다.

VBA 매크로에 액세스

• 보기 탭(또는 개발자 | 매크로)에 있는 매크로 명령에서 실행할 수 있는 코드는 항상 사용할 수 있습니다.