VBA로 특정셀 값에 따라 시트색상을 바꾸고 있습니다.

VBA
작성자
지노
작성일
2023-01-12 08:51
조회
101
엑셀버전 : M365

운영체제 : 윈도우10


질문 요약 : 실시간으로 셀값에 따라 전체시트의 색상이 각각의 색으로 표현하려면 어떻게 해야하나요?

관련링크에 있는 질문자 김대성 님과 답변자 쿠쿠님의 오고간 대화 덕분에 저도 잘 해결 해가는 와중에

해결이 한가지 안되어 문의드립니다.

 

제가 하고자 하는 것은 P3 셀에 =WEEKDAY 의 결과값이 나오게 해서

해당시트가 토요일이면 파랑 / 일요일이면 빨강 / 나머지는 기본색으로 되게 하고 싶은데

전체 30개의 시트가 1일 시트 월을 바꿔주면 전체 월이 바뀌는 식인데

색상은 1일만 바뀌고 나머지 2일~31일에 해당하는 시트는 P3셀을 선택하여 F2키를 누르고 엔터를 눌러야만 시트색상이 바뀝니다.

 

적용은 제대로 되어있는게 확인이 된건데 실시간으로 안바뀌는게 문제입니다..

이건 어떻게 해결 하나요??

 

쿠쿠님이 답변해주신 코드 같이 올려드립니다..

ㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡ

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice

Select Case Range("p3").Value
Case "1"
Me.Tab.Color = vbRed
Case "7"
Me.Tab.Color = vbBlue
Case Else
Me.Tab.ColorIndex = xlColorIndexNone
End Select

End Sub

 

 

스크랩
공유
전체 4

  • 2023-01-12 09:18

    @지노 님 이런 형태로 시트를 구성한 예를 기준으로 하면

     

    아래처럼  1일 시트의 월에 해당하는 값이 변경될 때만 작동되도록 한 것입니다.

    Option Explicit
    
    Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
        If Sh.Name <> "1" Then Exit Sub
        If Target.Address <> "$B$2" Then Exit Sub
    
        Dim s As Worksheet
        For Each s In Sh.Parent.Worksheets
            s.Range("C2:D2").Calculate
            Select Case s.Range("D2").Value2
            Case 1
                s.Tab.Color = vbRed
            Case 7
                s.Tab.Color = vbBlue
            Case Else
                s.Tab.Color = False
            End Select
        Next s
    
    End Sub
    

     


  • 2023-01-12 09:20
    채택된 답변

    @지노 님 첨부파일 참고하세요.

    첨부파일 : 요일별Tab색변경.xlsm


    • 2023-01-12 10:32

      @원조백수 님 주신 답변이 딱 제가 바라던 대로 인데요..  친절한 답변 너무 감사합니다.

      다만 제가 아직 너무 초보라 주신 코드를 응용해서 제꺼에 적용하기가 아직 너무 어렵네요..

      너무 실례되는지는 알지만 제 파일 기준으로 한번 더 답변 가능하실까요..? 제가 열심히 분석해서 이해하겠습니다..

      첨부파일 : 예시자료.xlsm


      • 2023-01-12 15:51

        @지노 님 첨부 파일 참고하세요.

        P3의 수식은 필요 없이 날짜를 바로 참고하도록 했습니다.

        첨부파일 : 예시자료.xlsm


전체 9,415
번호 카테고리 제목 작성자 작성일 추천 조회
알림
[🔥선착순 판매] 2023년 엑셀 공부, "8시간 로드맵"으로 마스터하세요! (13)
오빠두엑셀 | 2023.01.25 | 추천 7 | 조회 4434
오빠두엑셀 2023.01.25 7 4434
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (124)
오빠두엑셀 | 2021.10.28 | 추천 160 | 조회 9816
오빠두엑셀 2021.10.28 160 9816
48762 피벗테이블
New 피벗테이블에 함수가 들어갈 수 있나요?? 아~ㅜㅜㅜㅜ 첨부파일
쫌.... | 2023.02.02 | 추천 0 | 조회 17
쫌.... 2023.02.02 - 17
48759 함수/공식
New 엑셀 함수 질문드립니다 첨부파일
tndka**** | 2023.02.02 | 추천 0 | 조회 17
tndka**** 2023.02.02 - 17
48757 함수/공식
New [엑셀 함수] Weeknum을 이용하여 주차 기간 구하기 엑셀파일첨부파일 (1)
Claire | 2023.02.02 | 추천 0 | 조회 18
Claire 2023.02.02 - 18
48750 피벗테이블
New 피벗테이블에서 같은 단어가 1,2로 나누어져버리는데 합칠 수 없나요? 첨부파일 (2)
Jace J | 2023.02.02 | 추천 0 | 조회 23
Jace J 2023.02.02 - 23
48745 함수/공식
New 월별 대여수를 알고싶습니다 ㅜ 엑셀파일첨부파일 (1)
우주김 | 2023.02.02 | 추천 0 | 조회 30
우주김 2023.02.02 - 30
48744 문서서식
New 셀 강조 규칙에서 누락되는 셀은 뭘까요? 첨부파일 (1)
JJJeFFF | 2023.02.02 | 추천 0 | 조회 20
JJJeFFF 2023.02.02 - 20
48743 VBA
New 다른 시트에 데이터 누적 기록 문의 드립니다 엑셀파일첨부파일 (1)
tabibi**** | 2023.02.02 | 추천 0 | 조회 23
tabibi**** 2023.02.02 - 23
48738 기능/도구
New 해당 강의가 혹시 있을까요?
엑세루마스토루 | 2023.02.02 | 추천 0 | 조회 29
엑세루마스토루 2023.02.02 - 29
48737 함수/공식
New 엑셀 시트에 있는 특정 값을 불러올 수있나요? (7)
김성모 | 2023.02.02 | 추천 0 | 조회 33
김성모 2023.02.02 - 33
48736 함수/공식
New 매크로 설정 시 한번에 저장하는 방법이 있을까요? 첨부파일 (1)
현이 | 2023.02.02 | 추천 0 | 조회 27
현이 2023.02.02 - 27
48735 함수/공식
New 조건에 맞는 데이터 불러오는 수식이 궁금합니다. 첨부파일 (2)
배도라스 | 2023.02.02 | 추천 0 | 조회 33
배도라스 2023.02.02 - 33
48729 VBA
New 인풋박스로 유저가 시트 이름을 입력하면 해당 시트에만 특정 코드를 적용하거나 제거하기. 엑셀파일 (2) 답변완료
낚시하는김곰 | 2023.02.02 | 추천 0 | 조회 30
낚시하는김곰 2023.02.02 - 30
48726 VBA
New 셀값을 쿼리로 가져오고 싶습니다...
angelriun | 2023.02.02 | 추천 0 | 조회 23
angelriun 2023.02.02 - 23
48724 함수/공식
New 전주 대비 변경건 추출하는 방법 엑셀파일첨부파일
엑셀고수왕소취 | 2023.02.02 | 추천 0 | 조회 30
엑셀고수왕소취 2023.02.02 - 30
48723 함수/공식
New 트리구조 분류체계 순번 붙이기 관련 질의 드립니다. (1)
Baek | 2023.02.02 | 추천 0 | 조회 24
Baek 2023.02.02 - 24
48718 함수/공식
New INDEX함수에서 '이름'을 활용하여 원하는 값을 얻고싶습니다. 엑셀파일첨부파일 (2)
무뼈닭발 | 2023.02.02 | 추천 0 | 조회 48
무뼈닭발 2023.02.02 - 48
48717 VBA
New 한글, 영어, 숫자 추출하기 및 특정단어 제외하기 엑셀파일 (3)
심슨바트심슨 | 2023.02.02 | 추천 1 | 조회 36
심슨바트심슨 2023.02.02 1 36
48716 함수/공식
New ★다중조건을 충족하는 합계 구하는 수식 엑셀파일첨부파일 (3)
젬마 | 2023.02.02 | 추천 0 | 조회 41
젬마 2023.02.02 - 41
48714 파워쿼리/피벗
New 원드라이브 또는 쉐어포인트에 있는 데이터를 가져올려 고하면 오류가 발생합니다. 첨부파일
어수민 | 2023.02.02 | 추천 0 | 조회 25
어수민 2023.02.02 - 25
48710 구글시트
New importrange 로 불러온 값의 옆에 기재해둔 데이터가, 원본값이 변동할때도 따라갈 수 있게 조치가 가능한지 여부 (4) 답변완료
유랑 | 2023.02.02 | 추천 0 | 조회 35
유랑 2023.02.02 - 35
48707 함수/공식
New 지정셀이 함수를 사용했는지 단순계산만 했는지 구별이 가능할까요?? (2)
엑셀두 | 2023.02.02 | 추천 0 | 조회 39
엑셀두 2023.02.02 - 39
48706 함수/공식
New index-Match, Vlookup 결과값으로 서식까지 끌어오는 방법 없나요? (3)
HoDee | 2023.02.02 | 추천 0 | 조회 47
HoDee 2023.02.02 - 47
48704 VBA
New xlsm 파일인데 sheet없이 저장된 파일이 있습니다. 어떻게 저장이 되나요? 엑셀파일첨부파일 (4) 답변완료
수메리안 | 2023.02.02 | 추천 0 | 조회 49
수메리안 2023.02.02 - 49
48703 함수/공식
New 중복 제외하고 다중 조건의 값 카운트하기 (5)
ggplay**** | 2023.02.02 | 추천 0 | 조회 44
ggplay**** 2023.02.02 - 44
48702 함수/공식
New Unique 함수 오류
ggplay**** | 2023.02.02 | 추천 0 | 조회 36
ggplay**** 2023.02.02 - 36
48701 함수/공식
New 형식이 숫자이면서 기준 숫자보다 작은 숫자들만 모두 더하는 수식을 만들었는데, 제대로 안 먹힙니다. 첨부파일 (1)
| 2023.02.02 | 추천 0 | 조회 35
2023.02.02 - 35
48698 피벗테이블
New 피벗 테이블 사용자 수식 입력 첨부파일 (3) 답변완료
Riia | 2023.02.02 | 추천 0 | 조회 41
Riia 2023.02.02 - 41
48696 함수/공식
New [조건부 서식] 간트 표기 함수 문제 엑셀파일첨부파일 (3) 답변완료
Claire | 2023.02.02 | 추천 0 | 조회 43
Claire 2023.02.02 - 43
48694 문서서식
New 찻기/바꾸기로 일부분만 Wingdings 기호로 바꿀수 없나요? (2)
chan7**** | 2023.02.02 | 추천 0 | 조회 25
chan7**** 2023.02.02 - 25
48689 함수/공식
New 2가지 인자 변화에 따른 수식 결과값 시나리오, 매트릭스, 시뮬레이션... (1)
305305 | 2023.02.02 | 추천 0 | 조회 33
305305 2023.02.02 - 33