学以致用——使用VBA从身份证号提取性别、出生年月日、年龄(Extract gender, DOB, age from ID)
看到教材中的一个示例,可从身份证号提取性别、出生年月日、年龄。但是有个问题,即,当仅选择一个单元格时,会报错(类型错误)。于是,修改了这个问题。现在,仅选择一行,也可以进行提取。代码:SubextractIDInfo()'利用VBA从身份证号码中提取性别、出生日期和年龄DimrngAsRange,iAsInteger,MystrAsString,arr(),arr2()IfTypeName(Sel