应用vba技术实现身份证信息自动填加填表

应用vba技术实现身份证信息自动填加填表

1、提高工作效率,降低出错率近年来，随着办公室自动化系统的完善，excel表格表的功能从未被忽视。人们每天使用它来做各种表格文件的生产。其中许多是重复的、复杂的、副作用的。如何提高工作效率，减少输入率，以便计算机程序能够手动或手动取代他人的工作，是当前办公自动化研究的热点。Office办公系统所提供的一个开放、高效、强大的开发平台,即VBA组件2、针对已填写身份证号码的数据的初步分析在我校所使用的教师信息表中如图1所示:我发现有很多的信息是隐藏在身份证号码中的,例如:年龄、出生日期、性别、户籍所在地等这些都是每位老师必须要填写的内容,而这些信息在整理成表格的时候,由于个人原因或者是工作疏忽经常是前后不一致,给人事信息的统计工作带来很大的困扰。为了解决这一问题,对上面表格已填写的身份证号码进行分析,存在第一代15位长度和第二代18位长度两种。①求性别:对于18位来说,倒数第2位为性别标志位;对于15位来说,倒数第一位为性别标志位。奇数为“男”,偶数为“女”。②求户籍所在地:为了保证身份证号码与户籍所在地的信息完全一致,我们从国家统计局的网站上下载了最新县及县以上行政区划代码(截止2010年12月31日)统计数据,见图2所示。③求年龄:对于18位来说,出生年份由4位数字(7~10位)表示;对于15位来说,出生年份由2位数字(7~8位)表示,可以在其前面加上“19”后变成4位数,再与当前年份进行比较得出。④求出生日期:确定18位,出生日期在7~14位上;确定15位在7~12位上,分别提取出“年”“月”“日”来用分隔符分开即可。3、提取车辆个人信息程序功能实现自动填充结果图如图3所示,添加四个按钮与设计好的四个函数sex()、age()、birth()、add(相关联,通过点击它们来分别自动实现从身份证号码中提取相应的信息,并自动填充到表格所示的相关位置上。下面展示了实现程序的部分代码:4、利用所需的教师信息,既提高了工作效率,又提高了工作效率,既提高了工作效率,又提高了工作效率,又提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,以上就是本人利用VBA设计实现的程序,可以自动的从表格的身份证号码中提取,