셀 값에 따라 시트 탭 색상을 변경하는 방법은 무엇입니까?

일반적으로 Excel에서 탭 색상을 쉽게 빠르게 변경할 수 있지만, 워크시트의 셀 값에 따라 탭 색상을 변경해 본 적이 있습니까? 이 작업에 관심이 있다면, 특정 셀 값에 따라 시트 탭을 색상으로 표시하기 위한 몇 가지 코드를 소개하겠습니다.

VBA 코드를 사용하여 하나의 시트 탭 색상 변경하기

VBA 코드를 사용하여 여러 시트 탭 색상 변경하기

VBA 코드를 사용하여 하나의 시트 탭 색상 변경하기

예를 들어, A1 셀의 값이 “TRUE” 텍스트인 경우 현재 시트 탭 색상을 녹색으로 하고, A1의 텍스트가 “FALSE”인 경우 탭 색상을 빨간색으로, 그리고 A1 셀의 값이 다른 텍스트인 경우 탭 색상을 파란색으로 설정하고자 합니다. 다음 스크린샷과 같습니다:

1. A1 셀의 데이터에 따라 색상을 변경하려는 시트 탭을 마우스 오른쪽 버튼으로 클릭한 다음, 상황에 맞는 메뉴에서 보기 코드를 선택합니다.

2. Microsoft Visual Basic for Applications 창에서 아래 VBA 코드를 복사하여 모듈 창에 붙여넣습니다.

VBA 코드: 셀 값에 따라 하나의 시트 탭 색상 변경하기:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    If Target.Address = "$A$1" Then
        Select Case Target.Value
        Case "False"
            Me.Tab.Color = vbRed
        Case "True"
            Me.Tab.Color = vbGreen
        Case Else
            Me.Tab.Color = vbBlue
        End Select
    End If
End Sub

참고: 위의 코드에서 A1은 탭 색상을 지정할 셀 참조이며, “True”, “False”는 필요한 텍스트입니다. 필요에 따라 이를 변경할 수 있으며, 코드의 색상도 필요에 따라 변경할 수 있습니다.

3. 그런 다음 이 코드 창을 저장하고 닫습니다. 이제 A1 셀에 “True” 텍스트를 입력하면 현재 탭 색상이 녹색으로 바뀌고, A1 셀에 “False” 텍스트를 입력하면 탭 색상이 빨간색으로 바뀝니다. 다른 텍스트를 A1 셀에 입력하면 탭 색상이 자동으로 파란색으로 바뀝니다.

Kutools AI로 엑셀의 마법을 풀다

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

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

VBA 코드를 사용하여 여러 시트 탭 색상 변경하기

여러 시트 탭의 색상을 셀 값에 따라 변경해야 하는 경우에도 도움이 될 만한 코드가 있습니다. 다음과 같이 진행하세요:

1. ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 열고, 열린 창에서 VBAProject 섹션 아래의 ThisWorkbook을 두 번 클릭한 다음, 아래 코드를 빈 모듈에 복사하여 붙여넣습니다.

VBA 코드: 셀 값에 따라 여러 시트 탭 색상 변경하기:

Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  'Updateby Extendoffice 20160930
  Select Case Sheets("Master").Range("A1").Value
         Case "KTE"
             Sheets("Sheet1").Tab.Color = vbRed
         Case "KTO"
             Sheets("Sheet2").Tab.Color = vbGreen
         Case "KTW"
             Sheets("Sheet3").Tab.Color = vbBlue
         End Select
End Sub

참고: 위의 코드에서 A1과 Master는 탭 색상을 지정할 셀과 워크시트입니다. Sheet1, Sheet2, Sheet3은 탭 색상을 지정할 워크시트입니다. KTE, KTW, KTO는 A1 셀의 값으로, 탭 색상을 지정하는 기준입니다. 필요에 따라 참조와 색상을 변경할 수 있습니다.

2. 그런 다음 이 코드 창을 저장하고 닫습니다. 이제 Master 시트의 A1 셀에 KTE를 입력하면 Sheet1 탭이 빨간색으로 표시되고, A1 셀에 KTO를 입력하면 Sheet2가 녹색으로 표시되며, A1 셀에 KTW를 입력하면 Sheet3이 파란색으로 표시됩니다. 스크린샷을 참조하세요: