VBA Challenge 1st day!

작성자
이주현-알파칸
작성일
2024-10-30 07:01
조회
21

🔥 실습 예제과 함께 공부하는 모습을 함께 올려보세요!
(마우스 드래그 & 스크린샷+붙여넣기로 편리하게 그림을 넣을 수 있습니다)

동적범위를 만드려고 무던히도 노력했는데 아래 방법은 안되더군요.

Function FindGender(Name)
Dim ws As Worksheet
'Dim lastRow As Long
Dim idNumber As Variant
Dim SearchRange As Range

Set ws = ActiveSheet

' B2 셀을 기준으로 CurrentRegion 설정
Set SearchRange = ws.Range("B2").CurrentRegion

' B열의 마지막 행 찾기
' lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row

On Error GoTo ErrorHandler

' CurrentRegion을 사용하여 VLOOKUP 수행
' idNumber = WorksheetFunction.VLookup(Name, ws.Range("b2:d" & lastRow), 2, False)
idNumber = WorksheetFunction.VLookup(Name, SearchRange, 2, False)

Dim genderDigit As String
genderDigit = Mid(idNumber, 8, 1)

Select Case genderDigit
Case "1", "3"
FindGender = "남자"
Case "2", "4"
FindGender = "여자"
Case Else
FindGender = "알 수 없음"
End Select
Exit Function

ErrorHandler:
FindGender = "Not Found"
End Function

================================================

코드 실행 중에 직접실행창에서 ?range("$B$2").currentregion.address 하면 "$B$2"를 반환하고 코드 중지 후에 직접실행창에서 ?range("$B$2").currentregion.address 하면 "$B$2:$D:$8" 가 되어
서로 결과가 다르게 나오는 것이지.
정녕 이 방법은 안되는 것일까?

신고
스크랩
공유
전체 0

전체 3,565
번호 제목 작성자 작성일 추천 조회
알림
[📚진짜쓰는 실무엑셀] 2024년 엑셀 공부, 이 책 한권으로 마스터하세요! (290)
오빠두엑셀 | 2022.02.03 | 추천 554 | 조회 842026
오빠두엑셀 2022.02.03 554 842026
74555
New VBA Challenge 1st day!
이주현-알파칸 | 07:01 | 추천 0 | 조회 21
이주현-알파칸 07:01 - 21
74554
New VBA 챌리지 챕터1 (1)
Amitabha | 03:42 | 추천 0 | 조회 24
Amitabha 03:42 - 24
74553
New 엑셀 VBA 4일
공부해 | 01:03 | 추천 0 | 조회 24
공부해 01:03 - 24
74552
New vba 3회차 첨부파일
재회 | 00:45 | 추천 0 | 조회 24
재회 00:45 - 24
74551
New 엑셀 VBA 기초 완성, 원데이 챌린지 [챕터4]
돈줘 | 00:08 | 추천 0 | 조회 19
돈줘 00:08 - 19
74549
New 3일차 엑셀VBA자동화
시로 | 2024.10.29 | 추천 0 | 조회 23
시로 2024.10.29 - 23
74548
New vba 2회차 첨부파일
재회 | 2024.10.29 | 추천 0 | 조회 22
재회 2024.10.29 - 22
74547
New 엑셀 VBA 기초 완성, 원데이 챌린지 [챕터3]
돈줘 | 2024.10.29 | 추천 0 | 조회 20
돈줘 2024.10.29 - 20
74546
New 비지니스 엑셀 차트 시각화 챌린지 1일차)
정골드 | 2024.10.29 | 추천 0 | 조회 22
정골드 2024.10.29 - 22
74545
New VBA 챌린지_2강
최승현 | 2024.10.29 | 추천 0 | 조회 24
최승현 2024.10.29 - 24
74535
New VBA 챌린지 1일차 첨부파일
쀼셔 | 2024.10.29 | 추천 0 | 조회 29
쀼셔 2024.10.29 - 29
74522
New 직장인의 VBA 원데이 챌린지 1일차 후기
HDDFS | 2024.10.29 | 추천 0 | 조회 33
HDDFS 2024.10.29 - 33
74515
New VBA4일
이쁜슬기 | 2024.10.29 | 추천 0 | 조회 19
이쁜슬기 2024.10.29 - 19
74514
New VBA 챌린지 1일차
강정호 | 2024.10.29 | 추천 0 | 조회 24
강정호 2024.10.29 - 24
74511
New 엑셀 VBA 3일
공부해 | 2024.10.29 | 추천 0 | 조회 29
공부해 2024.10.29 - 29
74510
New 2일차 엑셀VBA자동화 첨부파일
시로 | 2024.10.28 | 추천 0 | 조회 22
시로 2024.10.28 - 22
74509
New VBA 원데이 챌린지 1일차 인증(질문 있습니다 도와주세요 ㅜ) 첨부파일 (2)
찬주 | 2024.10.28 | 추천 0 | 조회 33
찬주 2024.10.28 - 33
74508
New 엑셀 VBA 기초 완성, 원데이 챌린지 [챕터2]
돈줘 | 2024.10.28 | 추천 0 | 조회 29
돈줘 2024.10.28 - 29
74507
New VBA 원데이 챌린지 챕터 4 첨부파일
h**** | 2024.10.28 | 추천 0 | 조회 23
h**** 2024.10.28 - 23
74506
New VBA 기초 완성, 원데이 챌린지 4일차 첨부파일
여유 | 2024.10.28 | 추천 0 | 조회 24
여유 2024.10.28 - 24