如何编写身份证号码升为18位的自定义函数？

作者：绿色风分类：时间：2022-08-17 浏览：166

楼主
amulee

Q：如何编写身份证号码升为18位的自定义函数？
A：按Alt+F11进入VBE，插入一个模块，添加以下代码：

Function 升级(Rng)
On Error GoTo AA
Dim StrT$, i%, SumM&
If Len(Rng) = 18 Then
升级 = Rng
ElseIf Len(Rng) = 15 Then
StrT = Replace(Rng, Left(Rng, 6), Left(Rng, 6) & 19)
For i = 1 To 17
SumM = CInt(Mid(StrT, i, 1)) * 2 ^ (18 - i) + SumM
Next i
升级 = StrT & Mid("10X98765432", (SumM Mod 11) + 1, 1)
Else
AA:
升级 = "原始号码不正确"
End If
End Function

需要在工作表调用的时候就直接输入公式（比如身份证号码在A1单元格）

=升级(A1)

2楼
amulee

再提供一个函数公式的方法

=IF(LEN(A1)=15,REPLACE(A1,7,,19)&MID("10X98765432",MOD(SUM(MID(REPLACE(A1,7,,19),ROW(INDIRECT("1:17")),1)*2^(18-ROW(INDIRECT("1:17")))),11)+1,1),A1)

3楼
yardview

谢谢分享，学习了

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表