今天朋友说要录一个关于所在单位的人员信息的表格(真搞不懂,出生开始怎么要填那么多表),
表格上有一项是身份证号,但是每个号码占一个单元格如下图:
________________________________________________________
|1|2|3|4|5|6|7|8|9|0|1|2|3|4|5|
|1|2|3|4|5|6|7|8|9|0|1|2|3|4|5|6|7|8|
于是七拼八凑的写了个宏,还好,勉强可以用,特此把VBA代码贴在此地,以后再研究学习。
Attribute VB_Name = "模块1"
Sub 录入身份证号()
Attribute 录入身份证号.VB_ProcData.VB_Invoke_Func = "t/n14"
personid = InputBox("身份证号码", "身份证号码", vbOKCancel)
idlength = Len(personid)
If (idlength = 15 Or idlength = 18) Then
setPersonID idlength, personid
Else
MsgBox