ࡱ> OpN  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLM\bQRSTUVWXYZ[]a^_`c7dfqhijklmnoerstuvwxyz{|}~Root Entry F A8;P\Workbook1_VBA_PROJECT_CUR"/#ÏďVBA.@Ï~ď g2\plurenjia Ba= ThisWorkbook= L}8X@"1[SO1[SO1[SO1[SO1[SO1[SO1[SO1Arial1[SO1h>[SO1,>[SO1>[SO1@[SO1[SO1[SO1[SO1[SO1Arial1Q[SO1[SO1[SO1[SO1[SO1@[SO1 [SO1[SO1 [SO1[SO1[SO1[SO1 [SO1 [SO10[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      0 -    1 2 3a   4  5ff 6 7 8`   . . . . . . 9 : ;  <    @ @  @ @  ""@ @ @ @ @ @ @ @ !@ @ ""@ @   1 1 1 1@ @ 1 1 1|7 1|7 1 1 1 1 1 @ @ @ @ 0@    1 1 1 1@ @ 1@ @  %1@ @  1 1|@  1 1 &1|@ @ 7 1<@ @ '1@  1 1 1 )1|7 *1@ @ 1 1  @  1 1 1 1 ||zu6}-}00_)}-}00_)}-}00_)}-}00_)}-}00_)}-}00_)}A}00_)ef[$ -}A}00_)ef [$ -}-}00_)}A}00_)L[$ -}-}00_)}-}00_)}A}00_)L[$ -}-}00_)}-}00_)}A}00_)23[$ -}-}00_)}-}00_)}A} 00_)23[$ -}-}!00_)}-}%?_)}A}(?_)[$ -}-})?_)}(}- ?_)}A}.a?_)[$ -}-}/?_)}}}2}?_)[$ -##0.  }}3?_)[$ -???##0.??? ??? ???}-}4?_)}-}5?_)}A}6}?_)[$ -}A}?e?_)[$ -}}}@????_)???[$ -???##0. ??? ???}}A??v?_)̙[$ -##0.  }(}B ?_)}-}9?_)}A}:?_)[$ -}A};?_)[$ -}-}<?_)}A}=?_)[$ -}A}>?_) [$ -}x}C?_) [$##  }-}E?_)}-}G?_)}-}N?_)}-}O?_)}-}P?_)}-}Q?_)}-}U?_)}-}X?_)}-}Y?_)}-}Z?_)}-}[?_)}-}_?_)}-}`?_)}-}b?_)}-}c?_)}-}e?_)}-}i?_)}-}j?_)}-}n?_)}-}o?_)}-}s?_)}-}t?_)}-}u?_)}-}v?_)}-}x?_)}-}y?_)!20% - :_eW[r 1C20% - :_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 6O220% - :_eW[r 6  ef %!40% - :_eW[r 1C40% - :_eW[r 1 %!40% - :_eW[r 2O#40% - :_eW[r 2 L渷 %!40% - :_eW[r 3C'40% - :_eW[r 3 %!40% - :_eW[r 4C+40% - :_eW[r 4 %!40% - :_eW[r 5O/40% - :_eW[r 5 L %!40% - :_eW[r 6C340% - :_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 5O060% - :_eW[r 5 23 %!!60% - :_eW[r 6C460% - :_eW[r 6 %"~vRk #hh$h 1h 1%h 21h 2%?&h 3h 3'h 4h 4(]5]  %+8^ĉ %)8^ĉ 1218^ĉ 12 %*8^ĉ 2+8^ĉ 4, 8^ĉ_hQVL?e:SRNx-(c  .}Y5}Y  a% /Gl;`+Gl;` %0'^1 '^[0] 2{c{ }% 3hgUSCQ:_eW[r 6C1:_eW[r 6  F % ?-N7-N  e% @QcQ ???%????????? ??? AeQoeQ ̙ ??v% B 0 ]vc   Clʑ^ lʑ  XTableStyleMedium9PivotStyleLight1683ffff̙̙3f3fff3f3f33333f33333\`&PVV[R_VYf[ёDRNRTUS3u{Nxh"Oo`VV! =dc:- KmՋ@b g!hĉRv^SbpSOo`fffP0ED@NF|MO,S AA@A@  1 7checkDiffNameV[V~+RTycheckSqyyCode3ut1uxkuNOOcheckSqyyName3ut1uTyf[uYT 77usYelT^S/fTy{|W checkYesNo checkGender'`+RsY'`+R7u^8^VN,VNVvQNeUSNd[?QpXP[sYQQgNOVuV~pmQNNsfzjh 7_OS >{>N?3?q@pAfCEFG $I 9J 4K6LMNOQSTccBOUj_ KU g2  lw dMbP?_*+%{&ffffff?'ffffff?(?)?M.Microsoft Print to PDFP/ 4dXXA4GIS4DINU"$,?]{~SMTJ{084F01FA-E634-4D77-83EE-074817C03581}RESDLLUniresDLLPaperSizeA4OrientationPORTRAITResolutionResOption1ColorModeColor,V4DM p"O4wMH5L*@VDocumentUserPasswordDocumentOwnerPasswordDocumentCryptSecurity" d333333?333333?&<3cAU} U} i} U} U} U} U} U} v} U} v} U} v} g U} ht U} u U}  U vvPvPvt`vPvPvQvRvTv{@ f< p} e; s c: s [, [ s s X Y{ P P P P P P P P P P t P t P ta"@gttt mU h__ _V_________________u_u_u___________________________________________________________________________________________uittt Q i= P P Y Y Y Y Y  Y  Y  PX  PX nX nX nX nX nX nX nX nX nX t nX t nX t \*j Q! Q Z3 by Z' Z&  Z)  Z( o  oY oZ o[ o\ ov Qw o] o^ Q_ o` w oa w ob w iZ@lP nZPo pQqZ sQ V k> WT q W2 WW W" W# Wt  W%  W$  Wc  Wd We Wf Wg Wh Wi Wj Wk Wl Wm W Wn W Wo W S1 l? r r d4 S5 S6 S7 Su  S8  S9  Sp  S Sq Sr S Sq Sr S Sq Sr S l S l Ss lxyyyyyyyyy yyyyy z:(zzz+x(   vj NPX? p]4v6@E@ķQ><kXQf[uvYT<~~  <CC@],@ɖ9$< _Yhg<~~ i <PCC@G],5@9|ɖ9$<_ Y h g<v6admin>@dinjn7 Sheet1ggDh4hd:SW2 g2 7}_) dMbP?_*+%&ffffff?'ffffff?(?)?MFoxit Reader PDF Printer_ 4dXXA4" dXX333333?333333?&<3U} @F} D} D} !D}  E} E}  E7 @ ,,,,,,, , , , ,,, M H H MN OxGGGG O ]+K? ^- ]. E IK ^0 ]/GKKG IK@ J I IK? J IKGKKL I K? J L I K@ K L I K@ K L I K@ K LGKKLGKKL I II I I II? I I II@ I I II@ I I II@ I I II@ I I II@ I I II@ I I II @ I I II"@ I I I I$@ I II I I II? I I II@ I I II@ I I II@ I I BXP J<<< <<<<<<<<<<<<<<<<<<< !"#$%',(,),*,+,,,-,.,/,0,1,2,4,5,6, I I@ I I !I!I@ !I !I "I"I@ "I "I #I#I @ #I #I $I$I"@ $I $I %I%I$@ %I %I 'IB'I? 'JC 'LD (IE(I@ (JF (LD )IE)I@ )KG )LD *IE*I@ *KH *LD +IE+I@ +KI +LD ,IE,I@ ,KJ ,LD -IE-I@ -KK -LD .IE.I @ .KL .LD /IA/I"@ /KM /LD 0IE 0IN 0KO 0LD 1IE 1IP 1KQ 1LD 2Iz 2IR 2KS 2LD 4I~4I? 4K 4L| 5I~5I@ 5K 5L| 6I~6I@ 6K 6L|.<<<<<<<<<<<<<<<888<<PH  0(   >@?7 Sheet5ggD g2 ,<ĕ dMbP?_*+%&ffffff?'ffffff?(?)?"333333?333333?&<3U,    GGGGGGGGG G G G GGGGGGGGGGGGGGGGGGGGDl  !"#$%&'()*+ G!G"G#G$G%G&G'G(G)G*G+Gh PH00(  >@   7 Sheet6ggD ThisWorkbook __SRP_40<__SRP_5 =ySheet1?B  !"#$%&'()*+,-./123456789:;<>@ABCDEFGHIJKLMNOPQRSTUVWXZ[\]^_abdefghijklmnopqrstvwxz|}~t6D zL#<Q?8AC@xFL=NhHJ>xL=NhHJ>Q?8AC@xME(SLSS6"  <,<0<4<8<<<N0{00020819-0000-0000-C000-000000000046}` $`k@ i& `sgi( % %  %`@.0,*24@l @\ @0L @x< @H, @` @ @ @ @ @ @8 @ @  @P @| @hl @\ @L @< @, @ @ @( @@ @ @ @S_$*\Rffff*0=634bbcb0*\R0*#f*\R0*#1*\R0*#17$*\Rffff*0>634bbcb0*\R0*#2$*\Rffff*0<634bbcad4 "     )ǷȷϽҪexcel籣棬"$.ȷ"$., $.&ϵͳҪмУ飬粻棬"$.ȡ"$.? 0$,'* * 2A@4dP'(k@o80ڱAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046}|GlobalSpacFalse dCreatablPredeclaIdTruBExposeTemplateDerivBustomi6zD2P Sub _BeforeSave(@ByVal AsUI As Boolean, _ Can(cel)isButtonkMsgBox("ǷȷϽҪ@ex " & Chr(34)"ȷ ,10ϵͳмУA?", 0vbOKC63If L4 ThenBDAӡΠϢ E‰gPP= fE nd If Ai rU  ) 1 Q  A i +4 a  ` x"l "   " "\ ''' :\lL:<, :::|l\L:<,^z6$lL, l\L, u  $V TlL, l\L, 4XrU @,`#n8We9H#<o|75N;3. F3?]^A7{x3?]^A7{o|75N;3.ME PSLSS0>6"<<<N0{00020820-0000-0000-C000-000000000046}P 8@` ` :` d)< %%@%6@%@@h`S_*\R1*#253$*\Rffff*0?634bbcb14 "  "   (op@o`XAttribute VB_Name = "She@et1" Bast0{00020820- C$0046}|Global!SpacFalse dCreatablPre declaIdTruBExposeTemplateDeriv$BustomizD2 P Sub Works_Activ () p EndSeleonChange(ByVal Target As R %rU 0Qy)40`` IW0   0 @  44P__SRP_8Y__SRP_9`Sheet6c~__SRP_eurU @$``,A`d n<jx#< auCakJ FJ2CRF xJ2CRF  auCakJME(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%H` %@ %`h8@``0S_$*\Rffff*0B634bbcb14xAttribute VB_Name = "She@et6" Bast0{00020820- C$0046}|Global!SpacFalse dCreatablPre declaIdTruBExposeTemplateDeriv$Bustom izD2rU y)4`rU @ndkkxME__SRP_f yBSbpSȉ  {]wQQpe g__SRP_aP D0@S_"  ( HhxѧϢӡģ$F(HѧϢӡģ$FB@JѧϢӡģ$F(HoAttribute VB_Name = "Ԥ" Sub Browse_Print () Worksheets("ѧϢlģ").VisiblaTrue"d^P@review2cEnd rU~|    90  0   0   0  B  h p2 p `B  x 8 $ 8 "@ pHB   8$0X$` xB  48(p*$ 8BH0!X`hp x  B  ( 0 4P $  "   "    .( X p 0   *   .0 ` x .   0   .8 hx6 6 (IxME(6 LLH N` @ IP `fiIR `T Z` i\ dX` 8  i\ n`  Ip IP IR Ir  |` X  #Ip xIP IR  `  .Ip I 8IP XIR xI  x`  FFCI Ip IP 8IR XI   `  I I ` p` P I +2( `  Ip I4 i6`8 H ` h Ip IP IJ I   ` ( I HIP hIR @V ^  `  Ip IZ  d` ` Ip IZ  @ `  Ip  IP  IJ  f ` k Ip  IP  IJ  I    ` @ I ` Ip  IP  IJ @V @h @T ` H Ip h IP  IJ `P`l`n@ xp(X  L % 0(0hH@fl X0F@h @X @H @D @4 @$ @ @  `  S_$*\Rffff*0@634bbcb1*\R1*#385*\R1*#125*\R1*#119! B       B  1V88P 6 ( 8H(`&  f p >& 0 X@ h 0*H xj&  HXhp ` **8h  H(x H`( HH(p H(H  &  (H nP   8(@ 8(0  &  (H pP(  88$p 8P$ h &p < %h  h $$8,d$88 ,dp $      &  !(!0!P! nX! !(!"H "h"x"""""""""X#&X# ## #### b# P$ p$$$$$&@% h% ,x%%%% f% @& `&p&& & 8&(& 8'(' `( &h( (((( f( 8)(P) x) T) &) ** * $8* &`*$X*$&*$ +$+ (+0+ 8+ H+$tP+$&+$ + , $,, ,8, ^@, ,",,@,&(- P-`- h---- b-  .0.P. tX. &. . //0/ b8/ / ////&x0 0 0000 ^0 H1 h111X1&1 2 0282X2 ^`2 2 223X3&`3 3 333 ^3 (4 H4`4p4Tx4&4 4 55585 n@5 5 55"6(6&6 6 6667 j 7 7 77"78&8 8889 n 9 9 99"9:&: : :::  n; (p;&;;";;&< < <<<  n< X=&x=(=(==">0>&> ? ??8? P@?????&P@ x@ @@@@ R@A0AHAXPA&A A AAAB bB B$BB@B&C 0C@C$HCpCxCC ^C D&D @D@HD&D DD&DDDE | E E$EE(E@F&PF xF F"FFFF |F hG GG@G&G H H (HHHPHpH |xH H$I8I@@I&I II$IIIJ dJ J J@J&J K0K28KpK xK L(L(@L(hLLLLLLLLM M@MHM PM XM8xM$MN &N NN N$N O 88O(jpO  O O &O P(P0P 8PXP Z`P PPPNQ&PQ xQQQRQ&R(R 0R@R HR PRXRxR  xR R6S.PSSS( S2S( S1S( S2S( S1TT TJ8TTTT ZT U$(UPU@XU&U UU"UVV(V  P0VVV(VV V8V$(W W &W XX   0X 8HX(bX X  X &X Y0Y8YXY`YhY fpYB  Y Y<Y(Z HZ`Z$Z$ZZZ Z \[ B  [,\ 08\@h\"\ ^\ 60]h]]]]0]D^X^x^^^^^ ^ "@_ h_ ._B  _ _$_B_ @` P` `` p` x` ``` `B  0a8a Xaxa a b 0b Hb hbB  b"b bbb bbb b8cHc2Pcc c cc cc cc Fd`dhd pd xd *dd d `e xeB  ee*e 4e f (f f fB  f*g0g 8gB  g gg gB h<h Jhh hB  i i "i i8i2(j`j xjj jj j jj"j0k Hk(hkkk&kk kk kB  xllVll 8m Pm pm:m4m$m n"8n`nhnpnn-----------------------------------------УУдϢʾ ע----------------------------------------------------------- Ԫ] P R V%X'T T'Nd('Nki--------------------------------------------д־ ¼ϢʾһϢ-------------------------------------------- \ b `$^,X b 'biX--------------------------------------------д־ ¼ϢúɫʾϢ-------------------------------------------- \'f \ b `$^,X f b `$^%X%h!j(l b 'bipi--------------------------------------------עʼУ飩-------------------------------------errorInfoעX 1Worksheets(sheetIndex).Unprotect Password:="1qaz" r P R p$F%XB@t P R p$F%X!v(xW ӻɫ P R p$F%X!z(Hii--------------------------------------------ɾעʼУ飩-------------------------------------1Worksheets(sheetIndex).Unprotect Password:="1qaz" P R p$F%XB@~ P  R  P R p$F%X!v(ld`  P R p$F%X!v(lk0i(r---------------------------------------------ʼУ Ƿӻɾעõķ----------------------------  Уʧ P R p$F%X!zd жעΪ p P R A@nV עd"Ϊգȥǰע p P RA@|N ע p P R A@nk1 MsgBox "" & rowIndex & "" & errorMsgd:УɹжǷעУʧʱעȥ p P RA@| ,#ȥո,ʾ PУ RУַ"$. "$."а˿ոϵͳԶΪA@Zd`kXkPiH----------------------------------------------------------------------------------------------------------------------------------y--------------------------------------------ݱʶöӦķ(ʼУ)-----------------------------------------------------------------------------------------------------------------------------------------------------------------------ѴϢдб P R p$F%X'  R p$F%X'Iȡбͷ Ϊϲеıͷ  R p$F%X' P e  R p$F%X'kh0'  checkLen*)ΪУ  $'checkLen'  checkNum*e-ΪNumberУ  $'checkNum'  checkVal*e-ΪֵУ  $'checkVal'  checkInt*e-ΪֵУ  $'checkInt'  checkTerm1e-"ǡ"Ϊ1' checkTerm'  checkYesNo1e/"ǡ"Ϊ1' checkYesNo'  checkYesNoe."ǡ"Ϊ1' checkYesNo' checkDiffName1e2ѼΪ1'checkDiffName' checkDiffCode1e2ѼΪ1'checkDiffCode' checkIDCardType1e4֤Ϊ1'checkIDCardType' checkSqyyName1e2ԭΪ1'checkSqyyName'  checkYear1e. У1' checkYear'  checkPmmce- У1,8,0' checkPmmc' checkBxke, У1,8,0'checkBxk'k _=================================1 ִеķǿУ==========================================ѴϢдб checkNullKT p P R$'  P е Ϊգ'')УʱдϢ A@ZRMsgBox "" & rgold.Row & "е" & Chr(10) & titleMsg & "Ϊգ"k` p  P R A@'a=================================2 ִѧУ========================================== checkNameKT p P RA@@ȥոķ P R p$F%X!' $'  P е ;дȷΪ֣ȴ1ܳ20ַ''%УʱдϢ A@Z  'k p  P R A@'Z================================= ִеijУ==========================================checkLenKT p P RA@Fȥسķ p P RA@Hȥոķ  $'  ,$'$ ` ΪDZΪ̶ȶ P е .дȷΪաд򳤶ȱΪ$ λ'$ ed ΪDZΪȷΧ P е 4дȷΪաд򳤶ȱڵ$ λҲ$ λ'$ ed ΪDZΪ̶ȶ P е &дȷΪգҳȱΪ$ λ'$ ed ΪDZΪȷΧ P е ,дȷΪգҳȱڵ$ λҲ$ λ'k '0УʱдϢ A@Zk p  P R A@'h================================= ִеijУ飨Numberͣ==========================================checkNumKT  $'  ,$'$@ ΪDZΪ̶ȶ P е GдȷΪգдΪ֣0λȲ$λСλ$ λ'$eD ΪDZΪ̶ȶ P е ?дȷΪգұΪ֣0λȲ$λСλ$ λ'k'0УʱдϢ A@Zk p  P R A@'i================================= ִ30%У飨Numberͣ========================================== checkPmmcKT  $' p P$'N ȡд  ,$'$@ ΪDZΪ̶ȶ P е ?дȷΪգұΪ֣0λȲ$λСλ$5λҳɼαڳɼ50%֮ڣ'$eD ΪDZΪ̶ȶ P е ?дȷΪգұΪ֣0λȲ$λСλ$5λҳɼαڳɼ50%֮ڣ'k'0УʱдϢ A@Z $ $? $ $ e  ?  P е 9дȷɼαڳɼ50%֮ڣ'  ?e ,$'$D ΪDZΪ̶ȶ P е 6дȷɼαڳɼ֮ڣ'$eH ΪDZΪ̶ȶ P е 6дȷɼαڳɼ֮ڣ'k k''0УʱдϢ A@Zk p  P R A@'g=================================15 checkName1 עжǷ--================================== checkName1KT p P$'K ȡд p P$' $ ?$ $ 333333?$1,8,0'  $'dh0,8,0'  $'  P p$^,Xkk  P е )ֻ뺺,ַΪ20λ''(УʱдϢ A@Zdh" checkYesNo p P RA@k@" p  P R A@'[=================================ִֵΧУ==========================================ѴϢдбcheckValKT  $'  ,$' P е $дȷΪ֣ڵ$ Ҳ$''-УʱдϢ A@Z& isValidateCount = isValidateCount + 1kP p  P R A@'_=================================ִеΪֵУ==========================================ѴϢдбcheckIntKT  $'  ,$'$@ ΪDZΪ̶ȶ P е 8дȷΪգдΪڵ$ҳȲ$ λ'$eD ΪDZΪ̶ȶ P е 0дȷΪգұΪڵ$ҳȲ$ λ'k'0УʱдϢ A@ZkX p  P R A@'`================================= ִе֤У========================================== checkSfzjhKT p P$'S ȡд  P е &дȷ֤Ϊգ''0УʱдϢ A@Zd  ֤  R$'O ֤У :֤У P е *дȷΪѧ֤ţ''4УʱдϢ A@Z  'kd $'  P е EдȷΪգҳȱڵ1λҲ18λ''4УʱдϢ A@Zkkk p  P R A@'X================================= ִ֤У================================== checkZjlxKT checkZjlx 1$'  P е дȷ''(УʱдϢ A@Zd checkZjlx p P RA@kp p  P R A@'\================================= ִѧŵУ==========================================checkXJHKT 1, 1, 50$'  P е EдȷΪգҳȱڵ1λҲ50λ''0УʱдϢ A@Zk p  P R A@'[=================================ִпУ==========================================ѴϢдб checkBankKT $'  P е $дȷΪ֣ڵ$ Ҳ$''-УʱдϢ A@Zk@ p  P R A@'W=================================ִУ==========================================ѴϢдб checkYearKT  $'  P е *дȷʽ20122002ȣ''-УʱдϢ A@Zk p  P R A@'W=================================ִѧУ==========================================ѴϢдбcheckXnKT $'  P е )дȷʽ2012-2013ȣ''-УʱдϢ A@Zk` p  P R A@'W=================================ִ·У==========================================ѴϢдб checkMonthKT $'  P е &дȷʽ0112ȣ''-УʱдϢ A@Zk p  P R A@'g=================================3 ִеУ(DZ)==========================================ѴϢдб checkDateKT  $' 2Уʧ P е дȷдʽΪ"$.xxxxxxxx"$. 20130221''-УʱдϢ A@Zk p  P R A@'c=================================ִеУ飨==========================================ѴϢдбcheckDateNecessaryKT& $' 2Уʧ P е дȷдʽΪ"$.xxxxxxxx"$.= 20131221ֻõ֮ǰʱ䣨գ''-УʱдϢ A@Zk p  P R A@'g=================================ִеijУ飨==========================================ѴϢдбcheckBirthdayKT!  $' 2Уʧ P е дȷдʽΪ"$.xxxx-xx"$. 2013-12''-УʱдϢ A@Zk( p  P R A@'g=================================ִеijУ飨==========================================!ѴϢдб ߺcheckBirthdayNecessary2KT, $' 2Уʧ P е дȷдʽΪ"$.xxxxxxxx"$. 20131201''-УʱдϢ A@Zk@ p  P R A@'g=================================ִеijУ飨==========================================ѴϢдбcheckBirthdayNecessary3KT, p P$'K ȡд p P$'K ȡд  $' 2Уʧ P е дȷдʽΪ"$.xxxxxxxx"$.6 20131201ҪԺϵ5գ''-УʱдϢ A@Zk p  P R A@'J=================================10 У绰====================== checkPhoneKT $'  P е дȷдʽΪ"$.-̶绰 ֻ"$. ''%УʱдϢ A@Zkh p  P R A@'L=================================checkOption У鱸ע ====================== checkOptionKT B$'  P е )дȷȲܳ200ַ''%УʱдϢ A@Zk p  P R A@'\================================= ִ϶ѼУ==================================checkDiffNameKTcheckDiffName  $'  P е дȷ''(УʱдϢ A@ZdcheckDiffName p P RA@k p  P R A@'X================================= ִ֤У==================================checkIDCardTypeKTcheckIDCardType  $'  P е дȷ''(УʱдϢ A@Zd8checkIDCardType p P RA@k p  P R A@'v=================================14 checkGender ִǷΪСŮУ--================================== checkGenderKT checkGender 0$' '-ԱдУ֤Ŷ P е дȷ''(УʱдϢ A@ZdpE checkGender p P RA@k@E p  P R A@'u=================================14 checkYesNo ִǷΪǡУ--================================== checkYesNoKT checkYesNo  $'  P е дȷ''(УʱдϢ A@ZdC checkYesNo p P RA@kC p  P R A@'u=================================14 checkYesNo ִǷΪǡУ--==================================checkSqyyNameKTcheckSqyyName  $'  P е дȷ''(УʱдϢ A@Zd@BcheckSqyyName p P RA@kB p  P R A@']=================================checkTerm ִѧУ--================================== checkTermKT checkTerm  $ P е дȷ''(УʱдϢ A@Zk@ p checkTerm  $ P R A@'}=================================15 checkNumYN ִǷΪǡжǷ--================================== checkSNumYNKT p P $'L ȡд p P $'H ȡд p P $'H ȡд 1,8,0'  $'d0?0,8,0'  $'  P p$^,X P p$^,Xk>k> 1,8,0,$'$@ ΪDZΪ̶ȶ P е ?дȷΪգұΪ֣0λȲ$λСλ$5λҳɼαڳɼ50%֮ڣ'kh='0УʱдϢ A@Zk(=   $ ?$ 1,8,0,$'$@ ΪDZΪ̶ȶ P е ;дȷɼαڳɼ50%֮ڣ'k<''0УʱдϢ A@Zk;k; p  P R A@'S =========================== ִ϶ʵУ================================== checkSFJEKT 1, 4, 0$'  P е  дȷֻд''(УʱдϢ A@Zdp: $ P е #дȷ,ֵֻΪ5000'')УʱдϢ' A@Zd9k9k9 p  P R A@'r=================================checkAtLeastOneNNull ִһΪǿ--==================================checkAtLeastOneNNullKT  'A"ִ һǿУ ĵԪĿ $ =Ϲ   ' R KTF   ' KTF   ' KTF   ' KTF   'n7dϹ  'F6ִ һǿУ ĵԪΪϹĿ    ' kX7'T================================= ִУ================================== checkPmTypeKT checkPmType 1$'  P е дȷ''(УʱдϢ A@Zd(6 checkPmType p P RA@k5 p  P R A@'J==========================================================================checkBxkKT  $' p P$'N ȡд  ,$'$@ ΪDZΪ̶ȶ P е ?дȷΪգұΪ֣0λȲ$λСλ$ λ'k 4'0УʱдϢ A@Z $ $e ,$'$@ ΪDZΪ̶ȶ P е 4дȷμ޿һ£'k3''0УʱдϢ A@Zk2 p  P R A@'n2i2_--------------------------------------------ʽ-------------------------------------x]VBSCRIPT.REGEXP$.7RegExΪʽ (4 ȫֿvba\ת  (.ʽ (5ǷִСд  %' 3 ִ.i 1-----------------------------------------------------------° Уظ˵Ѿûиʽ------------------------------------------------------------V-----------------------------------------------------------1ѧ׶ڱڲ(sheetѧ׶ A65535 $^%>%!"'*cna = getTotalColumnCount(sheetIndexValue) `$^!XB@$1&ÿУظʱʱѴϢsheet,'bϢ¼ʼX==============================ѧ׶ڱڲ==================================0ðÿԪغ֮ǰнбȽ &   & * $^%X'( ,  & , * $^%X'. ( ..ѧͬ˵ظݶ , еݺ͵ &ظ!!!!' A@Z*ѴϢ'0kx-p-h-i`------------------------------------------------------------һ ֵȡֵ------------------------------------------------------------ֵҵֵڵлkeyWord ҵĹؼ'kbn л ֵΪ rowrowp'2]the find result object 4< @> DB A1:A65535 p$F%>%:.8 8 6row 8!"'2d+ 8!F'2kp+kh+i`+------------------------------------------------------ ָcellֵ-------------------------------------------------------------(1qazN p$FB@L  P J p$F%X(i*------------------------------------------------------ ִڹУ(Ϊ)-------------------------------------------------------------value value1 cellУ鲻ȷfalseУȷtrue R0˵ΪDZ P$T'z()k )k)]'Xijһļ¼ A65535 \$^%>%!"'ZB' \ row$2'V=ȡ & V Z & \$^%X  X 'Xd((y (k( & , V V X  , \$^%XX PX LжϹǷcell'y'k' ,#ʱcountĿΪùеĿi@'------------------------------------------------------ ִɾijһвexcelܱģ-------------------------------------------------------------sheetIndex rowNum к1qazN p$FB@L Z p$F%`B@b/ Ѹɾ- Worksheets(sheetIndex).Protect Password:=123i%------------------------------------------------------ ִɾijһвexcelûб-------------------------------------------------------------sheetIndex rowNum к  Z p$F%`B@b/ Ѹɾi$------------------------------------------------------ ȡָcellֵ------------------------------------------------------------- P J p$F%X!'i$------------------------------------------------------ ָcellֵ-------------------------------------------------------------@ 1qazN p$FB@L  P J p$F%X(i(#------------------------------------------------------ ݴеֵǰʱѾͨУ飩------------------------------------------------------------- ]   P J p$^%X!X 'T'Xijһļ¼ A65535 \$^%>%!"'ZF \ row$2'VAȡ & V Z & \$^%X  X 'XdP!yH!k@! & , V V X  , \$^%X!X 'P P TX 1жϹǷcell , \$^%X!'h hX P J j p$^%X(yh d` P J j p$^%X(k0 ,i ------------------------------------------------------ ȥcellеĿո------------------------------------------------------------- ] Ԫ]  3Blength1ʾcellԭijȣlength2ʾִȥոַ'ĬΪûȥո2 Worksheets(sheetIndex).Unprotect Password:="1qaz" P J p$F%X!'P P'l lGzj*"ԪΪգȥո P 'n%length2Ϊոһγֵλ nַո P $p'P PX P J p$F%X('kizAttribute VB_Name = "ߺ"  '-%УдϢʾ &( Function checkedRequiredStart(rowIndex, c olumn ) { 'Ԫ@Dim cellValue As rSng= A;veShePet.Cs6If-" Then*F_Fal4seETrund If< E)[д־ ooһkqmwriteLog(content]iX`s(msgB)[curMsgRow, 1)JCK + 1?DDúɫCE ERedVFnLen7@LZ.Characters(1, ).F7.Colorl=31*SS  ʼG`errafoaddCHommQXQ#s|", ,  0t'Work s().Unprotect Password:="1qazOey.A N( ..Itrior#=<65535 '1૱>%  d/.VisiblĠ_?ɾElearsCk΅"BB ?+0+ 5`&[!*2Recp)Nu8m A:HtffTotal`?um u\4&UE15l lqXOO .ExlNondu(u_L?%K Ƿ4*õķo)beginC_c#LHGpMethod?LLuwLЋNot3 '焹aWʧ|?u$6 Is hing$жρ<Ϊ/T\ W| LAOAa'ȥǰq¡$ cDt_ ʫ 'L alw/ !. <' "Box @"" &gD& "h'tt$ɹ3!0гѕ&ʱđ rCq+remopaceFla(/Qո,ʾ:sW@УȀַChr(34)%QC& w"րа ϵͳԶΪa%ˬ A ]!qO?L?Y/ݱʶC 0XӦsX([)O-O?@!дccallFunctionXQStart(typeVal, sheetIndex, row$colHumn0isRidateCoun t) value = Wo$rks().Cells(DtitleMsgGsT,, ) 'ȡбͷ If `"" Then 'ϲеn/J - 1 L(ElseDÅtheadG=! ;CEnd( IffArgs!"0"JÅ Like "checkLen*MУGĄD Mid9& #EH%O 1H&NumL&@ber&& &@&&ֵLC&M%@b%Inta9?~nE9- 'W9Term1L""ΪL"1 7 YesNo-kk ?&ȗ>$ C$DiffNamej%ѼA8$% G_&CodslƖa`IDCar dT*'֤a6M#; e !8VSqyyԭDe_ <(e? ? kYearZݯVE jC]   kPmmcL ^,8,yy- GM:Bxk {  U   Select Case) '=11 ִqǿ>q?ϢдGq Null8UMethodXQ @RequiredX_boP Not Ѫ rerror"" &6"! F& "Ϊգ/ahasE`Tr'qʱ% fwriteLog E ' Box 5gol d.RowO& Chr(10){Tb eginC_commentJ,?isFor.o+.2.ѧ/_Ky-@{O removeSpxacep-ܟ 'ȥոķA\)./k2=c3Stuj(2/6/6;/6V555дȷА@֣ɴ@1820ַ*_8_8M> writeLog error`Msg  isValidateCount =" "+ 1vEnd If.beginCheck_ commeQsheetIndex, cMethodXQ, rowolumn AisForTrue '= ִеijУlCase "a^Len"{removeEnter {t 'ȥسķ-SpaceXQ).ոeW:(value, functionArgs)(@If NotKy pThen ENIArxSplit(, ","#!(0)@50 AUBd 1* 'ΪDZΪ|3"@"`" &Ƽ"titleд ȷ"Ϊա"ΪA<1)λ`VElse'n'2'Χ''!'''ڵ Ӣ3v(Ҳ1-2?-wE9-1T`jT?-TTTĚT &S "Se&{SSf{F{&R`'R?) }hasEx '1vʱSдϢ_(-ϊϊ4 rnNumberͣh] Z }}F }B_X|U0}}]j}oQ{%oQh& >h1{{֣>0޻qSf(v}?Сi?VsQ //9T0~cU7K UUUU  dUU`UPUx30%!hU==lLUPmmcU UU1VVw@ resul1g@etCellu1sXQ(5)@ 'ȡ0Ȏ If Not checkMethodXQ ThenfunctionArgsArr = Split( ., ",") M(0)P1p'ΪDZΪ̶ [errorMsg-"" & rowIndex"title& "дȷCΪգұΪ֣0@λL`'p1):λ!С2ҳ <څ50%ڣ"Else``` ``E(``BE End If_jhasETrue 'УʱдϢwriteLog2W$Dval(`@ue) / result) > 0.5 Or$>*!!P C $ (?L|l_l1G,:/ <="+ @Iu? l;;;7?!?!dL/*}ۋ= FamTTT]T_$cbeginC_comment@ sheetb,,olumnT!OisFo!Qd@'= 15Name1ע@Ƿ!--?Case| "G` P= getCellValueCou`ntXQ(՜, 3) 'bq10P, 4k( >=p *\@A~ nW^R ^#Ra "1,8,0vb&=#StuS|, a1 L a2"08 * 2Vk S2sX!).!#s(!5":  ? //' 뺺ր,ַΪ20/P/P/P\OO %yset@DMBCodAYesNo",O7cN_*q?/V/V3/V/VUUQִֵΧ 'EдбwI Case "checkVal8" dMethodXQ = (value, functionArgs)zIf NotzThen2; ]ArrSplit( , ","zGerrorMsg@"" & rowIndex"еAtitle& "дȷΪ֣`ڵӂ'T(0),Ҳ`+1量\hasEcaTrue 'Уд write0Log E ' isidate`Count@ M+ 1End IfbeginC_comme@sheetf, ,FlolumnD 0isFoAK '=ִΪֵoU+_d= 0b 'WkΪDZΪ̶_GUA_} Y}Ϊՠk!D_D{W2B Else)1))++)_C)(gs(((h f _FckE}/f_T?Q cT֤oTRԉSfzjhRv resZjlx?getPCell`ku3kXLQ(e, 8'ȡ>ȞݟF)7G""6?4Q E4_C_,߃߃_,#KO?sIsIDNuPmber%scg) ') = qtk#.OM?!!!!ѧOe/"/"/"/o"o"ߦ{ߦo SO)? \4SFZJLX%n$ԏo"o"o"o"Yxx1t18t $$$O$$o /:??_5/| д/|п/|v= ִ֤У. Case "checkZjlx" :PMethodXQ = DMB(9, value@, "1")FI`f Not=MThen.}err orMsg:"" & row Index"еtitle& "ȷna3hasE43True '偧ʱдϢUwriteLog ZElse"setCod, sPheetB>,@, columnEnd If@beginC~_commentJ J},;isFobrDU 'рŵ#8XJH~J9C@*Len(, 1, 50Up \Ϊգҳȱڵ150b%cce dFW[\ck\ e\^п8\i@h!%дaЄ_Bank_^A^?]"\\ZΪ`֣[afunctionArgsArr(0)!ć^q1c_ab``"`'/0/0/]/ e]yE //+.!/..@x.^Year..E^#/f/g/OO+H/ʽ20122002ύ+ \)j++++++?(+ѧ+++yn+++Xĉ*P*******-*3*****g j*******'*OV_***Month***_G**,*****011OU*****b ' PE nd If|beginCheck_comment sheetIn@dex, c2MethodXQ, row0olumn errorMsg^isFor = True '=3 ִеУ(DZ)<4ѴϢдб P@Case "qDate" hBirthday(value, functionArgsArr)If Not Then 'ʧ$_%"" & j"Rtit le@kдȷʽΪA Chr(34) x 20130221"*hasEA* 'Ayʱn\writeLog WE[?? $f -Njţb:c%c" cNecessary?dE;"dNowdb b*bbb xb1bֻ֮ǰʱ䣨aggg# g???ןc^c d+d"deyc+Z=þǟddc IO2%~_cccc-x?2c-12/> /cc*/O1//M1/t1 ,_-22O2A ߰o3ya2444'f'oXQoR3 noooo o3313^ 333 33x33333, c Lu3033_33?3E/3?3re)getCellVCoun0tXQ( 25@) 'rĘݯsu27x >A>ry3(rsu_r>>> _r_rt"bՃ>ҪԺϵ5գ " hasError = True 'УдwriteLog eOMsg/End IfbeginCheck_comment sheetIndex, c MethodXQ, row `olumnNisFN '=10 绰 7Case "ePhoneߊsNum(@value)/I f Not I Txhen 8I"`" &T"еtit le|дȷʽΪA Chr(34) -̶F H ݱ>'I`COptionBQ PPCQcKP, 66_Qu_Qsg_QGUQȲܳ200KK#Kck? ִѼLjDiffNamQA!Z@C0DMB(, B, func`ArgsRa j~ߜoz (@Else#NsetPCodujxwPzoaT .O.ЀOc /.=,.ɀ֤1~.-.IDCardTyp. .0...3 /0XQY5r/0~/0J /0XL/0/0!?0>0*_0)"o6_0_0_0_0orD_0O,L14)GerA`ΪŮ2--823OPT`1"0"_//G9U)IdзCӣΘC44?A694 444L44$6b6F55?fG5555565 _f05YesNo5$55n --=  Case "checkYes8No" <R@MethodXQ =B DMB( t, value, function Args)PIf0 NotGWTh en.errorMsg~"" & rowIndex "title& "дȷs30hasE43True 'Уʱд@ϢUwriteLog CZElse"sDetCod,@ sheet|,, columnTnd IfbeginC_commentJ,;isFDorDU '14cBִǷΪǡg:SqyyNameF_`_`_`_`_`@: _`MBH`(-`*```` c`Term`_ѧڿ]cK}H 4] [ 0E?H:H*KKOV%152&NumYNOVEVжϡW̶V='S(!resultbgetCellVaPCountXQ(_?ex, 9) '~bt mc__T, 10orsoogV1oo z ""6Ya1@"1,8,0(a1ZF a2v08 ܞT2I GS%qs(#).$s(ㅣ#= "@YoC,Z?ArQSplit(#, ","}(3= 1*'aCΪ̶𳤶ȟ=E_1&qΪգұ֣0λ xp !С`(2)ɰɼ$΁50%֮/#ߜoh C_r$NAv??S5L(mc) >(Y* 0.5)Sh '111111N1e= "" & rowIndexP"еʀltitleMsglдȷɼα 50%֮ڣ"  !End If'checkMethodXQ = False6hasErrorTrue 'Уд&writeLog e)m|1beginC_comment sheet4, JK,olumnD 1isF#M!' = ϶ʀX 6Case ".SFJE6uNum(value, "1, 4, 0")KEIf NotKH Then IC@xֻA@?V< E{i@&+,) <> 5000|&fd&W,$ֵ!'Ϊ_'_~ C?-"-- Q {y߈߈̈ $'>|AtLeastOneNNu llһΪǿ-- =K%7( aACou= + 1 ' ! ĵԪĿ$#PoneyoAgBqp '! Ϲ5qtotalMA9+ Select ">cdOIbaojiaoBCR:iSum? ?_ huoshi H   zhusu G  others H  RRc*'?%n '23 =pG>6>>>Ϊ@KEu + + " Jb`YXTQͱ["cPmTyp>eo 2_DMB(,3KqsSo)\x!OsetCod%,zUO6pj#o˕oIq,OسTo .+<8.Bxk_.O.`1~, functio`nArgsvresult =ض getCellValueCountXQ(sheetIndex, row$7) 'ȡ If Not checkMethodXQ Th endIfunctionArgsArr = Split( , "8,")K M(0)P1p'ΪDZΪW[errorMsg-"" &"е@title& "ȷCΪգұΪ0λL'p$1):λ!С 2";End If hasEEDTrue 'Уʱ]дϢwriteLog EZ Else}val(ue) <> Aresult)b_$_eA\ y X'bYYaWD޿aһ£N%N#>2_6˕= FaI_]_] _]E#beginC_comment jcolumn$misFoaa|'%ASelect aFd0 '-&0ʽ  ae reg(,:DimEX As Obj+Set= Create#("VBSCRIPT.REGEXP")A'RegExΪ EX.GlobalE'ȫ ֿG'vba\ תm Pattern `P ! ʽIgnoreCaseB/ǷִдpaTestXG'ִphing#$o! ° Ah˵ѾûАʽi 1ѧ׶ڱڲp -;ДSameXQNew; }'r>w(naSs:.Range("A65@535").P;(xlUp). 'c TotalCBBؙ(msgNP ).!s.ClearContIs 'ÿʱ UB,cuaRowP1 'ʼ'=ocO'ðÿԪغ֮ǰнаȽϧ1Ti0 @startT + 2 To r nag4babyID1I2(i, c35ϲ AjO@i - 1o32exj x@oq e! Ҍ+ͬq:|1; UjӱùiC{r@! y ') :prr Nexpt?nOG/Fһ ֵݸֵo` #@ҵC лkeyWord Ĺؼabn"# @Ϊ H`RI Get@@ODlR0x(By@H, Strf)AIHger[m-x1уc 'the fiɳ o c@@k";IX)6X1:fXF(What:= LookIn:=x#s, A xlWhole>@6r Isu9 If kbn = "row" Then  GetRowOrColInddexc. Else$vum xEnd@F@unctio1 '-2 cell`ֵ3F I setC*ValueCountXQ(shedet, cQ, v)uW(orks).Unprotect Password:="1qaLz"Is(=).= W5WִڹУ(Ъ)CFor i % To1bi, 3B?p'+ 1gG #5orh(N`ext ic!j.#+ c-iD CStr(j, 3)MBa 'ж(d@ǷCGAeSbS/)AIQj 'ʱc Ϊ|Ѓwߐ  !ɾ]exܱxģ 8c p Qahкdelete`䋿O@ .D 'ѸA")1' P~f12~3__Uq_o__ VNo ͯmPow?9A0W[t_ - OIJ:O8)g-=QL$).䇝% _?Y\kobx, Ťg/(/ ݴ!pZ0ֵǰ ʱ1ͨo 3|A5'ezàRxeplQ"Et4+@  ETru!y!|+zX  0   0   0   0 x  0   0 p$  0 (  0   0   0   0   <:4%DX%h$hdD)hDJ$%DX%h$hdDC)hD5px(VlhD0   0        rU , `1//( `Q0( `Q08 `i1////0! ` i1///<I `i__SRP_bXf __SRP_6J__SRP_71/////<q `i1/////, `)9//( `Q/0 ` iq8 `i9////09 ` 9///,a `i//, `i//0 ` i///8 `i9////8 `9i////0) ` i///nrU~| prU $"" Public TypalueCo8lum8p 'c@nIndex As I@ntegerTø P'SngEndn _ 'һṹ0ҳ"Const sheet{V1 p1 '/ATJD2`ͳƀ m8sgS8 bϢ8 ro ˵ 3Area3Kdme0totalCountJu¼ܵУ $startTitl7 ' ͷ atLeaOneNNulD 'ִ tǿA ĵԪĿ\Ϲ`J;Money;Varia>'ÿһкϼֵK Err or@-ʱ/A>A{C/e Ms>gAD rgoldRang@e '---AԀģЄ ĸFTargen Vqfuncti@onArgsh'0">@ַfisSaveButton}CAʱرťhas(}Boolean{'L0Щ7 TheSa@_ĮIdN\um]n idaै_Чǰ>\״̬checkMethodXQAA1A0ķRaRowSq0= `r+пʼx!xbabyID"J8= 3 'ѧɀѧλ Dim isay)i Ϊ%n%ArЂ>ΠЧ ! 5ֶc &removeSpaceFlal:ȥոy`ǀa$ˡ*tr@uefalse3e@ac2)!t`ûнԶûao?֮Csc ur @*)Long 'ϴxдF!8,ӦĿʼʱֵһF rna A',c1^isFO).ڸݱʶòͬ0)CA жϑ;forѭ C_Sele BFChMҪõW^,headIb'+ʡصȱ& SqsV9= 2 'q± "nottinueQ$AqJ1Plu"S6104 '!crger6Աsbirthday= 8Hh @ꀞP@* n @*0BrU~|     !hQpe R__SRP_10__SRP_11 ;N z^>? "(P`hpx B   (HPX`hpx &0Xhpx B  (  B  @PX`hp xB  JJ H X  h               n P h B  , $  &xRRME (@t0>6 <HthR0tohvOfNz`H~@ʘ0BʀX @ʀ 4 @ꀊD @<L @%Ϣ˵%ꀤV  @Z  @ꀂ \ @ꘄHB X@—p@ʀd @x@ꀈz@ʘBꀊH~ @jhB!꘎B#%BxB`HpH|pHʀ @$ @8Hh @ꀞP@*T @0X  @ꀠ^ @*0Bꀌ` @bt@ꀦ| @\ BꘌpB"H 80pXpHpH 0Xr$p88S_*\R1*#253$*\Rffff*0>634bbcb0(*\Rffff*0>634bbcb0\044    08  @ ` Dp 8 0 P0pD084P. ..(8(`>"$$@>`R^FX `*0$`   ^ ^0p@һṹҳi]$H=Public Const sheetNameValueTJ As String = "2ʵͳ"]$Ϣ2Public Const IntroSheetName As String = "˵"]$H]$˵] p ¼ܵУ]$¼ͷ] 0"ִ һǿУ ĵԪĿ] 6ִ һǿУ ĵԪΪϹĿ] Xÿһкϼеֵ] "һǿУʱ¼Ԫ] Ϣ] %---ģУ¼ĸԪ] 8---ģУ¼ĵԪ]  Уʱ洢ַ] ¼ʱرհť]  ¼ܵУǷвϹ]  ¼ܵУǷظ] #¼ܵУǷظ] %/¼ЧǰǷдϢ ״̬]  #У鷽ķֵ]$)¼ʼк]$H)ѧѧſʼλ]D0¼ΪյĿ]X"/ǷΪЧ ͳ 5ֶΪյĸ] p"C¼ȥոִнȥ˿ո򷵻true򷵻false] PcellԭʼĵݣϵͳûнԶûĴ֮ǰcell] 7ϴдϢʱڵ,ӦĿʼʱʼֵһ] ] ] RڸݱʶòͬķʱжǷforѭ Cell_SelectionChangeҪõñ]$¼ʡصȼ¼ڵ]$+sheet±Ƿ]  ]$hH)е]$) Ա]$p+Attribute VB_Name = j~xME(6 << <` `@ Ip `IP IR `T 0` I @ `p I I @ @`  I @ ` I @ P` I I @ +H` iiJ`H`8H``&` `  I @ 8`  I @  `x I @ ( ` I @  `h I I @ 8 ` I @ `x I @ (` I @ `h  I @ 0 ` I @ @  `p IP  I  D0 `  IP  I   `p  IP  I  0 ` I  I   `p I  I  0 ` I  I   `p ''I  I  (`  I @ `h  I  `  I @ x`@  I @ `  I @ `0 ""I PIP pIJ ` ` `n````@ ` @ ` @ ` @ `  I ```@  ` %%I I   `` I I @ !` ! Ip IP 8IJ  0 @ 08( 0 P((x80 H0 P% ""(4XS_$*\Rffff*0C634bbcc6C  B       (  B        !"#$%&'()*+,-./0234W689:;<=J?@ABCDEFGHI5KLMNOPQRSTUgXcZ[\]^_`abdefh~ijlmnopyrstuvwxkz{|} "  H(  p  x   "     "0 X ` 4p  0 PB hp*x  B   (  B 6(8@HPX |`  B  0(Xhpx x  (B @ H Xx x p B  |  B $ (0 |8  B  lZp |  B    B :@Ph    ` B        .B      ( .B  08@HP XB  &@HPXD`4 8@HPX `B    & H P X `  h   (   "    D 4@!x! !!!!!!!!! !B """ """" "" "" # (# <0#p#x# ## #B @$H$`$ h$&x$$$$$ $ $"$ % % % $(% "P% x% % % %%%%%% &>& X&4x& & && && & `' 'B ''''''''' ' ( (B (( ( ((( ( ) )B )) ))**** * (* * *B *++ +0+8+@+H+P+ X+ + ,B (,0,8,X,h,p,x,,, , @- `-B x- &- $- - -&.*(."X.$..(../0/P/`/h/ / 2//"/080  @0X0p08000 0B h1p1x111102 P2`2h2p2x222222 2B X3`3x3 3&33333 3 3"4 (404 $84 "`4 4 4 4 444455 5>(5 h545 5 55 55 5 p6 6B 666 6&6777 7(7"07X7h7p7x777 7B 77 7 78 808H8P8`8-----------------------------------------1 ,дϢʾ Ϣsheet--------------------------------------- ʱ0Ϊʱ1 Ԫ] P R p$F%X'T T'd'ki-----------------------------------------2 Уѧ ҪΪ-------------------------------------------------------------ʽȷfalseʽȷtrue $T'zk]^[\u4e00-\ue863]{1,20}$'  $ 'd'ki|-----------------------------------------3 УڸʽΪ2012-05-09(Ϊ)---------------------------------------0  ,ΪDZ'd'kzk]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]))))$"^\b[1-3]\d{3}-(0[1-9]|1[0-2])$'  $ 'd'ki|-----------------------------------------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]))))$'  $ 'dX'kHi@-----------------------------------------3 УڸʽΪ20120509(Ϊ) У麯---------------------------------------@]^((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'kiz-----------------------------------------3 УڸʽΪ20120509(Ϊ)---------------------------------------]8^((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  $ 'd'kd'kd'kih-----------------------------------------4 У֤---------------------------------------Ϲ򷵻trueϹ򷵻falseP]790584216379058420Ȩ] 10X987654320У $T$''ȥո]0 J * 6)׶֤Ϊ,ΪͨУ'zk Gzj $$Gzj *[0-9X]Gzj &  &$' G 'j   &$  '   ' $ 8  $G'jiz-----------------------------------------У֤ -------------------------------------------------------------ʽȷfalseʽȷtrueH]"^[\u4e00-\ue863a-z|A-Z|0-9]{1,30}$'  $ 'd'ki----------------------------------------5 -УѧУѧУʶ 42λһλΪֻx-------------------------------------------------------------ʽȷfalseʽȷtrue] ^[1-9]\d{40}[\dx]$'  $ 'dp'k`iXz----------------------------------------6 -У黧 -------------------------------------------------------------ʽȷfalseʽȷtrue8].^(\u519c\u6751)|(\u53bf\u9547)|(\u57ce\u5e02)$'  $ 'd8'k(i u-----------------------------------------7 Уѧʱ-------------------------------------------------------------ʽȷfalseʽȷtrue]'^(((19)|(20))\d{2})((0[0-9])|(1[0-2]))$'  $ 'd'kxipq-----------------------------------------7 У-------------------------------------------------------------ʽȷfalseʽȷtrue(  ,ΪDZ'kxzpkh]^((19\d{2})|(2\d{3}))$'  $ 'd 'kiq-----------------------------------------7 У·-------------------------------------------------------------ʽȷfalseʽȷtrue] ^((0[0-9])|(1[0-2]))$'  $ 'd'k i v-----------------------------------------9 Уѧ-------------------------------------------------------------ʽȷfalseʽȷtrue8]^\d{4}[0-7]\d{3}[0-3]\d{7}$'  $ 'd 'k i v-----------------------------------------10 У绰-------------------------------------------------------------ʽȷfalseʽȷtrue]freg = "\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"R^((^1[3|4|5|7|8|9][0-9]\d{8}$)|(0((10)|(2[\d]))-[2-9]\d*)|(0[3-9]\d{2}-[2-9]\d*))$'  $ 'd 'k i v-----------------------------------------11 Уп-------------------------------------------------------------ʽȷfalseʽȷtrue(]^[1-9]\d{14,20}$'  $ 'd'ki-----------------------------------------checkXn Уѧ磨2012-2013-------------------------------------------------------------ʽȷfalseʽȷtrue] ] 1^(20\d{2}-20\d{2})|(19\d{2}-19\d{2})|(1999-2000)$'  $  -$'$$ 'dh'kXdP'k@i8-----------------------------------------checkOption У鱸ע磨Сvalue2-------------------------------------------------------------ȲС200false 򷵻true0 P'z@k8 P  'd'ki------------------------------------------------------ȽϴС(Сڵڷtrue)----------------------------------------------------------------'value1value2false 򷵻true PX'P X' P  'Dd'Dki------------------------------------------------------ȽϴС(Сڵڷtrue)-dec---------------------------------------------------------------'value1value2false 򷵻true0 P$4'P $4' P  'd'ki}------------------------------------------------------У鳤--------------------------------------------------------------- ,$'' $/ΪDZ'kzk ,-±0ʼֵΪָάõ± $$4 $$4'zkd˵У̶ $$4'zkki}------------------------------------------------------У---------------------------------------------------------------0 ,$'' $/ΪDZ'kzk $& Ϊzp .e+Сz@ $4e% С0zk ,-±0ʼֵΪָάõ± $$4 $$4'zx kp d˵У̶ $$4'z k k i ------------------------------------------------------УֵΧ--------------------------------------------------------------- ,$'' 'z8k0 $) Ϊz $4e) С0zk $4$$4 $4$$4'zkxip------------------------------------------------------Уֳ(Number,ΪҲΪСС0)---------------------------------------------------------------0 ,$'' $/ΪDZ'kPzHk@ $% Ϊz $4e% С0'zk$'+󳤶$'.Сλ .''' "˵ûС $4' $$4'zkd С  . $'DԪֵλ  . $' $$4 $$4'z@k8k0i(-----------------------------------------checkIsInt У鲻С0-------------------------------------------------------------ʽȷfalseʽȷtrue ] ^0|[1-9]\d*$'  $ 'd 'ki-----------------------------------------checkIsNumber УΪNumber-------------------------------------------------------------ʽȷfalseʽȷtrue(' $'ki-----------------------------------------checkMoney У0-9999-------------------------------------------------------------ʽȷfalseʽȷtrue]^(([1-9](\d{0,3})|0)|0)$'  $ 'd'ki-----------------------------------------checkMoneyTJ У0-9999Сһλ-------------------------------------------------------------ʽȷfalseʽȷtrue]`^([1-9]\d{0,7})$'  $ 'd'ki-----------------------------------------checkPersonNum У׶԰һ------------------------------------------------------------ʽȷfalseʽȷtruex]^(([1-9]\d{0,3}))$'  $ 'd'kxip-----------------------------------------checkIdNumLink У֤ԱͳûдǷһ------------------------------------------------------------ʽȷfalseʽȷtrue If colIndex = jhrIDColumn Then checkIdNumLink = True Exit Function End If]%Ա֤ǷӦ]$ں֤ǷӦ]ڵһγֵ±]"Ա,Ԫ֮ڵ]$ݺŽȡ]!,Ԫ֮ڵ] "ݺŽȡ]8P#]h%·]] $' $' (ڶλΪΪ P  x$^,XdڶλΪżΪŮŮ P  x$^,Xk $' $' $' -  -  P  x$^,X'i0-----------------------------------------3 УڸʽΪ2012-05-09δʱ(Ϊ)---------------------------------------]@]X]p]^((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]))))$' yyyymmdd$'   'zk  $ 'dh'kXiP------------------------------------------------------Уֳ(Number,ΪС0)--------------------------------------------------------------- ,$'' $/ΪDZ'k8z0k( $% Ϊz $4e% С0zk$'+󳤶$'.Сλ .''' "˵ûС $4' $$4'z k d С  . $'DԪֵλ  . $' $$4 $$4'z0 k( k i ----------------------------------------- Уѧ ҪΪ-------------------------------------------------------------ʽȷfalseʽȷtrue  ,$'' $/ΪDZ'k z k ]^[\u4e00-\ue863]{1,20}$'  $ 'd 'kx ip ȥǴӡַ P J$X'  $.   MsgBox addr  !%' MsgBox addr  P J+Xk i Attribute VB_Name = "У麯" '-%1 ,дϢ ʾ sh`eet$ʱ0! Ϊ1 Function checkRequired(bIndex, row coluDmn ) 'ԪDim cellValu@e As Sng= Work5s8).C s(;If2" Then0K gFalseE{Trund If E-2"ѧ ҪΪ8& !ʽȷuf7'At1wStu(vgCpRTrim?"R1IDS8Exit GIPre ^[\u4e00-\ue863]{1,20}$ '@ C(, /L|(_q{R2y{3 =1Ϊ2012-05-09(o)?"sBirthday5, fwArgsArrdrVC$,/9+0b* 'ΪCjB-`. km)pJ2oIMM' G"^((19)|(20))\d{2}-(0?[1 3578] 1[`02]))-9a[12][0ac3[01 (( 46"11Y#0?2 )))e^%\b[1-T3]309]|-c)c523d_bYd(dG udNecessaredcrSB2B0@9B[ |(3 / PgP1 5w9k / ]r@/ / gR05@R Ta R2TnM AA ?OpA 2Cx d  a02 ?1 ? ?<3 , su? 6?Oa/CO|(`??aMidr 1, 4) +0 "/"PU5,T 2_7$bsu, QQ'P're]f_*`h@'DateDiff("d", a, b) > 7 㼾J3~KN---p!%naSSo 9//,724A 2Q֤x?>ϹAq'Iȥb IsIDNumber(By0 y, )Boolea݀Const W' "790584P2163"2'Ȩ c10X98765432Cɒ '& = UCase(TMr)) 'ȥո  Dim s As Integer, i 4T4If colIndex = babyIDColumn And IDNumber6"" Then׶֤Ϊ,ΪͨУNaIsLFalse Exit FunctionEf !Len(H) <> 18K@Not Isberic(Mid, 17kLike "*[0-9X]UFor= 1 To 17 TCW@) W0g10Bss + ai! * T Ne xtCs Mo0d 11CRi(ghtI@)#c,l TAD)kTru@kch'-%AA& 'ʽȷ෵fBt,+ checkSFZJLX(`value^regHD"^[\u4e00-\ue863a-z |A-Z|}]{1,30}$"T- C(, CBQC ;@SEK E´`5Aec-1ѧ`ʶ 42λһλΪֻx4846r4chCode4[1-9]\d{40}[\dx]2C[222 '#6H2 8..FamTyp.^(\u519c\u6751)|3bf\u95D477ce`e02)?222d=2G?2*$7 dȀѧʱ811RXDat1^(((19@20))02})((0i]@12])OckJ}l13?rq+JV/N J--$_bHckYea"rG, fArgsArrDctR^d3= 0}'0ΪDZpcqI{i Ojo Kpk@"%19$|(23}#`t## np##4o#¿####Monthk:::?ck@/#!b:Eߟ_9RѐkOXJHS,4}P7т3u37o//ck@{Q#?10i఺OPho\ne?5'D\bi(([38h4[57Qi5pL35k8}050p2Pj-[J2r*[3{2}g)\bgK^1[3|4|5|7|8|9]@8}$Qt8!!ck!?!x""o- 11 Уп *< 'ʽfalse*&truFunction checkBank(value) Dim0 reg  = "^[1-9]\d{14,20H}$"If)CKFT(-, K Then%Tj&TB EQF^ End If ]k+ Xn%ѧ磨2012-3XnW]`yearsPa(20` 2}-)|(1N9CB9900)oi@hSplit', "-"DAc|B (1) - 0) 1L| ^= |}K ?H~ Du= g?FuB,OpCעСڂ2 D! 200 vxu##31Dm23$ 4b12""2ai-4eExit 'oJg3Le[D>2!@oFe}߈}ȽϴС(76)$@7eMa uCompareBBCIn{1F2EJ'J9c 87̃J?*-X5decO:5C %h dDec,g1= Cue1 r??!oz'z!RiaI, fdArgsiArrppy@q,IqGO3wX" @(u0"S 'ΪDZ7bKEPv]p UBound(] '±0ʼֵΪάõ qp&) >.<X) A@B<s2))g=?_oq]!5 '@˵.̶A.1o[ @9?@o@&;@@Ԡo \@0.@@b@R@@ Not IsNumerik53JΪ}>, I0nStrcp0." ) <> OС{oO 6`gq= 0 -p?P!8?P?P0Pbά If Len(value) >= CDec(functionArgsArr(1)) And T<T2T0ThenncheckInt = True/ E`xit F.E IfElse '˵У̶ȓ p,p1ow{'-2GֵΧsF E#" AValC, I)a Split , ","  FazGq@"" jHcANot IsNumericA 'Ϊ(E˜}AB@04С0$FL u0d7.^/}e0^Y^(8ber,Ϊ ҲcС@".)\ cc [c,@ càB:0)@ OΪDZZ=#tlQ4X>Aa`nn @ \m,!bmax',i 'QoؠDouble2) ' !,λintgthAInStr(".)W \ueGdouP%yûГ ?$`P ( ) OI!9+ +1^\o 5PMid1,  - 1Ԫ$Qg#λ_!h+pC ϓuϤ_?0Uqg oo` IsgDeC?@ȷеfs'Q5~t¶ C%Dim regp'"^0|[1-9]\d*$"[pC(, 6H /JHk?oth} AΪ_???Ѣj = 8?K??_Money 0-9E___' ++((+(\d{0,3})|0!_,k_,*H_,,V,TJ=#tλ/-5 'ȷfalse#*&tru$Function checkMoneyTJ(valu e) Di`m reg  = "^([1-9]\d{0,7})$"If)CIW(-, K Then%T mPTE  Fc End If ap,PersonNum У׶԰һ5/džK bHb3})bGB|= c cFWcIBdbLinkc֤ԱͳûǷx0i+(B, rowIndex, colwB@'jhrIDColumn' E)3Exit `9a ed !!yisGe@rRight As Boolean &',.A+ ӦvBirt&h3]le ngth2Integer ':һγֵ±5 gV!String,Ԫ֮@61Žȡb|B;year, Variant 'amonth, day, i %arrE-1UMid\17, 1[ g= H 8%A Mod 2`1b@XλΪΪ[Sheepts(sBoB71).Cells(GsC#o)"ЛA E,ż%PŮ?x?mn"Ů)$ ?! , 4"!, 5, 2x _, Y18 " 0 + "-" +*ppwN}]--3"}:ѐΪ2012-05-09ʱ(Ϊ) WNowNecessarzyn{sVS@cTtime`LPNߘИ(19)| (20)) 2}(0[13578]p1[02]p))((0P[ 12][03[01P469="1P02)G`= F@ormat(, "ymmdd"d( @ > :B!PV*0o )oߨw_2%@ +_$!,ֳ(ber,Ϊ1IС>0/+,um"1#,, fArgsCiArrSplit(y,uc }"1\(0QT0 ΪDZ4u)gY? $z?@ Not Isericc)( l1 ,h CDex<=   1@maxIn0tLen 1) 'a&8A(Do0uble0!(2)С|λtiInQ5'".i# Bu0Kdou!1%E˵ûГ r@(%) Bc oa5*True Exit Fun ctionEnd If 6Else 'ӀСvintValue = Mid(v , 1, InStr".") - 1) 'ԪֵʈλZdouZ-W++ k Len(R) <= CDec(fArgsArr(1)) A<ŗ2ThecheckNum1FaT< qG|'-% Уѧ ҪΪ 'ȷpfABt E- MStuName1El)QqYSplitw, "," 81eIf B@"" SyL(0) 0 ΪDZ|!y1Dim 8reg^[\u4e00-\ue863]{1,20}$" CVa1(,!)L!A -'%? !'Ǵַ @moveEnter(sheetIndex, row$col"`>addrCells(2 C`, Ch0)bBinaryCompare) > <'MsgBox #!$Ap`Pca.Work.Clean(AdR  S' !CrU 0` i1///(`9/,`9//(`9/(!`9/,I`)9//,q`I(`9/(`9/( `9/( `9/,9 `9//(a `9/(`9/(`9/(`9/(`9/,)`i//,Q`i//,y`i//,`9//,`9//, `9//,1`9//(Y`9/(`9/(`9/(`9/(`9/0!` ///(I`9/,q`9//, `9//0!` i///nrU $`$`ĿȷģٽдУA@,1qazN$FB@|k1qazN$FB@L1qazN$FB@L1qazN$FB@L `$^!XB@$-$ÿοʼʱѴϢsheet,'bϢ¼ʼ'.ôУУ¼Ƿд֣׶ϢУ (' #Ĭ϶ѼδͨУ' Ĭ϶δͨУ `$^!XB@$-$ÿοʼʱѴϢsheet, A65530$F%>%!"' ȡxcna = Worksheets(1).Range("1:1").Find(What:="*", After:=[a1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Column IV5 6%>%!F'FAILUREA@f&+ȡǷУɹ־Ԫ񣬲ֵʼΪ0'ռ¼ʼΪ0 * 2" ʱִd ʼУ鰴ť¼ʱִ.ȷʼ Уرexcel $.     !"#$%&()*+,-./012345678:;<=>?@ABCFHIJKNPQRSUVWYZ[\]^_`abcdefhijlmnoqܵݶʧʧ 0ܰʾ$, 2d1qazN$FB@|kk.$F!b(l)ҳǩΪɫ   "ûвҵѧϢ޷У飡A@,'*1qazN$FB@|k'ôУУ¼Ƿд$F!дϢ£A@Z   &  '<"ִ һǿУ ĵԪĿ';6ִ һǿУ ĵԪΪϹĿ''' 5"һǿУʱ¼Ԫ'9ǷΪЧ¼ 'C¼УǰǷд';¼ԱǷд ,  ,$F%X!'Oһбʶֵ'2=жforѭǷcallFunctionXQStart ûִĬϷ <ʶΪ -$'Gʽ14-3:25 :$'H6ʽ3:25ȡıʶвֳ֣кź͹ DJҪּϵҪУ飨ĬУ͵ԶУ   Y&+1ΪеһԪΪĬУ $:$'V*ȡıʶвֳ֣кź͹$'SԶʶ & $;$'cԶʶ͵ľֵ   gԱʶб $ & , A@}ݱʶֵöӦķk  $;$'Pȡıʶв   WԱʶб $ & , A@Hk@ eJ ʽ3:25$'QԶʶ & Pʶеڵǰ$;$'eԶʶ͵ľֵ   kԱʶб $ & , A@ݱʶֵöӦķkd-ֻĬУʽ14$;$'Hȡıʶв   OԱʶб $ & , A@Hk@k8 & ,$F%X( , 6ִ һǿУ ĵԪΪϹĿ    & е һдȷ''8УʱдϢ A@Z  'd   'Tÿһкϼеֵk  <,һؼֶȫ򽫸ɾ & +  ',"ϢеĸдϢɾ  b  b b  `$^%`B@br Ѹɾ  b  'b 'k &k   6 ɾЧ $'  A@^B ѸɾdP   A@^H Ѹɾk  (N-UxME<6 LL L"L < 4 `XkPz@h @X x@H @8 @@( @ ` `  `" `8 `$ %0X8 F,`^b @ @ @ @0 @H @` @x @ @ @ t @p @ ` @ P @@ 6f*2.@h0 @ 0Z @ @  @& @ 1@H `1@ P^0@, @p H:@ p:@ @p| @l B@0\ HB@L @X< p0H@, XH@( XJL@ P@ P0R@@ XY@x h@Y@[@ x_@ _a0pe@ @ @@ Xs@ h@sx@uy@x @h {@X {H S_$*\Rffff*0<634bbcad*\R1*#385*\R1*#125*\R1*#119*\R0*#17$*\Rffff*0>634bbcb0*\R1*#114*\R1*#42$*\Rffff*0?634bbcb1*\R1*#121*\R1*#253$*\Rffff*0@634bbcb1*\R0*#2*\R0*#f*\R0*#1 h"hp:x.6" "H.p )  :+ ;8@;H;h;>;" : "P, `$ >;,] ( ~@$UP1 8Xx W ; @ HP.=X  ,+; **R8 h%0 %D % % %0 % P%,p%& #6M$J $"h (,3 (P3 (` (,L,p 4JI <( <? 8 D6HH D0& HB< D @ ,  ,0  48H( 40&` 8 < 4 0 )" <( <<0H6H@H0&xPB<H <(",8H(,0&`0 <, ($$M  < "8(L7P(&( ( )$  > ,`,p (,&40M, ,,   (8(@h x*+$,  `7` h4+p=1 4  $(+P=hP1,4+=(1@P X ;` ; ; x" @HX2h$@6 @*P :   ,HPX ha--------------------------------------------ʼУ-----------------------------------------]@]X+ijһ͵ıʶкź͸ʽ3:1;2]p ʶ(ĬϱʶԶʶ)](ijһ͵ıʶ飨кź͸ʽ] ijһͱʶľֵ]Զʶ]%Ѽ¼ΪյкŷŽ] F!X'"ȡĿ 0   ˴Уɾ :Чݣ֤У鶼ʧܼΪЧݣA@,k *дϢ鿴ϢA@,$F!b(l `$^B@Hd('0A@ 0'%ִУظݷ,ûظǷҪɾЧ Уͨ!A@,.$F!b(lSUCCESSA@f:+ȡǷУɹ־Ԫ񣬲ֵʼΪ0 A@Hd *ظݣ鿴ϢA@,$F!b(l `$^B@Hk k 1qazN$FB@1qazN$FB@1qazN$FB@o8 q-------------------------------------------------ظijһ------------------------------------------------ ]`x] A65535 V%>%!"'2Scripting.Dictionary$.&O8O  V%>!'(>ȡѧ * (%"ѧ໤֤ݽб * * &%,-֤Ų * &B@.&#addһΪkeyڶΪvaluek8 k0 ( !0'"Sheet2$FG:G7>B@$ " !%4 !XG17>,2q. oAttribute VB_Name = "" '-( У&l Sub :򲢴ӡϢ() Dim rowDataNum%typeValue 'ijһıʶкʽ3:1;2?bsT '(Ĭ0CvalEntity8?: 7,@ֵhR0ow '>_isNullArr(500) As Integer 'Ѽ¼ յā0ÁP sheetCountWorks. 'ʈĿ If H<> 3 Thenm MsgBox "GȷԀٽдˁ@"(1).Protect Password:="1qaz DExit #End IfKUnpH 2).h 3_ Sas(m sgB).Cell]learCotnts 'ؼʱɂ` ,C7cur]= 1 'G A hasError=Fals`hôB/У Ƿ!֣׶r hApplication.ScreenUdpdng sysDifficultyGradeFla0b o϶Ѽδͨ!!cindeofy eOM?,?,-, rnaHRange("A65530").N(xlUp).. h/DcW 1:1F(What ]*", After:=[a1], S`DchOrBdAxlBy>s1Dir e2:=xlPreviousKolumtb$1.$IV5ToLeftks T®XQ 2,A8, "FAILURE"aG!7ɹԪֵʼΪ0 ƙ +AP `x isSaveButtonvbOK ฀ʱִEEZ^`Ӱť¼) ("ȷm cرexcel" & Chr(1`& "ܵݶʧ0ʧ7Can`@&ܰʾ") c"Ř@ kO TQKTab`PlorIP8x -4142fҳΪ8ɫ b2startTitle\ +PIlb cвҵ ѧ1G0޷!bQ%_Q!%ee`9QhU>ÏUUQ1writeLog + 3S`'"ֲY£?->  {Fbi2 ToaP atLea0OneNQ= P>: Ҁǿձ BOPHΪ᧵?totalMoney&ewF "?¥z"URzSis`\izeH[Ϊ015/InE 'ǰQC0w??9dcbTԱ~A}-j 1,pW=9(1, j ).qɵһ㾥_$is = $forѭѵcallFuncXQSV S5̗Zwp&QZ ' !/= SY t(o-o'C14-3:250cۿ ":c˵Ad0P?c?UBId(S) 00s"ҪּϵQQ0͵SUO ?For m = LBound(bsType) + 1 To U '+1ΪеԪĬУ 0valEntitySplit(m), ":") 'ȡıʶ@֣кź7ŅZtRowDJ(0?Զ=3v4"0If iSXThen)'@>bGA1b;bBľ`ֵFpor n@)#H'ǀ=callFunctionXQStart (n>1, i, j@sValidateC΀t 'C$ֵӦķ &&NextEnd If! me aAYsA?= False YM5WCw"W?U U rSoSQMKE=?row<> 0?kʽ3:25_eǺ v `W) 'еڵa3E?_ʶo?__4__?6_ i_____9:X'ֻЅ)B914'YY//O$O$O$O"O"M" ?oWorksheets(1).Cells().Lock|edJz= j}'ִ ŷq ĵԪΪϱUatLeaOneNullsfA0= 6?merrorMsgP"" && "0\6ArE"дȷ"GhasC= True 'ʱeд8ϢOOwriteLog /=S=^T+ ?/~!OntotalMoneyLSu+ 'ÿһ@ϼO4?Q},c>1 'Aؼֶ򽫸ɾ is+Arr(Num) )ic %isNullRowNum = 8+ 1 &P'Ϣ@ĸ +PFor pcurM$sg -ValidateCount To ,oSheets(msgNamHe).8s(=).Delete 'Ѹq+pNext peH=|is +h asErr[= InEnd If :i5q0| - 1 '_Ч Л!@|rowDataArr(Dq)If D!hen^ ŗdŠ1, )Else -V;3;qw&j6> 8>(~Box "˴Уbl" &k & "?ݣ֤@СʧܼauΪ"-feTeF鿴 Worksc1).Tab.ColorIndex`b672S`Qct7J `S` FaAOcheckXQNew (1hq'NotE n0 'ִA;ظ7,û'ǷҪဵą;3Cͨ!/!ı/-41427setCellueXQ 2,A8, "SUCCESS" ' ȡAɹ־Ԫ񣬲ֵʼΪ0 qFGna(? ,u,,,,,y,;Protect Password:="1qaz 2).:3 Subp '-!2ijһN  ;(2;Dim myDic As (Obj,KeyVarianrCB4, vaFrQu|rnaCA ctive.Range("A65535").P(xlUp).@q '*Set idpz = Cre`S ("Scripting.tionary"Ge" = "O8"08Od@ ).valu8ѧ!d !Each cara In 'Ա໤ggqMA^J V<> ""> PRe .EXxis) 'qReԎ1Add,  'add#һ@Ϊkey*qSsSmy"=C$.srWithj 4"!2W!G:G!ClearContentc 0&1Resize(+q)&@pplica1!.Fun@(on.Transposa #1 'c0= `hP& !: __SRP_2Yv__SRP_3"ShowFormSheet5~ni 9YL+nxME(SPSSS0{E46EA0DF-4728-4693-8DA3-DE215144288D}{5C101A65-3261-4F6D-8DCB-E349688881B6} 8@ <% %@@rU~| H i 9Y @ )  q9  `@!9Qq i Yya a  I)$0li(]@+'t'':N 6t;:%p(%$dp)p;:%p(%$dp )p;:%p(%$dp )p;:%p(%$dp )p;p: %$dpW )p5 {z" $ (` (P;p: %$dpW )p5]%:%p(%$dp>AUz)p6U%'%:%$ppa"z)p61:Ntt(((0 6 t0 ( uW  ''0:Ntt: :!^6 t0r;:%p(%$dp)p=(%p(%$dpW"C#)p5 un+'t'':$N 6tz;:%p(%$dp)pzRp(%$dpW%:&`  '/ )p6 u ( uDh (( () (* +, :+- (uz.z/(uDhP M(% @p(%$dp A0h)p5z1h:+]@ 3:2Nh  3X/ 53:4Nh  3/ 5X5IL,X5ILi|X5Iih\I| @X:4N  3H/ 6(%H((3zH(%H:5N  38/ 6&85ILiL85Iih,z<L @8(q(l 6-(6 L~,3 |~\Z u1GH(%X:5N  38/ 6&85ILiL85IihG<L @8(q(l 6-(6 L~ 5I= (%((38 H(%:5N  38/ 6&85ILiL85Iih8 <L @8(q(l 6-(6 L~ H(%X:5N  38/ 6&85ILiL85Iih <L @8(q(l 6-(6 L~ Mf% @ @p(%$dp C7)p5 ~O")(]<)(/' 7:8:9-::t`,6tz, '5( *(]t U " ( &vivih Mvi%p: %$dp;<)p5 ~@ vi"{u.z ~(x (hXZ x"pzx(]3 zM@( = 6M ,kzDx(t = 6t x~X  (]t 7'0't':> :? 6 t0uG+'t'':@N 6t=(%p(%$dpW"C#)p51p: %$dpA)pzB( C6 uB7+'t'':DN 6t=(%p(%$dpW"C#)p51:ENtt(((0 6 t0,M@(((t F6t+'t'':GN 6t=(%p(%$dpW"C#)p51p: %$dpA)p;:%p(%$dp)p;:%p(%$dp)p;:%p(%$dp)p$V%l\<,hXP|XLxh`H8( 4 ( pt00   fS_ " 0 8"HP Xh xȡ]' B@:RƸ oHȷtC6@ >' B@:sfd55oPAttribute VB_Name = "ShowForm"  Bas|0{E46EA0DF-4728-4693-8DA3-DE215144288D}{5C101A65-3261-4F6DJCB-E3496B81B6}dG lobalSpacoFalse CreatablPredec$laIdTruBExpose0TemplateDerivCustomizD'ȡ P Sub CancelButton_Click() notContinueBoolT Me.HidZEnd! @ 'ȷ ,onfՏ,-Fl;/<jxh#<%{MqE), F 6Fx 6F%{MqE),ME(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%H` %@ %`h8@``0S_$*\Rffff*0A634bbcb14xAttribute VB_Name = "She@et5" Bast0{00020820- C$0046}|Global!SpacFalse dCreatablPre declaIdTruBExposeTemplateDeriv$Bustom izD2rU 9ya)4__SRP_c__SRP_d BPrintForm_VBA_PROJECTq8$`rU @nHLOʘxME(SPSSS0{58A7FD64-A773-46F3-9006-AA8B0581EAA0}{5D1A906A-1E09-4E09-8F83-ED2561E42042}p0(%X0 %0`S_xAttribute VB_Name = "PrintForm"" Bas0{58A7FD64-A773-46F3-9006-AA8B0581EAA0}{5D1A906A-1 E09-48F83-ED2561E42042}dGlobalSpacoFalse CreatablPredeclaIdTruBExpo se0TemplateDerivCustomizDR0* pHd VBAProject4@j = rowIndex6d` columnIndexP` cellValue@` ActiveSheet%N`Cells`(writeLog{u`contentl`Sheets ` (msgSheetName'` (curMsgRow/` (writeLogRedm`nLene,` Charactersrg`FontU` ColorIndex`(addCommentXQStartS` sheetIndex ` errorInfo` AddComment`Interior;`Color2F`CommentHs`(clearCommentsXQStart7`ClearCommentsf`sheet2RecordNum`ffTotalNumColumn`xlNone`(beginCheck_comment;D` checkMethodHd`(errorMsg'|`(removeSpaceFlag` (cellContent`(callFunctionXQStart `typeVal#`isValidateCount8`valueK`titleMsgh` (startTitlel` (headIndex` (functionArgs8M`(checkMethodXQ`(checkRequiredb`(hasErrorf`(isFord`(removeSpaceXQ` (checkStuNamec` (removeEnter`(checkLeng`functionArgsArr`Split)`(checkNumh` (checkNum1%`resultur`(getCellValueCountXQc`val`result1`a1k\`(checkStuName1`a2l\` (setDMBCoded`(checkValK`(checkInt`resZjlx0` (IsIDNumber-*` (checkSFZJLX*`(checkDMB` (checkBankUw` (checkYear6`(checkXn` (checkMonth`(checkBirthday`(checkNowNecessary`(checkBirthdayNecessary2`re^`su)_`(checkBirthdayNecessary3`(checkPhoneNum` (checkOption,`(hasErrorIdNum`mc9^`rs_`(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``babyID1` (babyIDColumn`ja`babyID2` (hasTheSame`(GetRowOrColIndexf`keyWordF`kbn1`cZ`Findn`WhatC`LookInP`xlValueso`LookAtO`xlWhole`Columni`(setCellValueCountXQ]`colIndex` Unprotect?`Password`value1`flag`Trim@`rowData1`Count0v`rowNummR`(AreasheetIndexH` (deleteRow`RowsU`Deletex`(deleteRowNoPro`(setCellValueXQ` codeValue` (columnPlus`length1S`length2T`Replacef` i`(!ValueColumType` columnNamew`(sheetIndexValue1`(AreaSheetName`(readmeSheetName` (totalCount-`(rgold`(hasErrorInValidateU` (dataRowStart` isNullRowNum8`(cna`(notContinueBoolt` (genderColumn~`(birthdayColumn0` У麯&`(checkBirthdayNecessary`aX`DateDiff`IDNumber4 `Wm`UCase5 `sj`Tk` IsNumeric$*`a *\G{000204EF-0000-0000-C000-000000000046}#4.1#9#C:\PROGRA~2\COMMON~1\MICROS~1\VBA\VBA7\VBE7.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.7#0#C:\Program Files (x86)\Microsoft Office\Office14\EXCEL.EXE#Microsoft Excel 14.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.5#0#C:\Program Files (x86)\Common Files\Microsoft Shared\office14\mso.dll#Microsoft Office 16.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\Windows\SysWOW64\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{8986389F-0FBA-4FB3-B0F1-2B93242220E0}#2.0#0#C:\Users\lurenjia\AppData\Local\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E.`M  S_   ThisWorkbook0=634bbcb0!ThisWorkbookzLx Sheet10?634bbcb17 Sheet1H? Sheet60B634bbcb1A Sheet60SbpSȉ04634bbcadBSbpSȉHq]wQQpe0@634bbcb1L]wQQpe`OXf0>634bbcb0rXf&x!hQpe0C634bbcc6!hQpe~j;N z^0<634bbcad;N z^Ux`-ShowForm09634bbcad7ShowFormn1 Sheet50A634bbcb1A Sheet5hPrintForm0;634bbcadCPrintFormʘ`Hx0je>σL6Ob^H$ElihNB)܌Iyi_)H:Ը32UJ?A=mKϳ؅5WPS3ApuasRUjD[}0j]ҼK_mdf ^E/O&d2DPfbAZI43S b!8compare Excel+` VBA`Win16~`Win32`Win64x`Mac`VBA6#`VBA7#` VBAProject`stdole``Officeu`MSFormsC` ThisWorkbook|` _Evaluate`Workbook_BeforeSave l`SaveAsUI`Cancel` (isSaveButtoná`MsgBoxR`ChrK~` vbOKCancelx?`vbOK%`(У򲢴ӡϢ` Sheet1`Worksheet_Activate+`Worksheet_SelectionChange4`(TargetF`Range ` Sheet6` ӡԤX` (Browse_Prints` Worksheets`Visible` PrintPreview` ߺ`(checkedRequiredStartR`Right` (checkSchCode` (checkFamType` (checkRXDate*`(checkXJHF`years`value2` (compareDecN` maxIntLen1` maxDoubleLen` intLength`intValue`douValue` (checkIsIntR`(checkIsNumberG` (checkMoneyTJC`(checkPersonNum `(checkIdNumLinkUz`IdNum>`isGenderRight ` isBirthRight` genderValue` genderValue11` birthValue` birthValue1~`year6n`year1w`month`month1`day`day1;`arr u`st(_`timeNowy` timePrint`Now%`addr`vbBinaryCompare̝` Application*`WorksheetFunction&`Clean` ` rowDataNumn` typeValue`bsTypet` valEntity܏`typeRow` isNullRowArr/` sheetCountB`Protectf`ScreenUpdating! `sysDifficultyGradeNameFlag`indentifyDateFlag `xlToLeftWY`rowType`md`ne`Locked `totalMoneySumZ`pg`qh` (checkTheSameg`myDico`myKey`varData`idNumDick` idNumDicData`cardNum\`Exists]`Addr`Keysq`Resize@4` Transpose` ShowForm`CancelButton_Click`Hide9z`ConformButton_Clickwf`Flasep` Sheet5` PrintForm`Workbookk` BeforeSave` _B_var_Chr\;`_Defaultj`!_B_var_sysDifficultyGradeNameFlag_`_B_var_indentifyDateFlagE` Worksheet`Activate|`SelectionChangen`_B_var_isNullRowNum;r`_B_var_i `_B_var_isValidateCount"`_B_var_j `_B_var_rowType`_B_var_m`_B_var_n`_B_var_totalMoneySumY`_B_var_p`_B_var_q`A !s C 7AC M7"@ p0(P7q YX!HH  dir'V__SRP_0__SRP_1!9ShowForm(%~ďWďr S_ J< rstdole>stdoleh%^*\G{00020430-C 0046}#2.0#0#C:\Windows\SysW OW64\e2.tlb#OLE Automation`EOffDicEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files (x86)\Common \Microsoft Shared\oC14\mso.dll#P 16.0 Ob LibraryNMSForms>SFrms3D452EE1-E08F1A-8-02608C4D0BB4TFM20.DlLLH'B @a&/;"1lrAr00}#0r# 50 A8986389F-0FBA-4FB3-B0F1-2B93242220E@FUsers\lurenjia\AppData\Local\Tem@p\VBE\U.8exd<@".E.@`M  ThisWorkbookGUTi@lWnkbok 2 HB1B,zL""+BsSheet1*GSe@atn1 w2?SH66%66ӡԤGSbpSȉe2joqp!(e) ߺc]wQQ|pececeoO3`\kG;Xlf"a2fo o&&У!he'eojo~k!LGbQ;N z^6b2o -o U2ShowG`6\ow3e2ro1]nO( l5^5^5^5^)zh^ Pr(intCr0inwEbj2od0ʘrU~~~y        SaveAsUICancel  (TargetrowIndex columnIndexcontent sheetIndex errorInfo checkMethoderrorMsgtypeValisValidateCountregvxcel &TRS[penc"N1Ybhg1Y% )nc:yTabColorIndex "l gg~b0Rf[uOo` elۏL!hName -NOo`Y N  value - : ; Locked ,{ Lvpency checkStuName -N\ gN*NkXQcknxhgRows Delete dk!k!h-N RdN :LeHepencYT0NNSR!h1Y%sS9eL:NeHepenc * gOo` g w Oo` h ۏLOck Select !hǏ! SUCCESS * g͑Ypenc g w Oo` h ۏLOckqxq  %{MqE), 6F auCakJJ2CRF checkRequiredcheckBirthdaycheckBirthdayNecessarycheckBirthdayNecessary2checkBirthdayNecessary3 IsIDNumber checkSFZJLX checkSchCode checkFamType checkRXDate checkYear checkMonthcheckXJHcheckPhoneNum checkBankcheckXn checkOptioncompare compareDeccheckLencheckIntcheckValcheckNum checkIsIntcheckIsNumber checkMoney checkMoneyTJcheckPersonNumcheckIdNumLinkcheckNowNecessary checkNum1checkStuName1 removeEnterlI@0FC:\Windows\SysWOW64\stdole2.tlbalue sheetIndex2keyWordkbncolIndexvalue1flagrowNumfunctionArgsArrresuIDNumbervalue2 functionArgsIdNum.E.`M C: }t rms qq Microsoft Forms 2.0 FormEmbedded Object9qmp\VBE\MSForms.exdrowVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} ShowFfD&o$&CompObj'EaVBFrameGorm Caption = "UserForm1" ClientHeight = 3180 ClientLeft = 45 ClientTop = 375 ClientWidth = 4710 StartUpPosition = 1 ' End  }t  Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} PrintK*   rU~~~~~~~~~"~~~~~~~~~~ *}DeWfg  a   a  Aa  )Aa `1QAq )Qaa   " 1iAi1Ii!Ai 9 Y a aa    VBAProject ThisWorkbookSheet1Sheet6ӡԤߺУ麯ShowFormSheet5 PrintFormF /C:\PROGRA~2\COMMON~1\MICROS~1\VBA\VBA7\VBE7.DLLVBA ) Q0F:C:\Program Files (x86)\Microsoft Office\Office14\EXCEL.EXEExcel Range !I@0FC:\Windows\SysWOW64\stdole2.tlbstdole aPL-[DREC:\Program Files (x86)\Common Files\Microsoft Shared\office14\mso.dllOffice Ai`.E.`M C:\Windows\SysWOW64\FM20.DLLMSForms qqp8O+$" 4C:\Users\lurenjia\AppData\Local\Temp\VBE\MSForms.exdrow QqyУ򲢴ӡϢ checkTheSame FQ?8AC@xFL=NhHJ>DFWorkbookWorkbook_BeforeSave @ .`/f&Tnx\OX[excel YOX[ pQ nx[ , &|~\ۏLhg!h YNOX[ pQ Sm ? Oo` Nxh f, 00 $4DHLPdVBE7.DLLq ` q S FFqF 0]\OhpevNcknx N}ge!jgT QۏLdk!h 1qazPasswordProtectUnprotect CellsClearContentsF A65530End IV5Fo|75N;3. F3?]^A7{DF WorksheetWorksheet_ActivateWorksheet_SelectionChangeFF FAILUREcheckedRequiredStartwriteLog writeLogRedaddCommentXQStartclearCommentsXQStartbeginCheck_commentcallFunctionXQStart regCheckFunccheckTheSameXQNewGetRowOrColIndexsetCellValueCountXQcheckDMB deleteRowdeleteRowNoProgetCellValueCountXQsetCellValueXQ setDMBCoderemoveSpaceXQ 4`nx[_YhgT hgǏ z-N RsQePrintForm-*Wď ďfL&o)+CompObj,MaVBFrameOPROJECTwmTPROJECTXSummaryInformation(0gForm Caption = "UserForm1" ClientHeight = 3180 ClientLeft = 45 ClientTop = 375 ClientWidth = 4710 StartUpPosition = 1 ' End ThisWorkbookThisWorkbookSheet1Sheet1ߺ]wQQpeXfУ麯!hQpe;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=ӡԤ BaseClass=PrintForm Document=Sheet5/&H00000000 Document=Sheet6/&H00000000 HelpFile="" Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="4143EDEBF1EBF1EFF5EFF5" DPB="82802E6D728A728A8D76738AA24B12227B90682C5BD3408C0FBFC9DAF46C7E3CA6B84635ED" GC="C3C16F2CB12DB12D4E" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=0, 0, 0, 0, C Sheet1=0, 0, 0, 0, C ߺ=0, 0, 0, 0, C =0, 0, 0, 0, C У麯=0, 0, 0, 0, C =0, 0, 0, 0, C ShowForm=0, 0, 0, 0, C, 26, 26, 820, 501, C ӡԤ=0, 0, 0, 0, C PrintForm=0, 0, 0, 0, C, 52, 52, 846, 527, C Sheet5=0, 0, 0, 0, C Sheet6=0, 0, 0, 0, C Oh+'0@H\p  lurenjia lurenjiaMicrosoft Excel@&@}[ď՜.+,0HP X`hpx  ־ѧҵ Ϣdc  ΧDocumentSummaryInformation8k,CompObjph FMicrosoft Excel 2003 Biff8Excel.Sheet.89q