本文主要是介绍录入身份证号的宏，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！
今天朋友说要录一个关于所在单位的人员信息的表格（真搞不懂，出生开始怎么要填那么多表），
表格上有一项是身份证号，但是每个号码占一个单元格如下图：
________________________________________________________
｜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
这篇关于录入身份证号的宏的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！
