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

应用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设计实现的程序, 可以自动的从表格的身份证号码中提取, 所要的教师信息。在原有的Excel教师信息报表基础上工作, 既减少了工作量, 又提高了工作效率。VBA编程在Excel以及Office环境