|
|
我想在F3单元格输入身份证号码后，用VBA在J4、J5分别自动生成年龄,女士先生，现在性别，出生日期代码编写成功，
求年龄、先生女士编写代码，谢谢
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("f3")) Is Nothing Then
Dim StrSF$, strXB$, Birth
StrSF = Target
Select Case Len(StrSF)
Case 15
Birth = Format("19" & Mid(StrSF, 7, 6), "####年##月##日")
strXB = IIf(Right(StrSF, 1) Mod 2, "男", "女")
Case 18
Birth = Format(Mid(StrSF, 7, 8), "####年##月##日")
strXB = IIf(Mid(StrSF, 17, 1) Mod 2, "男", "女")
End Select
Range("h4") = Birth & vbCrLf
Range("f4") = strXB
End If
Exit Sub
End Sub
|
|
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2024-3-4 19:54
