ࡱ; n T8\p Administrator Ba= ThisWorkbook=gk 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[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   0  1ff 2 3 4`   5 6 7  8 * * * * * *    @ @  @ @  ""@ @ @ @ @ @ @ @ !@ @ ""@ @   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 ||qАn}-} 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}9 e?_)[$ -}}}: ????_)???[$ -???##0. ??? ???}}; ??v?_)̙[$ -##0.  }(}<  ?_)}-}= ?_)}A}> ?_)[$ -}A}? ?_)[$ -}-}@ ?_)}A}A ?_)[$ -}A}B ?_) [$ -}x}C?_) [$##  }-}E ?_)}-}G ?_)}-}N ?_)}-}O ?_)}-}P ?_)}-}Q ?_)}-}U ?_)}-}X ?_)}-}Y ?_)}-}Z ?_)}-}[ ?_)}-}_ ?_)}-}` ?_)}-}b ?_)}-}c ?_)}-}e ?_)}-}i ?_)}-}j ?_)}-}n ?_)}-}o ?_) 20% - @wr 1; 20% - @wr 1 % 20% - @wr 2;" 20% - @wr 2 % 20% - @wr 3;& 20% - @wr 3 % 20% - @wr 4;* 20% - @wr 4 % 20% - @wr 5G. 20% - @wr 5 ef % 20% - @wr 6G2 20% - @wr 6  ef % 40% - @wr 1; 40% - @wr 1 % 40% - @wr 2G# 40% - @wr 2 L渷 % 40% - @wr 3;' 40% - @wr 3 % 40% - @wr 4;+ 40% - @wr 4 % 40% - @wr 5G/ 40% - @wr 5 L % 40% - @wr 6;3 40% - @wr 6 % 60% - @wr 1; 60% - @wr 1 % 60% - @wr 2G$ 60% - @wr 2 23ږ % 60% - @wr 3;( 60% - @wr 3 % 60% - @wr 4;, 60% - @wr 4 % 60% - @wr 5G0 60% - @wr 5 23 %! 60% - @wr 6;4 60% - @wr 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@wr 2;!@wr 2 PM % ?@wr 3;%@wr 3 Y % @@wr 4/)@wr 4 % A@wr 5;-@wr 5 K % B@wr 6;1@wr 6  F % Clʑ^ lʑ  XTableStyleMedium9PivotStyleLight1683ffff̙̙3f3fff3f3f33333f33333\`&"NV[R_VYf[ёDRNR TUS3u_qNxhOo`VV!  =dc:- KmՋ@b g!hĉRv^SbpSOo`ffh,+@F>xMO?S AA@A@  1 7 checkDiffNameV[V~+R Ty checkSqyyCode3ut1uxkuNOO checkSqyyName3ut1u Tyf[uY T 77usYel T^S/f Ty{|W checkYesNo checkGender'`+RsY'`+R7u^8^VN,V NVvQNeUSNd[?QpXP[sYQQgNOVuV~pmQNNsfzjh 7_OS WU W2 WX W" W# Wx W%  W$  Wd  We  Wf  Wg Wh Wi Wj Wk Wl Wm Wn Wo Wp S1 l? ST d4 S5 S6 S7 Sy S8  S9  Sq  S  Ss  St Sr Ss St Sr Ss St Su Sv Sw BxB>s(   vj Ng3X? p]4v6@ E@ķQ> <kXQf[uvY T<~~  <h3CC@],@3w9 $< _Yhg<~~ i <i3CC@G],5@w9 $<_ Y h g<v6admin>@dinjn7 Sheet1ggDh4hj:SW2 T8 7}  dMbP?_*+%&ffffff?'ffffff?(?)?MFoxit Reader PDF Printer_ 4dXXA4" dXX333333?333333?&<3U} @F} D} D} !D}  E} E}  E7 @ ,,,,,,, , , , , ,,  M H H MN O}GGGG 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 L GKKLGKKL 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 I I@ I I D, lP 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 '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 2I 2IR 2KS 2LD 4I4I? 4K 4L 5I5I@ 5K 5L 6I6I@ 6K 6L,4|<<<<<<<<<<<<<<888<<PH  0(   >@?7 Sheet5ggD T8 ,t$  dMbP?_*+%&ffffff?'ffffff?(?)?"333333?333333?&<3U,     GGGGGGGGG G G G G GGGGGGGGGGGGGGGGGGGDl  !"#$%&'()*+ G!G"G#G$G%G&G'G(G)G*G+Gh PH00(  >@ 7 Sheet6ggD T ? &" WMFC ,l4!K EMF, V@8F, EMF+@``F\PEMF+"@ @ $@ 0@?!@ @     !" !" !  " !  5" !  5" !  5" !  5" !  5'%     Ld4%!??'%   &% 6% Ld!??% 6% Ld!??% 6% Ld!??% 6% Ld!??% 6% Ld!??% ( '% % 6% Ld!??% 6% Ld!??% 6% Ld!??% 6% Ld!??% 6% Ld!??% ( Rp[SO090W`2p[w,(S`2@0,z,T0z,d0zp[wt9N0zH0 x= H07!  - ^0ކhxv$t0dv%    T|GihAUuAGL\vQNDRNR TUS$$$$$$$$Rp[SO090W`2p[w'(S`2@0'z'T0z'd0zp[wt9N0zH0 xȖ H07!k"  -k" ^0ކhxv$t0dv% Td;hAUuA;LTf[uY TT`ThAUuALTf[M|STpBhAUuALXNN{|WTlhAUuALXNNS% % " !% %   5'% (     ( &% 6*% Ld)*!??% +6% Ld++V!??% 6*% Ld)*!??% 6*% Ld)*!??% g6g*% Ldgg)g*!??% 464*% Ld44)4*!??% 6% Ld!??% 6% Ld!??% 6% Ld!??% g6g% Ldggg!??% 464% Ld444!??'%   ( &% 6% Ld$!??% 6% Ld#!??% 6% Ld#!??% g6g% Ldggg#!??% 464% Ld444#!??% 6% Ld!??% 6% Ld!??% 6% Ld!??% g6g% Ldg!??% 464% Ld4!??% (   ( &% 66% Ld46!??'%   ( &% *66*% Ld*4**6!??% 66% Ld46^& WMFC ,!??% 66% Ld45!??% 66% Ld45!??% ( % " !%   550  % %   % % !&% '% &% ( '%    Ld>>>!??Ld>m>0!??'%   Ld>m>0!??Ldmmm!??% ' %   Ld???!??Ld?l?.!??' %  Ld?l?.!??Ldlll!??% %  Ld@k@,!??% " % % % %   % %   % % @lRp [SO090W`2p[w%(S`2@0%z%T0z%d0zp[wt9N0zH0 xL H07!k"  -k" ^0ކhxv$t0dv%    TxJdhAUuAJL\_ Y h g% % % " !% %   5% % K@0 55  % % % ( % ( " Q|4P(x5( F4(EMF+*@$??FEMF+@   5  '' ' ,5' ,5' ,5' ,5' ,5-   @ !%- -- @ !-- @ !-- @ !-- @ !-- @ !---- @ !-- @ !-- @ !-- @ !-- @ !-- 2 Gҵ$$$$$$$$-2 ;ѧ2 ѧ2  ֤2  ֤-"System-'-- ,5-  -*- @ !*-+- @ !V+-*- @ !*-*- @ !*-g*g- @ !*g-4*4- @ !*4-- @ !-- @ !-- @ !-gg- @ !g-44- @ !4- -- @ !$-- @ !#-- @ !#-gg- @ !#g-44- @ !#4-- @ !-- @ !-- @ !-gg- @ !g-44- @ !4- -6- @ !6- -**6- @ !6*-6- @ !6-6- @ !5-6- @ !5--'- ,5,5--  --- - -  -    @ !> @ !0>-   @ !0> @ !m- -  @ !? @ !.?-  @ !.? @ !l- -  @ !,@- '----  - - - -,l@-  2 J ʼ ---'- -  ,5--,5 - -- - '#A 5(NANI > &xRRME(@l0D6 <`lhX0hnrHvH@ʀx @8 @ꀐh @Bx @%Ϣ%ꀪh  @  @ꀦ @"B‚(@ʀX @@ꀬ @TBbhB!ꘆB#˵%pBfHpH%txHxcnʘB", Aʀ @ectiʀP @%x8ph @ꀤ8 @Ϊ00 @"(  @z  @xcel| Bʧ~P@1qazꀒ @h@ɫꀀ@ϢʘBꀂ@ @ôꘄpB"H8h(XPpx x8@Hj$p(8H[*\R1*#278$*\Rffff*0>5b8ec715(*\Rffff*0>5b8ec715\044    08  @ ` Dp 8 0 P0pD084P. ..(8(`>"$$@>`R^FX `*0$`   \^plyl^0p@һṹҳ]$H=Public Const sheetNameValueTJ As String = "2ʵͳ"H]$Ϣ2Public Const IntroSheetName As String = "˵"]$H]$˵] x ¼ܵУ]$H¼ͷ] "ִ һǿУ ĵԪĿ] x6ִ һǿУ ĵԪΪϹĿ] ÿһкϼеֵ] "һǿУʱ¼Ԫ] Ϣ] %---ģУ¼ĸԪ] 8---ģУ¼ĵԪ]  Уʱ洢ַ] 8¼ʱرհť]  ¼ܵУǷвϹ] h ¼ܵУǷظ] #¼ܵУǷظ] %/¼ЧǰǷдϢ ״̬] #У鷽ķֵ]$)¼ʼк]$ )ѧѧſʼλ]D¼ΪյĿ]P"/ǷΪЧ ͳ 5ֶΪյĸ] ("C¼ȥոִнȥ˿ո򷵻true򷵻false] PcellԭʼĵݣϵͳûнԶûĴ֮ǰcell] X7ϴдϢʱڵ,ӦĿʼʱʼֵһ] ] ] RڸݱʶòͬķʱжǷforѭ Cell_SelectionChangeҪõñ]$¼ʡصȼ¼ڵ]$+sheet±Ƿ] ]$h@)е]$) ԱЄ]$p+Attribute VB_Name = "" 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 '!crge r6Ա s birthday= rU@@@@~xI1A  1 ( Q A  !.qq1q4Q0!01&A%%a&&'1'0`q'@<'')*!*Q*q**+A+q+,,-8A-q--LggD08Z8`0l@8g@\gLpI(pg\h8Z8h8hg{gg\h8Z8h8hg\h8Z8h8hg\h8Z8h8hg^h8Zp8h8hgg pg4p 8Z888gPg8g^h8Zp8h8hgh8Z8h8hg8 Z! 8V"hh#8hgV$Ipp( pgg%?gg &Ipp'O(O(? p gg\h8Z8h8hg{gggdh8Z8h)*8hgx>JgLp+I(pg p%g\h8Z8h8hg{gg pgh8Z8h,-O` 8hgxg( kg.g/g0g12g13gpg4g p5g(X#k(PgzX @h8Z8h68hg p7g1\gV8Ia (gV9Ia (g"qnP gFqmlqnl gv @9Ia (g$gKl gv:Ia (g>qmlqnll gj @ExppXp 0xg gg g7p> gv:Ia (g>qmlqnl@ gj @ExppXp 0xg@P gg"qnP|g$gKpgv:Ia (g>qmlqnlpgj @ExppXp 0xggggv:Ia (g>qmlqnlgj @ExppXp 0xg6gggx @X @h8Z8h;8hgX(g6/T/.C7l0gZ<O=O3O>Op`2pgg2g ppRgg0ggpg`Ag g>lplgxlph8Zp8h?@8hgg"lpg4gg gg2h8gh`!ghKxg4@ ggNkhp pggh8gdg^pAOBO( pgg~gLpCI(pgdh8Z8h)*8hgNh8Zp8hD8h(gg pEg& gE gLpFI(pgdh8Z8h)*8hgVGIpp( pgJ@p (p"ggLpHI(pgdh8Z8h)*8hgNh8Zp8hD8hggg\h8Z8h8hg\h8Z8h8hg\h8Z8h8hg{LX4%@(X@(P8X8@hpP`?.aP x8hpHi@ aS SK*   rU@@~~~~~~~~ ~~~2~ ~~~~ ~ ~~B"Q]D0Kg&w'  aA  aA 1qaA a p1"q"""#Q###!a$A$q$$$%!aa Q  /A/q///++'0A0q000111Q1111212a2222!3Q3334A4qa  Q a A qA  VBAProject ThisWorkbookSheet1Sheet6ӡԤߺУ麯ShowFormSheet5 PrintFormF1C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLLVBA A qPF0D:\WorkTools\Microsoft Office\Office15\EXCEL.EXEExcel Qp0FC:\Windows\system32\stdole2.tlbstdole 1L-[DR?C:\Program Files\Common Files\Microsoft Shared\OFFICE15\MSO.DLLOffice 1a.E .`M C:\Windows\system32\FM20.DLLMSForms ! CY06D7 P .C:\Users\WS\AppData\Local\Temp\VBE\MSForms.exd  ! У򲢴ӡϢ checkTheSame F ?7=.CD,*F65D+!DFWorkbookWorkbook_BeforeSave x .`/f&Tnx\OX[excel YOX[ pQVBE7.DLL`  a nx[ , &|~\ۏLhg!h Y NOX[ pQ SmS 1(~ Oo` Nxh f , JJ  8PhpxFFA&mAF&m 0]\Ohpev Ncknx N}ge!jgT QۏLdk!hEnd 1qaz.PasswordProtectUnprotect CellsClearContentsFcheckTheSameXQNewGetRowOrColIndexsetCellValueCountXQcheckDMB&t  A65530 Rangerow IV5FhBn-D.# FǟznH'e?DF WorksheetWorksheet_ActivateWorksheet_SelectionChangeFFTab: FAILUREcheckedRequiredStartwriteLog writeLogRedaddCommentXQStartclearCommentsXQStartbeginCheck_commentcallFunctionXQStart regCheckFunc deleteRowdeleteRowNoProgetCellValueCountXQsetCellValueXQ setDMBCode removeSpaceXQ 4`nx[_YhgT hgǏ z-N RsQexcel &TRS[penc"N1Ybhg1Y% )nc:yColorIndex "l gg~b0Rf[uOo` elۏL!hName -NOo`Y N  value - checkFamType ((~ : ; Locked ,{ Lvpency -N\ gN*NkXQcknxhgRows Delete dk!k!h-N RdN checkSFZJLX checkSchCode :LeHepencY T0NNSR!h1Y%sS9eL:NeHepenc * gOo` g w Oo` h ۏLOck Select !hǏ! SUCCESS * g͑ Ypenc g w Oo` h ۏLOckɮCc7`U BG\;Hc 3:BJ"4ocL7He checkRequired checkStuName checkBirthdaycheckBirthdayNecessary IsIDNumber checkRXDate checkYear checkMonthcheckXJH checkPhoneNum checkBankcheckXn checkOptioncompare compareDeccheckLencheckIntcheckValcheckNum checkIsInt checkIsNumber checkMoney checkMoneyTJcheckPersonNumcheckIdNumLinkcheckNowNecessary checkNum1 checkStuName1ra *\G{000204EF-0000-0000-C000-000000000046}#4.2#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.8#0#D:\WorkTools\Microsoft Office\Office15\EXCEL.EXE#Microsoft Excel 15.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\system32\stdole2.tlb#OLE Automation(*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.7#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE15\MSO.DLL#Microsoft Office 15.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\Windows\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{30175943-CED5-4436-9802-37FFB60A501C}#2.0#0#C:\Users\WS\AppData\Local\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M [   ThisWorkbook0=5b8ec715'ThisWorkbookzLxP Sheet10?5b8ec716= Sheet1H Sheet60B5b8ec716G Sheet60SbpSȉ045b8ec6d9HSbpSȉH]wQQpe0@5b8ec716R]wQQpe`јXf0>5b8ec715jXf&x!hQpe0C5b8ec717!hQpe~Vd;N z^0<5b8ec6d9;N z^Ux`-ShowForm095b8ec6d9%ShowFormnw Sheet50A5b8ec716/ Sheet5hPrintForm0;5b8ec6d91PrintFormʘ`0xLoCE]Leka22F_5 OM]OR1gL!uAj̀^@cOj{?WpF8}=->|O%I/ZdڅYEhsv@NH%!%F!P_ J^W zI@sP_+&P[!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`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`(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` (checkPhoneNum` (checkOption,` (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``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`IDNumber4 `Wm`UCase5 `sj`Tk` IsNumeric$*`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%` ` rowDataNumn` typeValue`bsTypet` valEntity܏`typeRow` isNullRowArr/` sheetCountB`Protectf` Application*`ScreenUpdating! `sysDifficultyGradeNameFlag`indentifyDateFlag `xlToLeftWY`rowType`md`ne`Locked ` totalMoneySumZ`pg`qh` (checkTheSameg`myDico`myKey`varData`idNumDick` idNumDicData`cardNum\`Exists]`Addr`Keysq`Resize@4`WorksheetFunction&` Transpose` ShowForm`CancelButton_Click`Hide9z`ConformButton_Clickwf`Flasep` Sheet5` PrintForm`Workbookk` Worksheet` BeforeSave` _B_var_Chr\;`_Defaultj`!_B_var_sysDifficultyGradeNameFlag_`_B_var_indentifyDateFlagE`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` "$'=GI %S/ k1 "@ p0(P7q YX!HH  2 ( -UxMEx6 LL L"L <x :@`@8kP@ @ @ @ @X ` @@  ` `  ` `0 ` @8%pXX@p@x@(X L2fdh@8 @0 @X @p @ @ @ @ @0 @`p @h @P @(8 @ <^084@ @~ H6`@ @ @ @ 01@ 1@p zV(@$X @@ :@( :@ @ @0 HB@p 0B@ @ pHd@ H@x @p J(0L@8X PP@p@ `8P8R@( pY@ Y[@ _g? ?@p _d0ae @ @ @ ps@ su y@h @ P 8 { @8 H { X@@[$*\Rffff*0<5b8ec6d9*\R1*#3c7*\R1*#12d*\R1*#121*\R0*#17$*\Rffff*0>5b8ec715*\R1*#11c*\R1*#42$*\Rffff*0?5b8ec716*\R1*#129*\R1*#278$*\Rffff*0@5b8ec716*\R0*#2*\R0*#f*\R0*#1 h"hp:x.6" "H.p D  :L \8@\H\h\>^":  4P,`$>^, ( ~@$PV 8X x   \ @ HP.dX ,L \ * *8h(%0%D%%%0 %P%,p%&  (#6z$J  $"h (,V (PV (`" (,LFp 4Jv <($ <? 8 D6vH D0> HBj D @ ,  ,0  48v( 40>` 8 j 4 0 )"( <($ <<0 H6v@ H0>x PBj H < (" ,8v(,0>`0 j,($$x  < 68(LZP(&( (   )$  > ,`, p (,>40x, ,",   (8(2@h x*4 +$N  `^` h4LpdN   &4 $(LPdhPVJ 4Ld(N@P X \` \ \ x"@HX2h$@6 @*P :   ,HPX ha--------------------------------------------ʼУ-----------------------------------------]X]p+ijһ͵ıʶкź͸ʽ3:1;2] ʶ(ĬϱʶԶʶ)](ijһ͵ıʶ飨кź͸ʽ] ijһͱʶľֵ]Զʶ]%Ѽ¼ΪյкŷŽ]( L!P'"ȡĿ 0ĿȷģٽдУA@21qazF$LB@|k1qazF$LB@D1qazF$LB@D1qazF$LB@D f$d!^B@-$ÿοʼʱѴϢsheet,'hϢ¼ʼ'.ôУУ¼Ƿд֣׶ϢУ ('#Ĭ϶ѼδͨУ'Ĭ϶δͨУH f$d!^B@-$ÿοʼʱѴϢsheet, A65530$L%D%!' ȡxcna = Worksheets(1).Range("1:1").Find(What:="*", After:=[a1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Column IV5 <%D%!>'FAILUREA@^&+ȡǷУɹ־Ԫ񣬲ֵʼΪ0'~ռ¼ʼΪ0 0 8" ʱִd ʼУ鰴ť¼ʱִ.ȷʼ Уرexcel $4ܵݶʧʧ 6ܰʾ$2 8d1qazF$LB@|kk.$L!b(r)ҳǩΪɫ   "ûвҵѧϢ޷У飡A@2'01qazF$LB@|k'ôУУ¼Ƿд֠$L!дϢ£A@`      '<"ִ һǿУ ĵԪĿ';6ִ һǿУ ĵԪΪϹĿ'''5"һǿУʱ¼Ԫ'9ǷΪЧ¼ 'zC¼УǰǷд';¼ԱǷд $  $$L%^!'Oһбʶֵ'2=жforѭǷcallFunctionXQStart ûִĬϷ <ʶΪ -$'Gʽ14-3:25 :$'H6ʽ3:25ȡıʶвֳ֣кź͹ DJҪּϵҪУ飨ĬУ͵ԶУ   Y&+1ΪеһԪΪĬУP $:$'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  $$L%^( $ 6ִ һǿУ ĵԪΪϹĿ     е һдȷ''8УʱдϢ A@`  'd   'Tÿһкϼеֵk  <,һؼֶȫ򽫸ɾ  ~+ ~ '~,"ϢеĸдϢɾ  h  h h  f$d%XB@Zr Ѹɾ  h  'h z'k  k  ~ 6 ɾЧ $'  A@VB ѸɾdP   A@VH Ѹɾk   ~ ˴Уɾ ~:Чݣ֤У鶼ʧܼΪЧݣA@2k *дϢ鿴ϢA@2$L!b(r f$dB@Hd( '(A@ ('%ִУظݷ,ûظǷҪɾЧ Уͨ!A@2.$L!b(rSUCCESSA@^:+ȡǷУɹ־Ԫ񣬲ֵʼΪ0 A@@d *ظݣ鿴ϢA@2/$L!b(r f$dB@Hk k 1qazF$LB@1qazF$LB@,1qazF$LB@o8 q-------------------------------------------------ظijһ------------------------------------------------@]] A65535 \%D%!'2YScripting.Dictionary$ .O8O  \%D!'>ȡѧ  %"ѧ໤֤ݽб   %-֤Ų  B@&#addһΪkeyڶΪvaluek8 k0 ( !'Sheet2$LG:G7DB@  ! %" !PG17D,q. 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̗Zw p&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 rSoSQ MKE=?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ͨ!/!ı/-41427 setCellueXQ 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& !: B˘xME(6 LL T` X IV xIX `Z `(`  ib j`   ib tx`  Iv IV 8IX XIx  0`   #Iv IV IX  (`  .Iv I IV IX I   `  CI Iv IV IX I  ` x :I I ` H` ( HI +* `  _Iv I, i.`0 @ ` p mIv IV IB I   ` H vI hIH IJ @N VX `  Iv 8 IR  \ ` Iv  IR   ` H Iv h IV  IB  ^ `HHk Iv  IV @ IB ` I (   ` I  Iv  IV 8 IB @N @` @Z ` Iv  IV 8 IB `H`d`f H( X x0( R@%@ ` 8P @^ L@ @h @ @ @ @x @` @H   [$*\Rffff*0@5b8ec716*\R1*#3c7*\R1*#12d*\R1*#121 B       B  B h p2 p `B x 8 $ 8 "@ pHB  8  $0 X$`  xB 48(p*$ 8BH0!X`hp x  B ( 0 4P $  "   "    .( X p 0   *   .0 ` x .   0    .8  h x 6   6  (88P 6 ( 8H(`  f ( H`x>&  XPXx h * 0P`jh&  (H `P   H(x@ H( H(p HX( 8 &@ hx n (@ H 8`( 8P( 8 &@ hx p 0(Hp x8$ 8$  & < @%hX   $$8,d($8,d$0  8  @  &H  p    n   !(8!`!Hx!!!!!"" "@"H"P"XX"&" "" "##8# b@# # ####$&$ $ ,$%%(% f0% % %%% % 8&(8& 8&(' ' &' ''( ( f(( ((( ( T( &8) `)p)x) $) &)$X)$&8*$ `*$p* ** * *$t*$& +$ H+ X+ $`+h+ p++ ^+ +",8,@@,&, ,, ,,,- b- x--- t- &(. P. `.h.. b. . /0/@/H/&/ / 00080 ^@0 0 000X0&P1 x1 111 ^1 2 82H2X2X`2&2 2 223 ^ 3 3 333T3&(4 P4 `4h4p44 n4 5 (5@5"X55&6 06 @6H6P6p6 jx6 6 7(7"87`7&8 88H8P8p8 nx8 8 9(9"@9h9&9 : (:0:P: PX:::::&h; ; ;;;; R;0<H<`<Xh<&< < <==(= b0= =$==@=& > H>X>$`>>>> ^> ?&0? X?@`?&? ??&?@@0@ |8@ @$@@(A@(A&hA A A"AAAA |B B BB@B&C (C8C @C`ChCC |C D$(DPD@XD&D DD$DEE(E d0E E E@E&F 8FHF2PFF F G(0GXGhGxGGGGGG 2G H(H0H@8H&xH HH HHHI ZI hIIINI&I J0J8JRPJ&JJ JJ J JK K  x(K K6K.K(L8L( @L2PL( `L1pL( L2L( L1LLLJL0MHMPM ZXM M$MM@N&@N hNxN"NNNNNN fNB PO XO<`OO OO$O$ PHPPP XP \Q B `Q,Q 0Q@Q" R ^HR 6RRRS8S0XSDSSSSTTT T "T T .UB 0U 8U$HUBpU U U U U U VVV VB VV VV V W W W WB W"X (X@XHX PXXX`X hX8XX2XY Y 8YHY PYXY `YpY FYYY Y Y *Z0Z 8Z Z ZB [[*0[ 4`[[ [ @\ X\B p\*x\\ \B @] H]h] p]B ^^^ v(^ H^ P^B _ _ " _ H_8h_2__ _`  `(` 0` 8`H`"h`0` `(`aa&a@a HaXa `aB aaVbpb 8b b b:b48c$pcc"ccccc-----------------------------------------УУдϢʾ ע----------------------------------------------------------- Ԫ] V X \%^'Z Z'Td('Tki--------------------------------------------д־ ¼ϢʾһϢ--------------------------------------------C? b h f$d,^ h 'hiX--------------------------------------------д־ ¼ϢúɫʾϢ--------------------------------------------( b'l b h f$d,^ l h f$d%^%n!p(r h 'hipi--------------------------------------------עʼУ飩-------------------------------------errorInfoע 1Worksheets(sheetIndex).Unprotect Password:="1qaz" x V X v$L%^B@z V X v$L%^!|(~W ӻɫ V X v$L%^!(Nii--------------------------------------------ɾעʼУ飩-------------------------------------x1Worksheets(sheetIndex).Unprotect Password:="1qaz" V X v$L%^B@ V  X  V X v$L%^!|(rd`  V X v$L%^!|(rk0i(r---------------------------------------------ʼУ Ƿӻɾעõķ----------------------------0  Уʧ V X v$L%^!d жעΪ v V X A@tV עd"Ϊգȥǰע v V XA@N ע v V X A@tk1 MsgBox "" & rowIndex & "" & errorMsgd :УɹжǷעУʧʱעȥ v V XA@ ,#ȥո,ʾ VУ XУַ"$4 "$4"а˿ոϵͳԶΪA@`d`kXkPiH----------------------------------------------------------------------------------------------------------------------------------y--------------------------------------------ݱʶöӦķ(ʼУ)-----------------------------------------------------------------------------------------------------------------------------------------------------------------------ѴϢдб( V X v$L%^'  X v$L%^'Iȡбͷ Ϊϲеıͷ  X v$L%^' V e  X v$L%^'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'k _=================================1 ִеķǿУ==========================================ѴϢдб checkNullKT v V X$'  V е Ϊգ'')УʱдϢ A@`RMsgBox "" & rgold.Row & "е" & Chr(10) & titleMsg & "Ϊգ"k( v  V X A@'a=================================2 ִѧУ========================================== checkNameKT v V XA@@ȥոķ V X v$L%^!' $'  V е ;дȷΪ֣ȴ1ܳ20ַ''%УʱдϢ A@`  'k v  V X A@'Z================================= ִеijУ==========================================checkLenKT  $'  ,$'$ ` ΪDZΪ̶ȹ V е .дȷΪաд򳤶ȱΪ$ λ'$ ed ΪDZΪȷΧ V е 4дȷΪաд򳤶ȱڵ$ λҲ$ λ'$ ed ΪDZΪ̶ȹ V е &дȷΪգҳȱΪ$ λ'$ ed ΪDZΪȷΧ V е ,дȷΪգҳȱڵ$ λҲ$ λ'k '0УʱдϢ A@`k v  V X A@'h================================= ִеijУ飨Numberͣ==========================================checkNumKT  $'  ,$'$@ ΪDZΪ̶ȹ V е GдȷΪգдΪ֣0λȲ$λСλ$ λ'$eD ΪDZΪ̶ȹ V е ?дȷΪգұΪ֣0λȲ$λСλ$ λ'k'0УʱдϢ A@`k v  V X A@'i================================= ִ30%У飨Numberͣ========================================== checkPmmcKT  $' v V$'N ȡд  ,$'$@ ΪDZΪ̶ȹ V е ?дȷΪգұΪ֣0λȲ$λСλ$5λҳɼαڳɼ50%֮ڣ'$eD ΪDZΪ̶ȹ V е ?дȷΪգұΪ֣0λȲ$λСλ$5λҳɼαڳɼ50%֮ڣ'k8'0УʱдϢ A@` $ $? $ $ e  ?  V е 9дȷɼαڳɼ50%֮ڣ'  ?e ,$'$D ΪDZΪ̶ȹ V е 6дȷɼαڳɼ֮ڣ'$eH ΪDZΪ̶ȹ V е 6дȷɼαڳɼ֮ڣ'kk''0УʱдϢ A@`kx v  V X A@'g=================================15 checkName1 עжǷ--================================== checkName1KT v V$'K ȡд v V$' $ ?$ $ 333333?$1,8,0'  $'d0,8,0'  $'  V v$d,^kk  V е )ֻ뺺,ַΪ20λ''(УʱдϢ A@`d checkYesNo v V XA@k" v  V X A@'[=================================ִֵΧУ==========================================ѴϢдбcheckValKT  $'  ,$' V е $дȷΪ֣ڵ$ Ҳ$''-УʱдϢ A@`& isValidateCount = isValidateCount + 1k v  V X A@'_=================================ִеΪֵУ==========================================ѴϢдбcheckIntKT  $'  ,$'$@ ΪDZΪ̶ȹ V е 8дȷΪգдΪڵ$ҳȲ$ λ'$eD ΪDZΪ̶ȹ V е 0дȷΪգұΪڵ$ҳȲ$ λ'k@'0УʱдϢ A@`k v  V X A@'`================================= ִе֤У========================================== checkSfzjhKT v V$'S ȡд  V е &дȷ֤Ϊգ''0УʱдϢ A@`d  ֤  X$'O ֤У :֤У V е *дȷΪѧ֤ţ''4УʱдϢ A@`  'kxdp $'  V е EдȷΪգҳȱڵ1λҲ18λ''4УʱдϢ A@`kkk v  V X A@'X================================= ִ֤У================================== checkZjlxKT checkZjlx 1$'  V е дȷ''(УʱдϢ A@`d@ checkZjlx v V XA@k v  V X A@'\================================= ִѧŵУ==========================================checkXJHKT 1, 1, 50$'  V е EдȷΪգҳȱڵ1λҲ50λ''0УʱдϢ A@`k v  V X A@'[=================================ִпУ==========================================ѴϢдб checkBankKT $'  V е $дȷΪ֣ڵ$ Ҳ$''-УʱдϢ A@`k v  V X A@'W=================================ִУ==========================================ѴϢдб checkYearKT  $'  V е *дȷʽ20122002ȣ''-УʱдϢ A@`kp v  V X A@'W=================================ִѧУ==========================================ѴϢдбcheckXnKT $'  V е )дȷʽ2012-2013ȣ''-УʱдϢ A@`k v  V X A@'W=================================ִ·У==========================================ѴϢдб checkMonthKT $'  V е &дȷʽ0112ȣ''-УʱдϢ A@`k v  V X A@'g=================================3 ִеУ(DZ)==========================================ѴϢдб checkDateKT  $' 2Уʧ V е дȷдʽΪ"$4xxxxxxxx"$4 20130221''-УʱдϢ A@`k v  V X A@'c=================================ִеУ飨==========================================ѴϢдбcheckDateNecessaryKT& $' 2Уʧ V е дȷдʽΪ"$4xxxxxxxx"$4= 20131221ֻõ֮ǰʱ䣨գ''-УʱдϢ A@`k v  V X A@'g=================================ִеijУ飨==========================================ѴϢдб checkBirthdayKT!  $' 2Уʧ V е дȷдʽΪ"$4xxxx-xx"$4 2013-12''-УʱдϢ A@`k v  V X A@'J=================================10 У绰====================== checkPhoneKT $'  V е дȷдʽΪ"$4-̶绰 ֻ"$4 ''%УʱдϢ A@`kP v  V X A@'L=================================checkOption У鱸ע ====================== checkOptionKT B$'  V е )дȷȲܳ200ַ''%УʱдϢ A@`k v  V X A@'\================================= ִ϶ѼУ================================== checkDiffNameKT checkDiffName  $'  V е дȷ''(УʱдϢ A@`d checkDiffName v V XA@kp v  V X A@'X================================= ִ֤У==================================checkIDCardTypeKTcheckIDCardType  $'  V е дȷ''(УʱдϢ A@`d checkIDCardType v V XA@k v  V X A@'v=================================14 checkGender ִǷΪСŮУ--================================== checkGenderKT checkGender 0$' '-ԱдУ֤Ź V е дȷ''(УʱдϢ A@`dX checkGender v V XA@k( v  V X A@'u=================================14 checkYesNo ִǷΪǡУ--================================== checkYesNoKT checkYesNo  $'  V е дȷ''(УʱдϢ A@`d checkYesNo v V XA@k v  V X A@'u=================================14 checkYesNo ִǷΪǡУ--================================== checkSqyyNameKT checkSqyyName  $'  V е дȷ''(УʱдϢ A@`d( checkSqyyName v V XA@k v  V X A@']=================================checkTerm ִѧУ--================================== checkTermKT checkTerm  $ V е дȷ''(УʱдϢ A@`kE v checkTerm  $ V X A@'}=================================15 checkNumYN ִǷΪǡжǷ--================================== checkSNumYNKT v V $'K ȡд 1,8,0'  $'dhD0,8,0'  $'  V v$d,^+Sheets(sheetIndex).Cells(rowIndex, 11) = ""kCkC  V е дȷ''(УʱдϢ A@`dHC checkYesNo v V XA@k C v  V X A@'S =========================== ִ϶ʵУ================================== checkSFJEKT 1, 4, 0$'  V е  дȷֻд''(УʱдϢ A@`dA $ V е #дȷ,ֵֻΪ5000'')УʱдϢ' A@`dAkAkA v  V X A@'r=================================checkAtLeastOneNNull ִһΪǿ--==================================checkAtLeastOneNNullKT  'A"ִ һǿУ ĵԪĿ $ =Ϲ   ' X KTF   ' KTF   ' KTF   ' KTF   'n8?dϹ  'F6ִ һǿУ ĵԪΪϹĿ    'k>'T================================= ִУ================================== checkPmTypeKT checkPmType 1$'  V е дȷ''(УʱдϢ A@`d= checkPmType v V XA@kP= v  V X A@'n =i=_--------------------------------------------ʽ------------------------------------- ]VBSCRIPT.REGEXP$ .7RegExΪʽ (4 ȫֿvba\ת  ( .ʽ (5ǷִСд  %'3 ִ.i;-----------------------------------------------------------° Уظ˵Ѿûиʽ------------------------------------------------------------V-----------------------------------------------------------1ѧ׶ڱڲ(sheetѧ׶ A65535 $d%D%!'*cna = getTotalColumnCount(sheetIndexValue) f$d!^B@1&ÿУظʱʱѴϢsheet,'hϢ¼ʼX==============================ѧ׶ڱڲ==================================0ðÿԪغ֮ǰнбȽ     " $d%^'  $   $ " $d%^'&  &.ѧͬ˵ظݹ $ еݺ͵ ظ!!!!' A@`*ѴϢ'(k877i7-----------------------------------------------------------һ ֵȡֵ------------------------------------------------------------ֵҵֵڵлkeyWord ҵĹؼ'kbn л ֵΪ rowrowH'*]the find result object ,4 86 <: A1:A65535 v$L%D%2.0 0 .row 0!'*d6 0!>'*k5k5i5------------------------------------------------------ ָcellֵ-------------------------------------------------------------1qazF v$LB@D  V B v$L%^(i5------------------------------------------------------ ִڹУ(Ϊ)-------------------------------------------------------------value value1 cellУ鲻ȷfalseУȷtrue J0˵ΪDZ H$L'z3k3k3]'Pijһļ¼ A65535 T$d%D%!'RB' T row$*'N=ȡ  N R  T$d%^  P 'Pd2y2k2  $ N N P  $ T$d%^X HX LжϹǷcell'y2k2 $#ʱcountĿΪùеĿi1------------------------------------------------------ ִɾijһвexcelܱģ-------------------------------------------------------------sheetIndex rowNum к1qazF v$LB@D R v$L%XB@Z/ Ѹɾ- Worksheets(sheetIndex).Protect Password:=123i`0------------------------------------------------------ ִɾijһвexcelûб-------------------------------------------------------------sheetIndex rowNum кX R v$L%XB@Z/ ѸɾiP/------------------------------------------------------ ȡָcellֵ------------------------------------------------------------- V B v$L%^!'i.------------------------------------------------------ ָcellֵ------------------------------------------------------------- 1qazF v$LB@D  V B v$L%^(i------------------------------------------------------- ݴеֵǰʱѾͨУ飩------------------------------------------------------------- ]X p  V B v$d%^!X 'Z'Pijһļ¼ A65535 T$d%D%!'RF T row$*'NAȡ  N R  T$d%^  P 'Pd+y+k+  $ N N P  $ T$d%^!X 'H H ZX 1жϹǷcell $ T$d%^!'` `X V B b v$d%^(y*d* V B b v$d%^(k* $i*------------------------------------------------------ ȥcellеĿո------------------------------------------------------------- ]X Ԫ]p  3Blength1ʾcellԭijȣlength2ʾִȥոַ'ĬΪûȥո2 Worksheets(sheetIndex).Unprotect Password:="1qaz" V B v$L%^!'H H'd dGzj*"ԪΪգȥո H 'f%length2Ϊոһγֵλ fַո H $h'H HX V B v$L%^('k(i((zAttribute 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?D Dúɫ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- G~Select Case  '=C(1 ִaǿa?ѴϢдG ӆNull(rMethodXQ7RequiredHOR_@ Not  rerror"" & &"!06& "Ϊգ첆/hasE `Tr'Bqʱ% fwriteLog E B' Box 5 gold.RowO & Chr(10) T)beginC_commento:,?isFor.o+.2.ѧ/_Ky-0rO removeSpacep-ӟ 'ոķooso1)./k2=c3Stua(2/6/6;/6V55u5дȷЀ}֣1820ַ*_8_8M8E+ 1?55t sheetIndex, checkMethodXQ, rowAolumn0errorMsg  isFor = True  '= ִеij8/ zCase "Len>" 2(value, functionArgs)#If Not Then'@0ArSplit( , "<,"?%C '(0)j0 And UBound ,81U 'ΪDZΪ|d3"@"`" &Ǝ"xtitleд ȷ"Ϊա"ΪA<1)λ`+EhlseuO2]OA+ȶΧOexA6OAOڵ BgPҲ1-2?-%,?-= 1T`jT>?-TTT4T &S "SeS&SS &&&R`'RK?,IE IfGh8asE 'aʱдϢ writeLog*W@beginC_commen#?i}?z }Numberͣ{}] } }}Xa}}|UP#}}j}oQ{>h|& {{1{{ ֣>0λqS7f(v}?Сi?VsQ //g0~cU7K UUUU  dU__U_ҧUPU30%!hU==\gUPmmcU UU1VVw resultQgetCellVC0tXQ(%2, 4) 'ȡ0< [XQ"/X[[[][[EoEoEoE?cEȷΪգұΪ0λȲ" & functionArgsArr(1)("λС^V2Vҳɼx50%֮ڣ@" E lseIf0) = 1 Then 'ΪDZહ̶t3BerrorMsg,"row Index title& "д`PcEnd IfPhasEAPOTrue 'УʱAhдϢwriteLog e Dval(ue) / result) > 0.5 OrD>JA$@BDcVٟ_lm<_G,:/ <="+ 쐁@ISplit(, ",") ??";?;7+(n ?!?!?!?? K? # checkMethodXQYFa ͟П Tow_ 5rbeginC _comment sheetBr, , solumnT!OisFor3Qd@'=15Name1עжϐǷ--?Case "G` P= getCellValueCountXQ(3) 'ȡQ݋c1a, 4Qk&( Н>=p *\@A~ nW^_R ^#Ra "1,8,0vbcH1StuS|, a1 LOa2"0c`:2VKWS2sX!)R.!#s(!5q"ϯ:  Not;:EO\ & 뺺ր,ַqΪ20 /P\OO %yset@DMBCodAYesNo",O7cNqo/V/V3/V/VUUQִֵΧ 'ujдб{VS/::B;v0y_;lE??] II": & functionArgsA rr(0)"Ҳ"1" hasError = True 'УʱдϢIwriteLog eOMsg/' isValidate`Count + 1"End IfbeginCheck_comme,sheetIndex, c MethodX@Q, row o0lumnaisBF '=еΪՀֵā'@`дб=@Case "6I k è֤ߨ  }Sfzjh|resZjlx@getCellucXQ(iˇ p 'ȡ!|ڜ;o ""m?;?4?I?I=IE͒4_C#_,߃߃_,?KO|? sIsIDNumber%scg) ') = tqtk`#.OM!!!j#Uѧ Oe/"/"/"/o"o"ߦߦo SO)? ܓ=SFZJLXϳ%n$XQCo"o"o"o"Yx7a#1t18t $$$O$$o /:??_5/|  L,O/|+{"|CDf/|=={{1y{b ][DMB(#ɒ, 4"155V5555wӳ" hasError = True 'УʱϢwriteLog eMsgTElseEsetDMBCode "checkZjlx", sheetIndex, row column REnd IfbeginC1_comment2>MethodXQ:,visF '= ִѧŵ#qCasXJHJ9Len(value, "1, 50")SQIf Not Then E"" &Fw"еtitleдȷΪҳڀ1λ50@XFE(?E%Ɉ P?\ \Xa\п'\i@h%дaбk$a_Banko< U=WA^?]?]#g\\\ZΪ֣[!cfunctionArgsArr(0)ad^q1c_a`o#"`'_`  __ck_^O^p]]]Year]+E^#/o^XQ o^?/|!*/^/^%^ʽ20122002++ +oy+[ϓ++, ȐyE +*#+ZZyn+{VZXĉ*F****ψQ,͈*-*3*****[******o~r*'*OV_***Month**_)**,O*****011OU*****[*******o'3޵U(DZ)++ + "checkDate" ' Method XQ = Case NecessaryoNowFC???Ŝb1bֻõ ֮ǰq䣨aggg# gcccc^cd+d"deycnjǟdK ?? ?0Lj-xx-12______# __sT_a1_c_c51_ct1o,10 QS఺-PhoneO}Num^ o+_)1"-̶ ֻ+ߍ$ b)___)  _(c_(_(_(_(O%J Opѱ(ע /x(((c(, 66T (6(((A(Ȳ200ַ?PV%%%9%%?%t%%%%%%!# 1϶ѼqO .x'DiffNam/PR ''DMB(Գ, /s_)BORORV))))?Nl(((L(ÿ( Else[ysetPCodv)ez'j End If @beginCheck_comment sheetIndex, c2MethodXQ, row0olumnerrorMsgisFor = True '= ִ֤У5= |Case "_IDCardType"P rT!DMB(, value, functionA0rgs)* If Not Th0=>2> ^Q Ss).s(10)+Z'"1]EndrUJȆ 4, 0"x?Y?Y?YֻB![Z ZZZcZ`) <> 5000: &&,Ðֵ!'Ϊ|'LFa ?-` E-b ?'oDoD%zoD$߁lDP'BAtLeastOneNNullQGһQGΪǿ-- GLOHb aHO + 1 'a  u  Q ĵԪ>"@Jc(oney7APa8S8 'qnp5qtotalMAP + Select "/lbaojiaoBCp:oiSum ? _ huoshi H   zhusu G  others H  RRc*?%W 2'23 =pG>6>>>AΪa@K'U+ f+ " Jb`YXSͱ ["PmTypeo WO(,3K, "1sSϋڿ&G?i?˿: writeLog error`Msg  ElsehNsetDMBCode "checkPmType", sheetInde@x, rowc`olumn TE nd IfbeginCe_co`mment eMethodXQt,isFor `= TruzJSelect Function '-(Hʽ" 5 Xreg}(, value)DimEX A`s ObjXSet= CreateC("VBSCRIPT.REGEXP") 'RegExΪp-@ EX.GlobalLE'ȫֿ'vba\תPatternBʽ IgnoreCaseFaP ǷִСx[;T0est(]'GI\Notxhinˏľ° Уظ˵Ѿûиʽ♔ 1ѧ׶ڱڲ ([wTheSameXQNew(2) 'SH4na 3S!sj.Range("A65535")..(xlUpL).`'c"getTotalCACount Vl msg"N).Cells.ClearCont`s 'ÿ3ʱʱс2Ϣ ,cuRow1 'E¼ '=.'ðÿԪغ֮ǰнбȽGai`startTitle + 2 To rna%hbabyID1WD+b#Ia2$+(i, c4ji - 1kc 2Zj^! If Zn 'W ͬtavA %"" & j`"еt̓iA‡!&"  ')1 1has: r%qN| NexptnOGOF ֵȡֵo` #ҵCлkeyWord Ĺؼabn"# ֵΪ HCRI Get@@OŐDlR0(By@Hʎs, STtrf)AIHgerm-x1уc 'the firesult o c@@k";IX)6X1:fXF(What:= LookIn:=xlVs, A xlWhol@6t@Is ]u 16*Pk=t "`"' caa߯QI-0q.0"O' ָcg0/y`mpX>Qq"*ߨ_!dex).Unprot Passw2:="1qazJ2v(0).(r?/ @q|(ʀΪ)? q$1 (`a'!ȷfQ5tbvC$1, fxlags1"01 'hΪDZ4Trim1)q511 0Oa!Exit g/SS1owDatt(0 ' һ1č!đ"Num0}ԄAwI 'v( rijo` @(,HhE`owP Q ?h1%OQCount + 1 ElsehPExit Fornd If@laZRepl(@"%x{tU)" >=Pd~xME(6 <<< `X Iv xIV IX `Z ``( I @ ` I I @ `h  I @ +` iiB`H`0H``` @`  I @ `  I @ ``(  I @ `  I @  `H I hI @ 0 ` I @  ` I @ P ` I @  ` I @  `8 I @ @  ` IH  I  D `x  IH  I  P `  IH 0 I   ` I  I   `@ I ` I   ` I  I   `p ''I  I  @`  I @ `  I  H`  I @ `  I @ h`0  I @ p` ""I IV IB ` ` `f````@ ` @ ` @ ` @ H` I ```@ ` %%I I  `8 I XI @ @  hP  p`H0`H@ Pche%p P/[$*\Rffff*0C5b8ec717  B       (  B    "(P`hpx B   (HPX`hpx &0Xhpx B  ( n p B ,$"0HH   "  8"Px4  P p B   *         B      ( 0 8 @ H   B   6 H X ` h p x |   B 8 @ 0H x      x ( HB ` h x x  B  ( |0  B $ 08@HP |X  B f  | @ `B x  h B :  @H PX`hpx   8B P Xhp x     .PB      .B   B  &D4`  B  &  @(H p"x D40 8@Hh B 8@X `px  "  <(0 8@ HB    &0 X ` h p  x   "       $  "! 0! @! H! P!p!!!!! !>! "40" h" p"x" "" " # 8#B P#X#`#x###### # @$ `$B x$$ $ $$$ $ @% `%B x%% %%%%%%% % x& &B &&&&&&&'' ' ' 'B '''( (((0(8(@( H( ( )B 0) &8) $`) ) )&)*)"*$8*`*(****++ + 8+ 2P++"+++  +,(,8@,x,, ,B  -(-0-8-@-H-- .. .(.0.@.H.P.X.`. h.B //0/ 8/&H/p/x/// / /"/ // $/ "0 @0 P0 X0 `000000 0>0 14@1 x1 11 11 1 (2 H2B `2h22 2&222222"23 3(30383@3P3-----------------------------------------1 ,дϢʾ Ϣsheet--------------------------------------- ʱ0 Ϊʱ1 Ԫ] V X v$L%^'Z Z'd'ki-----------------------------------------2 Уѧ ҪΪ-------------------------------------------------------------ʽȷfalseʽȷtrue $L'zk]H^[\u4e00-\ue863]{1,20}$'  $'d'ki|-----------------------------------------3 УڸʽΪ2012-05-09(Ϊ)---------------------------------------`  ,Ϊ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@h-----------------------------------------4 У֤---------------------------------------Ϲ򷵻trueϹ򷵻false]7905842163790584280Ȩ] 10X98765432P0У $L$''ȥո]h B " 6)׶֤Ϊ,ΪͨУ'zk Gzj $$Gzj *[0-9X]Gzj   $' G 'j   $  '  ' $ 0  $G'jiz-----------------------------------------У֤ -------------------------------------------------------------ʽȷfalseʽȷtrue]("^[\u4e00-\ue863a-z|A-Z|0-9]{1,30}$'  $'d'ki----------------------------------------5 -УѧУѧУʶ 42λһλΪֻx-------------------------------------------------------------ʽȷfalseʽȷtrue@]^[1-9]\d{40}[\dx]$'  $'dP'k@i8z----------------------------------------6 -У黧 -------------------------------------------------------------ʽȷfalseʽȷtrue]H.^(\u519c\u6751)|(\u53bf\u9547)|(\u57ce\u5e02)$'  $'d'kiu-----------------------------------------7 Уѧʱ-------------------------------------------------------------ʽȷfalseʽȷtrue`]'^(((19)|(20))\d{2})((0[0-9])|(1[0-2]))$'  $'d'kiq-----------------------------------------7 У-------------------------------------------------------------ʽȷfalseʽȷtrue  ,ΪDZ'kzk]^((19\d{2})|(2\d{3}))$'  $'d'kpihq-----------------------------------------7 У·-------------------------------------------------------------ʽȷfalseʽȷtrue]^((0[0-9])|(1[0-2]))$'  $'dh'kXiPv-----------------------------------------9 Уѧ-------------------------------------------------------------ʽȷfalseʽȷtrue0]^\d{4}[0-7]\d{3}[0-3]\d{7}$'  $'d'kiv-----------------------------------------10 У绰-------------------------------------------------------------ʽȷfalseʽȷtrue]8^\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'  $'dX'kHi@v-----------------------------------------11 Уп-------------------------------------------------------------ʽȷfalseʽȷtrueP]^[1-9]\d{14,20}$'  $'d@ 'k0 i( -----------------------------------------checkXn Уѧ磨2012-2013-------------------------------------------------------------ʽȷfalseʽȷtrue]X ]p 1^(20\d{2}-20\d{2})|(19\d{2}-19\d{2})|(1999-2000)$'  $ -$'$$ 'd 'k d 'k i -----------------------------------------checkOption У鱸ע磨Сvalue2-------------------------------------------------------------ȲС200false 򷵻true H'z k H  'd` 'kP iH ------------------------------------------------------ȽϴС(Сڵڷtrue)----------------------------------------------------------------'value1value2false 򷵻true HX'H X' H  'Dd8 'Dk( i ------------------------------------------------------ȽϴС(Сڵڷtrue)-dec---------------------------------------------------------------'value1value2false 򷵻true H$4'H $4' H  'd'ki}------------------------------------------------------У鳤---------------------------------------------------------------P ,$'' $/ΪDZ'kzk ,-±0ʼֵΪָάõ± $$4 $$4'zXkPd ˵У̶ $$4'zkki}------------------------------------------------------У--------------------------------------------------------------- ,$'' $/ΪDZ'kzk $& Ϊz .e+Сz $4e% С0zXkP ,-±0ʼֵΪָάõ± $$4 $$4'zkd ˵У̶ $$4'zhk`kXiP------------------------------------------------------УֵΧ--------------------------------------------------------------- ,$'' 'zkx $) ΪzP $4e) С0z k $4$$4 $4$$4'zki------------------------------------------------------Уֳ(Number,ΪҲΪСС0)--------------------------------------------------------------- ,$'' $/ΪDZ'kzk $% Ϊz` $4e% С0'z(k $'+󳤶 $'.Сλ .''' "˵ûС $4' $$4'zP kH d С  . $'DԪֵλ  . $' $$4 $$4'zkkxip-----------------------------------------checkIsInt У鲻С0-------------------------------------------------------------ʽȷfalseʽȷtrue ]( ^0|[1-9]\d*$'  $'dh'kXiP-----------------------------------------checkIsNumber УΪNumber-------------------------------------------------------------ʽȷfalseʽȷtrue@' $'kXiP-----------------------------------------checkMoney У0-9999-------------------------------------------------------------ʽȷfalseʽȷtrue]0^(([1-9](\d{0,3})|0)|0)$'  $'d8'k(i -----------------------------------------checkMoneyTJ У0-9999Сһλ-------------------------------------------------------------ʽȷfalseʽȷtrueH]^([1-9]\d{0,7})$'  $'d'ki-----------------------------------------checkPersonNum У׶԰һ------------------------------------------------------------ʽȷfalseʽȷtrue]P^(([1-9]\d{0,3}))$'  $'d'ki-----------------------------------------checkIdNumLink У֤ԱͳûдǷһ------------------------------------------------------------ʽȷfalseʽȷtrueh If colIndex = jhrIDColumn Then checkIdNumLink = True Exit Function End If] %Ա֤ǷӦ]8$ں֤ǷӦ]Pڵһγֵ±]h"Ա,Ԫ֮ڵ]$ݺŽȡ]!,Ԫ֮ڵ]"ݺŽȡ]#]%·](@]X $' $'  (ڶλΪΪ V  p$d,^dڶλΪżΪŮŮ V  p$d,^k $' $' $' -  -  V  p$d,^'ix-----------------------------------------3 УڸʽΪ2012-05-09δʱ(Ϊ)---------------------------------------p]]]]0^((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  $'d'ki------------------------------------------------------Уֳ(Number,ΪС0)---------------------------------------------------------------H ,$'' $/ΪDZ'kzxkp $% ΪzH $4e% С0zk$'+󳤶$'.Сλ .''' "˵ûС $4' $$4'z@k8d С  . $'DԪֵλ  . $' $$4 $$4'zxkpkhi`----------------------------------------- Уѧ ҪΪ-------------------------------------------------------------ʽȷfalseʽȷtrue ,$'' $/ΪDZ'k0z(k ]x^[\u4e00-\ue863]{1,20}$'  $'d'kiFAttribute 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 / ߡ]/4 AQ֤xϹnqSm'Io IsIDNumber(By y, ⌗)BooleaConst W'qD7905842(163"r'ȨCSc10X98765432Cd 'V& = UCase(RzU)) PZո-sInteger, iT%= babyIDC Aa{4Sdaa׶e:,Ϊͨ1  %σ FC  Len( <> 18k1pNot eri c(Mid, 1 7PQ 5Like "*Y1`X]o For= 1 To 17CTqWzx111spPs + ; i! * TNexts Mod 1Righ t)c, T3cs}?OͿ; "@aQSFZJLXts` " a-z|A-Z|3PӁGѿY wXkV/X,X//5!32-ѧP0ʶ 42ҌΠɻx_?ckSchCodeO^140}[\dx]kO C_foy End Function '-$6 -У黧8 %xN|ʽȷfalsetru checkFamType(va@lue) Dim reg  = "^(\u519c\u6751)|3bf@\u95477cee02)$"If#C3(%, 4 TheE7TTEc Fr# If -7 ѧsRXDaBtb((19]20))\d{2})((0[0-9]12])5a? `F `Z` ݿ_Year, fDArgsArrDG""Pa`0 'ΪDZd\aa]iaExitj{s {#II|(23}G, 0xG@$dGGz `Montht*D-?-"-9Ja ׺ŏ8--XJH-Y4}7]BZ 3!7})Q[.#i_10i绰O_-ckPhon0eNum?l\bi(([38hP4[57Ai55Sjk8}00!p2[\dj-["2\d*[3Dzmg)\booRq*I A?p_11п2O`Bank=[1c14,20_2Т_^4oogXn@I磨2012-@3_?pXn_Uxy sc20J2}p r019t99|00o_L2Split , "<-"4q30R(1) - 0)01= ۊh_olkp=~ "" OpQ#ע#СR2_#P#200y0Vck 122 1@4}h ELe-@">c2!VL ?#Q5  qe `OȽϴС()-5 'value12false true Function compare( r, n)  = CInVt& 2 2I"fQ1 >Z Txhen^fHFہWE^Tg#End If q3ȽС(С ڵڅ)-8dec5ӄDec!l l9llC m_У8# he ckLen], fDArgsVArrESplit(, ","= cQEg ""Gf`(0)0 'DZhf(2mjxit lDp`UBound #2±0ʼֵΪάõ qF4) > Mm(`1)) A H(| E3'e '˵\̶\s! H!? I Fx# c&b+@ v,-w@0@@@$@A?o,@ Not IsNumerik)8J>,  InStrY".@") <> yСoK 6`CQCr= a0-p?Ps?P?P?P?PRBpX??Pg1?P$?Ph,O$?@?Pm$?P?P9?P?P4P_2+ ?P'oJ1PֵΧ}PValPonq0KPP''=A`#JeJJ߱oQ2E KE/# )L?@3@0tB/2Ey_ 5q)s/ ֱ(fber,@Ϊ҆aa)1P111êionArgs, ",") checkNum = FalsedIf valued"" Then6zFfunctArr(0 )`0^ 'ΪDZp?GT rudEnd IfC!! (,c l= _C 3s.?.e%# ber.Ϊ8*_.0s.#.  @-'@G{+?/ Money 0-9E_+_ck ++((+(\d{0,3})|0!_,k_,ڑH_,6_,o_3TJ=#tһλTJǾDD7})??+`j__P0_--Personp6׶԰һ˿ooo`v O101ck] IdLink֤ԱͳûдǷһ?ooo ` (, rowIndex, col'@f@]jhrIDColumn'`' F`!voCisGe rRight As BooleanL 'CEϡӦ Birth/+hlen@2e g|'qһγֵ±[gb ɣ` ingS ,tڵݟer1J @Žȡom bqe?6a?" 1Dim year,P1 As Variant ' mon0th,  ^day,  V arrgenderValue1 = Mid(IdNum, 17)) birlth2181.If eMod 251 Then 'λΪΪ0"Sh@eets(sI]xC).Cel@ls(row ,9Column)!6""'El$se<ż<Ů <Ů ~B*@Fas&Exit D>oAFh` $CaK(, #38@ CPb irGWNAXֳ(`ber,ΪaСڎ0_V{ZNYum1CX, foArgsGd6a"Arr%S`plit(=,stdole h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\syst em32\e2.tlb#OLE Automation`EOffDicEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files\CommonMicrosoft Shared\OFFICE15\MSO.0DLL#M 1@5.0 Ob LibraryKMSForms>SFrms3D452EE1-E08F`A-8-02608C@4D0BB4SFM20L'B _&/;"1jIqAHq00}#0Bq# 50 A30175943-CED5-4436-9802-37FFB60A501C6Users\WS\AppData\Local\Temp\VBEÀa6.exdb; .E .`M(  "ThisWorkbookG TijWBmkbok 2 HB1ZPB,!zTL"B+qS@heet1G SŠe_t1 um2 ߪH 6 6 6 46  ӡ GSbpSȉ-e2jo p !(e) c ]wQQpec ec Ceo јk G;Xf"Ma2fo o B&У!heeo dVdo ~k !L@GbQ;N z^b2o -o U2ShowaxG`6\ow&3e2row]nOR( l5^55^5^5^zh^ PrintCri&nj2oQd0ʘrU@@@ P `OO@ `AP@1 `AP` `aOOOOXq ` aOOOh! `aOOOOOh `!aAOOOOOP `qOO@A `OX ` a` `a1OOOOXq ` aOOOPQ `aOOP `aOOXA ` a1OOO` `a1OOOO`q! `a1OOOOXA# ` a1OOObrU@@@8 Q.q.`ADrU@@@ xbrU@@@8`.q.`ADrU@@@~x   A!.q1q'HiHiHi(Hi(Hix Hi00Hi(0Hi HiHiH8Hi(Hi HiHiX Hi Jgg^Zgv(x ZHHg0@&HHi (Hi  a $h  "a  "a  *~  &o  .  .  $h  "a   0   *~   &o   $h   $h  &o  *~ ! *~ $ &oVb8H#phBn-D.# FǟznH'e?xǟznH'e?hBn-D.#ME(PSLSS0D6"<0<8<N0{00020820-0000-0000-C000-000000000046} >X`  @` )B% %XP %< %hXX x[*\R1*#278$*\Rffff*0?5b8ec716` "  "  (opXo`XAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$BustomizD2 P Sub Works_Activ () p EndSeleonChange(ByVal Target As R %rU@@@xblzJ zL#p7=.CD,*F65D+!x65D+!7=.CD,*MEPSLSS6"  5b8ec715*\R0*#2$*\Rffff*0<5b8ec6d9` "Z       )ǷȷϽҪexcel籣棬"$4ȷ"$4, $4&ϵͳҪмУ飬粻棬"$4ȡ"$4? 6$2'0 0 8A@:dP'.k@o80ڱAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomi6zD2P Sub _BeforeSave(@ByVal AsUI As Boolean, _ Can(cel) isButtonkMsgBox("ǷȷϽҪ@ex " & Chr(34)"ȷ ,10ϵͳмУA?", 0vbOKC63If L4 ThenBDAӡΠϢ E‰gPP= fE nd If Ai Z#pc 3:BJ" F4ocL7Hex4ocL7Hec 3:BJ"ME(SLSS6"N0{00020820-0000-0000-C000-000000000046} 0b%@p@R@%Fxc%Hx@x8[$*\Rffff*0B5b8ec716`xAttribute VB_Name = "She@et6" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2Zh#pɮCc7`U F BG\;Hx BG\;HɮCc7`UME(SLSS6"N0{00020820-0000-0000-C000-000000000046} 0%@p%.%Hx@x8[$*\Rffff*0A5b8ec716`xAttribute VB_Name = "She@et5" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2LqnxME(SPSSS0{5C40806E-A9EC-4FD1-9616-05D051B86D85}{A5A40C77-347C-4528-A812-E7C347164160}8 &X * %%XX [ " 0 8"HP Xh xȡ' B@(oHȷX ,' B@(oPAttribute VB_Name = "ShowForm"  Bas|0{5C40806E-A9EC-4FD1-9616-05D051B86D85}{A5A40C77-347J528-A8@12-E7C"1@64160} dG lobalSpacoFalse CreatablPredec$laIdTru BExpose0TemplateDerivCustomizD'ȡ P Sub CancelButton_Click() notContinueBoolT Me.HidZEnd! @ 'ȷ ,onfՏ,-Fl;/^LeʘxME(SPSSS0{23003515-88B4-4B9A-BA38-011B3E4779F1}{D7379763-1E0D-47AF-AEA7-6F8C4BFFA85D}x8 08D%h8np%8p[xAttribute VB_Name = "PrintForm" " Bas0{23003515-88B4-4B9A-BA38-011B3E4779F1}{D7379763-1E0D-47AF-AEA7-6F8C4BFFA85D} dGlobalSpaco False Cr@eatablPredeclaDIdTru BE`xpose0TemplateDerivCus tomizDrU@@@8`8a`brU@@8@ 1  0 A q /`   `ihggZ""p ""PxOOpOX@O(OOOOhPO8 O( $xpX(hP8g ?g gggg8pX(hP8x`$h $h XrU@@@xP`p8!CbrU@@@X` aOOO@`OP1`OO@`OP1 `1@ `O@1 `O@`O@1`OP `OO@A `O@ `O@1 `O@ `O@1`OP`a!OOPA!`a!OOP"`a!OOPA%`AOOP&`AOOPA)`AOOP*`AOO@A-`O@.`O@11`O@2`O@15`OX6` q1OOO@Q9`OP:`AOOPA=`AOObrU@@@~x a&o "a $h "a  "a   "a  "a "a "a  $h  "a  "a  "a  "a "a  $h !$h $$h %$h ($h )$h ,$h -"a 0"a 1"a 4"a 5"a 8&o 9"a <$h =$h$rU@@@~~~r    q SaveAsUICancel q0 qPTargetrowIndex columnIndexcontent sheetIndex errorInfo checkMethoderrorMsgtypeValisValidateCountregvalue sheetIndex2keyWordkbncolIndexvalue1flagrowNumfunctionArgsArrIDNumbervalue2 functionArgsIdNumNrU@@@@~xbrU@@@$brU@@8 Aq`A0``iI)HiHiX` Z  Z`"a"arU@@@x8`8H!`@bxMEh JX["  ( HhxѧϢӡģ$L(NѧϢӡģ$LB@PѧϢӡģ$L(NoAttribute VB_Name = "Ԥ" Sub Browse_Print () Worksheets("ѧϢlģ").VisiblaTrue"d^P@review2cEnd ThisWorkbookThisWorkbookSheet1Sheet1ߺ]wQQpeXfУ麯!hQpe;N z^ShowFormShowFormӡԤSbpSȉPrintFormPrintFormSheet5Sheet5Sheet6Sheet6 FMicrosoft Excel 2003 Biff8Excel.Sheet.89qOh+'0@HT` x WSMicrosoft Excel@&@\+.՜.+,0HP X`hp x  ־ѧҵ Ϣdc  Χ !"#$%&'()*+,-./013456789:;<=>?@ABCDEFGHIJKLMOPQRSTVXYZ[\]_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-/013456789:;<=>?@ABCDEFGHJKMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnoprstuvwxyz{|}~  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefgijklmnopqrstuwxyz{|}~      !"#$%&'()*+,-.0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmopqrstuvwxyz|}~