如何控制身份证号字段录入？ - 用户社区 - 易表在线答疑 - 简单实用的数据管理软件|数据统计软件|数据分析软件|电子表格软件

易表在线答疑 → 技术与交流 → 用户社区 → 如何控制身份证号字段录入？

共有6410人关注过本帖树形打印复制链接主题：如何控制身份证号字段录入？

wjq1072

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：16190 积分：125850 威望：1 精华：0 注册：2006/8/12 12:29:00

Post By：2011/2/19 13:04:00 [显示全部帖子]

发示例文件上来

wjq1072

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：16190 积分：125850 威望：1 精华：0 注册：2006/8/12 12:29:00

Post By：2011/2/19 13:35:00 [显示全部帖子]

下面引用由sjbssd在 2011/02/19 11:47am 发表的内容：
要求：
1、长度控制：只能是15或18位；
2、15位的第7至12位、18位第9位至14位年月日必须正确。
总之必须符合规定。

1、设置身份证列操作公式：
If([身份证]="" Or Len([身份证])=15 Or Len([身份证])=18,"",MsgBox("号码错误!",0) And SetCellText(Grid,Row,"身份证",""))

2、增加一时间型辅助列k：

设置k列刷新公式：
If([身份证]="","",If(Len([身份证])=15,"19"+Mid([身份证],6,2)+"-"+Mid([身份证],8,2)+"-"+Mid([身份证],10,2),Mid([身份证],6,4)+"-"+Mid([身份证],10,2)+"-"+Mid([身份证],12,2)))

设置k列操作公式：
If(ISDATE([k])=TRUE Or Text([k])="","",MsgBox("日期错误!",0) And SetCellText(Grid,Row,"身份证","") And SetCellText(Grid,Row,"k",""))

wjq1072

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：16190 积分：125850 威望：1 精华：0 注册：2006/8/12 12:29:00

Post By：2011/2/22 14:22:00 [显示全部帖子]

[这个贴子最后由wjq1072在 2011/02/24 09:15am 第 1 次编辑]

不增加辅助列，直接设置身份证列操作公式试试？
If([身份证]="","",If(Len([身份证]) <> 15 And Len([身份证]) <> 18,MsgBox("号码错误!",0) And SetCellText(GridName,Row,"身份证",""),If(Len([身份证])=15 And IsDate(Date("19"+Mid([身份证],6,2)+"-"+Mid([身份证],8,2)+"-"+Mid([身份证],10,2)))= True ,"",If(Len([身份证])=18 And IsDate(Date(Mid([身份证],6,4)+"-"+Mid([身份证],10,2)+"-"+Mid([身份证],12,2)))= True ,"",MsgBox("日期错误!",0) And SetCellText(GridName,Row,"身份证","")))))

wjq1072

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：16190 积分：125850 威望：1 精华：0 注册：2006/8/12 12:29:00

Post By：2011/2/24 9:15:00 [显示全部帖子]

用5楼公式试试？

下一主题 >> << 上一主题

主题：如何控制身份证号字段录入？