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

VBA

작성자

033cola

작성일

2022-05-22 13:33

조회

엑셀버전 : 엑셀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

033cola

회원등급 : 11레벨

포인트 : 906 EP

총질문 : 14 개 (마감율 : 86%)

채택답변 : 9 개

게시글

행에 마지막 입력값 삭제하는 방법 문의 드림니다. (2)
2022.07.02
스핀단추에서 증분변경시 0.1 씩 증감할려면 어떻게 해야 할까요? (2)
2022.05.27
월요일 ~일요일까지 입력할 VBA 명령어 (2)
2022.05.22
FormulaR1C1 에 들어갈 함수 질문드림니다. (3)
2022.05.15
Range 에 입력값을 텍스트로 변경하기 (2)
2022.05.12

전체 2

bobo 님 221

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
- 033cola 님 9 작성자
  
  2022-05-22 18:52
  
  @bobo 님 감사합니다. 이런 방법도 있네요. 그런데 시트에서 엔터를 눌려야 값이 나오는데 엔터를 안쳐도 값이
  
  나오게 할수 있는 방법이 있을까요?
  
  현재는 c2:i2 입력을 조건부 서식으로 해서 입력을 하고 있는데 꼭 엔터를 눌려야 값이 표시되네요. ㅠ.ㅠ

« WorksheetFunction 클래스중 VLOOKUP 속성을 구할수 없습니다 에러

재고 강의에서 숫자로 입력된 텍스트 »

목록보기

전체 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