msgbox "이름이 없습니다. 추가 하시겠습니까"그리고 나이는 현재 년도를 생년월일에서 뺀값이 자동으로 나오게 하고싶습니다.

Q : 안녕하세요 vba 코드질문입니다.

코드를 추가하고 싶은데 잘안되서 문의드립니다.

 

검색 기능코드에서  없는이름이있을때   msgbox "이름이 없습니다. 추가 하시겠습니까"

그리고 나이는 현재 년도를 생년월일에서 뺀값이 자동으로 나오게 하고싶습니다. 

 

A : 추가하시겠습니까? 를 예, 아니오로 선택할 수 있게 하고

만약 대답이 yes면 조건 안으로 들어가고

​

나이의 경우 now() 함수를 사용하여 format을 연도만 구해서 현재연도 - 생년월일 하면 될 것 같습니다.

If MsgBox("이름이 없습니다. 추가 하시겠습니까?", vbYesNo) = vbYes Then
    '만약, "예" 버튼을 눌렀다면
    ' 현재 year과 생년월일을 뺀다.
    txt나이 = Format(Now(), "yyyy") - Format("1900-01-01", "yyyy")
Else
    Exit Sub
End If