VBA做数据校验

非空

if range("A1").value ="" then msgbox "Range is blank"

或者用excel的函数 COUNTBLANK

日期格式 要具体分析,一般用format 之后比较

工具--宏--VB编辑器-选择左侧列表中 ThisWorkBook双击打开

Private Sub Workbook_Open()

If Range("a1") = "" Then

MsgBox "123"

End If

End Sub

打开一个工作簿，然后ALL+F11 进入VBE编辑器，插入--模块 把上面的代码复制到进去，保存

然后回到一个工作表，把身份z号放在一个单元格，比如A1，身份z号输入的时候 记得单元格格式设置成文本， 然后在其他单元格 比如A2 输入公式 =sfzjy(A1) 就可以了，这个代码写的不好

不用这么冗余繁杂的

---