VBA 수식의 결과값에 따라 시트색상 변경방법? (고수님들의 도움이 필요해요ㅠ)

VBA
작성자
김대성
작성일
2022-06-05 09:37
조회
85
엑셀버전 : 엑셀2010 이전

운영체제 : 윈도우10

VBA를 이용하여 자동으로   어느 특정셀의 수식의 값에 따라서  시트색상을 변경하게 하려고 하는데 도저히 안되네요...

도와주세요 ㅠ (제가 만든 파일도 올려드려요~)

 

B3 의 수식 결과값에 따라

결과가 2  일때, 시트색상 빨강으로 변경

결과가 1 일때, 시트색상 파랑으로 변경

그외의 결과값일때, 시트색상 하얀색으로 변경 (시트 색없음 으로 하고 싶었지만 명령어를 몰라서...)

이런식으로 하고 싶습니다.

 

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
If Target.Address = "$B$3" Then
Select Case Target.Value
Case "2"
Me.Tab.Color = vbRed
Case "1"
Me.Tab.Color = vbBlue
Case Else
Me.Tab.Color = vbWhite
End Select
End If
End Sub

 

이렇게 해봤는데 인식이 안되더라구요.

전체 2

  • 2022-06-05 15:57
    채택된 답변

    @김대성 님 안녕하세요. 김대성님

    현재 코딩은 셀주소 b3이 선택되어진 상태에서 값이 변해야지만 적용되는 코드 입니다.

    if문 제거하고 적용해보세요.

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

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

    End Sub

    수고하세요.


    • 2022-06-05 17:30

      @쿠쿠 님 쿠쿠님 자세한설명 및 답변에 감사드립니다.  하루종일 고민하다가 포기했었는데, 귀한 분의 가르침을 듣게 되어 너무 기쁩니다.

      다시한번 감사드립니다!!~


전체 6,889
번호 카테고리 제목 작성자 작성일 추천 조회
알림
📌 -- VBA 기초-활용 4주 완성, 특별 스터디 모집을 시작합니다! (모집 마감) -- 📌 (98)
오빠두엑셀 | 2022.06.23 | 추천 143 | 조회 17652
오빠두엑셀 2022.06.23 143 17652
공지사항 함수/공식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (79)
오빠두엑셀 | 2021.10.28 | 추천 97 | 조회 5341
오빠두엑셀 2021.10.28 97 5341
39009 함수/공식
New index,match 함수 중에서 동일한 값이 나올때 첨부파일 (2) 답변완료
최사무엘 | 17:33 | 추천 0 | 조회 12
최사무엘 17:33 0 12
39007 함수/공식
New VLOOKUP 조건에 맞는 것을 계속해서 나열하고 싶을 때 첨부파일 (1)
야자키겐스케 | 16:43 | 추천 0 | 조회 17
야자키겐스케 16:43 0 17
39003 함수/공식
New 셀에서 영어만 추출하기 엑셀파일첨부파일 (2) 답변완료
킹셀 | 16:15 | 추천 0 | 조회 18
킹셀 16:15 0 18
38996 VBA
New 현재 열넓이 확인후 20 더하는 방법 (1)
033cola | 13:56 | 추천 0 | 조회 29
033cola 13:56 0 29
38990 함수/공식
New 중복값중에 하나만 더하기 엑셀파일첨부파일 (2) 답변완료
DS | 13:08 | 추천 0 | 조회 22
DS 13:08 0 22
38987 함수/공식
New 행 열이 모두 숫자입니다. 첨부파일 (1)
DOUKCHEON 이재형 | 11:53 | 추천 0 | 조회 24
DOUKCHEON 이재형 11:53 0 24
38983 함수/공식
New 카드번호별로 시트를 만들 수 있는 방법을 알고 싶습니다! - 관련 엑셀첨부 엑셀파일첨부파일 (2)
showtime**** | 10:14 | 추천 0 | 조회 28
showtime**** 10:14 0 28
38982 파워쿼리/피벗
New 파워쿼리에서 영문과 숫자만 순서대로 추출 (4)
아코니 | 10:10 | 추천 0 | 조회 32
아코니 10:10 0 32
38981 구글시트
New COUNTIF 함수와 SUBTOTAL 엑셀파일첨부파일
거꾸로문 | 10:02 | 추천 0 | 조회 15
거꾸로문 10:02 0 15
38979 문서서식
New 서로 다른 엑셀 파일 비교 첨부파일 (2)
notice | 09:18 | 추천 0 | 조회 23
notice 09:18 0 23
38976 함수/공식
New BOM 오류 확인 방법 문의 첨부파일 (4)
터브가이황 | 07:55 | 추천 0 | 조회 27
터브가이황 07:55 0 27
38973 VBA
New 점수가 6점이상만 시트2에 표기하는 VBA 또는 매크로 표기하는 방법 문의 합니다. 엑셀파일첨부파일 (3)
파란맥 | 00:37 | 추천 0 | 조회 27
파란맥 00:37 0 27
38972 함수/공식
New 함수표현식을 Ctrl + x 사용하여 가져올때, Sheet 참조 제거하는법 (3)
JH | 00:33 | 추천 0 | 조회 30
JH 00:33 0 30
38970 VBA
New VBA 1주차 공부하면서 응용해보다가 (2) 답변완료
daniel | 00:21 | 추천 0 | 조회 31
daniel 00:21 0 31
38959 기능/도구
New 데이터 분할 방법 엑셀파일첨부파일 (1)
dfgkdflglkdf | 2022.07.04 | 추천 0 | 조회 23
dfgkdflglkdf 2022.07.04 0 23
38948 문서서식
New 액셀 카카오톡 문자보내기 자동화 양식 그림 카톡 보내기 오류 해결 방법 문의 드립니다! 첨부파일
ROLLUP | 2022.07.04 | 추천 0 | 조회 25
ROLLUP 2022.07.04 0 25
38942 문서서식
New 안녕하세요 엑셀 날짜변환에 대해서 질문드립니다. (3)
겸둥이k | 2022.07.04 | 추천 0 | 조회 38
겸둥이k 2022.07.04 0 38
38940 함수/공식
New IF함수 순자적으로 조건 적용되도록 만들고 싶어요 엑셀파일첨부파일 (3)
마운틴 | 2022.07.04 | 추천 0 | 조회 42
마운틴 2022.07.04 0 42
38939 VBA
New 특정조건일경우 값 입력 (4) 답변완료
천하무적 | 2022.07.04 | 추천 0 | 조회 32
천하무적 2022.07.04 0 32
38932 VBA
New 재고관리 프로그램 중 등록시 '13런타임 오류'나는데 모르겠어요 첨부파일 (1)
파랑지니 | 2022.07.04 | 추천 0 | 조회 27
파랑지니 2022.07.04 0 27
38909 파워쿼리/피벗
New 파워쿼리 작성 엑셀파일 (2) 답변완료
당신을축복하는올빼미 | 2022.07.04 | 추천 0 | 조회 43
당신을축복하는올빼미 2022.07.04 0 43
38907 함수/공식
New INDEX + MATCH 함수 에러 문제관련 (1)
brain hoon | 2022.07.04 | 추천 -2 | 조회 35
brain hoon 2022.07.04 -2 35
38905 VBA
New [1주차]VBA 미션... 다들 해보셧나요? 도움 좀..ㅠ 첨부파일 (3)
배성철 | 2022.07.04 | 추천 0 | 조회 34
배성철 2022.07.04 0 34
38899 함수/공식
New 어떤 함수를 써야 될지 (4)
정상진 | 2022.07.04 | 추천 0 | 조회 43
정상진 2022.07.04 0 43
38895 대시보드
New 데이터 입력시 자동으로 보고서 작성 첨부파일 (2)
bmmania | 2022.07.04 | 추천 0 | 조회 38
bmmania 2022.07.04 0 38
38889 함수/공식
New 중복 데이터 에서 2개 이상 조건을 만족하는 고유 항목 개수 세기 (1)
곱칭 | 2022.07.04 | 추천 -2 | 조회 34
곱칭 2022.07.04 -2 34
38868 VBA
New 행복한 한 주 시작 하시길 바랍니다. 도와주세요(고급필터 애러) 엑셀파일첨부파일 (2)
파란맥 | 2022.07.04 | 추천 0 | 조회 29
파란맥 2022.07.04 0 29
38839 VBA
New 1주차 VBA 강의 질문입니다 첨부파일 (1)
WWW | 2022.07.03 | 추천 0 | 조회 37
WWW 2022.07.03 0 37
38828 VBA
New VBA 스터디 1주차 두번째 미션 실패 ㅠㅠ 도와주세요 첨부파일 (1)
YJ | 2022.07.03 | 추천 0 | 조회 27
YJ 2022.07.03 0 27
38811 구글시트
New COUNTA 함수 엑셀파일 (10) 답변완료
거꾸로문 | 2022.07.03 | 추천 0 | 조회 62
거꾸로문 2022.07.03 0 62