[求助]关于身份证的几个问题

山村郞

各位高手，HR的同仁和高手们，我是一个HR的新手，我想找一个保证所输入的身份证号绝对正确的方法。以前我都是一遍又一遍的复查，但还是有出错的机会，而且工作量也很大，望各位帮助。

york888

<p>请先设定文本格式请输入!请试试:</p><p>设置单元格格式&gt;常规&gt;数字&gt;文本</p>

yunkai921

<p>设置数据的有效性</p><p>保证号码是15位或者18位。</p>

TongYue

<p>你好，</p><p>方法有两个可以同时设置使用：</p><ol><li>使用有效的数据类型设置和信息。方法：EXCEL帮助信息里自己学习,查询“数据有效性”。</li><li>通过办输入数据边由系统发出声音。方法：打开需要的工作表－选项－常规－打钩“提供声音反馈”－如有需要更具提示安装插件。</li><li>细心，细心！！</li></ol><p>其实上面的方法还是有许多局限性，做HR工作还是要细心！，望多多分享知识，提高工作效率!</p>

liuf_sh

<p>软件用好了只是解决你的工作效率，而要想不出错，关键还是要细心</p>

shcoop

<p>除了细心还是细心。</p>

sunya_0529

<p>身份证号码的处理确实是一个比较烦人的东西，不过通过以下三步，相信你可以很好的驾驭它：</p><p>1、定义数据有效性，将待输入身份证号码的区域设置数据的有效性，数据－》有效性－》设置－》允许－》自定义－》公式“=OR(LEN(C9)=15,LEN(C9)=18)”<br/>接着，出错－》标题“身份证号码位数不正确”－》错误信息“请检查身份证号码的位数，必须15位或18位！”</p><p>2、正确设置单元格格式，把身份证号码所在列的单元格格式设置成“文本”，或者确保你输入时先输入西文半角的单引号“'”，这样会把身份证号强制识别为文本格式</p><p>3、增加辅助列，运用自定义函数进行检查，=CheckID(<em><font color="#808080">[单元格引用]</font></em>)</p><p>Alt+F11进入VBE编辑器，插入—》模块，增加如下代码：</p><p>Option Explicit</p><p>Function CheckID(IdStr) As String '身份证号码校验<br/>On Error Resume Next<br/>Dim wi As Variant, ji As Variant, sum As Integer, i%, intMsg%<br/>wi = Array(7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2)<br/>ji = Array("1", "0", "X", "9", "8", "7", "6", "5", "4", "3", "2")<br/>sum = 0<br/>If Len(IdStr) = 15 Then<br/>&nbsp;If Not IsNumeric(IdStr) Then<br/>&nbsp; MsgBox "15位身份证号码中有非数字字符！"<br/>&nbsp; Exit Function<br/>&nbsp;End If<br/>&nbsp;IdStr = Left(IdStr, 6) &amp; "19" &amp; Right(IdStr, 9)<br/>ElseIf Len(IdStr) = 18 Then<br/>&nbsp;If Not (IsNumeric(Mid(IdStr, 1, 17)) And (IsNumeric(Right(IdStr, 1)) Or Right(IdStr, 1) = "X" Or Right(IdStr, 1) = "x")) Then<br/>&nbsp; MsgBox "18位身份证号码中有非数字字符！"<br/>&nbsp; Exit Function<br/>&nbsp;End If<br/>Else '不是15位或者18位的话返回空值<br/>&nbsp;Exit Function<br/>End If<br/>If IsError(DateValue(Mid(IdStr, 7, 4) &amp; "-" &amp; Mid(IdStr, 11, 2) &amp; "-" &amp; Mid(IdStr, 13, 2))) Then<br/>&nbsp;MsgBox "身份证号码中日期信息有误！"<br/>&nbsp;Exit Function<br/>End If</p><p>For i = 0 To UBound(wi)<br/>&nbsp;sum = sum + Mid(IdStr, i + 1, 1) * wi(i)<br/>Next i</p><p>If Len(IdStr) = 17 Then<br/>&nbsp;CheckID = IdStr &amp; ji(sum Mod 11)<br/>Else<br/>&nbsp;If ji(sum Mod 11) &lt;&gt; Right(IdStr, 1) Then<br/>&nbsp; intMsg = MsgBox("18位身份证号码中的校验码错误！" &amp; vbCrLf &amp; "您要输入的是：" &amp; Mid(IdStr, 1, 17) &amp; ji(sum Mod 11) &amp; "吗？", vbYesNo)<br/>&nbsp; If intMsg = vbYes Then<br/>&nbsp;&nbsp; CheckID = Mid(IdStr, 1, 17) &amp; ji(sum Mod 11)<br/>&nbsp; Else<br/>&nbsp;&nbsp; Exit Function<br/>&nbsp; End If<br/>&nbsp;Else<br/>&nbsp; CheckID = IdStr<br/>&nbsp;End If<br/>End If<br/>End Function</p><p></p>

chentop2005

楼上是高人,[em02]

Excelhomemi

<p>七楼的，真的是强呀</p>

sryks

高人啊!不过好像用处不是很大啊.做好18位,其它的没有18位一下子就可以对比出来了.