vba B5:B15 범위안의 셀 클릭시 A1셀에 해당 row값 반영 오류 확인 부탁드립니다

VBA

작성자

전설

작성일

2023-11-07 10:25

조회

218

엑셀버전 : 엑셀2010 이전

운영체제 : 윈도우10

질문 요약 : vba코드 범위안의 셀 선택시 정상적으로 해당 셀의 row값 a1셀에 반영시키기

안녕하십니까

엑셀2010 버전에서 vba코드 적용 중 막히는 부분이 있어서 질문 드립니다

하단의 코드처럼 B5:B15 범위안의 임의의 셀을 선택했을 경우 A1 셀에 해당 row값을 반영하는 vba 코드를 짰는데

적용시켜보면 B15셀 값이 고정된상태로 되어 버립니다

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim selectedRow As Long
Dim rng As Range
Set rng = Range("B5:B15")

For Each cell In rng
If cell.Value <> "" Then
selectedRow = cell.Row
Range("A1").Value = selectedRow
End If
Next

정상적으로 범위안의 셀을 클릭할때마다 row값이 반영되게 하려면 어떤식으로 수정해야될까요?

공감

0명

전설

회원등급 : 9레벨

포인트 : 671 EP

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

채택답변 : 7 개

게시글

전체 2

마법의손 님 919

2023-11-07 10:55

@전설 님 참고하세요

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim rng As Range

    Set rng = Application.Intersect( Target, [B5:B15] )
    
    If Not rng Is Nothing Then
        [a1] = rng.Row
    Else
        [a1] = ""
    End If    

End Sub

원조백수 님 442

2023-11-07 11:11

채택된 답변
@전설 님 잘못되는 이유는,,,,
For Each를 사용해서 B5부터 B15까지 모두 처리가 되어 마지막으로 B15만 남은 것입니다.
For Each cell In rng
If cell.Value <> "" Then
selectedRow = cell.Row
Range("A1").Value = selectedRow
End If
Next

Selection_Change 이벤트를 사용할 때 주의할 사항은
보통 범위로 선택할 경우에는 작동하지 않도록 하는 것이 보통이므로,,,
```
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub '//범위로 선택한 경우 작동금지
    If Intersect(Target, Range("B5:B15")) Is Nothing Then Exit Sub
    If Not IsEmpty(Target) Then Range("A1") = Target.Row
End Sub
```

« VBA 에서 표 range에 수식 값을 array로 넣는데 표 구성이 제 마음대로 되지를 않네요. 도와 주세요 .

파워쿼리 데이터 합치기 시 파일이름 또는 시트명 표시 »

목록보기

전체 13,422

번호	카테고리	제목	작성자	작성일	추천	조회
알림		[📚10만부 출간 기념] 「진짜쓰는 실무엑셀」 한정판 리커버 + 8시간 로드맵 특별 부록 오빠두엑셀 \| 07:19 \| 추천 6 \| 조회 282	오빠두엑셀	07:19	6	282

공지사항	문서서식	⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (197) 오빠두엑셀 \| 2021.10.28 \| 추천 280 \| 조회 18648	오빠두엑셀	2021.10.28	280	18648
64741	VBA	New vba 사용자 입력값으로 trim 비율 설정이 불가한가요? 1y7u3n \| 18:36 \| 추천 0 \| 조회 10	1y7u3n	18:36	-	10
64737	VBA	New 평균을 역산하여 질문당 평가점수를 배점하는 문제 2010 \| 17:08 \| 추천 0 \| 조회 14	2010	17:08	-	14
64733	차트/그래프	New 엑셀 그래프 축 문의 (1) smsy \| 13:49 \| 추천 0 \| 조회 25	smsy	13:49	-	25
64732	함수/공식	New IF 다중조건 질문드립니다!! (1) dkssud**** \| 13:49 \| 추천 0 \| 조회 22	dkssud****	13:49	-	22
64723	차트/그래프	New 월별 형식에 따른 오름차순 차이 (1) 답변완료 엑셀고수왕소취 \| 01:31 \| 추천 0 \| 조회 29	엑셀고수왕소취	01:31	-	29
64722	파워쿼리/피벗	New 피벗내 전년도대비 성장률 표기를 전체매출 내림차순으로 정렬하 엑셀고수왕소취 \| 01:14 \| 추천 0 \| 조회 23	엑셀고수왕소취	01:14	-	23
64720	함수/공식	New 다중조건을 만족하는 값 가져오는 방법 (2) 럭키현 \| 2023.12.08 \| 추천 0 \| 조회 34	럭키현	2023.12.08	-	34
64718	함수/공식	New 엑셀 시트명 가져오기 함수 오류 (1) 후추소녀 \| 2023.12.08 \| 추천 0 \| 조회 28	후추소녀	2023.12.08	-	28
64714	함수/공식	New 특정 문자만 추출하는 방법 (2) 러블리JH \| 2023.12.08 \| 추천 0 \| 조회 38	러블리JH	2023.12.08	-	38
64713	문서서식	New 파이썬이 기본탭에 안보입니다 추가하는 방법이 없을까요? (1) 레키타임 \| 2023.12.08 \| 추천 0 \| 조회 27	레키타임	2023.12.08	-	27
64711	함수/공식	New 엑셀 함수 내용이 길어서 설정된칸이 다 가려집니다 ㅠㅠ (2) cheri**** \| 2023.12.08 \| 추천 1 \| 조회 29	cheri****	2023.12.08	1	29
64701	함수/공식	New 엑셀 함수 문의_숫자 자리수(5자리로 통일) 바꾸기 (근태자료 시간 형식 변경) (2) 곰 \| 2023.12.08 \| 추천 0 \| 조회 32	곰	2023.12.08	-	32
64695		New 시작 날짜시간 / 끝 날짜 시간입력 받아 그 시간대의 데이터만 남기고 나머지는 삭제하는 VBA (2) lee**** \| 2023.12.08 \| 추천 0 \| 조회 31	lee****	2023.12.08	-	31
64691	기능/도구	New 오류 표시는 설정 하는게 낫나요? (1) 노베이스엑셀 \| 2023.12.08 \| 추천 0 \| 조회 23	노베이스엑셀	2023.12.08	-	23
64689	함수/공식	New 간단한 질문하나 드립니다ㅠㅠ (1) 똥깽쓰 \| 2023.12.08 \| 추천 0 \| 조회 33	똥깽쓰	2023.12.08	-	33
64688	기능/도구	New 빠른실행도구 설정관련 문의 드려요!! (2) 호도로로 \| 2023.12.08 \| 추천 0 \| 조회 33	호도로로	2023.12.08	-	33
64684	파워쿼리/피벗	New 쿼리결합으로 만든 테이블에 추가한 열이 새로고침 할 때마다 계속 바뀝니다. (1) 갈귀 \| 2023.12.08 \| 추천 0 \| 조회 27	갈귀	2023.12.08	-	27
64682	함수/공식	New 너무 어려워요 ㅠㅠ날짜와 시각(콜론, 기호 구분 없이 숫자 4자리만 적혀있는,,,)으로 총 소요된 시간(분)을 구하고 싶습니다. (2) 답변완료 up**** \| 2023.12.08 \| 추천 0 \| 조회 33	up****	2023.12.08	-	33
64678	문서서식	New 특수문자(기호)입력 후 띄어쓰기 시 기호 바로 뒤에 생기는 동그라미를 없앨 수는 없을까요??? 권영근 \| 2023.12.08 \| 추천 0 \| 조회 26	권영근	2023.12.08	-	26
64675	VBA	New 엑셀에서 메일 보낼때 서명란과 본문이 섞이는 문제.. (2) bird**** \| 2023.12.08 \| 추천 0 \| 조회 39	bird****	2023.12.08	-	39
64672	문서서식	New 시트를 복사한 후, 모든 조건이 같은데도 인쇄 미리보기창이 길쭉해지는 문제 (3) 비손 \| 2023.12.08 \| 추천 1 \| 조회 43	비손	2023.12.08	1	43
64669	함수/공식	New 나눠진 셀을 하나의 셀 안에 취합하는 방법 (3) 답변완료 아숫 \| 2023.12.07 \| 추천 0 \| 조회 53	아숫	2023.12.07	-	53
64666	함수/공식	New 중복값중 2번째 이후부터 나오는 값을 따로 추출하고 싶습니다 (4) 답변완료 아숫 \| 2023.12.07 \| 추천 0 \| 조회 29	아숫	2023.12.07	-	29
64662	기능/도구	New 강의내용 엑셀 찾기 및 바꾸기 (1) 노베이스엑셀 \| 2023.12.07 \| 추천 0 \| 조회 49	노베이스엑셀	2023.12.07	-	49
64661	함수/공식	New 바로 위 숫자랑 비교해서 조건부서식 색칠하는 방법 질문입니다 (1) 유령회원 \| 2023.12.07 \| 추천 0 \| 조회 55	유령회원	2023.12.07	-	55
64658	함수/공식	New 2개회사 가입금액대비 보험료 월계산 (3) 조녜 \| 2023.12.07 \| 추천 0 \| 조회 52	조녜	2023.12.07	-	52
64654	함수/공식	New 날자별 집계하고 싶은데 ㅠㅠ 날자 부분이 달라서 값이 안나와요 도와주세요!! (4) 답변완료 시이그 \| 2023.12.07 \| 추천 0 \| 조회 61	시이그	2023.12.07	-	61
64653	함수/공식	New 연관된 상품들을 각 열에 정리하기 (2) piano**** \| 2023.12.07 \| 추천 0 \| 조회 49	piano****	2023.12.07	-	49
64650	함수/공식	New 요일별 이용자 평균값을 구하고 싶어요 (2) 소현 \| 2023.12.07 \| 추천 0 \| 조회 43	소현	2023.12.07	-	43
64647	구글시트	New 구글시트 빈셀 포함된 행 자동 숨기기 (1) 퇴근퇴근 \| 2023.12.07 \| 추천 0 \| 조회 39	퇴근퇴근	2023.12.07	-	39