VBA中如何根据身份证号码自动计算年龄
发布网友
发布时间：2022-04-22 23:05
共4个回答
热心网友
时间：2023-10-08 16:08
要提取C列的性别及E列的年龄，可以这样写：
Sub aa()
Dim XinBie() As String '性别,数组
Dim NianLing() As Long '年龄
Dim iYear As Date '出生年月日
Dim iRow As Long '行号
Dim iArray As Integer '数组维数
'读C列及E列信息,处理数据,分别给数组赋值
For iRow = 3 To 100
ReDim Preserve XinBie(iRow - 3)
XinBie(iRow - 3) = Range("C" & iRow)
ReDim Preserve NianLing(iRow - 3)
iYear = Format(Mid(Range("E" & iRow), 7, 8), "0000-00-00")
NianLing(iRow - 3) = Year(Date - iYear) '获得实际年龄
Next iRow
'读数组,分别写入目标单元格
For iArray = 0 To UBound(XinBie)
'... = XinBie(iArray)
'... = NianLing(iArray)
Next iArray
End Sub
热心网友
时间：2023-10-08 16:08
Sub mm()
t = "350421196903254011"
MsgBox DateDiff("yyyy", Format(Mid(t, 7, 8), "0000-00-00"), Date)
End Sub
T变量是身份证号，你可以把这个改为你要的引用追问图发不上来，如身份证在e5，现在要调用c5性别和d5年龄
帮个忙吧
热心网友
时间：2023-10-08 16:09
假如身份证号码在A1列，在B1中输入：= YEAR(TODAY())-MID(A1,7,4)。回车就出现结果。
不是必须用vba 也可以做出来
热心网友
时间：2023-10-08 16:09
用MID函数，截取出生年月的部分，然后用当前日期减去 截取的日期就可以了
