應(yīng)用vba技術(shù)實(shí)現(xiàn)身份證信息自動填加填表

應(yīng)用vba技術(shù)實(shí)現(xiàn)身份證信息自動填加填表

1、提高工作效率,降低出錯率近年來，隨著辦公室自動化系統(tǒng)的完善，excel表格表的功能從未被忽視。人們每天使用它來做各種表格文件的生產(chǎn)。其中許多是重復(fù)的、復(fù)雜的、副作用的。如何提高工作效率，減少輸入率，以便計(jì)算機(jī)程序能夠手動或手動取代他人的工作，是當(dāng)前辦公自動化研究的熱點(diǎn)。Office辦公系統(tǒng)所提供的一個開放、高效、強(qiáng)大的開發(fā)平臺,即VBA組件2、針對已填寫身份證號碼的數(shù)據(jù)的初步分析在我校所使用的教師信息表中如圖1所示:我發(fā)現(xiàn)有很多的信息是隱藏在身份證號碼中的,例如:年齡、出生日期、性別、戶籍所在地等這些都是每位老師必須要填寫的內(nèi)容,而這些信息在整理成表格的時(shí)候,由于個人原因或者是工作疏忽經(jīng)常是前后不一致,給人事信息的統(tǒng)計(jì)工作帶來很大的困擾。為了解決這一問題,對上面表格已填寫的身份證號碼進(jìn)行分析,存在第一代15位長度和第二代18位長度兩種。①求性別:對于18位來說,倒數(shù)第2位為性別標(biāo)志位;對于15位來說,倒數(shù)第一位為性別標(biāo)志位。奇數(shù)為“男”,偶數(shù)為“女”。②求戶籍所在地:為了保證身份證號碼與戶籍所在地的信息完全一致,我們從國家統(tǒng)計(jì)局的網(wǎng)站上下載了最新縣及縣以上行政區(qū)劃代碼(截止2010年12月31日)統(tǒng)計(jì)數(shù)據(jù),見圖2所示。③求年齡:對于18位來說,出生年份由4位數(shù)字(7~10位)表示;對于15位來說,出生年份由2位數(shù)字(7~8位)表示,可以在其前面加上“19”后變成4位數(shù),再與當(dāng)前年份進(jìn)行比較得出。④求出生日期:確定18位,出生日期在7~14位上;確定15位在7~12位上,分別提取出“年”“月”“日”來用分隔符分開即可。3、提取車輛個人信息程序功能實(shí)現(xiàn)自動填充結(jié)果圖如圖3所示,添加四個按鈕與設(shè)計(jì)好的四個函數(shù)sex()、age()、birth()、add(相關(guān)聯(lián),通過點(diǎn)擊它們來分別自動實(shí)現(xiàn)從身份證號碼中提取相應(yīng)的信息,并自動填充到表格所示的相關(guān)位置上。下面展示了實(shí)現(xiàn)程序的部分代碼:4、利用所需的教師信息,既提高了工作效率,又提高了工作效率,既提高了工作效率,又提高了工作效率,又提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,提高了工作效率,以上就是本人利用VBA設(shè)計(jì)實(shí)現(xiàn)的程序,可以自動的從表格的身份證號碼中提取,