특정 범위에 값 없을 시 시트 색 바뀌기 궁금합니다.!

VBA
작성자
김세
작성일
2021-07-12 11:19
조회
77
엑셀버전 : 엑셀2013

운영체제 : 윈도우10

안녕하세요 지나가는 초보입니다.

여러가지 VBA로 기능을 접해보다가 혹시 특정 범위 내에 값이 없을 시 시트색을 변하게 하고 싶어서

찾아봐도 도무지 알 수 없어서 도움을 요청합니다ㅜ

 

예를들어 A1:A4 중 하나라도 내용이 안채워져 있으며 시트이름이 노란색으로 바뀌게 되어 여러시트 중에서 작성안된 시트를

한눈에 파악하고 싶습니다.

캡쳐처럼 휴대전화 값이 비워있으면 시트색이 바뀌고 다 채워지면 시트색이 원래대로 돌아오는 방법은 없는지 궁급합니다.

감사합니다.

 

화면-캡처-2021-07-12-111658.png

전체 7

  • 2021-07-12 11:52
    채택된 답변

    아래와 같이 코딩 해보세요.

    아래의 코드에서 "휴대전화" 값이 들어 있는 셀이 "F7"이라는 가정하에 코딩한 것입니다.

    Option Explicit
    
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
       If Target.Address(0, 0) = "F7" And VBA.Trim(Target.Value) <> vbNullString Then
          ThisWorkbook.Sheets("Sheet1").Tab.Color = vbYellow
       End If
    End Sub

     


    • 2021-07-12 13:55

      해보겠습니다 ㅎㅎㅎㅎ 잘 안되어도 어떤 식으로 접근해야되는지 알게 된 것 같아요!!


      • 2021-07-12 22:21

        위의 댓글은 다 채워졌을 때 시트 색이 원래대로 돌아가지 않는 것 같아 다른 코드를 조금 추가했습니다.

        RGB로 원래 색과 최대한 동일하게 구현해봤습니다.

        첨부파일 : 시트-색변하기.xlsm


        • 2021-07-13 14:31

          제가 적용하고 싶은 시트가 100개정도 되는데 모듈로 저장해도 실행이 안되면 하나하나 시트에 적용해야되는 부분일까요?ㅜ

          시트 각각에 적용하면 잘 작동하는데 모듈로 넣으니 잘 작동이 안되는거 같아서요ㅜ


        • 2021-07-13 08:42

          오!!!!!!!!!!! 너무너무 감사합니다!!!!! 정말로 감사합니다 !!!!!!


          • 2021-07-13 15:01

            저 VBA코드는 시트 하나당 하나씩 넣어야 작용되는 코드입니다.

            만약 어떤 특정 키를 눌렀을 때나 아니면 버튼(단추)를 눌렀을 때 만 코드를 실행시키는 것은 가능하나

            시트에서 동작 하나하나에 반응하는 코드를 만드려면 시트에 코드하나씩 넣어야하는 수 뿐히 없습니다.


            • 2021-07-13 15:15

              감사합니다!! 덕분에 너무 큰 도움이 되었습니다!! 정말 감사합니다.!!


전체 3,466
번호 카테고리 제목 작성자 작성일 추천 조회
3453 VBA
New 엑셀 로그인 시스템 관련 (3번 시도시 파일 강제종료부분)
지아 | 2021.07.23 | 추천 0 | 조회 18
지아 2021.07.23 0 18
3452 VBA
New VBA (제고관리프로그램) 공부하다가 문의가 있습니다. (1)
까나리 | 2021.07.23 | 추천 0 | 조회 25
까나리 2021.07.23 0 25
3451 VBA
New 재고관리 프로그램 28강 켈린더의 BackStyle에 관한 질문입니다. (2) 답변완료
iviolin**** | 2021.07.23 | 추천 0 | 조회 22
iviolin**** 2021.07.23 0 22
3450 함수/공식
New 중복 값 찾기.. 첨부파일
인간 | 2021.07.23 | 추천 0 | 조회 22
인간 2021.07.23 0 22
3449 함수/공식
New 엑셀 데이터 정리관련 해서 질문합니다. 첨부파일 (1)
박정흠 | 2021.07.23 | 추천 0 | 조회 23
박정흠 2021.07.23 0 23
3448 VBA
New VBA SPLIT, FOR 함수 속도 문제 (7)
소람 | 2021.07.23 | 추천 0 | 조회 29
소람 2021.07.23 0 29
3447 기능/도구
New 도와주세요~ 시트 보호 해제 버튼이 비활성화 되어 해제가 되질 않아요 (3)
안개바다위의 쿳시 | 2021.07.23 | 추천 0 | 조회 36
안개바다위의 쿳시 2021.07.23 0 36
3446 VBA
New FOR문 과 DO While 등 루프문 문의사항 첨부파일 (2) 답변완료
H.B | 2021.07.23 | 추천 1 | 조회 35
H.B 2021.07.23 1 35
3445 차트/그래프
New 슬라이서 차트의 범례 변경 (1)
전상준 | 2021.07.23 | 추천 0 | 조회 28
전상준 2021.07.23 0 28
3444 VBA
New VBA로 구현하고 싶은데요 도와주세요... 첨부파일 (7) 답변완료
new_hwan | 2021.07.23 | 추천 1 | 조회 48
new_hwan 2021.07.23 1 48
3443 함수/공식
New 문자 연결 함수 문의 드립니다 (3)
세롱이 | 2021.07.23 | 추천 0 | 조회 38
세롱이 2021.07.23 0 38
3442 VBA
New 안녕하세요 질문좀 드려봅니다. (1)
엑셀공부 | 2021.07.23 | 추천 0 | 조회 24
엑셀공부 2021.07.23 0 24
3441 함수/공식
New 함수 질문 드립니다 첨부파일 (2)
ccha**** | 2021.07.23 | 추천 0 | 조회 30
ccha**** 2021.07.23 0 30
3440 피벗테이블
New 피벗테이블에서 값 필터 문제점 봐주세요 첨부파일 (1)
월마리아 | 2021.07.22 | 추천 0 | 조회 36
월마리아 2021.07.22 0 36
3439 VBA
New VBA를 이용한 네이버 자동 로그인 이후 (1)
VBA이동머신 | 2021.07.22 | 추천 0 | 조회 30
VBA이동머신 2021.07.22 0 30
3438 함수/공식
New 시티를 비교해서 동일한 건 제거하는 것이 매일 반복되는데... 첨부파일 (1)
Chris | 2021.07.22 | 추천 0 | 조회 25
Chris 2021.07.22 0 25
3437 VBA
New VBA로 프린터 크기 지정관련 문제 첨부파일 (6) 답변완료
iviolin**** | 2021.07.22 | 추천 0 | 조회 29
iviolin**** 2021.07.22 0 29
3436 차트/그래프
New 원형차트에서 값이 변경될때마다 최대값의 조각만 따로 분리하는 해결방법 첨부파일 (2)
데이지 | 2021.07.22 | 추천 0 | 조회 29
데이지 2021.07.22 0 29
3435 VBA
New 셀 선택 시 연결된 함수 강조(색 변환) 첨부파일 (2) 답변완료
김세 | 2021.07.22 | 추천 0 | 조회 37
김세 2021.07.22 0 37
3434 기능/도구
New 구글 스프레드시트 데이터확인 범위에서의 목록 (1)
메꾸똘 | 2021.07.22 | 추천 0 | 조회 36
메꾸똘 2021.07.22 0 36
3433 함수/공식
New 다른 파일의 가로 DATA를 세로열로 부르는 방법 (DATA 호환 필요) 첨부파일 (8)
우롱쿠이 | 2021.07.22 | 추천 0 | 조회 55
우롱쿠이 2021.07.22 0 55
3432 함수/공식
New 구글 스프레드시트 쿼리로 전화번호 불러오기 (1)
메꾸똘 | 2021.07.22 | 추천 1 | 조회 31
메꾸똘 2021.07.22 1 31
3431 VBA
New [엑셀] 검색부분 질문입니다. 첨부파일 (6) 답변완료
new_hwan | 2021.07.22 | 추천 1 | 조회 41
new_hwan 2021.07.22 1 41
3430 문서서식
New 행과 열의 품목이 일치하는경우 수량에 대한 값이 나오도록 하는 서식을 만들고싶습니다. 첨부파일 (3) 답변완료
지와타네호 | 2021.07.22 | 추천 0 | 조회 54
지와타네호 2021.07.22 0 54
3429 VBA
New 최근올리신 영상(엑셀재고관리툴만들기) 관련 질문올립니다. (5)
| 2021.07.22 | 추천 0 | 조회 46
2021.07.22 0 46
3428 피벗테이블
New 피벗테이블의 날짜배열 (1)
8동 29호 여자 | 2021.07.21 | 추천 0 | 조회 32
8동 29호 여자 2021.07.21 0 32
3427 피벗테이블
New 다수 피벗테이블 데이터원본 일괄 변경 (1)
시크릿 | 2021.07.21 | 추천 0 | 조회 40
시크릿 2021.07.21 0 40
3426 함수/공식
New 2조건중 조건2개는 일치하고 1조건은 일치하는 값없으면 가장 유사한 값의 오른쪽 셀 값 추출 첨부파일 (1)
E1KD8X7H | 2021.07.21 | 추천 0 | 조회 34
E1KD8X7H 2021.07.21 0 34
3425 피벗테이블
New 피벗테이블 부분합 관련 문의_월매출 보고서 작성예 첨부파일
최쿤 | 2021.07.21 | 추천 0 | 조회 29
최쿤 2021.07.21 0 29
3424 함수/공식
New 필터적용 후에 조건부서식 색상이 재설정 되지 않는 문제 첨부파일 (2) 답변완료
하이하이데스 | 2021.07.21 | 추천 0 | 조회 40
하이하이데스 2021.07.21 0 40