全国中等职业学校学生管理信息系统（简称为新中职学生系统）是2014年更新后的学生信息管理系统，新生录入模板（V1.2版本号）也是2014年9月24日更新的。其中“批量自动生成”功能非常实用，可以根据学生的身份证号自动生成：性别、出生日期、行政区划码等，给录入教师带来了很多方便。但是，凡是参加过这次新生学籍录入工作的老师，对学籍信息上传后出现的行政区划码错误都会印象深刻。这是由于行政区划码是不断调整变化的（地市县合并或撤消导致行政区划码也改变或撤消），而身份证号是唯一不变的，所以根据身份证前六位数自动生成的行政区划码就有一些是错误的。当我们把采集完信息的新生录入模板上传后，数据库会根据字典里的行政区划码去检验上传信息里的区划码，如果有字典里不存在的区划码出现，就会被标识为错误，从而被驳回，要求更改后再重新上传。这个错误问题非常普遍、集中，录入教师自己很难查找出错误的行政区划码，所以只能是上传数据发现错误后下载再改正，因此大大延长了数据上传的时间。为了把这个问题解决在数据上传之前，笔者制作了区划码查错小助手，有了这个小助手，不仅自己可以轻松发现错误代码，还可以根据区划码自动生成户口所在地，轻松减少录入工作量。
　　下面介绍这个小助手的两种制作方法（两种制作方法适合不同性质的学校使用，同时也适合不同阶段查错时使用）。
　　方法一：新建一个工作薄（使用2010版以下的电子表格），建立两个工作表：“检查”、“字典”。在“字典”工作表里，完成如下操作：
　　1.在第一、二行的“CD”列下方设置一个命令按钮（方法：点击“视图”菜单下“工具栏”中的“控件工具箱”，打开“控件工具箱”后，点击工具箱左边第一个 “设计模式”图标，再点击左数第六个“命令按钮”图标，在C列和D列下方拖曳鼠标画出“命令按钮”）。右击“命令按钮”选择“属性”，在“属性”窗口修改“Caption”右侧内容为“获取行政区划码”。
　　2.双击“获取行政区划码”命令按钮，在打开的代码窗口中，输入以下代码（加粗代码不用输入）：
　　Private Sub CommandButton1_Click（）
　　Dim m， n， i， j， rows_zdsj， rows_xssj， rows_a As Integer
　　Dim Msg_hk， name_str As String
　　Dim find_qh As Boolean
　　Msg_hk = "没有找到户籍所在地的人员有："