邢唷>? ?|~?ewf  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcd?nghijklmoupqrstvxy{?~€Root Entry Fp娭癈&鷮繳Workbook0KOle 2_VBA_PROJECT_CUR"$@IH賸鮄賸?  !"#$%&'()*+,-./01?3456789:;<=>?@?BCDEFGHIJKLMNOPQRSTUVWXYZ[\]?_`ab?de?ghijklmnopqrstuvw?yz{?}?€t6DD 梺zL#<琒愳Ks€A乘 5F3愈O?l坚觶x3愈O?l坚觶敩S愳Ks€A乘 5ME(SLSS?6" \p甠o?u7b Ba= ThisWorkbook=?8X@"1嗞媅SO1嗞媅SO1嗞媅SO1嗞媅SO1嗞媅SO1嗞媅SO1嗞媅SO1Arial1嗞媅SO1h>嗞媅SO1,>嗞媅SO1>嗞媅SO1@嗞媅SO1嗞媅SO10嗞媅SO1嗞媅SO1嗞媅SO1嗞媅SO1Arial1Q嗞媅SO1嗞媅SO1嗞媅SO1嗞媅SO1嗞媅SO1 嗞媅SO1嗞媅SO1 嗞媅SO1@嗞媅SO1嗞媅SO1嗞媅SO1嗞媅SO1@嗞媅SO1嗞媅SO1 嗞媅SO1嗞媅SO1 嗞媅SO1>嗞媅SO1嗞媅SO1 嗞媅SO1嗞媅SO1嗞媅SO14嗞媅SO1 嗞媅SO1嗞媅SO1 嗞媅SO14嗞媅SO1<嗞媅SO1?嗞媅SO1>嗞媅SO1嗞媅SO"?#,##0;"?\-#,##0"?#,##0;[Red]"?\-#,##0"?#,##0.00;"?\-#,##0.00#"?#,##0.00;[Red]"?\-#,##0.007*2_ "?* #,##0_ ;_ "?* \-#,##0_ ;_ "?* "-"_ ;_ @_ .))_ * #,##0_ ;_ * \-#,##0_ ;_ * "-"_ ;_ @_ ?,:_ "?* #,##0.00_ ;_ "?* \-#,##0.00_ ;_ "?* "-"??_ ;_ @_ 6+1_ * #,##0.00_ ;_ * \-#,##0.00_ ;_ * "-"??_ ;_ @_ \$#,##0_);\(\$#,##0\)\$#,##0_);[Red]\(\$#,##0\) \$#,##0.00_);\(\$#,##0.00\)% \$#,##0.00_);[Red]\(\$#,##0.00\)"?#,##0;\-"?#,##0"?#,##0;[Red]\-"?#,##0"?#,##0.00;\-"?#,##0.00#"?#,##0.00;[Red]\-"?#,##0.0050_-"?* #,##0_-;\-"?* #,##0_-;_-"?* "-"_-;_-@_-,'_-* #,##0_-;\-* #,##0_-;_-* "-"_-;_-@_-=8_-"?* #,##0.00_-;\-"?* #,##0.00_-;_-"?* "-"??_-;_-@_-4/_-* #,##0.00_-;\-* #,##0.00_-;_-* "-"??_-;_-@_-"Yes";"Yes";"No""True";"True";"False""On";"On";"Off"],[$ -2]\ #,##0.00_);[Red]\([$ -2]\ #,##0.00\)0_);[Red]\(0\)0.00_);[Red]\(0.00\)0_  0.0_ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?  #? #? #? #? #? #? #? #? #? #? #? #? $? $? $? $? $? $?  ?  ?  ?P€ %?P  ? €  ? &? #? #? ? '? (? )?a ? ? *?  +?攆f ,? -? .?` ? ? $? $? $? $? $? $? /? 0? 1?  2? ?   ?"@ @ @ @ @ @ @ @ @ @ !@ @ ?"@ @  @ @ € 1@ @  1@ @  1 1 1 1 1 1 #1 1@ @ 1 1@ @ 1@  1@  1 1@ @  @ @ 1 1 1 1@ @  1@ @ x@ @ 7 x@ @ , x@ @ , 1@ @ 1 1@ @ 1@ @ 1 1 , 1@ @ 1@ @ !1@ @ !1 1 1|@  1 1  1|@ @ 7 1<@ @ 1|7 1@ @ "1@  @ @ 1@ @  1 1 1 1@ @ @ @ ||€蹂Zr}-}00_)}-}00_)}-}00_)}-}00_)}-}00_)}-}00_)}A}00_)ef[$ -}A}00_)ef [$ -}-}00_)}A}00_)蘈[$ -}-}00_)}-}00_)}A}00_)蘈[$ -}-}00_)}-}00_)}A}00_)23[$ -}-}00_)}-}00_)}A} 00_)23[$ -}-}!00_)}-}%?_)}A}(?_)俏[$ -}-})?_)}-}*?_)}(}, ?_)}A}-a?_)骑?[$ -}-}.?_)}}}1鷠?_)[$ -##0.  }}2?_)ゥ?[$ -???##0.??? ??? ???}-}3?_)}-}4?_)}A}5鷠?_)€[$ -}-}8?_)}A}9?_)[$ -}A}:?_)[$ -}-};?_)}A}<?_)[$ -}A}=?_) [$ -}A}>渆?_)霚[$ -}}}?????_)???[$ -???##0. ??? ???}}@??v?_)虣[$ -##0.  }(}A ?_)}x}B??_)膊?虣[$膊?## 膊? 膊?}-}J?_)}-}L?_)}-}M?_)}-}N?_)}-}O?_)}-}P?_)}-}Q?_)}-}S?_)}-}T?_)}-}U?_)}-}Y?_)}-}[?_)}-}\?_)}-}_?_)}-}a?_)}-}i?_)}-}j?_)}-}r?_)}-}s?_)}-}z?_)}-}{?_)}-}|?_)}-}}?_)!20% - :_寚eW[湗r 1C20% - :_寚eW[湗r 1 %!20% - :_寚eW[湗r 2C"20% - :_寚eW[湗r 2 %!20% - :_寚eW[湗r 3C&20% - :_寚eW[湗r 3 %!20% - :_寚eW[湗r 4C*20% - :_寚eW[湗r 4 %!20% - :_寚eW[湗r 5O.20% - :_寚eW[湗r 5 ef垲? %!20% - :_寚eW[湗r 6O220% - :_寚eW[湗r 6  ef? %!40% - :_寚eW[湗r 1C40% - :_寚eW[湗r 1 %!40% - :_寚eW[湗r 2O#40% - :_寚eW[湗r 2 蘈婀? %!40% - :_寚eW[湗r 3C'40% - :_寚eW[湗r 3 %!40% - :_寚eW[湗r 4C+40% - :_寚eW[湗r 4 %!40% - :_寚eW[湗r 5O/40% - :_寚eW[湗r 5 蘈遁? %!40% - :_寚eW[湗r 6C340% - :_寚eW[湗r 6 %!60% - :_寚eW[湗r 1C 60% - :_寚eW[湗r 1 %!60% - :_寚eW[湗r 2O$60% - :_寚eW[湗r 2 23贄? %!60% - :_寚eW[湗r 3C(60% - :_寚eW[湗r 3 %!60% - :_寚eW[湗r 4C,60% - :_寚eW[湗r 4 %! 60% - :_寚eW[湗r 5O060% - :_寚eW[湗r 5 23撏? %!!60% - :_寚eW[湗r 6C460% - :_寚eW[湗r 6 %"€~vR詋 #h槝h槝$h槝 1h槝 1%h槝 21h槝 2%?ɡ?&h槝 3h槝 3'h槝 4h槝 4(頬5頬 俏 %€+8^膲 %)8^膲 1218^膲 12 %*8^膲 2/8^膲 2 %+ 8^膲_hQ齎L?e:SR鉔x,€(厤  -}Y5}Y 骑? a% .Gl;`+Gl;` %/€'^0€ '^[0] 1梴c梴 鷠% 2纇錱USCQ?N7?N 霚 渆% ?搹鶴c搹鶴 ???%????????? ??? @搹eQo搹eQ 虣 ??v% A€ 0 騗繈顣剉厤  €€ B鑜蕬^ 鑜蕬 ?膊?膊?膊? 膊?XTableStyleMedium9PivotStyleLight168€€€€€€€€€览€€€櫃?f?ff€€f烫€€€€€€???櫶櫶虣虣3f3烫櫶fff枛3f3檉333??f33333\琼`""b貧!h,gN褃禰璣蟸Nm酧o`U_eQ'鉔xh垍Z曪嬦Oo`VV??! =- Km諎@b g!h寶膲Rv^SbpS曪嬦Oo`gf6f x@€€€F稔瘌xMOqS A咥@臕@  1 71 xm 7sfzjh 7familyMembers suortMembersfamilyYearIncomedisasterDescribeburstDescribe 7poorStudentEntryfamilyDebtAmountfamilyDebtReasoncheckDiffName歔餠緰+RT饄checkSqyyCode3u鲖t1ux媖緐NO軴checkSqyyName3u鲖t1uT饄 checkYesNo 7 checkGender 7 checkYesNo checkSfzjh筫誰T 7廭鱏/魦f 7T饄 7{|媁 7/f/f 7&T 7sY 77u 7'`+R7u 7vQ諲 7鄀 7US睳 7d[?Q 7萷隭P[sY 7淨Qg擭軴 7郪舥 7郪~p 7塵淨NN 7闟齹kX /f b &T ^椗_kXy 7checkNum0,6,2 覻T 71 7歔鰁魰歔烻郪classIdentifyReasongradeIdentifyReason韘歔a翂t^歔a翂checkLen0,1,33歔餠緰+RT饄 7sysDifficultyGradeName 7indentifyDate 7indentifyReason 7checkDiffName 7yr+R餠緰 7餠緰 7N,傪V緰 7N餠緰 7T鍕y槀Y済kX橯 R 歔鰁魰 0 歔烻郪 _N臺{ T鰁kX橯N T鰁惽?h寶0kX橯歔剉餠緰I{ 闟齹/f yr+R餠緰  餠緰  N,傪V緰  N餠緰 -N剉vQ-NN*N ^椗_kXy 7/f&TNO軴 7/f&Td[?Q 7/f&TUS睳禰璣P[sY 7/f&T媖緐篘P[sY 7,g篘/f&T媖緐 7 /f&T6r蚹'N1Y砇≧齹汻 7 /f&T禰-N g'Y舥€ 7/f&TNO6eeQ禰璣 7 /f&T決萷^\bO歜P[sY 7禰璣篘GWt^6eeQ 7 禰璣/f&Tm愖S陙6q~p砙 7 陙6q~p砙wQSO臽礠蟘饛 7 禰璣/f&Tm愖S亃裇aY婲鯪 7 亃裇aY婲鯪wQSO蟘饛 7禰璣 k:P褢潣 7禰璣 k:P烻郪 7禰璣篘鉙pe 7a峽Q篘鉙pe 7媖緐{|+R 7 禰璣;N亯6eeQeg恘{|媁familyIncomeTypeNameJkX橯f[u禰璣;N亯6eeQeg恘{|媁 鲖耂€鉔xh?N剉禰璣;N亯6eeQeg恘{|媁蹚L坘X橯 俌 錧D0VY褢0%m40e?崒TvQ諲砇≧6eeQ 0 陙 孡€N6eeQ I{ ^椗_kXy 7checkDisableType 7checkFamilyIncomeTypecheckFamilyIncomeType 7茐汻媖緐,T汻媖緐zf汻媖緐vQ諲媖緐媖緐{|+R 7錧D0VY褢0%m40e?崒TvQ諲砇≧6eeQ粂O褢0鶺,g{Q€褢0鶺,gu;m901YN軴i栄鐍b0譙`崍N0鶴遹b鶴.U禰璣"崸N穬梍剉6eeQX[>k蔛)Ro`  g鱊翄8R蔛)R0hy0ZSi_6eeQ a峽Q90歜(vb){Q9陙 孡€N6eeQ vQ諲擽S_eQ禰璣剉6eeQ禰璣6eeQeg恘{|媁 7 checkYear 7checkIdentityReason 7闟齹kX /f b &T ^椗_kXy 7砇≧汻篘鉙pe 7 otherInfo 7禰璣bXT1YN篘pe 71 7Nt^ 7t^ 72 7孨t^ 73 7 Nt^ 74 7 Nt^蔛錘 N 75 7踁t^ 76 7踁t^蔛錘 N 77 7擭t^ 78 7擭t^蔛錘 N 79 7mQt^ 710 7'`+RsY 7mQt^蔛錘 N 7 checkYear 7 checkYear 7 isFiveHome 7 isPoorLow 7isOrphan 7isAloneParents 7 isDisability 7isParentsDisability 7disabilityCategoryName 7disabilityCategoryCode 7isParentsLabor 7isFamilyDisease 7isFiledPoorFamily 7isLowIncomeFamily 7 isJlsyfzl 7familyIncomeTypeCode 7isFamilyDisaster 7isFamilyBurst 7jtcysyrs 7ldlrk 7sysDifficultyGradeCode 7 checkLen0,1,33 7&kX橯vQ僛N汵q_蚑蛻'YFO*g(WR剉禰璣蟸Nm酧o` 暒^N厤菑100*NW[&{0^椗_kXy! 7checkLen0,1,100 7  貧!h,gN褃禰璣蟸Nm酧o`U_eQ 7checkLen0,1,100 checkLen0,1,60 7 checkYesNo 7checkLen0,1,40 71 7 otherMessage 7vQ諲 7/f&T淨Qgyr餠汷{Q 7/f&T淨QgNO軴7b 7vQ諲酧o` 7isCountryLowFamily 7isCountrySupport 7(kX橯淨Qgyr餠汷{Q0淨QgNO軴7b0鷁ch藌aS鴙sQ酧o` 匭筟N齹厤菑40*NW[&{0^椗_kXy 7闟齹kX /f b &T ^椗_kXy 70闟齹kX /f b &T 鍌鍕y榢X /f R /f&TUS睳禰璣P[sY y橁S齹kX &T 鲖陙L埨h錱0^椗_kXy 7,闟齹kX /f b &T 鍌鍕y榢X /f R /f&Td[?Q y橁S齹kX &T 鲖陙L埨h錱0^椗_kXy 7<闟齹kX 茐汻媖緐 0 ,T汻媖緐 0 zf汻媖緐 0 vQ諲媖緐 0鍌 ,g篘/f&T媖緐 y?NkX橯 &T R鍕yN齹kX橯0^椗_kXy 7#pe 7 41500106350 71 71 78 77 71 7FAILURE 7/< 攸x=U>毗?怈mTA1鰾DcE@ 蹻 〨 礖 糏朖swKT|LY綧隢侾_釷vUSY焃|v[S擻O;^$`ccB臉?迳乖q入?   倄顙 d褚MbP?_*+€%{&ffffff?'ffffff?(?)?M.Microsoft Print to PDFP/ 4dXXA4GIS4DINU"$,?]{~SMTJ{084F01FA-E634-4D77-83EE-074817C03581}RESDLLUniresDLLPaperSizeA4OrientationPORTRAITResolutionResOption1ColorModeColor,V4DM p"O4鎤M冾H?佇L*@VDocumentUserPasswordDocumentOwnerPasswordDocumentCryptSecurity" d333333?333333?&<3cA薝} `{} |} {} {} @{} {} `{} {} {} {} €{} {} {} {}  {} {} {}  {} `!{} €{} {} {} {} {}  }} }} €{} {} !!@{} ""`{} ##{} $$ {} %'€{} (({} ))`{} **`{} +M {} N {} {}  { OJOY€OOOR&`{@ {@ {@ {@ m o M M N a N N N \V N N N N N z \X N N N N N, N a a a a N S S S X: n !Vg "V5 #V~ ^ @p xq Zr P r P O O O O O O  [  O  O  O O O O [ O O O P P P O O O O O O.  O !O "O #O Qs Q  i O OT O Q Q Q O O O O _j O W7  S8 !S9 "U1 #U2gi iO ki li mj nj oj pj qj rj sj tj uj vjwT xj yjzT {j|TTTTTTTT T TT O c- t v d d@ dA dB dC dD  dR  dE  dF  d dG eH dI dS dJ dK dL dM dN dO dP ei ek dQ d k k k f6  f/ !f0 "f3 #f4 h u w h gh h h h+ h+  h  h+  h+  h+ h+ h+ h hU h+ h h+ h h h h h h h h l+ l+ l h?  h !h "h #h-TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS{ {{{ i{ k{ l{ m{ n{ o{ p{ q{ r{ s{ t{ u{ v{ x{ y{ {{ { { { { ~ {{{ i{ k{ l{ m{ n{ o{ p{ q{ r{ s{ t{ u{ v{ x{ y{ {{ { { { { ~ {{{ i{ k{ l{ m{ n{ o{ p{ q{ r{ s{ t{ u{ v{ x{ y{ {{ { { { { {{{ i{ k{ l{ m{ n{ o{ p{ q{ r{ s{ t{ u{ v{ x{ y{ {{ { { {& n...痨pv鹪?  饜 vj 餘€X?>]4v6@/Тn黢濨 3r3?<kX橯f[u剉覻T<[~饉  稂€ㄑCC@],@ㄑ攆€9$< _薡纇錱<~饉 閕 稂€(dCC@8],?@(d罓ㄒ9$<_ 薡 纇 錱<"v6admin>@dinjn $7 Sheet1ggDh8hj:S遅2_1  Tw伅/c d褚MbP?_*+€%&ffffff?'ffffff?(?)?M.Microsoft Print to PDFP/ 4dXXA4GIS4DINU"$,?]{~SMTJ{084F01FA-E634-4D77-83EE-074817C03581}RESDLLUniresDLLPaperSizeA4OrientationPORTRAITResolutionResOption1ColorModeColor,V4DM p"O4鎤M冾H?佇L*@VDocumentUserPasswordDocumentOwnerPasswordDocumentCryptSecurity" dXX333333?333333?&<3U} K} E} ?E} ?E}  J}  J}  JT@ , , , , ,,,,,, I C C I L DDDD JDDDD J DD? F D DD D DDDGD DD@ F D€ DD? F D!DDDD DDGH D  D? F; H D  D5@ F< H D  D6@ F= H D D@ G> HDDGHDDGHDDGHDDGH D D#D D D D$D? D D D%D@ D D DD@ D D DD@ D D D&D@ D D D'D@ D D D(D@ D D D)D @ D D D"D"@ D D D*D$@ DDDDD DD D# D DD? D$ DDlF <<<<<<<<<<<<<<<<<<<< !"#$%&'()*+,-.@/0:1:2:3:4Y@5679:;<=>? D D@ D% D !D!D@ !D !D "D"D@ "D "D #D#D@ #D& #D $D$D@ $D' $D %D%D@ %D( %D &D&D @ &D) &D 'D'D"@ 'D" 'D (D(D$@ (D* (D)D *\V*D? *EY *D] +\V+D@ +EZ +D] ,\V,D@ ,E[ ,D] -\V-D"@ -E\ -D].D /KW/D? /E^ /De 0KW0D@ 0]_ 0De 1KW1D@ 1]` 1De 2KW2D@ 2]a 2De 3KW3D@ 3y 3De 4KW4D@ 4Eb 4De 5KW5D@ 5Ec 5De 6KW6D @ 6Ed 6De7D9DbDD:DbDD;DbDD<DbDD =Df =bl =bm =Dn >Df >bo >bp >Dn ?Df ?bq ?br ?DnBfX<<<<<<<<< <<<< <<<<<<<< 88@ABCDEFGH,I,J,K,L,M,N,O,P,Q,R,S, @Df @bs @bt @Dn ADf Abu Abv ADn BDf Bbw Bbx BDn CDf Cby Cbz CDn DD Db{ Db| DDn ED Eb} Eb~ EDn FD Fb Fb FDnGDbDD HDHD? HF HH IDID@ IF IH JDJD@ JG JH KDKD@ KG KH LDLD@ LG LH MDMD@ MG MH NDND@ NG NH ODOD @ OG OH PDPD"@ PG PH QD QD QG QH RD RD RG RH SD SD SG SH,|8888888<<<<<<<<<88P餒  ??   > @/// 7 Sheet5ggD  l d褚MbP?_*+€%&ffffff?'ffffff?(?)?"333333?333333?&<3UP餒0??  >@ 7 Sheet6ggD VBA/€獻H賸皽蹾賸ThisWorkbook / __SRP_42 __SRP_5 ?y  <,<0<4<8<<<N0{00020819-0000-0000-C000-000000000046}` `听k@ i  `i €`€?€%凗 %偁?? %`@"$ &(锞@?l  @?\  @?0L  @?x<  X@?H,  @?`  @?   @?  @?忐  < @?荥  @?烃  @?8件  @?  0@? 滯  H@?P岨  `@?|?  x@?hl?  @?€\?  @?L?  @?学生信息打印模板$<B@@学生信息打印模板$<(>o偘Attribute VB_Name = "打≡だ? Sub Browse_Print () Worksheets("学生信息l模板").Visibla楾rue"d^P@review2cEnd rU€€€ ,`?//(`?  h 賴靃$*\Rffff*1H613fa2f4*\R1*#337*\R1*#10d*\R1*#101$*\Rffff*1G613fa2f4*\R0*#f$*\Rffff*1L613fa2f6*\R0*#14*\R1*#11*\R1*#42*\R1*#46*\R1*#5f€ € B  € €€    € B E€ B h Ip€ B  ( 0@2`€ € p€  B 8€ 8@ $Nx 8V "R€ pB x€ 8€G%$S$V z?$?l2(?S梺艄xME0> ?LL  <4<8<<<? D` @  I僃 `€I僅 €`凧 P`pk i僐€ Z` )$k8 I僜 X€I僃 x€I僞 € b`   i僐€ l`?酤k8  I僜 X€I僃 x€I僅@+ €I僴 € xX`轧k  'I僜 €I僃 8€I僅 € 8`8P 2I僜 €I儎 €I僃 €I僅 €vateI儐  € ` <齥x GI儙 €I僜 €I僃 €:I僅 €€I儛  €p `(kX EI凃 x€HI僠 €>`勽h :  `h,D  SI €$+ `P#kP jI僜  p I € i,8`P € € ` L  {I僠 (€HI? H€I?  € @?  8 `   I僜 €%I? € B`k@ I僜 `€I僃 €€I僞 €I僠@ € D@ ` I僜  €€I? € F `k€ I僜  €I僃  €I僞  €I僠€  €  `?@ I僠 ` €I僜@  € €I僃  €€I僞 €@?\ @凥L 8@凧 <   `8kH I僜 h €I僃  €I僞 € `?h@`凩f`凬H d R`<k0  I僠 €@勻\ € 8 X@ 傿%€`@Bl <@?Hh  @?0X  @?`H  @?D  @?x4  @?$  @?  @?     `X`x@Fl `<@?h  @?X  @?H  @?D  饦@?(4  七@?@$  @?  @?  `xH(@Pl 8捺忄XVTt  @?h  @?X  @?T  @?D  @?4  椳@?$  嗎@?  @?  泯8xp (H8@l  `炩<@?Xh  @?@X  @?H  @?D  @`4 @?0$  @?  矦?  @酤 @?濑  @?轧  @?宁  E-@?p逮   鉆?P  hH.G-8@?旫   鉆?匎  稔P @t? @?d?  :@?T?   鉆?HD?  稔@?04?  #@?x$?  @?`?  <@??   鉆?酏  稔@?潺  AZ@札 >@?旋  鉆?听 洛"N  @?箭  P婃 鉆x @滮 |@岧 v@|? [-@l?  鉆\? @L? @:&8 `€ Xp&€ h `*x I j:&P x&€ ` ( 8 P ,X H?p(x\ HB0(~x HB(p\` HB(~  & &€ `  €   , H?(\ HB(~ HB(\ HB(~ € & &€ n ` p  , 8(~ HB(~  & &€ b € h     , ~ &X! €!€ ,??&??€ f?€ X" x" ? ? ,? 8?(~? 6"?(~? p$ &x$ ??&??€ f? H%(`% ? T:? &? &(&0& $"H& & p&$|:?$&'$ @'$P' `'h' p'  €'$t:?$&($ (( 8(€ $@(H(€ &P(p(€ ^x( ?"4? )@: )&`) ?? %??&??€ b? X*'h* ? z:? &+ 8+€ H+&P+p+€ fx+ ?? , t:, &€, ?€ ?&??€ b?€ P- p-? ?~?&(. P.€ `.h.&p.?€ ^?? ./ 0/@:8/&x/ ?? %??&?0€ € ^0€ h0 ?? ?X:?&1 01€ @1H1&P1p1€ ^x1€ ? ?2 2T:(2&€2 ?€ ??&??€ n?€ `3 €3?" ?€?&`4 ?€ ??&??€ j?€ @5 `5€5" ?€?&H6 p6€6&??€ n?€  7 @7`7" p7€?&(8 P8€ `8&h8?€ P??? 9€9&? ?€ ??&?:€ R:h:!€: 楘X:燏&鼹  ;€ 0;8;&@;`;€ bh; 消$/琨 <@:<&X<€< 圏楛$%燑,屈鼽====& =@=€ jH= 俘?" 琮€>&楟 傀晓?H4唼 (?L70? €?? :? &8@ `@ h@ x@€@園&怈癅€ Z窣 A.(A HA@:PA&怉 窤華%蠥餉&鳤B€ j B "怋 窧 菳 郆 d:鐱 &PC xC圕b;怌€ h>鳦€ ,>`D :怐 &(E PE `EhE :pE &0F XF hFpFxF&€F燜€ ^‵ G&/ G HG@:PG&怗 窯菺&%蠫鳪&H H€ Z(H 圚&/燞 菻@:蠬&I 8IHI&%PIxI&€I營€ Z↖ J,/(J XJ@:`J&燡 菾豃,%郕K&K8K€ |@K 繩$4豄 L(L@:0L&pL 楲€ ↙"%癓豅&郘M€ |M 圡 /燤 繫@:萂&N 0N@N %HNhN&pN怤€ |楴 O$/0O XO@:`O&燨 萇豋$%郞P&P0P€ d8P 燩 3窹@:豍&Q @QPQ2EXQ怮€ x楺 R60R.)hR楻 ≧( 癛2繰( 蠷1郣( 餜2S( S1 S0S8SJPS燬窼繱萐蠸€ f豐B @T€ HT<PT怲€ 癟萒$鑄$U8U@U€ € HU€ \餟€ B PV,^pV€ 0燰@;蠽" W€ ^8W€ 6榃蠾E鑇XE(X0HXH7xX繶郮鑈 餢 鳻Y€ Y€ "╕€ 衁€ .餣B  Z (Z€$8ZBo`Z ╖ 竄 萙 豘 郱 餤鳽[€ [€ 燵€ 竅€ 衃€ 餥B \"\ 8\ P\X\ `\h\€p\ x\8[榎 衆2豛] N(] H]X] `]h] p]$€] F_燷 鑍餧 鴀 ^€ *^@^€ H^€ 鑎€ _B  _ _*@_€ 4p_╛€ 癬B @`<H` Jh`坄€ 恅€ 0a€ HaB  `a*ha榓€ 燼B 0b<8b JXbxb€ €bB 0c€ 8c "RPc xc8[榗2衏d N d@d PdXd `d hd$xd"V榙0纃 M餯(^e8e@eHe€ LXe╡&Y癳豦鄀 鑕鴈€ fB 恌€榝€V竑 g€ 80g Mhg 坓:榞4豨$ h"8h"JPh xh€h坔€ 恏B  i€(i6 0ihi xi€i 坕恑榠€ ╥-----------------------------------------校验校验必填项若有错误信息显示到 批注中-----------------------------------------------------------存， 单元格内容]€ F H L%N'J$ J &'Dd('Dki--------------------------------------------写日志 记录错误信息并显示到一个错误信息表中-------------------------------------------- R X V$T,N X 'XiX------------------------------------------------------ 获取指定的cell值------------------------------------------------------------- F ^ \$<%N!`'Zi--------------------------------------------写日志 记录错误信息并用红色字体显示到错误信息表中-------------------------------------------- R'd R X V$T,N d X V$T%N%f!h(j X 'Xii--------------------------------------------添加批注（点击开始校验）-------------------------------------errorInfo批注内容 1Worksheets(sheetIndex).Unprotect Password:="1qaz" n F H \$<%NB@p F H \$<%N!r(tW 添加黄色背景 F H \$<%N!v(>hii--------------------------------------------删除批注（点击开始校验）-------------------------------------1Worksheets(sheetIndex).Unprotect Password:="1qaz" F H \$<%NB@z; F | H ~ F H \$<%N!r(j:d € F H \$<%N!r(j kpihr---------------------------------------------点击开始校验 是否添加或删除批注调用的方法----------------------------X  如果校验失败!: F H \$<%N!vd 判断批注为空 \ F H A@lV 添加批注方法d"若不为空，则去除当前批注，重新添加 \ F HA@xN 清除批注方法 \ F H A@lk1 MsgBox "第" & rowIndex & "行数据项：" & errorMsgd:如果校验成功则判断是否有批注，若有则把校验失败时的批注去除  \ F HA@xT ,#如果做了去除空格处理,则对其进行提示第 F行，第 H列，您输入的字符"$" "$""中包含了空格，系统已自动为您清除了A@Pd`kXkPiH----------------------------------------------------------------------------------------------------------------------------------y--------------------------------------------根据标识符，调用对应的方法(点击开始校验)-----------------------------------------------------------------------------------------------------------------------------------------------------------------------把错误信息写进错误列表 48 F H \$<%N'`  H \$<%N'I获取该列表头的名称 如果为合并行的表头  H \$<%N' F e  H \$<%N'k0'  checkLen*)如果为整数长度校验  $'checkLen'  checkNum*e-如果为Number长度校验  $'checkNum'  checkVal*e-如果为值的校验  $'checkVal'  checkInt*e-如果为整数值的校验  $' €checkInt'  checkTerm1e-如果"是、否"为必填1'€ checkTerm'€  checkYesNo1e/如果"是、否"为必填1' checkYesNo'€ checkDiffName1e2如果困难级别名称为必填t1'checkDiffName' checkDiffCode1e2如果困难级别编码为必填€1'€checkDiffCode' checkIDCardType1e4如果身份证件类型为必填1'checkIDCardType' checkSqyyName1e2如果申请原因名称为必填1'checkSqyyName'  checkYear1e. 如果年份校验1' checkYear'€  checkSpLen*e0如果为整数长度校验  $' checkSpLen'kP _=================================类型1 执行的非空校验==========================================把错误信息写进错误列表 checkNullKT \ F H$' 第 F 行的数据项： 不能为空！请检查'')整体校验时，如果有错误信息 A@PonfRMsgBox "第" & rgold.Row & "行的数据项：" & Chr(10) & titleMsg & "不能为空，请检查"k0 \  F H A@'a=================================类型2 执行学生姓名校验========================================== checkNameKT \ F HA@@调用去除空格的方法 F H \$<%N!`'` `$' 第 F 行的数据项： ;填写不正确！必须为汉字，长度大于1，不能超过20个字符，请检查''%整体校验时，如果有错误信息 A@P  'k` \  F H A@'Z================================= 执行的长度校验==========================================checkLenKT ` $'  ,$'$ ` 如果该项为非必填，并且为固定长度第 F 行的数据项： .填写不正确，该项可以为空。若填写，则长度必须为$ 位！请检查'$ ed 如果该项为非必填，并且为长度范围第 F 行的数据项： 4填写不正确，该项可以为空。若填写，则长度必须大于等于$ 位，且不超过$ 位！请检查'$ ed 如果该项为非必填，并且为固定长度第 F 行的数据项： &填写不正确，该项不能为空，且长度必须为$ 位！请检查'$ ed 如果该项为非必填，并且为长度范围第 F 行的数据项： ,填写不正确，该项不能为空，且长度必须大于等于$ 位，且不超过$ 位！请检查'kH '0整体校验时，如果有错误信息 A@Pk \  F H A@'Z================================= 执行的长度校验========================================== checkSpLenKT ` $'  ,$'$ ` 如果该项为非必填，并且为固定长度第 F 行的数据项： .填写不正确，该项可以为空。若填写，则长度必须为$&位且只能为汉字，不包含特殊字符！请检查'$ ed 如果该项为非必填，并且为长度范围第 F 行的数据项： 4填写不正确，该项可以为空。若填写，则长度必须大于等于$ 位，且不超过$&位且只能为汉字，不包含特殊字符！请检查'$ ed 如果该项为非必填，并且为固定长度第 F 行的数据项： &填写不正确，该项不能为空，且长度必须为$&位且只能为汉字，不包含特殊字符！请检查'$ ed 如果该项为非必填，并且为长度范围第 F 行的数据项： ,填写不正确，该项不能为空，且长度必须大于等于$ 位，且不超过$&位且只能为汉字，不包含特殊字符！请检查'kx'0整体校验时，如果有错误信息 A@Pk8 \  F H A@'h================================= 执行的长度校验（Number类型）==========================================checkNumKT ` $'  ,$'$@ 如果该项为非必填，并且为固定长度第 F 行的数据项： G填写不正确，该项可以为空，若填写，则必须为数字，大于0，整数位长度不超过$位，且小数位不超过$ 位！请检查'$ ed 如果该项为非必填，并且为固定长度第 F 行的数据项： ?填写不正确，该项不能为空，且必须为数字，大于0，整数位长度不超过$位，且小数位不超过$ 位！请检查' kh'0整体校验时，如果有错误信息 A@Pk( \  F H A@'[=================================执行值范围的校验==========================================把错误信息写进错误列表checkValKT ` $'  ,$'第 F 行的数据项： $填写不正确，该项必须为数字，大于等于$ ，且不超过$！请检查''-整体校验时，如果有错误信息 A@P& isValidateCount = isValidateCount + 1k8 \  F H A@@'_=================================执行的为整数值的校验==========================================把错误信息写进错误列表checkIntKT ` $'  ,$'$@ 如果该项为非必填，并且为固定长度第 F 行的数据项： 4填写不正确，该项可以为空，若填写，则必须为整数，大于$，且长度不超过$ 位！请检查'_$eE如果该项为必填，并且为固定长度i第 F 行的数据项： 0填写不正确，该项不能为空，且必须为整数，大于等于$，且长度不超过$ 位！请检查'Adjk?'0整体校验时，如果有错误信息l A@PtFakH! \  F H A@nab'`================================= 执行的身份证件号校验========================================== checkSfzjhKTedC \ F$Z'S 获取填写内容 GM第 F 行的数据项： &填写不正确，因身份证件类型为空！请检查'_€追'0整体校验时，如果有错误信息沿 A@Pne賒  居民身份证y ` H$'O 身份证号校验| :如果不符合身份证校验规则~第 F 行的数据项： M填写不正确，该项必须为学生身份证号，并且最后一位如果为字母X的必须大写！请检查'2|'4整体校验时，如果有错误信息| A@P|0  'nkd `$'{ 第 F 行的数据项： E填写不正确，该项不能为空，且长度必须大于等于1位，且不超过18位！请检查'S6'4整体校验时，如果有错误信息V A@PdSZkkk \  F H A@QGb'X================================= 执行身份证件类型校验==================================赺 checkZjlxKT+sp checkZjlx `1$'Vrr 第 F 行的数据项： 填写不正确！请检查''(整体校验时，如果有错误信息5 A@PCHTd` checkZjlx \ F HA@k8 \  F H A@ASU'\================================= 执行学籍号的校验==========================================TIMcheckXJHKT `0, 1, 50$'ERF 第 F 行的数据项： K填写不正确，该项可以为空，若不为空长度必须大于等于1位，且不超过50位！请检查'_KE'0整体校验时，如果有错误信息輄 A@Pk \  F H A@'`================================= 执行学生信息ID的校验==========================================checkXJHKT `$'E 第 F 行的数据项： E填写不正确，该项不能为空，且长度必须大于等于1位，且不超过50位！请检查'E_'0整体校验时，如果有错误信息_ A@PHOLk@ \  F H A@PER'[=================================执行银行卡号校验==========================================eHo把错误信息写进错误列表_ checkBankKTutB `$' 第 F 行的数据项： $填写不正确，该项必须为数字，大于等于$ ，且不超过$！请检查''-整体校验时，如果有错误信息 A@P_掅_k \  F H A@'W=================================执行年级校验==========================================p checkYearKTast checkYear `$' 第 F 行的数据项： 填写不正确！请检查''(整体校验时，如果有错误信息l A@PunddH checkYear \ F HA@k  \  F H A@'W=================================执行学年校验==========================================T把错误信息写进错误列表checkXnKT `$'e 第 F 行的数据项： )填写不正确，该项格式如2012-2013等！请检查''-整体校验时，如果有错误信息P A@Puntk \  F H A@nFl'W=================================执行月份校验==========================================珍把错误信息写进错误列表 checkMonthKT濆 `$' 第 F 行的数据项： &填写不正确，该项格式如01、12等！请检查''-整体校验时，如果有错误信息r A@PgHik8 \  F H A@gSh'g=================================类型3 执行的日期校验(非必填)==========================================C把错误信息写进错误列表O checkDateKT `$' 2如果出生日期校验失败igS第 F 行的数据项： 填写不正确！填写格式为"$" xxxx-xx-xx"$" ，如2013-02-21，请检查'nt'-整体校验时，如果有错误信息i A@PrChkX \  F H A@'c=================================执行的日期校验（必填项）==========================================把错误信息写进错误列表checkDateNecessaryKT& `$' 2如果出生日期校验失败６第 F 行的数据项： 填写不正确！填写格式为"$" xxxx-xx-xx"$" ，如2013-12-21，请检查'Con'-整体校验时，如果有错误信息 A@P_Appkx \  F H A@戣_'g=================================执行的出生日期校验（必填项）==========================================把错误信息写进错误列表hocheckBirthdayKT! `$'z 2如果出生日期校验失败開第 F 行的数据项： 填写不正确！填写格式为"$" xxxx-xx-xx"$" ，如2013-12-21，请检查'逊'-整体校验时，如果有错误信息 A@P觡 \  F H A@辗'J=================================类型10 校验电话号码====================== checkPhoneKTSpe `$'E 第 F 行的数据项： 填写不正确！填写格式为"$"区号-固定电话 或 手机号码"$" ，请检查'n'%整体校验时，如果有错误信息f A@PchOk \  F H A@rtI'L=================================checkOption 校验备注 ======================n checkOptionKTS `B$'hop 第 F 行的数据项： )填写不正确！长度不能超过200个字符，请检查''%整体校验时，如果有错误信息 A@P靇庆_k \  F H A@'\================================= 执行认定困难级别名称校验==================================鷂N鷂checkDiffNameKTcheckDiffName ` $'on 第 F 行的数据项： 填写不正确！请检查''(整体校验时，如果有错误信息' A@PudFd` checkDiffName \ F HA@ `$1如果通过校验且值为空 'd'kk \  F H A@'d================================= 执行认定日期校验(非必填)==========================================喍checkIdentityDateKT% `$'o 2如果出生日期校验失败 第 F 行的数据项： 填写不正确！填写格式为"$"xxxxxxxx"$" ，如20130221，请检查''-整体校验时，如果有错误信息 A@PZ'd   `$X$如果认定等级名称为空，且认定日期为空'  `$e](如果认定等级名称不为空，且认定日期不为空me'dp第 F 行的数据项： v填写不正确！该项与“困难级别认定名称”必须同时为空，或同时不为空且同时通过校验，请检查“困难级别认定名称”是否通过校验'穢 '0整体校验时，如果有错误信息 ' A@P  'kxkp \  F H A@ 泧 'T================================= 执行民族类型校验================================== L暤 checkMZKTcheckMZ `$' 第 F 行的数据项： 填写不正确！请检查''(整体校验时，如果有错误信息 A@P r d0checkMZ \ F HA@k \  F H A@ K暗 'd================================= 执行认定原因校验(非必填)========================================== 慷 checkIdentityReasonKT'_娲_0,1,30' ` $'_>穇 第 F 行的数据项： 5填写不正确，长度必须大于等于1位，且不超过30位！请检查'篲'0整体校验时，如果有错误信息_ A@P_dp   `$r1如果认定等级名称为空，且认定日期为空,认定原因为空   `$ew8如果认定等级名称不为空，且认定日期不为空，认定原因不为空   `$e鹌_第 F 行的数据项： d填写不正确！该项与“困难级别认定名称”、“认定时间”必须同时为空，或同时不为空且同时通过校验，请检查'__'0整体校验时，如果有错误信息_ A@PE裚'd第 F 行的数据项： 填写不正确！该项与“困难级别认定名称”、“认定时间”必须同时为空，或同时不为空且同时通过校验，请检查“困难级别认定名称”、“认定时间”是否通过校验''0整体校验时，如果有错误信息_ A@P_陛_'k圗k€E \  F H A@_勦_'X================================= 执行身份证件类型校验==================================checkIDCardTypeKTcheckIDCardType ` $'_ 第 F 行的数据项： 填写不正确！请检查''(整体校验时，如果有错误信息_ A@Pd0DcheckIDCardType \ F HA@_kD \  F H A@`&`'T================================= 执行残疾类别校验==================================AcheckDisableTypeKTcheckDisableType ` $'h 第 F 行的数据项： 填写不正确！请检查''(整体校验时，如果有错误信息_ A@Pd癇checkDisableType \ F HA@_k€B \  F H A@_ 齙'T================================= 执行残疾类别校验==================================agcheckFamilyIncomeTypeKTccheckFamilyIncomeType ` $'AQ_ 第 F 行的数据项： 填写不正确！请检查''(整体校验时，如果有错误信息 A@Pstod AcheckFamilyIncomeType \ F HA@k鐯 \  F H A@how'v=================================14 checkGender 执行内容是否为“男”“女”校验--==================================um checkGenderKT( checkGender `1$'ic '-性别有错，则无需校验身份证号第 F 行的数据项： 填写不正确！请检查''(整体校验时，如果有错误信息? A@PdP? checkGender \ F HA@`|k ? \  F H A@:`"'u=================================14 checkYesNo 执行内容是否为“是”“否”校验--==================================tI checkYesNoKTIMS checkYesNo ` $' 第 F 行的数据项： 填写不正确！请检查''(整体校验时，如果有错误信息n A@PShod俘 checkYesNo \ F HA@k忼 \  F H A@Cli'u=================================14 checkYesNo 执行内容是否为“是”“否”校验--==================================focheckSqyyNameKThcheckSqyyName ` $' 第 F 行的数据项： 填写不正确！请检查''(整体校验时，如果有错误信息e A@PkNud <checkSqyyName \ F HA@oOk稃 \  F H A@2']=================================checkTerm 执行学期校验--==================================` checkTermKT1` checkTerm ` $第 F 行的数据项： 填写不正确！请检查''(整体校验时，如果有错误信息c A@PH(k? \ checkTerm ` $ F H A@mSh'r=================================checkAtLeastOneNNull 执行至少一个金额为非空--==================================checkAtLeastOneNNullKT  'A"执行 至少一个非空校验 的单元格数目 `$ `=如果金额符合规则n  ` '` H KTFnG  ` 'b KTFTi  ` ' KTF  ` ' KTFJ  ` 'n?d金额不符合规则  'F6执行 至少一个非空校验 的单元格中内容为不符合规则的数目鰁     ' k@8'n08i(8_--------------------------------------------调用正则表达式-------------------------------------]VBSCRIPT.REGEXP$.7RegEx为建立正则表达式? (4 设置全局可用5 vba中\不用转义  (.设置样式  (5设置是否区分大小写。  ` %'3 执行搜索测试 .i?-----------------------------------------------------------新版 校验重复（说明已经没有格式错误）------------------------------------------------------------ V-----------------------------------------------------------1、无学籍幼儿表先在表内查重al(sheet学籍幼儿表 A65535 $T%0%!' *cna = getTotalColumnCount(sheetIndexValue) V$T!NB@1&每次校验重复时时，把错误信息sheet清空,'X错误信息记录开始行数 X==============================无学籍幼儿表先在表内查重================================== 0类似冒泡排序，每个元素和在它之前的所有行进行比较       $T%N'        $T%N'  .如果学籍号相同，说明是重复数据第  行的数据和第 行身份证号重复！请检查!!!!' A@P*把错误信息输出 'k333i?-----------------------------------------------------------第一列中 根据值获取该值所在行------------------------------------------------------------ 根据值，查找到值所在的行或列 keyWord 查找的关键字 'kbn 查找所在行或列 值为 “row”或非row,'諷0R剉]the find result object   $" (& A1:A65535 \$<%0%. or row !'l)d 1 !*'(vk1k1i?------------------------------------------------------ 执行码表内规则校验(允许为空)-------------------------------------------------------------avalue 规则类型 1value1 cell的内容校验不正确返回false 校验正确返回true  .0说明为非必填项 ,$ 'z?k?k?]h'2某一个规则的记录数 A65535 6$T%0%!'4B表行数' 6 `row$'0=获取规则类型所在行   0 4  6$T%N ` 2 '2 d?y?k? ?  0 0 2   6$T%NX ,X L判断规则内容是否和cell中相等]'y.k. 堔 #此时count数目为该规则所有的内容数目i?------------------------------------------------------ 执行删除某一行操作（excel受保护的）-------------------------------------------------------------sheetIndex 表名 rowNum 行号€1qaz< \$<B@: 4 \$<%>B@@/ 把该行删除@竨- Worksheets(sheetIndex).Protect Password:=123eiP,------------------------------------------------------ 向指定cell中设值-------------------------------------------------------------r1qaz< \$<B@:e ` F ^ \$<%N(`ip+------------------------------------------------------ 执行删除某一行操作（excel没有保护）-------------------------------------------------------------sheetIndex 表名e rowNum 行号_ 4 \$<%>B@@/ 把该行删除i`*------------------------------------------------------ 向指定cell中设值-------------------------------------------------------------報@ 1qaz< \$<B@: ` F ^ \$<%N(`i€)------------------------------------------------------ 根据代码表中的名称设置值（前提时，名称已经通过了校验）------------------------------------------------------------- ]   傈u F ^ \$T%N!`X 'J'2某一个规则的记录数 A65535 6$T%0%!'4F表行数 6 `row$'0A获取规则类型所在行e  0 48  6$T%N ` 2 '2d?y?k?   0 0 2   6$T%N!`X ',x , JX 1判断规则内容是否和cell中相等  6$T%N!`'H HX F ^ J \$T%N(`y?d? ,否ESheets(sheetIndex).Cells(rowIndex, colIndex + columnPlus).value = "0"edP& F ^ J \$T%N(`k &k& i&------------------------------------------------------ 去除cell中的空格------------------------------------------------------------- ] 单元格里面的内容]  3Blength1表示cell中原来的长度，length2表示执行去除空格后的字符串长度u'默认为没有去除空格2 Worksheets(sheetIndex).Unprotect Password:="1qaz" F ^ \$<%N!`', ,'L LGzj*"如果单元格为空，则不需去除空格操作 , 'N%length2为空格第一次出现的位置傈u N如果字符串包含空格 , $P', ,X F ^ \$<%N(`'kx#ip#------------------------------------------------------ 新增：去除特殊字符方法------------------------------------------------------------- ]P -[\uFF00-\uFF06][\uFF09-\uFFFF]|[\s,;'<> "?^]+'  `$'Rdx"'Rkh"i`"X"嫷Attribute VB_Name = "工吆?  '-%校必填项若有错误信息显示到 批⒅?( Function checkedRequiredStart(rowIndex, c olumn ) { '单元@格内容Dim cellValue As rS唍g= A€;veShePet.Cs?If?? Then?丗抇€綟al4seETrund If< E€?鄝[写日志 记 o矂o一个表kq坢writeLog(co鄋tent荾刬X`s(msgB?腫curMsgR纎w, 1)繨CK + 1:D嚑 获取 付ǖ腁呏登pHDget亾BCountXQ(A橠彩 碅?蠾orksHEQy.vA`%2G煤焐痔錍€G3 餑Red酼HnLen EKzKRcR.Characters(?, ).F]?Color?3?VJx焫?添?ǖ慊鲪开始敛）s+#`errafo氓ΞaddCo鋗mwXQC甐U暖?  ?聶€'鬞Unprotect Password:="1qa>z 襡運N?A ( I牂0rior#=€<65 535 '?黄郎尘懊>% d/.Visi1 6K Ye鴖No-k2 ? DiffName困泥鸭侗餫?%D~Cods氨嗦l鎯A! ?HBIDC0ardTpM身份证件类瓦 xo??  kSqyy申请原隐? _ _ "] e? ? kYear醃年份?MA縚 _ ]  廁iSpiiBE\ 哨V11j BLvSelect Case =Q)1 执崃壏强??O 3~N8ulld襵Me纓hodXQ?Required矋爤 Nod??厔@"蛋? &茙€"義数据项：亮title兰填写不正确，?可晕铡ＨB袅，则?盽匦胛狝厅1)位！请0检查?El4seuO2]OA+范湮Oex!???大于等?v(也怀璎过1-2?-%,?-俘 1T`jT?-TT鉚不能歪T &S "Se鵖?S牠Sf?縶箋?R`'R?,I鋓ahasE!鬇佢 '整藼錫帐保в写砦笮畔縋O蟻 d蛷| 弢弢 c弢繃 } }-{}g鴟Sp} ?x=B?}?}郹?}?}蘐??}?}_i?}?}盩 縍?}/'縍鯛_i& _?_i?}?}gsP?(5}且謗V汉字袎话特殊字符~ TR邟褣T軖~邟Q邟邟説U儹裬~岑Q鮺___梌_W_md竝????____项_m--駜-- g_纑r-?-?珖趹*6倃$(,?_E_E_?z 2 hasError = True '整体校验时，如果有错误信息 writeLog esgdEnd IfbeginCheck_comment sheetIndex, cMethodX@Q, rowo0lumn 唅sBF唥 '= 执行的长度挘∟umber类型媨Case "i'"妸z€(value, functio@nArgs)#I f Not嫛 T8hen 厎IAr丄峉plit(? ","€!Q(0)@50?  '仧该项潜靥睿⑶椅定A`?侤?第" &F寑"At数据项：title@填写不@正确，?縺梢晕袅，则必须为数字，大于0)啦怀齺;1)位，荴倚× 2 ±请检查壟<Else昘1 A伬遀Boundj7鸴:A01_0_0_0C_0C0不能C0菐襙/_/_/& "?_/%潧煰煰e 煰F煰煰煰~罒?a捣段У災’@话彦写进a列逼鞬盫alol虔 疐/爎?镬嘸 嗴煛螾闼P?等勇U漀`]_ 4qNN眏PG(覲O6/ ?o媜嫰 噊3_ei' is@idateC郤t鉖+ 1OE??7悙 烶 弾3s幬獊l?666聒6Int657p爳1?弿Ep?X抧X??弿]`2p$弿弿弿?_wゲ眹弿弿弿炄審!"儚_巖(搵?邜氮?ov嶠sB孻?ざ??=?/TgB銺牏ooo_I?W?W?W邐咤 ?d烻烻烻烻or?霕邐?Pも身份证件号/?楻Sfz jh縍 re sZjlx0Ege爐Cell ku骿XQ(嗶x, rowInde?) '袢√钚茨@谌 If resZjlx = "" Thenb榚rr orMsgf第" & "行的数据项：title-& "暡徽罚蛏矸葜ぜ嘈臀眨∏爰觳?a俬asE俆rue '整逍Ｑ槭保绻写€砦笮畔&writeLog lElse*a嫭居民僾ケcheckMethodXQ€rIsIDNumber(value, c鄌lumn|C,号罖' @'NoLt  'O瞏环蟽?嬖繂厗该项必须为学生?，⑶易詈笠晃涣)为字 母X的 大磆怉+慉lEisValidateCount#€{M+ 1`En~d ;焀璒S燜ZJLX肙)焩L_A煂煂，!I不能聥长度僂于祤扔?位＠不超过18悺e?H愰 ?H撖G{/?   beginCa沖comme€]sheet/ぷ闚哨垵,叽 i0sFor纇a '= 执行/銓醚=Ca餾e "B!甏豃C@DMB((, d?1"4m縦G蠑5e僶{& o{b{?}/1痽痽\o0孏!風setC鋙dz, )'8&,U?ZZ??qO-*B-学籍号的- ?XJH-EJ?Len"0, 1, 5?O-% 瘔駨..┝/y?c梢?c若不鐟廲坈50廲 222???蟏_._.E玙._.???沈綢D??遜\? ? 籗?焄.\....项?懶氪?扆? ???/???????j責???亯银锌ǔ葸== '把砦笮畔⑿唇,列表 Case "checkBpank" :P4MethodXQ = T(valu e)`\If N ot0@Then2;errorMsgk"第" & rowIndex "行的数据项：Atitle& "填写不正确，该项必须为数字，大 于等觽'functionArgsArr(0)?，且不砐齺+1±请检查搯zahasEc€aTrue '整逍Ｑ槭保€绻 writeLXog 嫓'E nd IfbeginCA€_comment sh╡et耚,薿,columnD ?鄆sForB执行年箕秮K €5埐Ye ar詇页DMB(罛, 露, 1敺岸H@B返煙?O?O脽NElse颕 set?Cod宒+塊E{狪S 誛鵢XckE恄X ぅ薠 Y==Y学年OY蒤  圿X鎛O]瞈Xn"焄禼陡袷絸如2012-€?等^"__C__JUU8?W&?月服轃*?袉啒*郙onth??袌卟*餷? ?哱绂蟈?? ??嗴*?1、12?}?仱浵PJ?逰 ?V?佅U?丷濓 ?O'类型3 !+的掌贏+(非别靥????Date"> CPo,A礽r鄑hday?v'/呧稇, '３鰟生失败窥YO碠戳/H础 .为!盋hr(34r皒-xx  岘乕-0\?0?矈 000龔 瘚j0000000g?,?（?醒_?? ?NecessaryO1r CO1H1&?(俊??碄? 颻V惋_颻$孢1??矋?-釐? ??;绻写砦笮畔 writeLog errorMsg糆nd If>beginCheck_comment sheetIndex, cMethodXQ, rowolumn ~isFor = True '=执行的錾掌谛Ｑ椋ū靥囝项）€4劙褏⌒唇鴣列表Case "qBirt€hday" '彂 jNecessary(value)#If Not The0n '葊 ?失<败?臹?"蛋? &i€"ASP数据繭毫t0itle娏填写不正确！格式狝 Chr(34? x-xx€  ，如2013-12-21，请检查??hasE珋+伭 '整体羪?k&凄评嘈?0 ?电话号码Sb'(\Phone?抁Num?vYvX?縏縏窽区€号-固定# 或 手机$廣跿逽}?S皩縋???磱L釫O ptionBQ备 P&瑿Q悖茫肞, 66歇_QK乢Q_Q！长炔荒艹?00个字麧牽K縆}% %€€€, c€ ?! _€? a€认定困难级别鹈苢O&鸊鳲DiffNam/PSoP 慏MB(髞, 鈣, funcA0Args鏮)B?XQ倊ORC 啘遼義遼遼褆?N?t?_x/↙sysaiculty GradeFl鬭g 0?R_畄Els }s膃tCod? 玴  TriuoQ"通齛(且值为伎i 1康Y2孵/@ 顰 /B/B/B/B?蔉oh峻?Bu?非伮)oO{˙Id`衖纓yDate義OC@Cツ繐顰銩?兰烠纎msg鱍E?q?昐傈02?傀 逩逩逩惯 疍疍yiP眇ntif烰-?0?i> A€?E弥轖n等级n!E?胰隙ㄈ掌谖 indentifyDateFlag = 1lElseIf sysDifficultyGra deNam? And Trim(value) <> "" Then '如果Φ燃睹杵不32_,errorMs?第" @& rowI杧"行的数@据项：title& "填写不正确！该项与“困难0级别zx”必须同时|或z且通过校验A婋检查??欠駞"iha sEA5@xTrue@ '整体保瑏d有错@误信息checkMeth恛dXQ@Fa@writeLo\g 臰 Q?E罏IfbeginCA6_comm sheeti聖, 牲,o0lumnD W6isForD_ '= 执行民雷謇嘈j^ =庶Case "=Z4D€DM$B(, Bx, ?)S*€丯ot??}!拝$遦 誯耷BcX__^_^ Vc?幄7set?Co鷇(2,蔏岅I \焁w焁Y+UYa原因Y(非啾靥?Z% [I庾tyRea纒on" '3&A4functionArgsO0,1,30谿rcLen鵦? tccrd咝，长g大于等 于1位羦不@超过30??/5_d_d?&?f`?壗8?2夛d忁夶蠆髋姯婑,?(  昫 她 煑煑定煑 a乣め: ?w4(` 0 OrO。0)/% _4蠝蠝仦蠝亸槨薄ⅰ榜鹗奔浏濁淪瘽鳌H O7O7O7nO7O7峆邽  m無禼稛Q:，O?O窂/笌 /_?,瘑 o埧歹明o埧碵 /埧"身份证件聪,i嘍Ca纑dType铥 鳝w礗龅飫L< paA鮿 棾 errorMsg = "第" & rowIndex("行的数据项：ltitleZ& "填写不正确！请检查" $hasEfTrue '逍Ｑ槭保绻写砦笮畔DwriteLog *ElseEsetDMBCode "checkIDCardType", 爏heet,唲, column ,End If亾beginC?_comment?侫MethodXQ:,yisF刼r劖 '= 执行残糮怖啾饋a^ =?Cas匫Dis餫ble翺@J8@)繾(胈 , value, functionArgs)If Not KThen 痢籅l??遌Rz遌遌遌峉9?遌隮遌頮 萞Fa續ilyIn@y^o^_?_g$_呒呒 呒呒 呒_始P.縚縚,y熃ck熃勻縚熃=楜14€ⅳGe€}r醎内容欠裎澳小薄芭虮羆--?1??瘈P 糧=梎愦?"1"縚/0xXQ 縚D?I0dNum9s埿别眹，则扌桉身份鹬ず棚?_?_昣摨U?_揰??O-6熶b顢F?ex瘮縠'?瘮?J席旂籩 蠑?流5YesNo@?涫轻5否?~5?"/# ?Ax?廸栆@_6_6t????膴廸??? 廸//y?e???G????呦瘯/*???? ?SqyyNa黰e/2浝辝/0/0@/0/0t/0/0/0/0/0/0/0,0, writeLog error Msg  0ElsedZsetDMBCode "checkSqyyName", sheetIndex, row column pnd If@beginCg_€comment e丮ethodX Qt,渨isFo€r = Tru€{ '=?Term囍葱醒€谛Ｑ?-b= rCas參?"両f Not ;?, value, functionArgs) Then?ApE€<"第" &苆€"行氖菹睿偤title缞填写不罚∏爰觳閿,hasE翙DV '整辶I时，如果有错误鹦畔⒆*ガ|悽U織佌錀AtLeastOneNNu llT仛至少一个金额牢强扎潓 崝9aACou@p= + 1 :' !A> 牡ピ袷8砍=燶"\Money(耑) A冟:B <> 0鈀 'aG 符合0规则稧罰to竧al Q+CgSelect 鈚迾m"baoPjiaoC偂:1 Sum-, huo鴖hic _ Bzhus?L# others?l# _ 濫@d肨sJ褆 '?3 ?pG睨6玄牺绳中内鹑菸獓@K'昪+ + ? 螶b縿媬/3鄮F '-调谜虮泶锸給- a regB(嬂剗)8DimaEX As ObFj€ISet=€ Create("VBSCRIPT.REGEXP")q'RegEx为建立G EX.Gl餺balpF憫~'设置全 挚捎?'vba中\不 米褰Pa鄑ternB R样式I gnoreB8= `硸Exi黷 ?@e%7iC乫燣DataCount 0 '@某一个a(祤募锹际鼵QNum`Szs?Areag (xlUp@jow '表行E H﨔? -Ul$0?#e) '隶匎銜罜For i % 鳷o @1C`Fs(i, 熉3b>恟'+ (搟痯#5o浟?a i'j.? + 璫-iDC€?鄇, 3)酠B#Y) '判断?醖是否和佱f中相等'&AeSbS)Aj伱 '此时cAQ数目为该a所有僿 ?_wOD-bH删除?行瞼僮鳎╡x受保护的﹐€F?` 表名? 行号坰del豦teP\坔,?鬍蟡v).UnprotaoPassw`|:="1qaz?obs().Dq敻眯6?'rA}).釶123_ 向指定醕'设值?(set瘘瞶?靀Q$奵詪DFQ+??#F觻).鉌=///%/没誉蠥///o////蕁虏 &/No?'Z/篺ow,把,?B ?/????Q崗(|et洬螥薂?,t???#紡(p悼W/SB未鶤犞怾瓢>辔（莯疤崾保?已经通过吮櫩)?崂淐ode潷%bW忀8砊侟垞, c 2纻QL2p|?墆?HC=  S]_€渫達欯a[氫B嘄咻麩? 煅{伕9橯檦a繖t摮Index).Cells(i, 1) = value Then Count#+ 1 DElsehExit For Vnd IfNext i0 jjrowData To  + -1tr(Sheets(Are as 駄, 34).)<yIf厗%c揤?値 '判断规则内容是否和中嗟葟'?codne#€QO2O? !弉€杺v, col +umn餚lus?JF%PB?A.qB}AIP"穃?晛 '?"<0"揓S?Q "尮E懣j Functio 肋'-2 去⒌目崭  removeSpac衑XQ(gN,as琈IDimeiAs 鄏ing '单元格里面的Ah'7len gth1 In€teger, c2h '表?原来的莱ざ龋0执行??后的字符串O cFa`[ '默认为 挥F' Work!s?).Unprotect Password:="1qaz鐳F晅悴飜巶d 餖en( ?鄍'0儣銀M '如果?为空虿恍桢%安僮鳔$c 2 Ina, " ")?2格谝淮纬鱿€值奈恢脟羏2 <> 3包含A5'%g妹ReplQ€"E+噜绀廘 虴Tru冗%|?z縮- 新觯2特殊醓$方法?8饅ecialCha纑acterq!9regp"[\uFF00-)b6]9FF]|[\s,;'伬""?^]+s/僠CheckAE?,Cu `F*] "匎(濑%t甦T?宁;D.6$逮旫匎d﨑?(X%t?(]?逮t5I驱?旫6$~:X+H$:,逮酤旫:?匎(濑%t甦T?宁=D?4%t?酏;潺`.6$逮旫匎d﨑?z/.$ 05$&.MH@ll*MX @l$ 15$?z2+,:X']? MX@4$ @ $黇z*5$ u*t ,?:X8N$$v逮 9逮t?$?(X%t?(]?逮t5I驱?旫6$@ \:X+H$:,逮酤旫::匎(濑%t甦T?宁AD.6$逮旫匎d﨑[ ?(X%t?(]?逮t5I驱?旫6$ ~:X+H$:,逮酤旫:<匎(濑%t甦T?宁=D?4%t?酏A潺`.6$逮旫匎d﨑[ ?(X%t?(]?逮t5I驱?旫6$ \:X+H$:,逮酤旫:>匎(濑%t甦T?宁AD.6$逮旫匎d﨑[ ?(X%t?(]?逮t5I驱?旫6$[ ~:X+H$:,逮酤旫:?匎(濑%t甦T?宁=D?4%t?酏A潺`.6$逮旫匎d﨑?z/.$ 05$&.MH@ll*MX @l$ 15$?z2+,:X]? MX@4$ B $黇z*5$ u*,?:X8N$$v逮 9逮t?$(X%t?(]?5$~:X+H$:,逮酤旫:C匎(濑%t甦T?宁DD?4%t?酏;潺`.6$逮旫匎d﨑h?(X%t?(]?逮t5I驱?旫6$h~:X+H$:,逮酤旫:E匎(濑%t甦T?宁DD?4%t?酏;潺`.6$逮旫匎d﨑?z/.$ 05$&.MH@ll*MX @l$ 15$?z2+,:X]? MX@4$ F $黇z*5$ u*,?:X8N$$v逮 9逮t?$~:X+H$:,逮酤旫:G匎(濑%t甦T?宁HD?4%t?酏I潺`.6$逮旫匎d    ? {"#?&E3)*+,-./012!456789:;<=>?@ABCD%FGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvw?yz?|}?€rU€€€€~| A )y Q i I1x @I)a I !!q!?"a"??9#q#?QA(`qy()?QA)yY)??q*?+!q+  ,???? .1.??Y/??! 0I?a19?? 2A2I??? 4??)5a5 ??96??97ay7? 8I8y@?9I9?橔鳃);Y; <椟!>y>帼!? @?锧B鵅QByB貰iC!I慍盋? DiIDEAEaE F橢笶酔)FQF J AJ iN橬0   \E 龘@(4%€F%T:X %h$hdT)hTv 獅 龝 x\(lhTTIDX%h$hdD4A$l)hD54龝酤XT(lhD4$0   DN$%DX%h$hdD酤裏)hD5酤V4%DX%h$hdD=酤C)hD6酤R黤4%DX%h$hdD=酤C)hD6酤龝(lhD酤t$GDX%h$hdD$裏)hD5$%X?4H?$?酤S(濑%DX%h$hdD4=$C)hD64$V濑绎%DX%h$hdD4=$C)hD64$龝$0l hD4$酤t\LR4\%H$Hd4LA$黴點)H46L$l lllL 5LlllL 5Ll lllL 5LllllL 5Luh嶛\+8L:$酤:濑轧?宁 j宁逮?旫 j旫匎:td`P 0/`?L$酤轧宁逮旫匎dj龝,t(lD`H4L$酤轧宁逮旫匎dP?4,@DX%h$hdD$4)hDB(%DX%h$hdD$酤)hD酤:X ]?B(%DX%h$hdD$酤)hD:H(X]?:N(濑%H(X麥$%D%h$hdD逮酤)hD  H:X鹽$$'$ l逮 逮`6$逮 :X?H:X鹽$$'$ l逮 逮`6$逮 :X?H:X鹽$$'$ l逮 逮`6$逮 :X?H:X鹽$e$'$ l逮 逮`6$逮 :X?H:X鹽$  :X?H:X鹽$  :X?H:X鹽$  :X?H:X鹽$  :X?H:X 鹽$F  :X!?H:X"鹽$s  :X#?H:X$鹽$ D?z/.$ 05$&.MH@ll*MX @l$ 15$?z2+,:X]? MX@4$ J $黇z*5$ u*,?:X8N$$v逮 9逮t?$(X%t?(]?5$~:X+H$:,逮酤旫:K匎(濑%t甦T?宁LD?4%t?酏;潺`.6$逮旫匎d﨑(X%t?(]?5$~:X+H$:,逮酤旫:M匎(濑%t甦T?宁LD?4%t?酏;潺`.6$逮旫匎d﨑?z/.$ 05$&.MH@ll*MX @l$ 15$?z2+,:XN]?($ll逮 O逮札5$札:X ]?_::X+H$:,逮酤旫:P匎`.6$逮旫匎?z/.$ 05$~札:XQ]?"X听4旋 Rz*2旋听 u*::X+H$:,逮酤旫:S匎`.6$逮旫匎?z/.$ 05$ H(X麛$b |4$ T$黇z*5$ u*z::X+H$:,逮酤旫:U匎`.6$逮旫匎?z/.$ 05$&.MH@ll*MX @l$ 15$?z2+,:XV]?4:HN逮逮4:XVN$$旫 W旫黇z*6$逮旫 u*Q::X+H$:,逮酤旫:X匎`.6$逮旫匎?z/.$ 05$x%lll:XVN$$逮 Y6$逮&.MH@ll*MX @l$ 15$?z2+,:XZ]?m':X[N$$4逮 7 逮黇z*6$逮 u*;::X+H$:,逮酤旫:\匎`.6$逮旫匎?z/.$ 05$&.MH@ll*MX @l$ 15$?z2+,:XZ]?!4$ ]$黇z*5$ u*::X+H$:,逮酤旫:^匎`.6$逮旫匎?z/.$ 05$&.MH@ll*MX @l$ 15$?z2+,:X_]?4$ `$黇z*5$ u*~:X+H$:,逮酤旫:G匎(濑%t甦T?宁HD?4%t?酏I潺`.6$逮旫匎d﨑?z/.$ 05$&.MH@ll*MX @l$ 15$?z2+,:X%]?.(逮4:X%N$$旫 W旫黇z*6$逮旫 u*::X+H$:,逮酤旫:X匎`.6$逮旫匎?z/.$ 05$%lll:X%N$$逮 Y6$逮&.MH@ll*MX @l$ 15$?z2+,:Xa]?4$ b$黇z*5$ u*::X+H$:,逮酤旫:c匎`.6$逮旫匎?z/.$ 05$&.MH@ll*MX @l$ 15$?z2+,:Xd]?u4$ e$黇z*5$ u*C::X+H$:,逮酤旫:f匎`.6$逮旫匎?z/.$ 05$&.MH@ll*MX @l$ 15$?z2+,:Xg]?o4$ h$黇z*5$ u*=€:X+H$:,逮酤旫:i匎?d jd颰?濑kD" j?轧l潺`.6$逮旫匎d﨑?z/.$ 05$&.MH@ll*MX @l$ 15$?z2+,:Xm]?i4$ n$黇z*5$ u*7€:X+H$:,逮酤旫:i匎?d jd颰?濑kD" j?轧o潺`.6$逮旫匎d﨑?z/.$ 05$&.MH@ll*MX @l$ 15$?z2+,:Xp]?c4$ n$黇z*5$ u*1€:X+H$:,逮酤旫:i匎?d jd颰?濑kD" j?轧o潺`.6$逮旫匎d﨑?z/.$ 05$&.MH@ll*MX @l$ 15$?z2+,:Xq]?]4$ r$黇z*5$ u*+€:X+H$:,逮酤旫:i匎?d jd颰?濑sD" j?轧t潺`.6$逮旫匎d﨑?z/.$ 05$&.MH@ll*MX @l$ 15$?z2+,:Xu]?!($B4逮 v 逮黇z*6$逮 u*::X+H$:,逮酤旫:w匎`.6$逮旫匎?z/.$ 05$&.MH@ll*MX @l$ 15$?z2+,:X]?I/MH@4:XN$$逮 W逮黇z*6$逮 u*::X+H$:,逮酤旫:X匎`.6$逮旫匎?z/zx.$ 05$%lll:XN$$逮 Y6$逮4$ y$:X ]?5$ zxzx&.MH@ll*MX @l$ 15$?z2+,:Xz]?.!4$ h$黇z*5$ u* €:X+H$:,逮酤旫:i匎?d jd颰?濑{D" j?轧|潺`.6$逮旫匎d﨑?z/.$ 05$z} 4ux讫鳫4$ y$:X ]?逮?旫6$H[ z} 4ux讫鳫4$ y$:X ]?逮?旫6$H z} ::X+H$:,逮酤旫:~匎`.6$逮旫匎?z/z*.$ 05$z}&.MH@ll*MX @l$ 15$?z2+,:X]?"".(逮4:XN$$旫 W旫黇z*6$逮旫 u*?::X+H$:,逮酤旫:X匎`.6$逮旫匎?z/.$ 05$?%lll:XN$$逮 Y6$逮&.MH@ll*MX @l$ 15$?z2+,:X€]?Z$  MX@4$ 7 $黇z*5$ u*?::X+H$:,逮酤旫:匎`.6$逮旫匎?z/.$ 05$($;ux苪}颇H4$ y$:X ]?逮?旫6$H?&$;ux苪}颇H4$ y$:X ]?逮?旫6$H6#&$;ux藆}伺H4$ y$:X ]?逮?旫6$H?::X+H$:,逮酤旫:匎`.6$逮旫匎?z/.$ 05$z*&$::X+H$:,逮酤旫:匎`.6$逮旫匎?z/.$ 05$z*&.MH@ll*MX @l$ 15$?z2+,:X!]?O%/MH@4:X!N$$逮 W逮黇z*6$逮 u*?::X+H$:,逮酤旫:X匎`.6$逮旫匎?z/.$ 05$%%lll:X!N$$逮 Y6$逮&.MH@ll*MX @l$ 15$?z2+,:X]?D&/MH@4:XN$$逮 W逮黇z*6$逮 u*?::X+H$:,逮酤旫:X匎`.6$逮旫匎?z/.$ 05$&%lll:XN$$逮 Y6$逮&.MH@ll*MX @l$ 15$?z2+,:X]?9'/MH@4:XN$$逮 W逮黇z*6$逮 u*?::X+H$:,逮酤旫:X匎`.6$逮旫匎?z/.$ 05$'%lll:XN$$逮 Y6$逮&.MH@ll*MX @l$ 15$?z2+,:X]?:(4:HN逮逮4:XN$$旫 W旫黇z*6$逮旫 u*??z::X+H$:,逮酤旫:X匎`.6$逮旫匎?z/.$ 05$(%lll:XN$$逮 Y6$逮&.MH@ll*MX @l$ 15$?z2+,:X]?/)/MH@4:XN$$逮 W逮黇z*6$逮 u*?::X+H$:,逮酤旫:X匎`.6$逮旫匎?z/.$ 05$?%lll:XN$$逮 Y6$逮&.MH@ll*MX @l$ 15$?z2+,:X#]?$*/MH@4:X#N$$逮 W逮黇z*6$逮 u*?::X+H$:,逮酤旫:X匎`.6$逮旫匎?z/.$ 05$?%lll:X#N$$逮 Y6$逮&.MH@ll*MX @l$ 15$?z2+,:X]? +3MH@4:XN$$逮 W逮旫6$逮?::X+H$:,逮酤旫:X匎`.6$逮旫匎?z/.$ 05$EMH@4:XN$$逮 W.M@ll逮l旫 16$逮旫?z2+,:X]?+,(X麛$)4$ $4(X]?逮?旫5$?4麛$夶X箭箭??滮4麛$滮?箭岧??|4麛$|?箭l3?\4麛$\?箭L3?<4麛$<",(X麛$酤麛$:X麛逮5$?z2龝@4,`Hl箭|札4l<酤滮t\L岧D旋听hD$逮旫匎dTD潺D(pX X?h5XcH%h8%h黤H%hhXl點h龝Tp,lhXH^撅%:4%DX%h$hdD酤>濑A轧Uz)hD6酤濑轧;D:X %h$hdDW濑裏)hD5濑 { (4 宁uDHE宁龘 @($%DX%h$hdD酤旫)hD(4 匎宁(X麥酤dE匎龘 @($%DX%h$hdD酤T?hD旫T37:X+匎酤:H濑宁轧:4D.6酤濑轧D.酤 05酤?z 匎d 宁龝e 8H0 l逮td宁匎旫T$hD酤濑轧D( hXl,CT?pzoX龘 @斤%棹%:8%HhL$LdH羹裏 ?P)LH6羹lP點lT?PW叁Upz5叁PW叁Upz5叁(4ThXP LH叁羹tL:\ ]?Dl< y<:\ ]?5<B c\l龝 (\ [濑撅%:L%(\%$d<>,A逮宁)6<, 黤\lL%(\% $D濑宁匎\N龘 @(酤%(\%$d<轧?)5<H (\麛< O\ 匎$t 麛<(\麥,5<T_t @(酤%(\%$d<麷#P轧麷#L02P﨤?5< c\l t~T龝0L4 l旫匎dT t宁(PL<,逮0 €  <:4%DX%h$hdD)hDJ$%DX%h$hdDC)hD5龝芜x(lhD0   <:4%DX%h$hdD)hDJ$%DX%h$hdDC)hD5龝ux(lhD(R(%8$8dA酤麷F濑<)86酤 ((轧[逮撅%:%((%8$8d>酤A濑旫)86酤%((% $D逮\\匎旫dN匎龘 @(宁%((%8$8d?)85L轧((麛轧S` 匎d$\T\轧麛((麥酤54?VT @(宁%((%8$8dA酤麷F濑$?86酤$<麷F]?5MT @(宁%((%8$8dA酤L)85^L麷F酤%((h麛%宁%8$8d濑C)86酤濑"$?(]?Y: %((h麛%宁%8$8d酤C)86酤 T~4龝x(X@ltdD4匎轧<L$T\旫 8酤濑\ 黤TlM<T%P$Pd<,A`1h)P<6, lhJ鋚f kft龝lh鋚d kd "? lh 1hJlhF %<T%P$Pd<,C)P<5, cTl龝€,lhP<,H :L\l\< <5<4 cLl@ 黤Ll龝 @H,l\<    00` ?1///(`?08!`?Q////0I` ?///<q`?q/////<`?/////,`?//( `?/0 ` ?9Q09 ` ?ay///,a `?//8`?1////,`?//8`?1////8`?1////0)` ?1///(Q`?/nrU€€€€~| prU€€€ 'I n rU€€€ 0_ '定义一个结构，描述数0据页"onst shee蕋{V? 豴1 '/ATJ僁兏郊2政策落蔪低臣苺 m8sgS? b错牢笮畔? €噐o填表 说 3Area習3氡韻K€dme?tot€alCount塉乽记录总男Ｑ槭 ?startT坕tl翄7 ' 表头所在行 atLea€OneNNulD '执行 辽倭t非空A 的单元栏袷肯\中内容环瞎`嬖虻腏聋Money利Varia€>'每一行合计中的值K Err or@-时，/A>A{C/e Ms>gAD厖 rgoldRang@e '---A辉€谀？橹袆 幽母跳出FTargen 进入臯侓剄functi@onArgsh'0长度">@存储方法参数的字符串fisSav€eButton}CA时关闭按钮has?€}Boolean倇?臠中是0否有? TheSa@擾兄复的IdN\um]n 卛da啷胈槔无效行前，保存表濑燶状态checkMet鄅odXQAA1丄0的返回鑂冦aRowS恿?= `r?锌祭x?磰x纁ardID"篔8= 3 '学矸葜ぜ臿位置 Dim is醳?!为榨ne&驅看眯?为有  … 5个必填字段c 縡'removeSpaceFlam匉去崭癫僮鰼z€庎躯，菻绻鸻了+true，否false]g4eA椑蒯刢€ 凶钤璦*的€t聪嗝没薪凶远碛嗝户输醥@<之丆c ur爡@*?Long €'上次写EGa崱?9,应该项目初始化时值覉淮蜦 rna 眅B'总?筩屃衠^isFPOi.在根据晔兜饔貌8煌琾)B 判断宣是for@循环 C_怱ele侳ChN中需要用€到该变翖^馏,headI2(?省市县稻缺& S駋s?= 2 '?r的下表P€! 继续no倀tinueQ$AqPJ髰PlubS7104 '亓d增?sysDifficultyGr8adeq冟7?9 '困难认@定级别 wtsintif yD餑s30 '?时间??@ReasonT1原因\sO ?W6?1 通过盝 0-未 1-且?礎< 2:不Q6*_?_%_誣S@陘^ @陿0__SRP_7!h寶齉pe '__SRP_10__SRP_11[€ € € B  € €€    € (€ € B €H @ PX `hp€ xB    (0€8€ @   € B  P€X` (0€ € n8€ € B €,€$@€`H(x  € "2€ 8.Ph"?€  4S€ € € € €  B  € 4 L%?魋梺~xMEP6  <<<? `6  t梺?xRRME (@V006 <Vh€H0h€X陳\P`H陘`@蕵xB蕗 @蕗4  @陘D @獉.L @代码表%错误信息说明%陘@V  @陘Z  @陘dh\ @陿fB鈥hX@鈥@蕗d @陘x@陘jz@蕵0B陘lH~  @陿JXhB!蕵p€B#陘€%@陘&@%陿Z(B陳VHpH陳^p€H蕗 @陘$ @獉b8Hh @陘P@陘T @陘X  @陘^ @陿0B陘€` @陘Xt@陘| @陿6 B蕵npB"蕵rB$p€HPxh p(08H0X@X€僒0'=賴靃*\R1*#220$*\Rffff*1G613fa2f4(*\Rffff*1G613fa2f4\0?7€ €€ € €€ €0€8€ € @€ `€ Dp€ 8 €0 P€0p€D€€0€8€4P€.€ €.€€.€(8€(`€>€"$(€@€>`€R€^€FX€€€ €`*0$`€ € $  €^(€^列索引号^列名称^0p@定义一个结构，描述数据页]$騂=Public Const sheetNameValueTJ As String = "附件2政策落实统计"]$错误信息(2Public Const IntroSheetName As String = "填表说明"]$代码表H]$说明P] p 记录总的校验数X]$记录表头所在行] x"执行 至少一个非空校验 的单元格数目] 6执行 至少一个非空校验 的单元格中内容为不符合规则的数目] 每一行合计中的值] "至少一个非空校验时，记录错误单元格] 错误信息] %---定义在模块中，记录从哪个单元格跳出 ] 8---定义模块中，记录进入的单元格]  长度校验时，存储方法参数的字符串] 记录时关闭按钮 ]  记录总的校验中是否有不符合规则的] @ 记录总的校验中是否有重复的] #记录总的校验中是否有重复的] %/记录遍历无效行前，保存表中是否有错误信息 的状态] h#保存校验方法的返回值]$)遍历记录开始的行号vate]$)学生身份证件号开始位置]駾0记录为空的数目]X"/看该行是否为有效数据 统计 5个必填字段为空的个数] "C记录去除空格操作的执行结果，如果去除了空格则返回true，否则返回false€] €Pcell中最原始的的内容，即系统没有进行自动化处理用户输入的错误数据之前，cell的内容] 7上次写错误信息时，所在的行,应该项目初始化时初始化值一次] 总行数] 总列数] R在根据标识调用不同的方法时，判断是否是for循环 Cell_SelectionChange中需要用到该变量]$记录省市县等记录所在的行 ]$0+代码表sheet的下表是否继续]  ]$hH)隐藏列的增加数]$X,困难认定级别所在列]$p#认定时间所在列]$€%认定原因所在列] -O标识认定级别是否通过校验 0-未通过校验 1-通过校验且值为空 2-通过校验且值不为空] $O标识认定时间是否通过校验 0-未通过校验 1-通过校验且值为空 2-通过校验且值不为空AAttribute VB_Name = "声? Public Typ€alueCo8lum8p '列索引号c@nIndex As I@ntegerT酶 P'S喣ngEndn  @ I僜 `€I僃 €€I僅 €H`凧 0`0<k  I僠 € @勻\   `?,kp I僠 €%@勻, eWWW  `  *I僠 €@勻 个非+`P宁k` 7i僾 €裉i僞迥？`攛xH`H验时`剒N串` L关闭`剕J 记 ` X  PI僠 €的校@勻  `   \I僠 €@勻  €` H  hI僠 €€@勻  `   tI僠 €@勻 %  ` 8  €I僠 X€I儴 €@勻 @  `   I僠 €@勻 € € ` H  I僠 €x@勻 %  `   I僠 €@勻 % p` 8  I僠 €@勻  `  I僠 €@勻 @剮  €` @ I? `€I儛 € D `   I? €I儛 € € ` @  I? ` €I儛 €  ` ` I僠  €I儤 € € ` @ I僠 ` €I儤 €  `  ++(I僠  €I儤 € € ` @ SI僠 ` €I儤 €  `  //eI僠  €I儤 € x ` @  I僠 €@勻   `  I僠 €容 P`   I僠 €容 @勻 e `  I僠 €e@勻 绑u @`   I僠 €@勻  0` € ""I儶 €I僃 €I僞 €`劕 傈u`劗 `凬`劙`劜傈u`劥`劧@劯 `労 傈u@劶 `劸 @劺 `劼 w@勀 鎙` `Pp ""I僠 €eetII儤 €e銴`@勻 m` `   I僠 €`@勻 teri0  € @€ € p€€  0Px  €e僼(%8 @l 緮`eckReq?@?L  isF(removeac@?<  StuNP(0`z LX?`@eckDMB`剉t€de竏h(checkS`刕p€kUw`HPheckXn79058421637905842nth嚐 10X98765432ckB€?cck@?`  ?@?P  ` 珸~8 ?@?(  adeN@?€  ?@?X ag p0hasErr@? tLeaXunt欷`@?  漙 @?酤  b@?濑  b@?轧  huosXumn_礰@?宁  zp0@@l eatePattgnoreC€4玚?@?(\  ` @?X r@?H  w壪`@?X8  i`@?H(  @ `@?x  hasT@  tRow@棹 ordˊ佝 Fin@叁 kIn褸 羹 ookA@ Colu@? flag@?`旫  ount@?匎  @?t?  (@?d?  rote@?T?  Ro@?P? (@?@?  Q腯`@?0?  Pro@? ?  lueX  (X@l Inde?etName4readmeShtN@?@\  Coun@?X `珸?H  date@?p8  tart@?(  `珸 not@?  @?x meCo@?酤  fyDa@?濑  enti@?0轧  楹@?`宁  Wm@?H逮  byID@?  c$*`@?旫  chec@?慆 chec@?€?  chec@?p?  heck@?`?  kXJHxp@x@l IsNux(TJC巂€4ersonN @?\  Link@?X ende@?XH  ight@?(8  g@?(  thVa@ ~`@?H  m@  da@棹  u`@佝 birt@叁 序矮@ 羹 type@  v@? t@?0旫  wArr@?`匎  Pr@?t?  on?@?xd?  `@?T?  `@?P? @`@?@?  orma@?0?  鱜@? ?  eSpepX  ( @l Keysze@4`tFunct4ranspose桌 @? \  Butt@?X --@?p H  peW[@?@ 8  颯錘@? (  --@ --@?   --@?H!酤 --@? 濑  --@? 轧  --@?!宁  c@?0!逮  al@?!  on@?旫  @?`!匎  @?€? @?x!p?  rg@??`?  it@?P?  rgH"p??H"€"`"@l nAp"H"r(0 Th俌済:N^椗_kX@??\  @?L  he@?<  ru/@賴靃$*\Rffff*1L613fa2f6$*\Rffff*1H613fa2f4*\R0*#f*\R0*#13*\R0*#10    ( 0 € 8 €  €  B   € ( H X ` h p x € €€ €  €  B  8 €@ 6H €      € | € 8€ XB  p€x0€€ x€ `€ €B    €(08@H€ xP€ € B  €0@HPX`€ |h€ € B  €($0Xhpx€€ |€ € 0B  H€PfX€ |€ x€ B  €€ € € B  €€:0@X x€ € € P€ pB       € € € .B     € € .B    (08@€ HB 6  & 08@HDP4p  7 (08@H€ PB   &8@HP X x(€ D48 @HPp€ B `€ € € 6h € & € D H `h p "!  $ "    0   8  @ ` 4p      >I  D!4j !  X! `!h! p!x!€ €!B  ""(" 0"@"H"P" X"x" "€"? ? <??# ##€ #B ?€ € € 6? ? ?&$ ($0$8$@$€ € H$D h$??? ? ?"!% (%0% $8% "`% ?  ?  ? ??4? ?&& &>I(& Dh&4j?  ? ?? ??€ € ?€ p'€ ?B  ?€???????(€ (€ ?€ ?B  ?? ? ??)€ )€ ?€ ?B  ?€? ?*** *(*0*€ 8*€ ?€ ?B  +€++0+@+H+P+X+`+€ h+€ ,€  ,B  8,€@,H,h,x,€,???€ ?€ P-€ p-B  ?€ &?€ $?€ ?€ .€&.€*8.€"h.€$?€?€(?€/€ /€@/€`/€p/x/€ ?€ 2??"0(0H0€ € P0h0€08???€ ?B h16p1€?& ? ? ?&? ?222D24p`2? ?? ?? ???7?3 (303 83@3H3P3X3`3€ h3€ ?€ 4B  (4€0484X4h4p4x4€4??-----------------------------------------1 检查必填项,若有错误信息显示到 错误信息sheet中--------------------------------------- 空时返回0不为空时返回1 单元格内容] F H \$<%N'J J 'd'ki-----------------------------------------2 校验学生姓名 要为汉字-------------------------------------------------------------格式不正确返回false格式正确返回true]%^([\u2E80-\uFE4Fo·]|[a-zA-Z]){1,20}$'3修改：可以校验生僻字  `$'d'ki|-----------------------------------------3 校验出生日期格式为2012-05-09(允许为空)---------------------------------------y蚍0 `$'zk]reg = "^((19)|(20))\d{2}-((((0?[13578])|(1[02]))-((0?[1-9])|([12][0-9])|(3[01])))|(((0?[469])|(11))-((0?[1-9])|([12][0-9])|(30)))|((0?2)-((0?[1-9])|([12][0-9]))))$"錧\Oh埗^((19)|(20))\d{2}((((0[13578])|(1[02]))((0[1-9])|([12][0-9])|(3[01])))|(((0[469])|(11))((0[1-9])|([12][0-9])|(30)))|((02)((0[1-9])|([12][0-9]))))$'$<  `$'d'k€ix|-----------------------------------------3 校验出生日期格式为2012-05-09(不能为空)---------------------------------------始校验]^((19)|(20))\d{2}-((((0[13578])|(1[02]))-((0[1-9])|([12][0-9])|(3[01])))|(((0[469])|(11))-((0[1-9])|([12][0-9])|(30)))|((02)-((0[1-9])|([12][0-9]))))$'\  `$'d 'kih-----------------------------------------4 校验身份证号码---------------------------------------批符合规则返回true--不符合规则返回false ]790584216379058420加权因子] 10X987654320校验码  v$'v 去除空格"]批注 ^ ~ v6)如果幼儿身份证号为空,则设置为通过校验规则'zpkh vGzjx & v$$€Gzj果校验 v*[0-9X]Gzj把校  x $'| |G '|j z v $ | 'z  z '| v$  | $G'j Ii€z-----------------------------------------校验身份证件类型 -------------------------------------------------------------格式不正确返回falsewNu格式正确返回true覻]x,^[\u4e00-\ue863·a-z|A-Z|0-9|()|（）]{1,18}$'  `$'d`'kPiH----------------------------------------5 -校验学校学校标识码 42位，最后一位为汉字或x------------------------------------------------------------- 格式不正确返回false 格式正确返回true1]^[1-9]\d{40}[\dx]$'  `$'d'kiz----------------------------------------6 -校验户籍性质 -------------------------------------------------------------格式不正确返回false 格式正确返回truec]h.^(\u519c\u6751)|(\u53bf\u9547)|(\u57ce\u5e02)$'  `$'d'kiu-----------------------------------------7 校验入学时间------------------------------------------------------------- 格式不正确返回false 格式正确返回true €]'^(((19)|(20))\d{2})((0[0-9])|(1[0-2]))$'  `$'d'kiq-----------------------------------------7 校验年份-------------------------------------------------------------格式不正确返回false&T!h寶格式正确返回trueR ` ,如果为非必填项'kzk]x^((19\d{2})|(2\d{3}))$'0  `$'dH'k8i0q-----------------------------------------7 校验月份-------------------------------------------------------------格式不正确返回false 格式正确返回true ]^((0[0-9])|(1[0-2]))$'  `$'d0'k iv-----------------------------------------9 校验学籍号-------------------------------------------------------------$格式不正确返回false 格式正确返回true]h^\d{4}[0-7]\d{3}[0-3]\d{7}$'有错  `$'d'kxipv-----------------------------------------10 校验电话号码-------------------------------------------------------------====格式不正确返回false彰格式正确返回true==€]^\b((1(([38]\d)|(4[57])|(5[0-35-9]))\d{8})|(0((10)|(2[\d]))-[2-9]\d*)|(0[3-9]\d{2}-[2-9]\d*))\b'  `$'d 'kiv-----------------------------------------11 校验银行卡号-------------------------------------------------------------息格式不正确返回false'格式正确返回trueH]X^[1-9]\d{14,20}$'  `$'d'k i -----------------------------------------checkXn 校验学年如（2012-2013）-------------------------------------------------------------项格式不正确返回false第 格式正确返回true p]]1^(20\d{2}-20\d{2})|(19\d{2}-19\d{2})|(1999-2000)$''  `$ `-$'d $$ 围'dx 'kh d` 'kP iH -----------------------------------------checkOption 校验备注如（长度小于value2）-------------------------------------------------------------填长度不小于200返回false 否则返回true& ,为空'zP kH ,  检'd( 'k i ------------------------------------------------------比较大小(小于等于返回true)----------------------------------------------------------------超'value1大于value2返回false 否则返回true€ ,X',验时， X'信息 ,  'Dd 'Dki------------------------------------------------------比较大小(小于等于返回true)-dec---------------------------------------------------------------'value1大于value2返回false 否则返回true ,$4',项 $4'为 ,  第 'd'ki}------------------------------------------------------校验长度---------------------------------------------------------------€ ,$'且为' ` $/如果为非必填项项'kzk ,-下标从0开始，其值为指定的数组维可用的最大下标不包 `$$4 `$$4'z kd说明是校验固定长度 `$$4写不正'zkki}------------------------------------------------------校验整数---------------------------------------------------------------第  ,$',' `为空$/如果为非必填项位'kzk `$€& 如果不为数字z€ `.e+如果包含小数点zPkH ,-下标从0开始，其值为指定的数组维可用的最大下标==== `$$4 `$$4===='zkd说明是校验固定长度umKT `$$4'z`kXkPiH------------------------------------------------------校验数字长度(Number,可以为整数，不小于0)---------------------------------------------------------------€ ,$'' `$/如果为非必填项 'k0z(k 新增：检验数字不可加符号 <^(([1-9][0-9]*)|(([0]\.\d{1,2}|[1-9][0-9]*\.\d{1,2}))|0{1})$'  `$位，且zk `$€% 如果不为数字zh `$4e% 如果小于0信息z8k0$'+整数部分最大长度$'.小数点最大位数====== `.''' "说明没有小数点 `$4'把 $$4chec'z`kXd 如果有小数点 ` `. $'D单元格中数字的整数位正 ` `. $' $$4 $$4}'z k k i€ ------------------------------------------------------校验数值范围--------------------------------------------------------------- ,$'' `'zk `$€) 如果不为数字z€ `$4e) 如果小于0zPkH `$4$$4 `$4$$4?'zki------------------------------------------------------校验数字长度(Number,可以为整数也可以为小数，不小于0)---------------------------------------------------------------€ ,$'' `膊铂$/如果为非必填项'kzk 新增：检验数字不可加符号<^(([1-9][0-9]*)|(([0]\.\d{1,2}|[1-9][0-9]*\.\d{1,2}))|0{1})$'N  `$_)z0k( `$€% 如果不为数字z `$4e% 如果小于0?_zk$'+整数部分最大长度$'.小数点最大位数? `.''' "说明没有小数点 `$4' $$4}-}'zkd 如果有小数点}- ` `. $'D单元格中数字的整数位\ ` `. $' $$4 $$4'z0k(k i-----------------------------------------checkIsInt 校验不小于0的整数-------------------------------------------------------------格式不正确返回falseo格式正确返回true) ]` ^0|[1-9]\d*$'  `$'d'ki-----------------------------------------checkIsNumber 校验为Number类型-------------------------------------------------------------?格式不正确返回false|格式正确返回truex ' `$€'ki-----------------------------------------checkMoney 校验金额0-9999，整数-------------------------------------------------------------0%格式不正确返回false%格式正确返回true  ]8^(([1-9](\d{0,3})|0)|0)$'  `$'d'ki-----------------------------------------checkMoneyTJ 校验金额0-9999小数点后一位------------------------------------------------------------- 格式不正确返回false - 格式正确返回trueP]^([1-9]\d{0,7})$'  `$'d'ki-----------------------------------------checkPersonNum 校验幼儿园人数至少一个人------------------------------------------------------------格式不正确返回false @wr傕格式正确返回true'](^(([1-9]\d{0,3}))$'  `$'dx'khi`-----------------------------------------checkIdNumLink 校验身份证号中性别和出生日期与用户填写的是否一致------------------------------------------------------------格式不正确返回false 6格式正确返回true@ If colIndex = jhrIDColumn Then6 checkIdNumLink = True撪 Exit FunctionG End If$]%性别和身份证号上是否对应]$出生日期和身份证号上是否对应3;]日期第一次出现的下标 3]("性别,单元格之内的内容- ]@$身份号截取的内容6]X!出生日期,单元格之内的内容]p"身份号截取的内容G]#出生年份 @w]%出生月份赎]] $' $'@w (倒数第二位为奇数，则为男性男 F  Z$T,Nd倒数第二位为偶数，则为女性 1挾女 F  Z$T,Nk $' $' $' -  -  F  Z$T,N'i }------------------------------------------------------校验长度---------------------------------------------------------------0 ,$'1抅^[\u4e00-\ue863·。，]{1,100}$'' `$/如果为非必填项%'kzk ,-下标从0开始，其值为指定的数组维可用的最大下标5 `$$4 `$$4 .  `$'dH'k8z0k(d说明是校验固定长度 `$$4'^[  `$'d'kzkki-----------------------------------------校验考生号、学籍号、学号 -------------------------------------------------------------格式不正确返回false???格式正确返回true](^[a-z|A-Z|0-9]{1,40}$'  `$'d'kxiphCAttribute VB_Name = "校楹? '-%1 觳楸靥钕?若有错误信息显 示到 sh`eet中$兛帐狈祷?! 不为1 Function checkRequired(bIndex, row coluDmn ) '单元格谌Dim cellValu@e As S€弉g= Work5s?).C s(橕If?€咐" Then0並 g€蒄alseE妠Trund If 濫€牓?2"羵学生姓 要为?鹤? !格式不正确盗uf7'At?憢wStu仺(vg覦plreh €@"^([\u2E80-\uFE4Fo·]|[a-zA-Z]){1,20}$" '修改：可以?生聘ёYhC曞 (, 宩`緿&薩蟟 蓅黫3苅出生日期罳为2012-05-09(允4许佂)鋗韏Bi纑thday*/@$餞rimd?甔 ??€Exi黷 =?A罺罻a夵'`1^((19)|(20))€\d{2}-(0?[13578] 1[02])&)-9a[12][0c3[0&1 (( 469"11Y€0?? )))$ пO5€[1[鐖E2)2縗a?袘驱\_R$?\(不能\'鮘Necessa ^S崚PrP烕,P擐;醃O摞 ?憳e椫辁k=  h/h4? 験矸葜ず怕符篳瞎嬖騛f#e'不I磄鮃 IsIDNumberh(ByP€ 莯,^ 鄤矂)B oolea膢Co`nst W'慘7905842163癶'加萡ㄒ蜃覥Pc10X9876?432C'搪朐S& = Z) o去除空,格!-sInteger, i=T Cv= €babyIDCr旤 A乴a鉦 '如果幼儿婶:,则设置为通过锪 A goc (c Len?<> 18? 袙 Not€ eric(Mi"d, 1 7)7? f%Li ke "*裦X]嬆_ For= 1 To 1?CTqWd彂0 .1矐1sps + ; i! * 耇Next€s Mod 1`祪Right?c, Tw3 w}熌?; ?件类玄土p@!腟FZJ孡XZ廜` "^唳4e0幡e863·牔|A-Z|p唡()|（ｄ`?8`с罄?eS抴飪qXkVOXLX废53-q 学P0标识码 42位詈笠晃銗俦粱騲锪仫羉kS纁hCode砹Bs ?0}[\d靫]鍤OgO柯C_㈠qloooQ--6R "Ъ灾 埓- '格讲徽贩祷豧alse#LtruHFunction checkFamType(valu e) Di`m reg = "^(\u519c\u6751)|3bf\ u95477ce#e02)$"i;IfGCgu( K, i The辬%r nT轊  &F鋪 End If 卲7 校验入学鹗奔洇? RXDat∨((19?0))\d{2})((0燵0-9]1?])5a 輅F 縛肍P刞年份QU!禵Year? fD葾rgsAr瀝D磦瘈G""尠_A× @ 0 '如果为穩潜靥钕钋?沽"翴粌aExit j{€ €{郔I葇(23}G绤, 0xG>$dG|月Gz G`∕餺nth卡t煡*D-?-?9aパЪ艔8??XJH?Y4}牎7]BZ ?!7}?Q[€.C??$10电话号码__傌?ckPhoneNu&m?l俓b爄(([38纇4[5j7Ai55jk8*}00p2[D\d鄇-[2\鋎*[3恗g?\bo吜No匯宷*I Ap弲'11银鹦锌?2O`濨ank=瀃1c14,?0_2孝_淾湣4oo Xn@年如€（2012-@?）_pXn_U歽 噑c€喍20郕?}p r?19搕9900o_糒2Spli倀 , "-"4q30孯(1) - 0)01= 蹔鹔妎lkp= ?? OpR杏9备注#长稜刃∮赗?_#燂P#不200y俜裨虺遃ck 1愚22 1@4h 浚gELe?@">齝??VL ?#Q5 磪 qg`O比较 大小(等粲)s 大?B  ?篾ompar溽s!嚧€ue2) value1 = CInt(hxF2 x 鬒f €>2 Then蘡ompareA怓alse E# .Tru -nd@ If EF@unctiol'-2比较大小(小于扔诜祷豻羳7)-dec? '儗大于2/f亊 稨裨騾6 卍 褎扗ec勀,劒?9靗C 縨謃校验长#塢heck圠en], fD?Args圴Arr繣Split(A, "," c蟿Q呂@""T屠Q (0) 0 '如果为穩潜靥钕頞?佊H eemaiaj饃it 噇Dp乣UBound ?脕 '下甏?开始，其值为指定的数组维可用赖淖畲汔 F4) > Mm?1)) A H?T2@摃E>(y E3'?翣 €'说明是\肮潭▉\s! €犖 H?? * 凢GJ禦y後#整数%€孢€鄠€c&b+@ ?爒,Z饴 €on亼€€j5€(€?Not IsNumeri叴k)8J不为怇>舟,伆InStrY".") <> 塐包簚∈鉶K.) KsKKKNk @p楘K1K_=K|KKIKsK??>K/GqKQ0q](?ber,可以勎L，不仺?)}M?煃拲+ j恜1pJ?帬NN?彔彞b/$o!Q]"'新增：煅獒不可@加符号GregP "^(([@1-9][0@*)|0]\.\€d{1,2}|F))|0{1}x)$"PV@Ct(牧僔1  焄0苡[穪Q 罖 C仚BL. 颶頩xmax晓蠺m"1) 'a4部分仱蠐Doubl鎒?(2鉪位数{ intq€gth緄V媋鯋0doupE∶挥弉RBpE`wLen(intValue) <= CDec(functionArgsArr(1)) Then  checkNum1 = TrueZExit F*End If Else '如果有小p数点;婱id(v? 1€, InStr".") - 1) '单元裰惺值€恼-竏ou倵 -?+€+論 k '紸€儊;<?"詠 諪aUU*|`l 襩膓G|'-2校槭捣段ΗsF E# 侰w@u咺?嘑 艪€Split ? "<,"  ZIf 楼@""豀釉Te補Not I聅閑ric;C{醕j不为`廇?逜r@ "団釹0 嘈∮?n Y $F讎OBfI >t?@`f?鼩^/ ^Y-鉤字长度(8ber,@可以为a曇啿cAⅲ?.? :韈鬰b;<纾A#焑gs抏 焑g毖燩M<0)@ iQ潜靥钕'9〓#npSaAq'新 觯杭?氉不可加符D号creg`"^(([1-9]D[0€*)|0]\.\d{1,2}|h))|€0{1})$"# 粪" Ca簟?€?脧絵 ^]烡@?烡`DD陣 max鳬nt t"4部分最大?S@Dou豣le翍2纼搱後位数悎€鴊thN偖晠霷?0E说鹈髅?扙qp豏+ `P 竣竣/?x_6O]6Q%?o hh 無V函??蒋?'彚0Uq Ok Is晓 s刾蠹?@格式不正€确返回fC出'Q5tR蠒 Cヂ脭枺5Dim 蠾#€0="^0僜\d?H[[u€谒豀欁?CJ埁?opts塀勎类型__???c瀔rij = 8 6痩鐏??_Money !金额衺99?，眎_Xu正确返回true Function checkMoney(value) Dim reg0 = "^(([1-9](\d{0,3恾)|0$"J碔fbC?j,  Theno%\sVTE= CDec=(1)X) A啕<s (2肴O?€?蛟\慛? ?.?~bY€'说明是=鸸潭≦= {ap_?:/f^?磈q嚙_疰S-习- 校验考生号、学募8号 ,4 '格式不正确返€回false*truFunction checkS(val ue) 僁i`m reg  = "^[a-z|A-Z|0-9]{1,40}$?.If-CGU(2, O Th糴n%,?€'T侫 EPF\ End If 匷 ,l棹叁羹佝< PX8(旫匎dT@0 0    0 x   0    0 P  0   0 @  D6?:H N88\X( (/X58 :\ 黤\lH:\]?(\%8(]?58 c\l龝?IWp\8濑(H%(酤 -酤濑鸙轧宁逮p?%匎€ -€pI`'P?6(濑匎pRl8  858> c\lJ 黤\l龝7\8濑(H%(酤 -酤濑?6(濑l8  858 c\l 黤\l龝龝,0l< 酤€X8(濑轧逮匎p`P0       R  0   0   0   0 €  ` ?///(`?/(`?/(`?/,!`?1(I`?/(q`?/(`?/(`?/, `?!//( `?/(9 `?/(a `?/(`?/(`?/,`?aI//,`?aI//,)`?aI//,Q`?a//,y`?a//,`?a//,`?a//, `?a//(1`?/(Y`?/(`?/(`?/(`?/0` ?1///,!`?a//(I`?x?????rU€€€~| YAy@1 @1GGiF H罠A)yyH橧両iJ L0   H :L\l\<  <5<4 cLl@ 黤Ll龝 @H,l\<xl\ \:L]?5\/ cLl龝 :L,l,\  \5\c cLlo 黤Ll龝 Px,l,\<0   l CtlCptM`@P P`1t5P(lpF`]8?Plt?(?5(\?pzltJp/(PtM`@  ?Plt麀LK.(kL纡`NPP UpJ6P kJ pJ?kND濑(PkLtM`@ kJD酤麛轧UpN6P轧 Ld kN 羛JLtM`@P  P(kJ╃:( N轧 轧?6P轧?pz 0pt8 P轧宁0   0   0   0 €  0   0   0   0 €  0   0 p  0   0 €  0   t6?:H N88\X( (/X58 黤\lH:\]?(\%8(]?58} c\l龝?I p\8酤(H%( -酤鸙濑轧宁€?逮%旫慆 -慆€Ip'`?6(酤旫€ c\l龝j7\8酤(H%( -酤?6(酤h c\l龝龝8t,l< 慆X8(酤濑宁旫€p`0   T6?:H N88\X( (/X58 黤\lH:\]?(\%8(]?58} c\l龝 :\ l8  8(58龝l 龝8l 8(\]鸐58龝(\%8棹(\%8佝H:\8叁 (\羹 (\叁(\]?8l 8羹4羹8旫(\%( -旫鸐6(旫 c\l龝IH:\8(麥(旫旫l匎 匎羹68旫D'旫H:\8(麛(?l匎 匎68(旫j羹8旫(\%( -旫鸌匎d@?%T -P@I0' ?6(旫T兀 黤\l龝龝\D,l棹叁羹佝< PX8(旫匎dT@0 0   T6?:H N88\X( (/X58 黤\lH:\]?(\%8(]?58} c\l龝 :\ l8  8(58龝l 龝8l 8(\]鸐58龝(\%8棹(\%8佝H:\8叁 (\羹 (\叁(\]?8l 8羹4羹8旫(\%( -旫鸐6(旫 c\l龝IH:\8(麥(旫旫l匎 匎羹68旫D'旫H:\8(麛(?l匎 匎68(旫j羹8旫(\%( -旫鸌匎d@?%T -P@I0' ?6(旫T兀 c\l龝龝\D/nrU€€€ $`?$`?n 9L+梺nxME;N z廭UR__SRP_2__SRP_3#ShowForm€ (,L,` 4JI <( € <? ( D6H8 D0&p HB< HE € "G0H @M4DHNK€N&N8[0N h€ ,xI€ D @, € ,0 48H40&8 <H8Eh€ "GH M4DNKN&N8[N € ,I(€ 4 008)"@<(h€ <<0H6HH0&PB<(PEp€ "GH M4DNKN&N8[N € ,I0€ H 8<@("H,8Hp,0&0 <0E€ "G@H PM4DXNKN&N8[@N x€ ,I€ , ($$M € < "H(L7`(&( ( )$ ( >0,p,€€ (,&40M, ,,( 0 8H(Px *+$,  `7p x4+€=1 4 € $8+`=xP1,],€ (4+0=h1€  ; ; ;€ x" €€€2$@6H €* :€  € (@,X€ a--------------------------------------------点击开始校验-----------------------------------------]@]X+某一类型的标识（包括行号和类型格式如3:1;2）]p 标识数组(默认标识还是自定义标识)](某一类型的标识数组（包括行号和类型格式）] 某一类型标识的具体值]自定义标识类型所在行]%把记录为空的行号放进该数组] <!2'"获取工作表数目 0工作表数目不正确，请下载最新模板后，再进行此校验A@  1qaz<$<B@|k1qaz<$<B@:1qaz<$<B@:1qaz<$<B@: V$T!NB@-$每次开始检查时，把错误信息sheet清空,'X错误信息记录开始行数'.该次校验中，记录是否有错误出现（幼儿信息表中） (`'#默认认定困难级别名称未通过校验'默认认定日期未通过校验 V$T!NB@-$每次开始检查时，把错误信息sheet清空, A65530$<%0%!' ({9梺UxME6 ?LL L ?L ( ` 黭P勌z@勎h U@勑X x@勔H [V@勗8  e缷@勚@(  勜@勞  ` `匎 ` 强招` ` 强招 兪% X X8`P< VTXus@?  Mous@?酤 veCo@?濑  Scro@?0轧  onXW@?H宁  @?`逮  @?x  @?旫  @?匎  侤?t?  entW@?p?  zeWWB*jF@?`?  @?P?  @h@?  &"$P @?0?  ullCx8#执行 諤?,?`元格`#符合规@? ?  ( @??`0 8( @??  erro@?? @ 酏  @?H潺  僖桓` =保锹@?札  H= dun@凝  @待  @?  InVaFasErro@?8旪  欠PF @匌  @pt? m = @?`d?  掌x8N @?T?  `N 1 To @D?  @?4?  ValuTeets(1@?$?  '第襤T闹 pR8  @? ? alse@` ? 饔胏@? 裘挥@8瘘  xb `d If @?帱  '如h为空 @?悬  h vplit(t@?傈  如1?}@?H包  8}`@?p狘  H@?慄  pp @€? @p? @? `?  ( @?p P?  8  H  H@P@? @? 0?  p @? ?   ( 賴靃$*\Rffff*1E613fa2cf*\R1*#337*\R1*#10d*\R1*#101*\R0*#14$*\Rffff*1G613fa2f4*\R1*#fc*\R1*#42$*\Rffff*1H613fa2f4$*\Rffff*1I613fa2f4*\R1*#109*\R1*#220*\R0*#2*\R1*#11*\R0*#f*\R0*#1€ h"h€p€:x€.€6€" €"H€.p€ )  :+ ;8@;H;h;>;" : "P,`$>;,],(€ @$UX€ ~€P1 Pp€ >L  € "C 8 "X €€  €W ;0 8@.=H  x,+; **R( Xp%0 %D % %  %0  % @ %,` %&   #6M $J $"X (,3€ (P3 (`  A@B 获取列数方法  IV5 *%0%!*'jxcna = Worksheets(1).Range("1:1").Find(What:="*", After:=[a1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).ColumnFAILUREA@F&+获取是否校验成功标志单元格，并把值初始化为0'h空记录数初始化为0  &" 保存时执行@d 开始校验按钮事件时执行 A9:IV65536$<%0!h1新增：设置字体型号宋体9  9q A9:IV65536$<%0  9(新增：设置左对齐@9#新增：设置文本格式%qx.您确定开始检查吗？ 检查过程中，请勿关闭excel， $"否则可能导致数据丢失或检查失败 $温馨提示$  &d1qaz<$<B@ |kk.$<!b(j)把页签设置为无色   "没有查找到学生信息，无法进行校验！A@  '1qaz<$<B@|k'该次校验中，记录是否有错误出现$<!中错误信息如下：A@P`       '<"执行 至少一个非空校验 的单元格数目';6执行 至少一个非空校验 的单元格中内容为不符合规则的数目'''5"至少一个非空校验时，记录错误单元格'9是否为有效记录 'dC记录下校验改行前，是否已有错误';记录性别或出生日期是否有错  j  $<%N!`'O第一行中标识的值'2=判断for循环中是否调用callFunctionXQStart 若没有则执行默认方法` <如果标识符不为空 -$'G格式如1；4-3:2；5  :$'H6格式如3:2；5将获取到的标识符进行拆分，拆分成行号和规则 DJ如果需要两种及其以上的类别需要校验（如默认校验规则和第三行自定义校验规则）   Y&+1是因为数组中第一个元素为默认校验规则  $:$'V*将获取到的标识符进行拆分，拆分成行号和规则$'S自定义标识类型所在行   $;$'c自定义标识类型的具体值   g对标识符进行遍历 $   A@}根据标识符值，调用对应的方法  $<%N'` H新增：调用去除特殊字符的方法 `$R'   $<%N'{获取该列表头的名称 第 行  列的数据项： F存在特殊字符（如^ , ; ' <> " ? 空格 回车）或输入法为全角类型，请检查！''^整体校验时，如果有错误信息  $<%N!r(t 添加黄色背景 A@PN%isValidateCount = isValidateCount + 1kPHk@   $;$'P将获取到的标识符进行拆分   W对标识符进行遍历 $   A@  $<%N'`H新增：调用去除特殊字符的方法  `$R'   $<%N'{获取该列表头的名称第 行  列的数据项： F存在特殊字符（如^ , ; ' <> " ? 空格 回车）或输入法为全角类型，请检查！'P'^整体校验时，如果有错误信息  $<%N!r(t 添加黄色背景 A@P N%isValidateCount = isValidateCount + 1 kk eJ 格式如3:2；5 $'Q自定义标识类型所在行  P如果标识符中的行数等于当前行数$;$'e自定义标识类型的具体值摹   k对标识符进行遍历 $   A@根据标识符值，调用对应的方法O>  $<%N'`H新增：调用去除特殊字符的方法F `$R'   $<%N'{获取该列表头的名称第 行  列的数据项： F存在特殊字符（如^ , ; ' <> " ? 空格 回车）或输入法为全角类型，请检查！' '^整体校验时，如果有错误信息  $<%N!r(t 添加黄色背景 A@PN%isValidateCount = isValidateCount + 1k  k d-只有默认校验规则格式如1；4睿$;$'H将获取到的标识符进行拆分   O对标识符进行遍历 $   A@  $<%N'`2拎H新增：调用去除特殊字符的方法 `$R'   $<%N'{获取该列表头的名称\ザ第 行  列的数据项： F存在特殊字符（如^ , ; ' <> " ? 空格 回车）或输入法为全角类型，请检查！'Xb'^整体校验时，如果有错误信息   $<%N!r(t 添加黄色背景 A@P锗N%isValidateCount = isValidateCount + 1k@ 8 k0 k(  $<%N( 笑 6执行 至少一个非空校验 的单元格中内容为不符合规则的数目   第  行的数据项： 中至少有一个需填写正确！请检查'JХ'8整体校验时，如果有错误信息 A@P   'd   'T每一行合计中的值k  <,一行中如果五个关键字段全部出错，则将该行删除:  h+ h 'h,"将错误信息表中的该行错误信息删除掉  X  X  X  V$T%>B@@r 把改行删除 ~ X  'X d'k 屁k  h 6 删除无效行 $' | A@8B 把改行删除d@   A@8H 把改行删除k ?酐 h 此次校验中删除了 h:行无效数据（姓名、身份证件号列校验都失败即改行为无效数据）A@ k *有错误信息，请查看“错误信息”表，进行修正A@ $<!b(j V$TB@Hd'A@蝴 '%执行校验重复数据方法,如果没有重复数据遍历看是否有需要删除的无效数据 校验通过!A@ .$<!b(jSUCCESSA@F:+获取是否校验成功标志单元格，并把值初始化为0 A65530$<%0%!' A@B臬d*有重复数据，请查看“错误信息”表，进行修正A@ 4$<!b(j V$TB@Hkhk`1qaz<$<B@1qaz<$<B@灎1qaz<$<B@oq-------------------------------------------------查重复方法某一列------------------------------------------------ ]`xd璢* A65535 L%0%!'2总行数N禹Scripting.Dictionary$. O8O  L%0!`'>获取学生姓名列所有数据  %"对学生监护人身份证号列数据进行遍历 3  % -如果身份证号不存在{  B@ &#add方法，第一个为key，第二个为valuezkk !'Sheet2$<G:G70B@C:=xlPrevio|us€@8, "FAILU8RE"儕aL!<成功标志单元格，并把值初始嗷? 茷览 0繤空U `} isSaveB utton€vbOK鈸 嘟４嫘时执E狤耞耤`匕磁ナ录?With ◇>9:IVa?6?纕 新增：设置字体靶秃牛?A"宋体.萐izA?1c釚场' c3`佽.Horiz@alAlignm3?xl? 蠖云氅berFormatLoHcal @"Z硒谋緌vs x@cSa("您确 定QQM吗？B 过程H胛鸸乇誩xcel，" €& Chr(1纍& "否则赡艿贾率荻Щ买失败?Can0'温軃疤崾?)€  1 q遟遟貿 踘3 1Eh#KTabPwlorI郚x -41?2Q}页签?牢奚 PCIstartTi鄑le +郷黿t`3 "没有查找到学生羃，无锋ūxa9！痷Q??8瘂瘂譧9QhlllQ1write窵og她B:?諦p佈如下：?鐓丟> 檻3? i2 |To駀 ?e`aOneN帷= `R 至少一个非空癖 的覸'漁唰襖中谌菸环塞合q镜?totalMoxney?e鳌峆. "???j憲駀!懀is@ip懄eH为老?蠠5/InIE '下?牽前，Q已顲0??9dsv洹性别或出柋}?鷍 1?€-巛=?2?皳j).P嗟谝恍x兄衧?誣is = $判蟜or循环勚醒调用鄋 lFunc1甔Q"SV 若慡则?A愀?燴w< > p&QZ '如劰 符不臂?d臊 S案瑃(€o-o'语1；4-3:2；5暣 #rowType = Split(t0Value, ":") '格式如3:2；5将袢〉降谋晔斗€胁鸱郑 成行号和@规则 $ If UBound(bs? <> 0 Then '如果需要两种及其以上的类别校椋ㄈ缒 x和第凶远ㄒr鍏 ）'HqFPor m€濴媋+ 1 To峫'+1是因为橹械谝桓鲈匚獕a獲磛alE`ntity嗗T(|m)舝o慠蘯w"%(0罀e翈类型所曾谛?;{@€燓i?E,仢'@>k誈A1羈;琳薆祤木咛逯?凴)≦'对gx遍? callFunctionXQStart `(n`1, Pi, js爩i燿ateC€t鄬?值，调用对应赖姆椒 #u仢Worksheets(1).Cells()__#'新增：!去厥庾址? (removeSpecial@>Chara郼ter(_$纅+g ,`檒癳Msg?sK蠺itl@誮€婣该列表头赖拿9A)error"€第" & i`("行AjA列的数据项 ：F& "嬖趨@≈^ , ; '凛"" ? 空格 爻担┗蚴淙敕ㄎ莂ィ雬检查！"每hasE`凾r?'整虃s时，x有磤砦笮畔?oT8.InP+ior.Colv= 65535 '添加粈粕尘斑writ鄀Log u''iLO= p僟E鋘d饡 /Next?5 _ ms= False2╫o郪?T橚0_楽疮縹呖~縹 縸縸緘Rk€B遺遺遺;s= 遺遺姓o?遺蕰遺取遺遺遺鬟z囘z邕z遺遺遺 遺遺襷 息 JWorksheets(1).Cells(i, j).Interior.Color = 65535 '添加黄色背景M峸riteLog er@rorMsgM`'isValida€teCountk+ 1曲End If 3)Next&奅ls@eIf UB€Dd(rowType) <> 0 Then '格饺?:2；5?#t€Row^(0) '远ㄒ灞晔独嘈退岗行{@Ci€(C+A如果?械男惺扔诘鼻幇;蒵val`Splitc? ";"N%的距咛逯悼) yjF€}nL€) To匔'对 进行遍+callFunctionXQStart `(n), 1, A敔寉'根?4担饔枚杂Φ姆x椒+u>e %v╛_#' 略觯?去除特殊字符? (removeSpeciBPCharac鮜?)#€m+羗 (tit琹e试5sLTaa '获取昧斜硗返嗄名称)%"第" &D i`"行AjA羳屖菹睿簛F& "存在E （鏭 , ; '!["" ? 空格 回车┗蚴淙敕€ㄎ轻U，请检查?__ 0hasEPTr?'整体校@验时，馭觻写砦笮艧?O_8煂煂煂?煂彌_煂 煂煂煂邖煄€ '只有默菳蟩)规则脥1??pPp.9szbs1摪宔z将!1D到的拆?/蟲蟲蟲蟰蟰? ?bc廁凓// 飏飏Kk= 飏飏 嚎飏怙r飏O飏飏的飏s飏飏飏飏_ ?飏飏閞G GWorksheets(1).Cells(i, j).Interior.Color = 65535 '添加黄色背景 HJwriteLog err orMsgM`'isValidat纄Countk+ 1曲End If +)Nex>t醔 讍LockedOFalLse_*? j '执行 至僖桓龇强招Ｑ 的单元格中内容为不符合规则@的数目If atLeaO@neNull脋<`> 0 Ah=脟 ThenEa叞@I"第" &D i"行?綻菹睿E搧籄中?有?需填写正确！请检埐?ghas = True '整体?时绻写€砦笮畔 E遱%n+ 5?E進ItotalMoneySu&m1+  '每一行合燃浦@4值i嘽€O> 1 罥$ '中!2五个关键字段全部出错，则将该行删除_isAWRowArr(Num? !i r E 徚? `'将eO<表?%掉+i F嘤pcu#a  - -.To^  fSC錷sg"Name).s(x).Delet€p把割腳9/猝p? ?OhE|Inu3 ~ ??; q9 0 i/@!1 '?无效行  rowDa蘴a,/?q)這?T_cd?A,?,)'?oROs- q ~ qU睷tK!zw; 悽Box "P此次An肘R羏薘w笿& x荩ㄐ彰⑸矸葜€ぜ帕醒都失败即楸:为╋wvn?p ? y，请查看“EQ”睜`进朽行拚+Tab踊Indezx016烳怣S}?c槰%0S繮0/?checkdXQNew ?€Not (0n 挕馗碅方法,as灭挥兄D0,遍历看是否有需要}rf呐桶ü? 儾诱-41421set褡蠺ue XQ 2,!8, "SUCCESS" '获取! 成功标志１，并阎党跏蓟0?f rnap Range("AA?").-(xlUp襪I R祼 pK 袺n?F€W2_2_2z_2_2_2NAProtect Password:魁"1qaz '洸eets(2).Protect Password:="1qaz" Worksh?繣nd Sub '--查重复椒骋涣?? x checkTheSame()罝im myDic A爏 Obj?KeyVari8ant , €varDatarna = Ac tiveS亯.Range("A6€5535").€(xlUp).Row '总行数1 Set@ idNumH=€ Create僇("Scripting.€tio鄋ary"b伱I@O8", " O" & R).value '袢⊙彰兴 €F据僄For Each car1? In?'粤监护人身份证号罛进行遍劺鶦 IfF@<> "" 繿nNoG?.Ex,is)B '如果不?嬖贕@AA.AddE, Nul@l 'add亸谝桓鑫惇key二gCA狪fIN$ex聝 Cmy樟夶?s燱ith H?B凢2Gm嘒:G@咰learCont竐nt?1@€Resize(B瑎.Count)A汙pplica羷.FFunn.Transpos?D屃4?*瀮翑= €ah@ A聈 (SPSSS0{78451C02-6A0F-4E7C-A76F-D1B0095F81E4}{CD2D13CF-0AE6-4D7E-9161-8AEF154416D4} @ €?€%侢 %@€@賴靃 € " 0€ € 8"HP Xh€ x取消------'l B@------oH确定------@rU€€€€~| W)y Q aA i  9a)  I€!Aa  )YQi 1`@IiyQ )QaQAi)酤$0l酤齣濑(濑]鸃+'t?旫'逮:濑N轧轧 6轧逮旫t;:宁%p?濑%$dp)p;:宁%p?濑%$dp )p;:宁%p?濑%$dp )p;:宁%p?濑%$dp )p;p?濑 %$dp逮 裏 )p?逮 {z" $zz;p?濑 %$dp逮 裏 )p?逮]匎撅%:宁%p?濑%$dp氃>逮A旫Uz)p?轧逮旫,M匎@(旫(逮(轧t 6轧逮旫tU溜%'宁%:濑%$轧pp逮?鋤)p?轧逮1:匎Ntt?旫(逮(轧P 6 轧逮旫t (濑@u 珲:L:宁!%p?濑%$dp氃A逮"00,?p?轧:濑#%l,?C$(濑 %l,?C% q,C:宁!%p?濑%$dp氃?p濑蒿%l?C&:濑'%l?C( qW 轧 )'?P?*Ntt:濑+轧逮:宁,旫^? 轧逮旫tx;:宁%p?濑%$dp)p=(宁绎%p?濑%$dp轧-C.)p?轧 ut+'t?旫'逮:濑/N轧轧 6轧逮旫tz ;:宁%p?濑%$dp)pzRp?濑%$dp轧$:宁0逮`旫 1/?p?轧逮旫 u`( 酏uD宁札` (濑2 (濑3 (濑4 56 :濑57 (濑凝uz8z9(待uD宁旪M(宁%待龘 @p?濑%$dp氃 A逮:h)p?轧z;h:濑5]鸃3?:濑<N轧轧h逮 =逮X/?轧3?:濑>N轧轧h逮 =逮匌/?轧X?I ,X?ILitX?I齣宁T It @X轧鼖?:宁>N逮逮轧旫 =旫H/?轧逮(濑%H轧(酏(? H(濑%H轧鼖?:?N逮逮轧旫 =旫8/?轧逮&8?IL齣D8?I齣宁$ <D @8轧 q酤凝待酏(逮l酤旫 @- ?轧逮旫E酏龘 @待龘 @p?濑%$dp氃 ?p轧 A轧 ? D(宁%待龘 @p?濑%$dp氃 瘘)pK:濑B酏轧:宁C逮待旫:Dt瘘P?匎E66 轧逮旫t?z[匎%酏龘 @待龘 @p?濑%$dp氃 =逮FCG)p?轧逮6轧 15轧 D~$? t~T齚 u; H(濑%X轧鼖?:?N逮逮轧旫 =旫8/?轧逮&8?IL齣D8?I齣宁悬 <D @8轧 q酤凝待酏(逮l酤旫 @- ?轧逮旫E酏龘 @待龘 @p?濑%$dp氃 ?p轧 A轧 ? D(宁%待龘 @p?濑%$dp氃 瘘)pK:濑B酏轧:宁C逮待旫:Dt瘘P?匎E66 轧逮旫t?z[匎%酏龘 @待龘 @p?濑%$dp氃 =逮FCG)p?轧逮6轧 15轧 D~悬l 匌?Iu(濑%匌轧(酏(?pH(濑%匌轧鼖?:?N逮逮轧旫 =旫8/?轧逮&8?IL齣D8?I齣宁包p<D @8轧 q酤凝待酏(逮l酤旫 @- ?轧逮旫E酏龘 @待龘 @p?濑%$dp氃 ?p轧 A轧 ?cD(宁%待龘 @p?濑%$dp氃 瘘)pK:濑B酏轧:宁C逮待旫:Dt瘘P?匎E66 轧逮旫t?z[匎%酏龘 @待龘 @p?濑%$dp氃 =逮FCG)p?轧逮6轧 15轧 D~包 H(濑%X轧鼖?:?N逮逮轧旫 =旫8/?轧逮&8?IL齣D8?I齣宁慄<D @8轧 q酤凝待酏(逮l酤旫 @- ?轧逮旫E酏龘 @待龘 @p?濑%$dp氃 ?p轧 A轧 ?D(宁%待龘 @p?濑%$dp氃 瘘)pK:濑B酏轧:宁C逮待旫:Dt瘘P?匎E66 轧逮旫t?z[匎%酏龘 @待龘 @p?濑%$dp氃 =逮FCG)p?轧逮6轧 15轧 D~慄M黤匎%酏龘 @待龘 @p?濑%$dp氃 CH)p?轧 待旪U"3(濑]?轧32?逮?旫s7:濑B酏轧:宁I逮7旫:Jt66轧逮旫t?z6轧 15轧凝(濑麛轧凝€4麛轧€凝(濑]鹴S酏U@"@?濑麛轧@&v齣濑凝麥轧p黺iP?Mv齣濑凝麥轧%p?宁 %$dp殧﨣裏L)p?旫 p~Pv齣濑凝麥轧?{u8z 酏札(@@?濑麥轧 @"漰z@?濑]?zM宁@(轧逮 M 6轧逮,kzD濑@溤鰯旫(逮t M 6逮旫t @~ 鼅@?濑]鹴?7'P?t?旫:濑N@镌?宁O逮 6 轧逮旫tu+'t?旫'逮:濑PN轧轧 6轧逮旫t=(宁%p?濑%$dp轧-C.)p?轧1p?濑 %$dp楺)pzR(轧逮 S6轧逮 uR2+'t?旫'逮:濑TN轧轧 6轧逮旫t=(宁绎%p?濑%$dp轧-C.)p?轧1:匎UNtt?旫(逮(轧P 6 轧逮旫t]匎撅%:宁%p?濑%$dp氃>逮A旫Uz)p?轧逮旫,M匎@(旫(逮(轧t 6轧逮旫t+'t?旫'逮:濑VN轧轧 6轧逮旫t=(宁%p?濑%$dp轧-C.)p?轧1p?濑 %$dp楺)p;:宁%p?濑%$dp)p;:宁%p?濑%$dp)p;:宁%p?濑%$dp)pis\(0潺札旪dT4$帱悬傈包狘慄`P0 酏待tXDp匌@瘘€h凝H8(@ ：4 p轧逮旫tP0    f 'l B@-----oRAttribute VB_Name = "ShowForm"  鳥as|0{78451C02-6A0F-4E7C-A76F-D1B0095F81E4}{CD2D13CF-0AE6-4D7E-9161-8AEF154416D4}dGlobaBl奡pacoFalse 奀re atablPr@edeclaI"d覶ruBEx0pose0TemplateDerivCustomiz婦'取`消 P€€ Sub CancelButton_Click() notContinueBool員 Me.HidZEnd! '确亩 ,onf諒,9?Fl€;/<jx梺h#Sheet5__SRP_c__SRP_d BPrintForm<黁 J舏K廂n{]& F砯萜P寊@誤tx砯萜P寊@誤t睃Q J舏K廂n{]&?ME(SLSS?6"N0{00020820-0000-0000-C000-000000000046}€?(%H凗` %偁 ?? %`h8@\\0賴靃$*\Rffff*1J613fa2f44€ € xAttribute VB_Name = "She@et5" 鐱ast0{000?0820- C$0046}|Global!腟pac扚alse dCreatablPre declaId玊ruBExposeTemplateDeriv$払ustom izD2 rU€€€ I4`rU€€€ @n  ? ? !"#$%&'??*?,-./??2?4567?9:;?=>?@ABCDEFGHIJK?MNO?QRST?V?HLO梺蕵xME(SPSSS0{297937F5-2A57-43AF-B899-2E4E4454152B}{154B6078-68B1-4E07-9EA0-B87F4CFD3B9F}p€?0(%侢X0 %0`賴靃x獍Attribute VB_Name = "PrintForm"" €Bas€0{297937F5-2A57-43AF-B899-2E4E4454152B}{154B6078-68B1-4E07 -9EA0T7F4CFD3B9F}dGlobal!婼pacoFalse 奀reatablPre declaId訲ruBExpose0TemplateDerivCustomiz婦R磤0* pHd VBAProje坈t4@j = r 賴靃 J< r€stdole>stdo€leh%^*\G{00€020430-C 0046}#2.0#0#C:\Windows\SysW OW64\e2.tlb#OLE Automation`僂OffDic凟Of€ic侲殌丒2DF8D04C-5BFA-10€1B-BDE5€E訟A€C4€2圗€gram Files (x86)€\Common \Micr_VBA_PROJECT''dir V__SRP_0P*__SRP_1"具函数絗?checkedRequiredStart齊`rowIndex6d` columnIndex錚` cellValue@砢 ActiveSheet%N`Cells峘?writeLog{u`content鎙`Sheets ` ?msgSheetName?` ?curMsgRow?`?getCellValueCountXQc骮 sheetIndex `colIndex嘸value銴` ?writeLogRedm`nLene,` Charactersrg`FontU` ColorIndex鱼`?addCommentXQStart礢` errorInfo` AddComment屟`Interior;鋊Color2F`CommentHs`?clearCommentsXQStart7胉ClearCommentsf萡sheet2RecordNum`ffTotalNumColumn`xlNone棼`?beginCheck_comment;D` checkMethodHd`?errorMsg'|`?removeSpaceFlag` ?cellContent娕`?callFunctionXQStart typeVal#`isValidateCount?`titleMsgh甡 ?startTitle頻` ?headIndex` ?functionArgs8M`?checkMethodXQ緮`?checkRequired碽`?hasErrorf譧?isFord╜?removeSpaceXQ` ?checkStuNamec骮?checkLeng痐functionArgsArr紑`Split?` ?checkSpLen呙`?checkNumh糮?checkValK鋊 ?checkNum1?`resZjlx0臽 ?IsIDNumber-*` ?checkSFZJLX?`?checkDMB粎` ?setDMBCode竏`?checkS) ?checkBankUw`?checkXn` ?checkMonth嚐`?checkBirthday≮`?checkBirthdayNecessary嚶`?checkPhoneNum埬` ?checkOption,躟?sysDifficultyGradeNameFlag`Trim@颼?indentifyDateFlag `?hasErrorIdNum舰`?atLeaOneNNullCount欷` ?checkMoneyi漙 ?totalMoney%篳baojiaoMoneyColumns`baojiaoMoneySumk餪huoshiMoneyColumn_礰huoshiMoneySumr`zhusuMoneyColumn_`zhusuMoneySum>-`othersMoneyColumn撺`othersMoneySumH訿?atLeaOneNullCount竊 ?atLeaError妦` ?regCheckFuncE鵣reg蝋regEX* CreateObject鴬`Patterni衊 IgnoreCase0鵣Test4玚?checkTheSameXQNew` sheetIndex2n`?rnaO蟕xlUp犵`Row壪`ClearContents{躟i``cardID1[?` ?cardIDColumn-h`ja`cardID2\?` ?hasTheSame僠?GetRowOrColIndex穎`keyWord‵`kbn1╜cZ`Findn餪What酑`LookIn襊`xlValueso醏LookAt癘`xlWhole侍`Column爄`value1`flag淊`rowData?`Count0v`rowNummR`?AreasheetIndex扝` ?deleteRow` Unprotect?`Password鹞`Rows`Delete竫`?setCellValueCountXQ腯`?deleteRowNoPro`?setCellValueXQ给` codeValue` ?columnPlus紓`length1S`length2T`Replacef`?removeSpecialCharacter砢 声明廼`?!ValueColumType` columnNamew籤?sheetIndexValue1`?AreaSheetName繾?readmeSheetName啂` ?totalCount?`?rgold礰?hasErrorInValidateU鮜 ?dataRowStart硴` isNullRowNum?`?cna`?notContinueBoolt`?sysDifficultyGradeNameCol蕆`?indentifyDateCol?`?indentifyReasonCol*9` 校验函数&轥IDNumber4 `Wm`sj`Tk` babyIDColumn` IsNumeric$*`Right` ?checkSchCode逵` ?checkFamType睖`蘟 (*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\Program Files (x86)\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.6#0#C:\Program Files (x86)\Microsoft Office\Office12\EXCEL.EXE#Microsoft Excel 12.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation4*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.4#0#C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE12\MSO.DLL#Microsoft Office 15.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\Windows\SysWOW64\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{4BB591EE-7ECC-4BE1-B7D3-711BFB722D43}#2.0#0#C:\Users\ADMINI~1\AppData\Local\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library?E忇?`孧   賴靃 梺 ThisWorkbook1F613fa2f4ThisWorkbookzLxJ  Sheet11I613fa2f4+ Sheet1逪 Sheet61K613fa2f47 Sheet60SbpS剺葔1=613fa2cf8SbpS剺葔Hq錧wQ齉pe1H613fa2f4B錧wQ齉pe艄x`Y餢f1G613fa2f4T餢f?xz!h寶齉pe1L613fa2f6t!h寶齉pe~`鷖;N z廭1E613fa2cf;N z廭Ux`?ShowForm1B613fa2cfShowFormn1 Sheet51J613fa2f4! Sheet5hPrintForm1D613fa2cf#PrintForm蕵0H`x炃-[擺M穼D?,b酃 丮0'縋\0 s圡旓厎dXaP朇盓拑`檿QAA<犵 腗樳?遱娃^! 薅Aσde)?^9覕a鬙峮^枌禣?`m(碏慆跲綄s? 啣KC嵚(杆圓↙駼緽?羪櫅?r憉`M増WT€?AW!?compare Excel€+` VBA麾`Win16羱`Win32`Mac巢`VBA6?` VBAProject究`stdole揱`Officeu`MSFormsC` ThisWorkbook|鉦 €_Evaluate賎Workbook_BeforeSave l`SaveAsUI篪`Cancel駱` ?isSaveButton谩`MsgBox桼`ChrK~` vbOKCancelx?`vbOK?`?测试所有校验规则并打印错误信息瓛` Sheet1`'Worksheet_BeforeDoubleClickaaaaaaaaaaaa駌`?Target現`Range `vbYesNo漙vbYesa?` Sheet6` 打印预览繶` ?Browse_Prints歚 Worksheets鉴`Visible队` PrintPreview讳` 工 ?checkRXDate?` ?checkYear?`?checkXJHF餪years檿`value2` ?compareDecN豟?checkInt癄` maxIntLen1` maxDoubleLen煿` intLength`intValue卄douValue郹 ?checkIsInt鵕`?checkIsNumberG` ?checkMoneyTJC巂?checkPersonNum `?checkIdNumLinkUz`IdNum掐`isGenderRight ` isBirthRight浛` genderValue骮 genderValue1?` birthValue` birthValue1~`year6n`year1w昤month`month1裳`day`day1;`arr u` genderColumn鄜`birthdayColumn0` 主程序矮` rowDataNumn禶 typeValue嫭`bsTypet萡 valEntity軓`val葩`typeRow頯 isNullRowArr/骮 sheetCountB譧Protect譮` Application?`ScreenUpdating! `xlToLeftWY`Size铥`HorizontalAlignmentS@`xlLeft?`NumberFormatLocal)訿rowType鱜md`ne`removeSpecial坖`Locked `totalMoneySumZ哷pg`qh` ?checkTheSameg鑐myDic穙`myKey`varData`idNumDick` idNumDicData臂`cardNum‐`Exists僝`Add鱮`Keysq竊Resize@4`WorksheetFunction?` Transpose桌` ShowForm殗`CancelButton_Click`Hide9z`ConformButton_Clickwf`Flase祊` Sheet5` PrintForm`Workbookk` Worksheet窿` €BeforeSave壑`€_Defaultj耟€BeforeDoubleClickaaaaaaaaaaaa\鷃€_B_var_isNullRowNum;r` _B_var_Chr\;`€_B_var_i €_B_var_isValidateCount"`€_B_var_j €_B_var_rowType淂`€_B_var_m€_B_var_n €_B_var_value`€_B_var_removeSpecial&>`€_B_var_titleMsg駞`€_B_var_totalMoneySum鳼`€_B_var_p€_B_var_q _B_var_Mid韕`€_B_var_functionArgsArrOj`€_B_var_resZjlx慈` _B_var_TrimmT`€_B_var_baojiaoMoneyColumn<臽€_B_var_baojiaoMoneySum`€_B_var_huoshiMoneyColumn腼`€_B_var_huoshiMoneySum`€_B_var_zhusuMoneyColumn`€_B_var_zhusuMoneySum`€_B_var_othersMoneyColumnk郹€_B_var_othersMoneySum{`€_B_var_sheet2RecordNum栱`€_B_var_ffTotalNumColumn}#` €_B_var_Count:`€_B_var_rowNum蚡€_B_var_value1J梎€_B_var_babyIDColumnZT` _B_var_Right9賎 €_B_var_reg媊€_B_var_maxIntLen`€_B_var_maxDoubleLen`€_B_var_intLength`€_B_var_intValue峔`€_B_var_douValue尫`€_B_var_cardID1^3`€_B_var_cardID2_3`u+79 CU ! #  "@€ p0(P'牰q刞XX HH € €osoft Shared\OFFICE12\MSO.DLL#働 15 .0 Ob伳 L纈braryN€MSFo@rms>SF猺mHs3€〥452EE1-E?8F?A-8-02608C4 D0BB4橳FMl20L'B @a?/;"1l蓃傾萺00}#0聄? €?0 嚴A4BB591EE-7ECC-4B9B7D3-711BFB7 22D43?Users\ADMINI~1\AppData\Local\Temp\VBEc?.exdd旤@"€?E忇?燻孧 磥傇 梺偩ThisWork€bookG*T纈@lW耼k俠ok ? HBj1傗J莉B,QzL""+BsSheet1GSe@at1 w2窢叐逪6666R蛴≡だ繥SbpS剺厝e2jo鈗p!?e) 工具函数c錧wQ齉p>ececeoY艄k牱声明G猁餢f6"a2fo z o ?校验徵!h寶e揺o鷖o~鎘!L主程序GbQ;N z廭沚2o ?o BU?ShowaxG`6ow妤[?e2ro1餧Jn鉕( 甽5U璣55璣5癪?0Qh鲍^ Pr(intCr0in恮Eb筳2o眃蕵rU€€€€~~~y         SaveAsUI  &TR颯齹黐魜penc"N1Yb纇錱1Y% )n衏:yTabColorIndex " g錱~b0Rf[u酧o` 鄀誰蹚L?h寶 -N曪嬦Oo`俌 N  value - : ; ,{ L R剉pency VX[(Wyr妅W[&{俌^ , ; ' <> " ? zzkX橯Ncknx臺{楘NIlW[ 暒^'Y嶯1 N齹厤菑20*NW[&{ 鲖纇錱 , .kX橯Ncknx 鍕y橈S錘:Nzz0鍌kX橯 R暒^臺{楘N MO鲖纇錱 4kX橯Ncknx 鍕y橈S錘:Nzz0鍌kX橯 R暒^臺{?Y嶯I{嶯 MO NN厤菑 &kX橯Ncknx 鍕yN齹:Nzz N暒^臺{楘N ,kX橯Ncknx 鍕yN齹:Nzz N暒^臺{?Y嶯I{嶯 &MON闟齹:NIlW[ NS+Tyr妅W[&{鲖纇錱 E\l珟齆翄 HkX橯Ncknx 鍕y橈S錘:Nzz 鍌kX橯 R臺{楘NpeW[ 'Y嶯0 tepeMO暒^N厤菑 MO N\peMON厤菑 @kX橯Ncknx 鍕yN齹:Nzz N臺{楘NpeW[ 'Y嶯0 tepeMO暒^N厤菑 $kX橯Ncknx 鍕y樑_{楘NpeW[ 'Y嶯I{嶯 NN厤菑 鲖纇錱 4kX橯Ncknx 鍕y橈S錘:Nzz 鍌kX橯 R臺{楘Ntepe 'Y嶯 揔*   rU €€€~~~~~~~~~#~~~~~~~~~~~~~~~~~ 坓昰栒擝?Xi?笞  儕a   儕a 1儕a  )A坅 9i!Qy )Ya坅 q 坅  $1$Y$????!%I%i%????&)&I&a&????'!'A'i'??? ()(坅 a儕a    VBAProject ThisWorkbookSheet1Sheet6打印预览工具函数声明校验函数主程序ShowFormSheet5 PrintFormF /C:\PROGRA~2\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA ) Q0F:C:\Program Files (x86)\Microsoft Office\Office12\EXCEL.EXEExcel 曪嬦Oo` !I@0FC:\Windows\SysWOW64\stdole2.tlbstdole aPL续-鶾藉D轗EC:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE12\MSO.DLLOffice Ai`?E忇?`孧 C:\Windows\SysWOW64\FM20.DLLMSForms qqp顟礙虀酜酚q鹯-C4C:\Users\ADMINI~1\AppData\Local\Temp\VBE\MSForms.exd Qqy€测试所有校验规则并打印错误信息 checkTheSame F琒愳Ks€A乘 5F3愈O?l坚觶DFWorkbookWorkbook_BeforeSave @FF) Q F 0錧\Oh坧e顅Ncknx 鲖 N}g癳!jgT 峇蹚L坉k!h寶 1qazPasswordProtectUnprotect @ 鉔xh 魦f, 00 $4DHLPd CellsClearContentsF A65530 RangeEndRowcheckedRequiredStartwriteLoggetCellValueCountXQ writeLogRedaddCommentXQStartclearCommentsXQStartbeginCheck_commentcallFunctionXQStart regCheckFunccheckTheSameXQNewGetRowOrColIndexcheckDMB deleteRowsetCellValueCountXQdeleteRowNoProsetCellValueXQ setDMBCoderemoveSpaceXQremoveSpecialCharacter IV5F乘-?A<]M;] F甍cy醉睭?(t盁DF Worksheet 'Worksheet_BeforeDoubleClickaaaaaaaaaaaaFF FAILURE A9:IV65536Font 媅SONameSize &HorizontalAlignment "NumberFormatLocal 4╜nx歔_薡纇錱T 纇錱菑 z-N 鲖RsQ頃excel N暒^N厤菑 0kX橯Ncknx 鍕yN齹:Nzz N臺{楘Ntepe 'Y嶯I{嶯 checkSfzjh &kX橯Ncknx 郪珟齆翄鯪{|媁:Nzz鲖纇錱 NkX橯Ncknx 鍕y樑_{楘Nf[u珟齆翄鱏 v^NgTNMO俌済:NW[蚹X剉臺{?Y橯鲖纇錱 HkX橯Ncknx 鍕yN齹:Nzz N暒^臺{?Y嶯I{嶯1MO NN厤菑18MO鲖纇錱 checkZjlx kX橯Ncknx鲖纇錱 checkXJH 0, 1, 50 NkX橯Ncknx 鍕y橈S錘:Nzz 鍌N:Nzz暒^臺{?Y嶯I{嶯1MO NN厤菑50MO鲖纇錱 HkX橯Ncknx 鍕yN齹:Nzz N暒^臺{?Y嶯I{嶯1MO NN厤菑50MO鲖纇錱 checkBank checkXn 2kX橯Ncknx 鍕y楛h_俌2012-2013I{鲖纇錱 checkMonth *kX橯Ncknx 鍕y楛h_俌01012I{鲖纇錱 checkDate kX橯NcknxkX橯 "?^]+ A65535 row A1:A65535What LookIn LookAtFind Column &T "79058421637905842 10X98765432 *[0-9X]A1  Ak  x^(([1-9][0-9]*)|(([0]\.\d{1,2}|[1-9][0-9]*\.\d{1,2}))|0{1})$ .A4 AddCommentVisible 6^[\u4e00-\ue8630 ]{1,100}$ ? K $^((19)|(20))\d{2}((((0[13578])|(1[02]))((0[1-9])|([12][0-9])|(3[01])))|(((0[469])|(11))((0[1-9])|([12][0-9])|(30)))|((02)((0[1-9])|([12][0-9]))))$ L垊vpenc孴,{ L埆廄N翄鱏蛻Y鲖纇錱!!!! .╜/f&Tnx\亯軴X[鍕excel 俌軴X[ 鲖筽鸔 nx歔 &鹼邁\亯蹚L埨h錱!h寶 俌N軴X[ 鲖筽鸔 諷坢CancelrowIndex columnIndexcontent sheetIndexcolIndex errorInfo checkMethoderrorMsgtypeValisValidateCountregvalue sheetIndex2keyWordkbnvalue1flagrowNum  (TargetIDNumberfunctionArgsArrvalue2 functionArgsIdNum ShowForm)&皽蹾賸p忄H賸f(&o%'?CompObj()a }t ? Microsoft Forms 2.0 窗体Embedded Object?瞦VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} ShowForm Caption = "UserForm1" ClientHeight = 3180 ClientLeft = 45 ClientTop = 375 ClientWidth = 4710 StartUpPosition = 1 '所有者中心 End VBFrame+PrintForm.+p忄H賸郿銱賸f0&o*,? }t ? Microsoft Forms 2.0 窗体Embedded Object?瞦VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} PrintForm Caption = "UserForm1" ClientHeight = 3180 ClientLeft = 45 ClientTop = 375 ClientWidth = 4710 StartUpPosition = 1 '所有者中心 End CompObj-1aVBFrame3PROJECTwm8PROJECT<ThisWorkbookThisWorkbookSheet1Sheet1工具函数錧wQ齉pe声明餢f校验函数!h寶齉pe主程序;N z廭ShowFormShowForm打印预览SbpS剺葔PrintFormPrintFormSheet5Sheet5Sheet6Sheet6ID="{00000000-0000-0000-0000-000000000000}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Module=工具函数 Module=声明 Module=校验函数 Module=主程序 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=ShowForm Module=打印预览 Ba???seClass=PrintForm Document=Sheet5/&H00000000 Document=Sheet6/&H00000000 HelpFile="" Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="F7F55B95BBFDEB01EB01EF05EF05" DPB="2B2987E1A6FEA6FE5902A7FE76DF264E6FC45CF8678F4C4813E3F5FED8485AD08214A24949" GC="5F5DF33D134546464646B9" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=0, 0, 0, 0, C Sheet1=0, 0, 0, 0, C 工具函数=78, 78, 980, 609, 声明=0, 0, 0, 0, C 校验函数=52, 52, 954, 583, 主程序=0, 0, 0, 0, C ShowForm=0, 0, 0, 0, C, 38, 38, 1498, 583, C 打印预览=26, 26, 928, 557, PrintForm=0, 0, 0, 0, C, 76, 76, 1536, 621, C Sheet5=0, 0, 0, 0, C Sheet6=0, 0, 0, 0, C ?鄥燆鵒h珣+'迟0@HTd |刘小艳Microsoft Excel@€?灼@溣H賸SummaryInformation(1LDocumentSummaryInformation8PCompObjUo?胀諟.摋+,0HP X`hpx  高校本专科家庭经济信息录入代码表 错误信息 工作表?  F#Microsoft Office Excel 2003 工作表Biff8Excel.Sheet.8?瞦