Note: The other languages of the website are Google-translated. Back to English

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

일반적으로 Excel에서 탭 색상을 쉽고 빠르게 변경할 수 있지만 워크 시트의 셀 값을 기반으로 탭 색상을 변경해 본 적이 있습니까? 이 작업에 관심이 있다면 Excel의 특정 셀 값을 기반으로 시트 탭의 색상을 지정하는 몇 가지 코드에 대해 설명하겠습니다.

VBA 코드로 셀 값을 기반으로 한 시트 탭 색상 변경

VBA 코드로 셀 값을 기반으로 여러 시트 탭 변경


화살표 블루 오른쪽 거품 VBA 코드로 셀 값을 기반으로 한 시트 탭 색상 변경

예를 들어, A1의 셀 값이 "TRUE"이면 현재 시트 탭 색상이 녹색이되고, A1의 텍스트가 "FALSE"이면 탭 색상이 빨간색이되고, 탭 색상은 파란색이됩니다. A1 셀의 값은 다음 스크린 샷에 표시된 다른 텍스트입니다.

값별 문서 컬러 시트 1

1. A1 셀의 데이터를 기반으로 색상을 변경하려는 시트 탭을 마우스 오른쪽 단추로 클릭 한 다음 코드보기 컨텍스트 메뉴에서.

2. 에서 응용 프로그램 용 Microsoft Visual Basic 창에서 아래 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

값별 문서 컬러 시트 2

참고 : 위의 코드에서 A1 탭에 색상을 지정하려는 셀 참조입니다. "참된","거짓”는 필요한 텍스트이며 필요에 따라 변경할 수 있으며 필요에 따라 코드의 색상을 변경할 수 있습니다.

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


화살표 블루 오른쪽 거품 VBA 코드로 셀 값을 기반으로 여러 시트 탭 변경

셀 값을 기반으로 여러 시트 탭 색상을 변경해야하는 경우 여기에 코드가 도움이 될 수 있습니다. 다음과 같이하십시오.

1. 누르고 ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창, 열린 창에서 두 번 클릭 이 워크북 아래 VBA 프로젝트 섹션, 그런 다음 아래 코드를 복사하여 빈 칸에 붙여 넣으십시오. 모듈:

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

값별 문서 컬러 시트 3

참고 : 위의 코드에서 A1 마스터는 탭의 색상을 지정하려는 셀과 워크 시트입니다. Sheet1, Sheet2, Sheet3 탭의 색상을 지정할 워크 시트입니다. KTE, KTW, KTO 탭의 색상을 지정하려는 A1의 셀 값입니다. 필요에 따라 코드의 참조 및 색상을 변경할 수 있습니다.

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

값별 문서 컬러 시트 4


최고의 사무 생산성 도구

Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.

  • 재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
  • 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
  • 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
  • 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
  • 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
  • 300개 이상의 강력한 기능. Office / Excel 2007-2021 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다. 전체 기능은 30일 무료 평가판입니다. 60일 환불 보장.
kte 탭 201905

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
officetab 하단
코멘트 (23)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
친애하는 선생님.
날짜/요일에 따라 시트 탭 색상을 변경하는 방법을 알려주세요.

예:-
시트 번호 1이 일요일이면 - 시트 탭 'RED'
시트 번호 2가 월요일이면 시트 탭 '녹색'
시트 번호 3이 화요일이면 - 시트 탭 '녹색'
시트 번호 4가 수요일이면 시트 탭 '녹색'
시트 번호 5가 목요일이면 시트 탭 '녹색'
6번 시트가 금요일이면 - 시트 탭 '녹색'
7번 시트가 토요일이면 - 시트 탭 '녹색'

위의 Excel 문제에 대해 친절하게 도와주세요.

감사 관련
파이즈 이븐 우바이즈 P.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
귀하의 설명은 실제로 수행하려는 작업에 대해 약간 모호합니다. 통합 문서가 일주일 동안만 사용되는 경우 탭에 색상을 지정합니다. 기간이 일주일보다 길면 솔루션이 조금 더 복잡합니다. 문제를 자세히 설명할 때까지 사용할 수 있는 몇 가지 솔루션이 있습니다. 저와 많은 사람들이 무료로 2,000개의 솔루션을 코딩하는 데 시간을 들이지 않을 것입니다. 그러나 당신은 우리가 1개의 해결책을 제공할 수 있는 문제를 자세히 설명합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
셀 범위에 텍스트가 있는 날씨에 따라 탭 색상을 변경하는 방법
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
수식은 'True'에 대해 작동합니다. 시트 탭은 RED이므로 훌륭하지만 'True'에서 'False'로 변경하면 시트 탭에 '색상 없음'이 지정되기를 원합니다. 'True'가 선택되지 않은 경우 시트 탭에 색상이 없는 공식은 무엇입니까? 또한 수식을 셀 그룹에 대한 것으로 만들고 싶다면 예를 들면 다음과 같습니다. A1:A30 내가 사용하는 코드는 무엇입니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 섀넌:
다음 VBA 코드가 도움이 될 수 있습니다. 시도해 보십시오.

개인 하위 Worksheet_Change (범위로 ByVal 대상)
범위로 Dim xRg
xRg 설정 = Intersect(Target, Range("A1:A30"))
xRg가 아무것도 없으면 Sub를 종료하십시오.
사례 대상을 선택합니다.값
사례 "사실"
Me.Tab.Color = vbRed
사례 "거짓"
Me.Tab.Color = 거짓
선택 종료
최종 하위

이것이 당신을 도울 수 있기를 바랍니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
다음을 기반으로 탭 색상을 변경하는 방법이 있습니까? 행 3-7이 파란색으로 표시되고 해당 탭 3-7(마스터의 셀 값을 기반으로 명명된)에 해당하는 마스터 탭이 있습니다. 그 행) 파란색으로 색칠하고 싶습니다. 그런 다음 행 8-12는 녹색으로 표시되고 탭 8-12 등에 해당합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
그것은 하나의 멋진 트릭이었습니다.
A1 셀의 값(<>0 RED 및 =0 Green)을 기반으로 탭 색상을 연결했지만 A1을 선택하고 F2를 누른 다음 Enter를 누른 경우에만 매크로가 실행됩니다. 이 작업을 수행하지 않고 탭의 색상( 값에 따라 다름)은 Red라고 말해야 하지만 녹색으로 유지됩니다.
엑셀 2007을 사용하고 있습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
셀 A1이 셀 내의 별도 줄에 3개의 답변을 모두 가질 수 있을 때 이 작업을 수행할 수 있습니까? 즉, KTE, KTO 및 KTW는 드롭다운 목록에서 다중 선택을 허용하므로 셀에 모두 존재합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
해당 코드를 사용하여 확인란에 적용하려고 하므로 확인란을 선택하면 색상이 변경되고, 선택을 취소하면 다시 변경됩니다(저는 true=green, false=red, else=red를 얻었습니다). . 그러나 확인 및 선택 취소하면 '객체 필요' 오류가 발생합니다.


Private Sub CheckBox1_Click ()
_____If Target.Address = "$e$5" 그러면 '여기에 오류가 있습니다.
__________케이스 대상 선택.값
__________케이스 "거짓"
_______________Me.Tab.Color = vbRed
__________케이스 "참"
_______________Me.Tab.Color = vbGreen
__________다른 경우
_______________Me.Tab.Color = vbRed
__________종료 선택
_____종료
최종 하위

나는 그것을 복사하여 붙여 넣어 실행하는 것을 확인한 다음 필요에 맞게 조정했지만 실행하는 방법을 찾지 못했습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
친애하는 동료,
도움을 요청하십시오. [h]:mm 형식의 값을 기반으로 시트 탭 색상을 변경해야 합니다. 예를 들어 값이 20:00 미만인 경우 - 빨간색, >20:00 녹색.
감사 관련!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
친애하는 동료,
도움을 요청하십시오. [h]:mm 형식의 값을 기반으로 시트 탭 색상을 변경해야 합니다. 예를 들어 값이 20:00 미만인 경우 - 빨간색, >20:00 녹색.
감사 관련!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕, 빅터
아래 VBA 코드로 문제를 해결할 수 있습니다. 시도해보십시오. 도움이 되길 바랍니다!

개인 하위 Worksheet_Change (범위로 ByVal 대상)
Dim xStr을 문자열로
Dim xSN을 문자열로
Dim xDate를 문자열로
Dim xAddress를 문자열로
문자열로 Dim xArr()
Dim xI1을 정수로
Dim xSM을 문자열로
xDate = "20:00"
xAddress = "$A$1"
Target.Address <> xAddress이면 Sub 종료
xStr = 대상.텍스트
xArr = 분할(xStr, ":")
(UBound(xArr) - LBound(xArr) + 1) > 2이면 Sub 종료
xI1 = 정수(xArr(0))
(Len(xArr(0)) - 2) < 1이면
xI1 > 23이면 Sub 종료
다른
서브 종료
END IF
xSM = xArr(1)
오류 시 Err01로 이동
If (Len(xSM) - 2) <> 0 그러면 Sub 종료
Int(Left(xSM, 1)) > 5이면 Sub 종료
Int(Right(xSM, 1)) > 10이면 Sub 종료
xI1 >= 20이면
Me.Tab.Color = vbGreen
다른
Me.Tab.Color = vbRed
END IF
오류01:
최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
친애하는 스카이양,
피드백이 너무 늦어 죄송합니다. 이 수식은 셀의 값을 수동으로 변경할 때 작동합니다. 그러나 그것은 내가 필요한 것이 아니 었습니다.
셀 값은 차이 시트의 수식 결과입니다. 예를 들어, "O13-'520'!AD3" 셀의 수식입니다. 이것은 이 셀의 값이 참조 시트의 참조 셀 값에 따라 변경됨을 의미합니다. 내가 필요한 것은 "O13-'520'!AD3" 셀의 값이 13:520 미만일 때 "O3-'05'!AD00" 셀의 값이 변경될 때 시트 색상이 자동으로 변경되는 것입니다. - 빨간색 , >20:00 녹색, 05:00 ~ 20:00 갈색.
미리 감사드립니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 여러분, 여러 시트의 열에 있는 특정 값을 기준으로 탭 색상을 변경하는 방법은 무엇입니까? 감사해요
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
탭을 다른 탭의 값에 연결하는 방법은 무엇입니까? 내 예에는 다양한 탭으로 자동 필터링되는 모든 정보가 포함된 하나의 탭이 있습니다. 그러나 각 탭은 마스터 탭에 미결제 잔액이 있는지 여부에 따라 녹색 또는 빨간색으로 표시됩니다. 이 코드를 사용하여 이 작업을 수행할 수 있으며 그렇다면 이 코드 내에서 마스터 시트에 대한 링크를 어디에 작성합니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요

이전에 Excel에서 코드를 수행한 적이 없습니다. 이 코드가 하는 일을 하는 코드가 필요하지만 다른 매개변수가 필요합니다.

그래서 내가 필요한 것은 :

셀 값이 0이 아니거나 다른 셀에 숫자가 있는 경우 count를 사용하여 색상을 빨간색으로 변경합니다.

셀 값이 0이고 다른 셀이 비어 있으면 count를 사용하여 색상을 녹색으로 변경합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 여기에 Tracking이라는 별도 시트의 값을 기반으로 탭 색상을 변경하려고 시도했지만 작동하지 않는 것 같습니다. 감사해요




개인 하위 Worksheet_Change (범위로 ByVal 대상)

'업데이트바이 Extendoffice 20160930

Target.Address = "추적!$C$2"인 경우

사례 대상을 선택합니다.값

케이스 "ip"

Me.Tab.Color = vbRed

케이스 "w"

Me.Tab.Color = vbYellow

케이스 "c"

Me.Tab.Color = vbGreen

아니면 케이스

Me.Tab.Color = vbBlue

선택 종료

END IF

최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕, 브래드
코드를 올바르게 실행하려면 시트 이름을 코드에 삽입해서는 안 됩니다. 다음 코드를 적용하십시오:(이 코드를 실행하려는 시트 이름을 클릭한 다음 시트 이름을 마우스 오른쪽 버튼으로 클릭하고 코드 보기를 선택한 다음 모듈에 코드 붙여넣기)

개인 하위 Worksheet_Change (범위로 ByVal 대상)

'업데이트바이 Extendoffice 20160930

Target.Address = "$C$2"인 경우

사례 대상을 선택합니다.값

케이스 "ip"

Me.Tab.Color = vbRed

케이스 "w"

Me.Tab.Color = vbYellow

케이스 "c"

Me.Tab.Color = vbGreen

아니면 케이스

Me.Tab.Color = vbBlue

선택 종료

END IF

최종 하위

시도해보십시오. 도움이 되길 바랍니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
수식의 2가지 결과 중 하나를 기반으로 탭 색상을 변경하려고 합니다. 수식은 =IF((AND(AA1="Occupied",AA2="Occupied",AA3="Occupied",AA4=")입니다. 점유")),"점유","빈")
"점유"인 경우 탭이 빨간색이고 "빈 상태"인 경우 탭이 필요합니다. 그러나 메인 포스트의 위 코드는 If Than의 출력을 인식하지 못합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요,
도움이 필요해요
특정 셀 범위에 오늘 날짜가 있는 경우에만 시트 탭 색상을 변경해야 합니다.
예를 들어,
열 L에는 형식의 일부 날짜가 있습니다(13-22월-XNUMX).
셀 값 중 하나가 오늘 날짜이고 탭 시트 색상이 빨간색으로 변경되어야 합니다.
도와주세요
사전에 감사합니다
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
열 O 또는 열 P의 셀에 값이 있는 경우 탭의 색상을 변경하고 싶습니다. 이게 가능해?

감사합니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
각 시트의 j4 셀 색상을 기반으로 시트 탭 색상을 설정하고 싶습니다. 18개 이상의 탭이 있으며 통합 문서를 열 때 탭 색상을 업데이트하려고 합니다. 열었을 때 업데이트할 수 없으면 팀에서 시트를 업데이트한 후 매크로를 실행할 수 있습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕, 나무야
문제를 해결하려면 아래 코드를 적용하십시오: (주의 사항: 아래 코드를 복사하여 붙여넣기 이 워크북 코드 모드)
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Call SetSheetColor
End Sub

Private Sub Workbook_Open()
Call SetSheetColor
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Call SetSheetColor
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Call SetSheetColor
End Sub

Sub SetSheetColor()
Dim xWShs As Sheets
Dim xRg As Range
Dim xFNum As Integer
Dim xSh As Worksheet
On Error Resume Next
Set xWShs = Application.ActiveWorkbook.Sheets
For xFNum = 1 To xWShs.Count
    Set xSh = xWShs.Item(xFNum)
    Set xRg = xSh.Range("J4")
    xSh.Tab.Color = xRg.Interior.Color
Next
End Sub


https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-color-sheet.png

시도해보십시오. 도움이 되길 바랍니다!
아직 코멘트가 없습니다
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치

Follow Us

저작권 © 2009 - WWW.extendoffice.com. | 판권 소유. 에 의해 구동 ExtendOffice. | | 사이트 맵
Microsoft 및 Office 로고는 미국 및 / 또는 기타 국가에서 Microsoft Corporation의 상표 또는 등록 상표입니다.
Sectigo SSL로 보호