游客

标题:Excel中校验身份证号码是否正确
正文:
以下代码用于校验指定列的身份证号码是否正确： 边框 小边框 Private Sub IdcardCheck() Dim i, startIndex, strColumn, intColumn Dim sex, age, birthday strColumn = "A" '遍历的列号，检查第几列的数据？ startIndex = 3 '开始位置,第几行开始？ intColumn = ColumnNum(strColumn) For i = startIndex To UsedRange.Rows.Count If Not IdCheck(Cells(i, intColumn), sex, age, birthday) Then Range(Cells(i, 1), Cells(i, 1)).EntireRow.Select '选中行 MsgBox "第" & strColumn & "列，第" & i & "行数据有误", 48, "提示：" End If &n
[<<][[1]][2][3][>>]

查看评论(1)
发表评论



首页