求年龄、先生女士编写代码，谢谢

pengzhen1817 · 发表于 2024-3-4 19:54

我想在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

shiruiqiang · 发表于 2024-3-4 22:43

straa = IIf(Mid(StrSF, 17, 1) Mod 2, "先生", "女士")
这样？

fzxba · 发表于 2024-3-5 07:09

VBA自动填充数据.zip (10.37 KB, 下载次数: 17)

		自动登录	找回密码
密码			免费注册