유저폼 생년월일을 입력해서 만나이를 추출하고 싶습니다.

VBA
작성자
하늘이
작성일
2022-07-08 10:28
조회
145
엑셀버전 : 엑셀2016

운영체제 : 윈도우10

현재는 주민등록번호를 넣으면 아래 빈칸에 생년월일이 나오게 되어 있습니다.

저는 생년월일 (예:1980.12.31 넣으면 만나이 계산 클릭! 밑에 있는 빈칸에 만나이가 자동을 떴으면 좋겠습니다.)

만나이 계산 시 현재 또는 개발자가 일자 넣게 해고 싶습니다.

고수님 부탁드립니다.

 

 

Private Sub CommandButton1_Click()
Dim strN As String
With Me
If .TextBox1 <> Empty Then
If Mid(.TextBox1, 8, 1) > 2 Then
strN = "20" & Left(.TextBox1, 6)
.TextBox2 = Format(strN, "0000-00-00")
Else
strN = "19" & Left(.TextBox1, 6)
.TextBox2 = Format(strN, "0000-00-00")
End If
Else
MsgBox "주민번호를 입력하세요!"
End If
End With
strN = Empty
End Sub

Private Sub CommandButton1_Click() Dim strN As String With Me If .TextBox1 <> Empty Then If Mid(.TextBox1, 8, 1) > 2 Then strN = "20" & Left(.TextBox1, 6) .TextBox2 = Format(strN, "0000-00-00") Else strN = "19" & Left(.TextBox1, 6) .TextBox2 = Format(strN, "0000-00-00") End If Else MsgBox "주민번호를 입력하세요!" End If End With strN = Empty End Sub

 

 

 

전체 0

전체 7,376
번호 카테고리 제목 작성자 작성일 추천 조회
알림
[📚교재 출간 안내] 「진짜쓰는 실무엑셀」 , 드디어 출간되었습니다! (133)
오빠두엑셀 | 2022.02.03 | 추천 383 | 조회 67518
오빠두엑셀 2022.02.03 383 67518
공지사항 함수/공식
[신규 기능 업데이트!] 👉 이제 게시글 작성시 스크린샷 복/붙이 가능합니다! 😎 (2)
오빠두엑셀 | 2022.08.04 | 추천 4 | 조회 360
오빠두엑셀 2022.08.04 4 360
공지사항 함수/공식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (88)
오빠두엑셀 | 2021.10.28 | 추천 118 | 조회 6312
오빠두엑셀 2021.10.28 118 6312
41248 VBA
New 다수의 버튼 클릭 이벤트가 동일할 때 코드를 간단히 할수 있을까요? 첨부파일
늙은베짱이 | 03:48 | 추천 0 | 조회 4
늙은베짱이 03:48 - 4
41246 문서서식
New 엑셀에서 '계산 중 : (4 프로세서): 0%'와 계산중 (6 스레드): 0% 질문드립니다.
월마리아 | 01:33 | 추천 0 | 조회 9
월마리아 01:33 - 9
41241 문서서식
New 조건부 서식의 AND규칙이 올바르게 작동하지 않습니다. 첨부파일 (3) 답변완료
정성 | 2022.08.16 | 추천 0 | 조회 25
정성 2022.08.16 - 25
41239 VBA
New 생성한 UserForm 시작위치 설정 (1)
장주훈 | 2022.08.16 | 추천 0 | 조회 28
장주훈 2022.08.16 - 28
41231 함수/공식
New 지정한 지급일 이후의 오름차순 기준 7개의 고유일자 가져오기 첨부파일 (1)
이삭줍기 | 2022.08.16 | 추천 1 | 조회 35
이삭줍기 2022.08.16 1 35
41226 피벗테이블
New 피벗테이블에서 없는 항목을 표시하고 싶습니다. 첨부파일 (6) 답변완료
gaeko | 2022.08.16 | 추천 0 | 조회 33
gaeko 2022.08.16 - 33
41224 함수/공식
New (초보 질문) index + match 사용? 조건 4개 이상 데이터 가져오기 (4) 답변완료
JeilK | 2022.08.16 | 추천 1 | 조회 30
JeilK 2022.08.16 1 30
41223 기능/도구
New 데이터 필터 검색 기능 질문 첨부파일 (7) 답변완료
mksong | 2022.08.16 | 추천 0 | 조회 19
mksong 2022.08.16 - 19
41222 피벗테이블
New 피벗테이블로 제품별+월별(날짜)별 클릭률(CTR) 변화를 그래프로 표현하고자 합니다 첨부파일
박진우 | 2022.08.16 | 추천 0 | 조회 21
박진우 2022.08.16 - 21
41218 VBA
New 시트를 구분해서 PDF로 저장하는거까진 되는데 시트를 합치는게 안되서요.. 엑셀파일 (3) 답변완료
qkznl**** | 2022.08.16 | 추천 0 | 조회 34
qkznl**** 2022.08.16 - 34
41214 함수/공식
New 동일 파일 시트 단독 작업 후 붙여넣기 시 함수 참조값이 변경될 때 (2)
대전엑린이 | 2022.08.16 | 추천 0 | 조회 31
대전엑린이 2022.08.16 - 31
41212 VBA
New VBA에서 Xlookup를 사용할 때, 다른 파일에 다른 시트를 참조 할 때, 참조방식에 관한 질문 첨부파일 (3)
DanP | 2022.08.16 | 추천 0 | 조회 42
DanP 2022.08.16 - 42
41211 함수/공식
New 수식의 셀이 비어있을경우 셀이 비어있도록 하는 방법이 있을까요?? 도와주세요..며칠째 이것만 찾고있습니다. (5) 답변완료
박현중 | 2022.08.16 | 추천 0 | 조회 56
박현중 2022.08.16 - 56
41209 함수/공식
New 특정값 곱하기 열에 자동계산 도와주세요 첨부파일 (1)
쳐바 | 2022.08.16 | 추천 0 | 조회 37
쳐바 2022.08.16 - 37
41206 기능/도구
New 엑셀 기능 두셀의 값 위치 바꾸기 첨부파일 (4)
엑셀공부중 | 2022.08.15 | 추천 0 | 조회 46
엑셀공부중 2022.08.15 - 46
41198 VBA
New 유저폼 강제종료 할수 있는 방법이 있을까요? (2) 답변완료
033cola | 2022.08.15 | 추천 0 | 조회 46
033cola 2022.08.15 - 46
41194 파워쿼리/피벗
New 파워쿼리 사용자지정열에 관한 아주 간단한 질문드립니다. (AND, OR조건과 줄바꿈) 엑셀파일첨부파일
월마리아 | 2022.08.15 | 추천 0 | 조회 31
월마리아 2022.08.15 - 31
41193 함수/공식
New 월간 세일즈 타겟에서 남은 금액 계산 방법이 있나요? 엑셀파일 (1)
LULLABY | 2022.08.15 | 추천 0 | 조회 26
LULLABY 2022.08.15 - 26
41184 피벗테이블
New 피벗테이블과 시트 부분 보호 엑셀파일 (1)
꿈꾸는부자 | 2022.08.15 | 추천 -1 | 조회 37
꿈꾸는부자 2022.08.15 -1 37
41182 피벗테이블
New 엑셀 피벗 엑셀파일첨부파일 (2) 답변완료
win | 2022.08.15 | 추천 0 | 조회 53
win 2022.08.15 - 53
41180 VBA
New 시트모으기 매크로 관련 보완 및 조언 요청 드립니다. 첨부파일 (2) 답변완료
김원중 | 2022.08.15 | 추천 0 | 조회 42
김원중 2022.08.15 - 42
41174 함수/공식
New 엑셀 다른시트에서 날짜에 맞춰서 값 불러오기 수식을 어떻게 짜야할지 모르겠어요. 첨부파일 (8) 답변완료
민호 | 2022.08.14 | 추천 0 | 조회 73
민호 2022.08.14 - 73
41173 함수/공식
New 오빠두에서 제공하는 견적서에 외화를 추가하고 싶습니다. (1)
농푸 | 2022.08.14 | 추천 0 | 조회 33
농푸 2022.08.14 - 33
41170 문서서식
New (초보질문)채우기 색만 복사 붙여넣기 하는 방법 좀 알려주세요~ 엑셀파일첨부파일 (4) 답변완료
추바카 | 2022.08.14 | 추천 0 | 조회 49
추바카 2022.08.14 - 49
41167 기능/도구
New 고급필터 결과값 셀에 형식을 주려면 어떻게 해야 할까요? (1)
| 2022.08.14 | 추천 0 | 조회 34
2022.08.14 - 34
41162 VBA
New 달력 유저폼에서 유저폼 X 하면 현재 날짜 변경 없으면 합니다. 엑셀파일첨부파일 (4) 답변완료
033cola | 2022.08.13 | 추천 0 | 조회 50
033cola 2022.08.13 - 50
41159 함수/공식
New 해당 조건 개수찾기 Max 함수 예제 엑셀파일 (1) 답변완료
Kim Si Yoon | 2022.08.13 | 추천 0 | 조회 44
Kim Si Yoon 2022.08.13 - 44
41148 VBA
New 셀에서 특정 위치에 있는 문자의 색상을 변경하는 방법 첨부파일 (2) 답변완료
:+:하늘비:+: | 2022.08.13 | 추천 0 | 조회 58
:+:하늘비:+: 2022.08.13 - 58
41147 문서서식
New 엑셀에서 픽셀에 의미에 대해서 질문드립니다. 첨부파일 (5) 답변완료
월마리아 | 2022.08.13 | 추천 0 | 조회 86
월마리아 2022.08.13 - 86
41145 함수/공식
New 이런 경우는 어떻게 해야할까요? 첨부파일 (4) 답변완료
Utaeks | 2022.08.13 | 추천 1 | 조회 73
Utaeks 2022.08.13 1 73