用VBA实现身份证号码提取出生日期及性别问题?

sdong7

我也来编写一个！！

sdong7

1. Sub tt() 'bysdong7 20141106
   
2. Dim mxr As Long
   
3. Dim arr
   
4. mxr = [a65536].End(xlUp).Row
   
5. arr = Range("a1:e" & mxr)
   
6. For i = 2 To mxr
   
7. arr(i, 3) = Format(Left(Right(arr(i, 1), 12), 8), "####-##-##")
   
8. sex = Val(Left(Right(arr(i, 1), 2), 1))
   
9. Select Case sex Mod 2
   
10. Case 1
    
11. arr(i, 4) = "男"
    
12. Case 0
    
13. arr(i, 4) = "女"
    
14. 
    
15. End Select
    
16. 
    
17. Next i
    
18. 
    
19. Range("a1:e" & mxr) = arr
    
20. End Sub
    

复制代码

sdong7

看错要求了，楼主需要输入身份证号时,对应的列能自动生成出生日期和性别.
应该用事件！！

sdong7

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim mxr As Long
Dim arr
mxr = [a65536].End(xlUp).Row
arr = Range("a1:e" & mxr)
For i = 2 To mxr
arr(i, 3) = Format(Left(Right(arr(i, 1), 12), 8), "####-##-##")
sex = Val(Left(Right(arr(i, 1), 2), 1))
Select Case sex Mod 2
Case 1
arr(i, 4) = "男"
Case 0
arr(i, 4) = "女"

End Select

Next i

Range("a1:e" & mxr) = arr
End Sub

sdong7

传上附件！！！！！！！！！！！！

112ppp

蓝桥玄霜 发表于 2011-8-3 16:25
请见附件。

老师，您这个代码有点问题，当清除身份证单元格的内容时，表格会被关闭。另外，当身份证号码列用粘贴的方式，表里面就不会显示出性别和生日。

amchat

学习收藏，谢谢

3923

学习中，也一直在找解决办法

dzrjf

24楼老师：身份证信息删除后，但生日和性别不能自动删除。