월요일 ~일요일까지 입력할 VBA 명령어

VBA
작성자
033cola
작성일
2022-05-22 13:33
조회
93
엑셀버전 : 엑셀2016

운영체제 : 윈도우10

아래와 같은 서식에서 월요일 ~ 일요일까지 중에서 요일밑에 선택에 따라서

마지막에 C3 셀에 숫자가 표시되도록 하였습니다.

문제는 월요일부터 ~ 일요일까지 다 넣어야 하는데 어떻게 해야 할지 질문드림니다.

아래는 VBA 명령어 입니다. 대충 쉬운 수식으로 만들었는데...

아래코드 중에서 C2 부터 I2 까지 넣어야 합니다.   일일히 다 넣어야 하는지 아니면

다른 방법이 있는지 고수님들의 지혜를 빌려봅니다. 감사합니다.

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim R As Range
Dim T As Range
 
Set R = Range("C2")
Set T = Range("C3")
 
If R = "M" Then
T.Value = "7.5"
ElseIf R = "E" Then
T.Value = "7.5"
 
ElseIf R = "M.E" Then
T.Value = "15"
 
ElseIf R = "E.N" Then
T.Value = "14.5"
 
Else
End If
End Sub

 

 

회원등급 : 11레벨
포인트 : 906 EP
총질문 : 14 개 (마감율 : 86%)
채택답변 : 9 개
전체 2

  • 2022-05-22 14:37
    채택된 답변

    @033cola 님 이런식으로 해도 될 것 같습니다.

    Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("c2:i2")) Is Nothing Then

    If Target.Value = "E.N" Then

    Target.Offset(1) = 14.5

    ElseIf Target.Value = "M.E" Then

    Target.Offset(1) = 15

    Else

    Target.Offset(1) = 7.5

    End If

    End If

    End Sub


    • 2022-05-22 18:52

      @bobo 님 감사합니다. 이런 방법도 있네요. 그런데 시트에서 엔터를 눌려야 값이 나오는데 엔터를 안쳐도 값이

      나오게 할수 있는 방법이 있을까요?

      현재는 c2:i2 입력을 조건부 서식으로 해서 입력을 하고 있는데 꼭 엔터를 눌려야 값이 표시되네요. ㅠ.ㅠ


전체 6,869
번호 카테고리 제목 작성자 작성일 추천 조회
알림
📌 -- VBA 기초-활용 4주 완성, 특별 스터디 모집을 시작합니다! ~7/8(금) 까지 -- 📌 (96)
오빠두엑셀 | 2022.06.23 | 추천 141 | 조회 17312
오빠두엑셀 2022.06.23 141 17312
공지사항 함수/공식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (79)
오빠두엑셀 | 2021.10.28 | 추천 97 | 조회 5323
오빠두엑셀 2021.10.28 97 5323
38909 파워쿼리/피벗
New 파워쿼리 작성 엑셀파일 (1)
당신을축복하는올빼미 | 13:27 | 추천 0 | 조회 15
당신을축복하는올빼미 13:27 0 15
38907 함수/공식
New INDEX + MATCH 함수 에러 문제관련
brain hoon | 13:09 | 추천 -2 | 조회 13
brain hoon 13:09 -2 13
38905 VBA
New [1주차]VBA 미션... 다들 해보셧나요? 도움 좀..ㅠ 첨부파일 (2)
배성철 | 13:02 | 추천 0 | 조회 14
배성철 13:02 0 14
38899 함수/공식
New 어떤 함수를 써야 될지 (2)
정상진 | 11:52 | 추천 0 | 조회 22
정상진 11:52 0 22
38895 대시보드
New 데이터 입력시 자동으로 보고서 작성 첨부파일 (2)
bmmania | 11:23 | 추천 0 | 조회 25
bmmania 11:23 0 25
38889 함수/공식
New 중복 데이터 에서 2개 이상 조건을 만족하는 고유 항목 개수 세기
곱칭 | 10:45 | 추천 -1 | 조회 21
곱칭 10:45 -1 21
38868 VBA
New 행복한 한 주 시작 하시길 바랍니다. 도와주세요(고급필터 애러) 엑셀파일첨부파일
파란맥 | 08:42 | 추천 0 | 조회 20
파란맥 08:42 0 20
38839 VBA
New 1주차 VBA 강의 질문입니다 첨부파일 (1)
WWW | 2022.07.03 | 추천 0 | 조회 32
WWW 2022.07.03 0 32
38828 VBA
New VBA 스터디 1주차 두번째 미션 실패 ㅠㅠ 도와주세요 첨부파일 (1)
YJ | 2022.07.03 | 추천 0 | 조회 25
YJ 2022.07.03 0 25
38811 구글시트
New COUNTA 함수 엑셀파일 (8) 답변완료
거꾸로문 | 2022.07.03 | 추천 0 | 조회 38
거꾸로문 2022.07.03 0 38
38785 VBA
New 1주차 VBA 강의 질문입니다 첨부파일 (2)
sebin**** | 2022.07.03 | 추천 0 | 조회 31
sebin**** 2022.07.03 0 31
38758 VBA
New 고급필터 자동화 범위 설정시 애러 문의 합니다. 첨부파일
파란맥 | 2022.07.03 | 추천 0 | 조회 15
파란맥 2022.07.03 0 15
38730 파워쿼리/피벗
New 피벗테이블 정렬 순서 변경에 관해서 질문드립니다.
월마리아 | 2022.07.03 | 추천 1 | 조회 21
월마리아 2022.07.03 1 21
38686 VBA
New VBA 4주 완성 1편에서 Visual Basic 질문 첨부파일 (3) 답변완료
도토리이 | 2022.07.03 | 추천 0 | 조회 48
도토리이 2022.07.03 0 48
38660 VBA
New VBA, 매크로, 함수 중에 조건에 맞는 값을 가져오기 문의 합니다. 엑셀파일첨부파일 (2)
파란맥 | 2022.07.03 | 추천 0 | 조회 43
파란맥 2022.07.03 0 43
38655 함수/공식
New 근무시간 산출 함수식 문의 드립니다. 엑셀파일 (1)
민쉬 | 2022.07.03 | 추천 0 | 조회 33
민쉬 2022.07.03 0 33
38530 피벗테이블
New 피벗테이블에서 총합계만 보고싶을때 엑셀파일첨부파일 (2)
까까오똑 | 2022.07.02 | 추천 0 | 조회 20
까까오똑 2022.07.02 0 20
38483 VBA
New VBA 두 피벗테이블 슬라이서 연동
라바 | 2022.07.02 | 추천 0 | 조회 22
라바 2022.07.02 0 22
38370 VBA
New 행에 마지막 입력값 삭제하는 방법 문의 드림니다. 첨부파일 (2) 답변완료
033cola | 2022.07.02 | 추천 0 | 조회 45
033cola 2022.07.02 0 45
38356 VBA
New VBA 또는 매크로 사용하여 시트1의 원한는 내용만 시트2에 표기하는 스크립트 문의 합니다. 엑셀파일첨부파일 (6) 답변완료
파란맥 | 2022.07.02 | 추천 1 | 조회 61
파란맥 2022.07.02 1 61
38287 VBA
New VBA 범위 입력 소스 문의 합니다. (6) 답변완료
파란맥 | 2022.07.02 | 추천 1 | 조회 63
파란맥 2022.07.02 1 63
38284 기능/도구
New 엑셀 여러가지파일 탭으로 보기 첨부파일
asfdadfs | 2022.07.02 | 추천 -1 | 조회 32
asfdadfs 2022.07.02 -1 32
38260 파워쿼리/피벗
New 청사 출입기록을 월별, 인원별로 정리하고 싶은데 선배님들 조언을 구합니다. 엑셀파일첨부파일 (1)
비에리 | 2022.07.02 | 추천 0 | 조회 30
비에리 2022.07.02 0 30
38258 VBA
New 기준열과 동일하게 셀병합 하는 vba 엑셀파일첨부파일 (2) 답변완료
007 | 2022.07.02 | 추천 0 | 조회 46
007 2022.07.02 0 46
38251 함수/공식
New 엑셀 다중조건으로 다른시트에 추출후 수정해서 원본시트에 업데이트방법? 엑셀파일
제임스딘 | 2022.07.02 | 추천 0 | 조회 36
제임스딘 2022.07.02 0 36
38197 VBA
New VBA 매크로 SelectionChange 명령문(스크립트) 조언 받고자 합니다. 엑셀파일첨부파일 (2) 답변완료
파란맥 | 2022.07.01 | 추천 0 | 조회 27
파란맥 2022.07.01 0 27
38191 함수/공식
New 특정 텍스트만 추출하는 함수에서.. (1) 답변완료
최사무엘 | 2022.07.01 | 추천 0 | 조회 32
최사무엘 2022.07.01 0 32
38187 기능/도구
New 엑린이] 시트값을 자동으로 불러오고 싶습니다 (2) 답변완료
세잎 | 2022.07.01 | 추천 0 | 조회 33
세잎 2022.07.01 0 33
38183 VBA
New VBA 매크로 SelectionChange 명령문 조언 받고자 합니다. 엑셀파일첨부파일 (7) 답변완료
파란맥 | 2022.07.01 | 추천 1 | 조회 38
파란맥 2022.07.01 1 38
38182 함수/공식
New FILTER함수 사용시에 함수가 안먹히는 문제 첨부파일 (1)
엑셀고수되는방법좀 | 2022.07.01 | 추천 0 | 조회 28
엑셀고수되는방법좀 2022.07.01 0 28