ࡱ; | T8\pVYebVf[ 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[SO1 [SO1 [SO10[SO1[SO1[SO1 [SO1@[SO1[SO1 [SO1>[SO1[SO1*[SO1[SO1 [SO1[SO1[SO14[SO1*[SO1[SO1 [SO14[SO1<[SO1?[SO1>[SO1[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      - +    . / 0a   1  2ff 3 4 5`   6 7 8  9 , , , , , ,    @ @  @ @  ""@ @ @ @ @ @ @ @ !@ @ ""@ @   1 1  1 1@ @ 1 1|7  1|7 1 1@ @ 1 1 1 1 @ @ @ @ 0@   "1 1 1 1@ @ 1@ @  (1 "1  1|@  1 1 '1|@ @ 7 1<@ @ )1@  1@ @ 1 1 :87 ;8 <87 =8 ||q 00_)\([$}<}? 00_)\([$}(}@ 00_)}<}A 00_)\([$}<}B 00_) \([$}x}C00_)\([$#,##  }(}E 00_)}(}G 00_)}(}N 00_)}(}O 00_)}(}P 00_)}(}Q 00_)}(}W 00_)}(}Y 00_)}(}Z 00_)}(}[ 00_)}(}_ 00_)}(}` 00_)}(}b 00_)}(}c 00_)}(}e 00_)}(}i 00_)}(}j 00_)}(}o 00_)}(}p 00_) 20% - @wr 16 20% - @wr 1  20% - @wr 26" 20% - @wr 2  20% - @wr 36& 20% - @wr 3  20% - @wr 46* 20% - @wr 4  20% - @wr 5B. 20% - @wr 5 ef  20% - @wr 6B2 20% - @wr 6  ef  40% - @wr 16 40% - @wr 1  40% - @wr 2B# 40% - @wr 2 L渷  40% - @wr 36' 40% - @wr 3  40% - @wr 46+ 40% - @wr 4  40% - @wr 5B/ 40% - @wr 5 L  40% - @wr 663 40% - @wr 6  60% - @wr 16 60% - @wr 1  60% - @wr 2B$ 60% - @wr 2 23ږ  60% - @wr 36( 60% - @wr 3  60% - @wr 46, 60% - @wr 4  60% - @wr 5B0 60% - @wr 5 23 ! 60% - @wr 664 60% - @wr 6 "~vRk #hh $h 1h 1 %h 2,h 2? &h 3h 3 'h 4h 4(]0]  &8^ĉ )8^ĉ 12,8^ĉ 12  *8^ĉ 2 +8^ĉ 4, 8^ĉ_hQVL?e:SRNx-(c  .}Y0}Y  a /Gl;`&Gl;` 0'^1 '^[0] 2{^{ } 3hgUSCQ@wr 26!@wr 2 PM  ?@wr 36%@wr 3 Y  @@wr 4*)@wr 4  A@wr 56-@wr 5 K  B@wr 661@wr 6  F  Clʑ^ lʑ  XTableStyleMedium9PivotStyleLight1683ffff̙̙3f3fff3f3f33333f33333\`"II V[R_VYf[ёDRNR TUSljNxh|Oo`VV!  =dc:- KmՋ@b g!hĉRv^SbpSOo`ff21@F>xMOS AA@A@  t1 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~pmQNNS>eeg 7sfzjh 7_OSeeg eKNMRveS+TS_e _kXy. 7 checkSFJE 7 checkYesNo 7checkDateNecessary 7b~c T;`Npeb~c T T!k pmTotalCount pmmc% 7bzsm 7Yl 7$ kXQf[ub~c T;`Npe Y 100 0 300 NSkXQtepe _kXy$! 7$Ygb~c TQf[!hsQNV[R_VYf[ёvsQĉ[ nc[Ylf ^_kXy 7 kXQf[ub~c T T!k Y 1 0 3 NSkXQtepe _kXy& 7# kXQf[u@b z-Nv_Ob~S 7FAILURE 7 4132011641 4132011052zb8 8{69939q:x;<?>-@BY C* DM E xG"ccB~-z4nA_)k:~yw T8  9f  dMbP?_*+%{&ffffff?'ffffff?(?)?M.Microsoft Print to PDFP/ 4dXXA4GIS4DINU"$,?]{~SMTJ{084F01FA-E634-4D77-83EE-074817C03581}RESDLLUniresDLLPaperSizeA4OrientationPORTRAITResolutionResOption1ColorModeColor,V4DM p"O4wMH5L*@VDocumentUserPasswordDocumentOwnerPasswordDocumentCryptSecurity" d333333?333333?&<3cAU} o} p} o} o} o} o}  o} 3 o} 4t o} u o u PJPut`P PqQ R T{@ {@ {@ nh fL eK ci Wn Wj [k [1 W< Wl Wm Y; P=a"@g me h_ _8_________________________________________________________________________________________________________________ti Q iM P Y Y Y Y Y  Y  Y  P  P \/j Q" Z@ bA QB Z+ Z*  Z-  Z,  Q9  Z. iZPkP mZPn pZ6 U kN Vd V> V? VC V# V$ V%  V'  V&  V(  U! So lO Sp dD SF SE SG SH X)  SI  SJ  Sf  S:o o o s(   vj N1X?E]4v6@ E@ķQ> <kXQf[uvY T<~~  <1CC@],@}9 $< _Yhg<~~ i <1CC@G],5@9 $<_ Y h g<v6admin>@dinjn  7 Sheet1ggDh4hl:SW2 T8 3v{  dMbP?_*+%&ffffff?'ffffff?(?)?MFoxit Reader PDF Printer_ 4dXXA4" dXX333333?333333?&<3U} @F} D} D} !D}  E} E}  E3 @ ,,,,,,, , , , , ,,  M H H MN O7GGGG Oq ]0K? ^2 ]3 Es IK ^5 ]4GKKG 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, !I!I@ !I !I "I"I@ "I "I #I#I @ #I #I $I$I"@ $I $I %I%I$@ %I %I 'IR'I? 'JS 'LT (IU(I@ (JV (LT )IU)I@ )KW )LT *IU*I@ *KX *LT +IU+I@ +KY +LT ,IU,I@ ,KZ ,LT -IU-I@ -K[ -LT .IU.I @ .K\ .LT /IQ/I"@ /K] /LT 0IU 0I^ 0K_ 0LT 1IU 1I` 1Ka 1LT 2IU 2Ib 2Kc 2LT&D@<<<<<<<<<<<<<<88PH  0(   >@&&& 7 Sheet5ggD T8 ,;  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(@h06 <`hhP0hjnHrH@ʀx @8 @ꀈh @vx @%Ϣ%ꀢh  @  @ꀞ @B‒(@ʀX @@ꀤ @NB\hB!ꘄB#˵%lB^HpHpxHʘBʀ @ʀP @t8ph @ꀜ8 @0 @"  @x  @z B|P@ꀊ @`@~@ʘBꀀ@ @ꘂpB"H8h(XPpx x8@Hf$p(8H[*\R1*#278$*\Rffff*0?5c7c0e72(*\Rffff*0?5c7c0e72\044    08  @ ` Dp 8 0 P0pD084P. ..(8(`>"$$@>`R^FX `*0$`   ^^0p@һṹҳ]$H=Public Const sheetNameValueTJ As String = "2ʵͳ"]$Ϣ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@@@@~xVq  1 ) Q% Q A  0!Q!QdQ0 !!"`!%q%%%&1&&&''(1(q((`) pl1)a)Q+q++++,,!-Q---!.Q...Q//h0A00&$ggD08Z8`0l@8g@\gLpI(pg\h8Z8h8hg{gg\h8Z8h8hg\h8Z8h8hg\h8Z8h8hg^h8Zp8h8hgg pg4p 8Z888gPg8g^h8Zp8h8hgh8Z8h8hg8 !Z" 8V#hh$8hgV%Ipp( pgg&?gg|'h8Z8h(H8hg)*g +ggn'h8Z8hH8hg,g-.gg /Ipp0O1O(? pgg\h8Z8h8hg{gggdh8Z8h238hgx>gLp4I(pg p&g\h8Z8h8hg{gg pgh8Z8h*5O` 8hgxdg( xkHdg6g7g8g9:g9;g0g<g p=g($kgz @h8Z8h>8hg p?g9\TgV@Ia (gVAIa (g"qnPgFqmlqnlHgv @AIa (g$gxK,gvBIa (g>qmlpqnl@,gjp @E800x0 08glx @ @h8Z8h8hg$ glgl @h8Z8h8hg~CxODOOEOpOFO`: pggx @ @h8Z8hGH8hg:ggp@d gg g?p>gvBIa (g>qmlpqnlgjp @E800x0 08glx @ @h8Z8h8hg$ glgl @h8Z8h8hg~CxODOOEOpOFO`: pggx @ @h8Z8hGH8hg:ggpgNg"qnPg$gxKgvBIa (g>qmlpqnlgjp @E800x0 08glx @ @h8Z8h8hg$ glgl @h8Z8h8hg~CxODOOEOpOFO`: pggx @ @h8Z8hGH8hg:ggpgNggvBIa (g>qmlpqnlXNgjp @E800x0 08glx @ @h8Z8h8hg$ gl2gl @h8Z8h8hg~CxODOOEOpOFO`: pggx @ @h8Z8hGH8hg:ggpXgggxx @ @h8Z8hI8hgD g67T76C7lgZCxOJO;OKOp`:pgg:g 00gg@8@gg0Hgx`Ag g>l0(lgxl0h8Zp8hLM8hg(g"l0g<ggxH gg2g`!gKg4@ dggNkp pgggg^pNOOO( pgg!gLpPI(pgdh8Z8h238hgNh8Zp8hQ8h#gg pRg& gR "gLpSI(pgdh8Z8h238hgVTIpp( pgJ@p(p#ggLpUI(pgdh8Z8h238hgNh8Zp8hQ8hggg\h8Z8h8hg\h8Z8h8hg\h8Z8h8hg{P$xR*`HX@pXx8@p(@0P`P 88hpHi@ aS SK*   rU@@~~~~~~~~~ ~~~2~~ ~~~ ~ ~~F"QC^ Hea%#  aA  a A aA aa @ a a pa"""#A###1a$Q$$$$!aPQ a 12A2q2223A3q3334A4q4/444!5Q55556A6q6667A7q7qaa  1 aA Q!  VBAProject ThisWorkbookSheet1Sheet6ӡԤߺУ麯ShowFormSheet5 PrintFormF6C:\Program Files\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLLVBA A qPF  D:\office2013\Office15\EXCEL.EXEExcel 1p0FC:\Windows\System32\stdole2.tlbstdole aL-[DR?C:\Program Files\Common Files\Microsoft Shared\OFFICE15\MSO.DLLOfficeMSForms A.E .`M C:\Windows\system32\FM20.DLL 4/jJ|ۘ /C:\Users\yxq\AppData\Local\Temp\VBE\MSForms.exd  У򲢴ӡϢ checkTheSame  Browse_PrintFpډoZK 2FfT)"OdgDFWorkbookWorkbook_BeforeSave x .`/f&Tnx\OX[excel YOX[ pQVBE7.DLL`  a nx[ , &|~\ۏLhg!h Y NOX[ pQ Sm ?S Q(~ Oo` Nxh f , deleteRowdeleteRowNoPro )nc:y JJ  8PhpxFF&mFUnprotect CellsClearContentsFsetCellValueCountXQ&m 0]\Ohpev Ncknx N}ge!jgT QۏLdk!h 1qaz.PasswordProtectEnd&t  A65530 Rangerow IV5FKMyCDa?' FQ/ʑKBE<DF Worksheet regCheckFunccheckTheSameXQNewGetRowOrColIndexcheckDMB:FF FAILUREcheckedRequiredStartwriteLog writeLogRedaddCommentXQStartclearCommentsXQStartbeginCheck_commentcallFunctionXQStartgetCellValueCountXQsetCellValueXQ setDMBCode removeSpaceXQremoveSpecialCharacter A9:IV65536Font [SONameSize &HorizontalAlignment @ "NumberFormatLocal 4`nx[_YhgT hgǏ z-N RsQexcel &TRS[penc"N1Ybhg1Y%TabColorIndex "l gg~b0Rf[uOo` elۏL!h -NOo`Y N  value - *(~ : ; ,{ L Rvpency VX[(WyrkW[&{Y^ , ; ' <> " ? zz5c7c0e72'ThisWorkbookzLxP Sheet10@5c7c0e73= Sheet1H Sheet60C5c7c0e73? Sheet60SbpSȉ0=5c7c0e4f@SbpSȉH]wQQpe0A5c7c0e73J]wQQpe`Xf0?5c7c0e72fXf&x!hQpe0D5c7c0e74!hQpe~f;N z^0<5c7c0e4d;N z^Ux`9ShowForm095c7c0e4c+ShowFormnw Sheet50B5c7c0e735 Sheet5hPrintForm0;5c7c0e4c7PrintFormʘ`Hx0DGa8zCx3L>N~-"KFsFS@hd}& )4]Osnb*E41RKM0f.wD;]5Qh 52hMz^BxJ@ľ\^GbO-uKGT3հgWqDwh/*\!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` 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`Range `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`(removeSpecialCharacter` i`(!ValueColumType` columnNamew`(sheetIndexValue1` (AreaSheetName`(readmeSheetName` (totalCount-`(rgold`(TargetF`(hasErrorInValidateU` (dataRowStart` isNullRowNum8`(cna`(notContinueBoolt` (genderColumn~`(birthdayColumn0` У麯&`(checkBirthdayNecessary`IDNumber4 `Wm`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`Size`HorizontalAlignmentS@`xlLeft9`NumberFormatLocal)`rowType`md`ne` removeSpecialj`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`_B_var_isNullRowNum;r`_B_var_i `_B_var_isValidateCount"`_B_var_j `_B_var_rowType`_B_var_m `_B_var_n` _B_var_value`_B_var_removeSpecial&>`_B_var_titleMsg`_B_var_totalMoneySumY`_B_var_p`_B_var_q` "$'=?AK +g5 7 "@ p0(P7q YX!HH   (9UxME6 LL L"L ` :@`@kP@ @ @ @ @X ` @@ ` ` ` `* ` @8%x@ ( px``@(x@ D2^\`@8 @0 @X @p @ @ @ @ @0 @`p @h @P @(8 @ <~X08@H @| @ "@`"@ '@`'H46X@ @ @x @` =@(H @=0xdP@0 @ @P h(F@ PF@ @ @ O@ (O@p @8X PU@@ 8U@8 @0 @ @ @ 8ce@  8i@X H ip w@ X~@ ~@p @X X   p P@ @ @ x( @  X @  @ @ @ 0   " :@[$*\Rffff*0<5c7c0e4d*\R1*#3c7*\R1*#12d*\R1*#121*\R0*#17$*\Rffff*0?5c7c0e72*\R1*#11c*\R1*#42$*\Rffff*0@5c7c0e73*\R1*#129*\R1*#278$*\Rffff*0A5c7c0e73*\R0*#2*\R1*#11*\R0*#f*\R0*#1 h"hp:x.6" "H.p D  :L \8@\H\h\>^":  4P,`$>^, ( ~@$PV 8X x >|  "n   "@h  p  \  (.d0 `,Lx \ * *@(X%0p%D%%%0%( %,H %& x  ( $#6z $J $"@ (,Vh (PV (`" (,LFH 4Jv <($ <?  D6v D0>X HBj Hl " G$ H( M4l0 N~h N& N8N P ,`I D@,  ,0 48v40>8 j08lP "pG$HM4lN~N&pN8N  ,I 40 )"((<($P <<0xH6vH0>PBjPlX "xG$HM4lN~N&xN8N  ,I H <((" 0,8vX,0>0 j0l "G$(H8M4l@N~xN&N8(N ` ,pI ,($$x  < 60(LZH(&( (   )$  >,X, h (x,>40x, ,",   0(28` p*4 +$N  `^X `4LhdN   &4 $ LHd`PVxJ 4Ld N8H P \X \x \ x"8@P2`$@6 8*H :x   ,@HP `a--------------------------------------------ʼУ-----------------------------------------]X]p+ijһ͵ıʶкź͸ʽ3:1;2] ʶ(ĬϱʶԶʶ)](ijһ͵ıʶ飨кź͸ʽ] ijһͱʶľֵ]Զʶ]%Ѽ¼ΪյкŷŽ]( D!J'"ȡĿ 0ĿȷģٽдУA@21qaz@$DB@|k1qaz@$DB@>1qaz@$DB@>1qaz@$DB@> ^$\!VB@-$ÿοʼʱѴϢsheet,'`Ϣ¼ʼ'.ôУУ¼Ƿд֣׶ϢУ ('#Ĭ϶ѼδͨУ'Ĭ϶δͨУ ^$\!VB@-$ÿοʼʱѴϢsheet, A65530$D%%!' ȡxcna = Worksheets(1).Range("1:1").Find(What:="*", After:=[a1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Column IV5 <%%!8'~FAILUREA@X&+ȡǷУɹ־Ԫ񣬲ֵʼΪ0'|ռ¼ʼΪ0 0 8" ʱִd ʼУ鰴ť¼ʱִ A9:IV65536$D%!h0ͺ9 9q A9:IV65536$D% 9(@9#ıʽq.ȷʼ Уرexcel $4ܵݶʧʧ 6ܰʾ$2 8d1qaz@$DB@|kk.$D!b(j)ҳǩΪɫ   "ûвҵѧϢ޷У飡A@2'01qaz@$DB@|(k 'ôУУ¼Ƿд$D!дϢ£A@X      '<"ִ һǿУ ĵԪĿ';6ִ һǿУ ĵԪΪϹĿ'''5"һǿУʱ¼Ԫ'9ǷΪЧ¼ 'xC¼УǰǷд';¼ԱǷд  ~ $D%V!'Oһбʶֵ'2=жforѭǷcallFunctionXQStart ûִĬϷ <ʶΪ -$'Gʽ14-3:25 :$'H6ʽ3:25ȡıʶвֳ֣кź͹ DJҪּϵҪУ飨ĬУ͵ԶУ   Y&+1ΪеһԪΪĬУ $:$'V*ȡıʶвֳ֣кź͹$'SԶʶ  $;$'cԶʶ͵ľֵ   gԱʶб $   A@}ݱʶֵöӦķ  $D%V'Hȥַķ $d'   $D%V'{ȡбͷ   е Fַ^ , ; ' <> " ? ո س뷨Ϊȫͣ飡''^УʱдϢ  $D%V!t(v ӻɫ A@XN%isValidateCount = isValidateCount + 1kh`kX  $;$'Pȡıʶв   WԱʶб $   A@  $D%V'Hȥַķ $d'   $D%V'{ȡбͷ   е Fַ^ , ; ' <> " ? ո س뷨Ϊȫͣ飡''^УʱдϢ  $D%V!t(v ӻɫ A@XN%isValidateCount = isValidateCount + 1kk eJ ʽ3:25$'QԶʶ  Pʶеڵǰ$;$'eԶʶ͵ľֵ   kԱʶб $   A@ݱʶֵöӦķ  $D%V'Hȥַķ $d'   $D%V'{ȡбͷ   е Fַ^ , ; ' <> " ? ո س뷨Ϊȫͣ飡''^УʱдϢ  $D%V!t(v ӻɫ A@XN%isValidateCount = isValidateCount + 1k  k d-ֻĬУʽ14$;$'Hȡıʶв   OԱʶб $   A@  $D%V'Hȥַķ $d'   $D%V'{ȡбͷ   е Fַ^ , ; ' <> " ? ո س뷨Ϊȫͣ飡''^УʱдϢ  $D%V!t(v ӻɫ A@XN%isValidateCount = isValidateCount + 1kX P kH k@  $D%V(  6ִ һǿУ ĵԪΪϹĿ     е һдȷ''8УʱдϢ A@X  'd   ' Tÿһкϼеֵk  <,һؼֶȫ򽫸ɾ  |+ | '|,"ϢеĸдϢɾ  `  ` `  ^$\%RB@Tr Ѹɾ  `  '` x'k k  | 6 ɾЧ $'  A@PB ѸɾdX   A@PH Ѹɾk(  | ˴Уɾ |:Чݣ֤У鶼ʧܼΪЧݣA@2k *дϢ鿴ϢA@2$D!b(j ^$\B@Hd0'"A@  "'%ִУظݷ,ûظǷҪɾЧ Уͨ!A@2.$D!b(jSUCCESSA@X:+ȡǷУɹ־Ԫ񣬲ֵʼΪ0 A@:d*ظݣ鿴ϢA@2$D!b(j ^$\B@Hkk1qaz@$DB@1qaz@$DB@1qaz@$DB@o@q-------------------------------------------------ظijһ------------------------------------------------@]] A65535 T%%!'2Scripting.Dictionary$.O8O  T%!'>ȡѧ  %"ѧ໤֤ݽб   %-֤Ų  B@ &#addһΪkeyڶΪvaluek@k80 !"'Sheet2$DG:G7B@  !&%( !JG17,$q.o$Attribute 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^`Ӱť0¼)With 99:IVA:6A1q ׀ͺŃ .Z"B划.Siz!11c' c 3`.Horiz@alAlignm@d xlA7IberForma@tLocal @"Zıss? S$W#_("ȷ!K Eرexcel" & Chr(1l& "ܵݶ ʧʧP0ACan'ܰ") ! +eee3 fKTab uPlorILx -4142!{ҳA%Ϊɫ pvGstartTitle +]vt`3 "ûвҵѧ[Θ޷v9sQ6D:8yy_`9QhiiiQ1writeLog,>:&n£?-> i06 i2 Tod 0:eaOneNs= RN һĿձ #WO"]Ϊ A?totalMoney&eqP. "? "PjaAgispi@eHoΪ>15/In'E '…pǰQC0??9dvԱ}-j 1,0__ =;b(1, j).1һ<Уe_is = жforѭB1àqlFuncaXQSqX U7?qW]w <> (\ ' /G= StV(q-pq'14-3:25 $rowType = Sp lit(t0Value, ":") 'ʽ3:25ȡıʶв֣ к@͹'If UBound(bs) <> 0 Then 'ּϵУĬ x͵Զ9 'HFo(r mLa+ 1 Tol'+1ΪеһԪΪa@valEn0tityT(m>)roRow"%(0e|3;{@i)E,'@>5GA1b;BֵnR)Q'gx? callFunctionXQStart `(n`1, i(, jsidPateCt#ֵöӦķ#uWorksheets(1).Cells()_ _ #'!ȥַ? (removeSpecial@>Character(_$?f+g ,`leXMsg5sKThitl@jAӸбͷ9) error"@" & i`"AjAеF& " څ@^ , ; '"" ? ո 뷨Ϊȫa飡"ahasE `TBr1'̂sxдϢoT8.InP+ior.Colv= 65535 'ӻɫwriteLog u'iLO= ?p_End If /Next5 _ mss= False2ooV4T0_S~~~ }}} RkBzzz;s= zzozʕzzzzzzzzzz zzϢ JWorksheets(1).Cells(i, j).Interior.Color = 65535 'ӻɫMwriteLog errorMsgM`'isValidateCountk+ 1:End If 3)Next&ElseIf UBDd(rowType) <> 0 Then 'ʽ3:252#tRow^(0) 'Զʶ{@Ci(+A(еpǰ;jvalSplitc, ";"N%ľֵW) yF}nLãA) ToC' p+callFunctionXQStart `(n),p 1, Ay'$4öӦķ+ue %v__#'!ȥַ? (removeSpeciBPCharac`()#m+m (`title5s LTaa 'ȡбͷ)%" " & i`"*AjAF& "E ^ , ; '!["" ? ո 뷨ΪȫU飡"_ _ hasE{ P Tr1'УʱSдΟ_8o_ ߍ 'ֻĬBq)Í140pPp.9szbs1ez!1Dħr//xxxvv% ?bc::// rrKk= rr rrrOrrrsgtrrrr_ ?rrr6 JWorksheets(1).Cells(i, j).Interior.Color = 65535 'ɫ KwriteLog errorMsgM`'isValidate`Countk+ 1:End If +)Nextb ׆LockedOFals&e_*3 j ' һǿУ ĵԪΪϹ ĿIf atLeaOn eNull~<> 0 Ah= ThenEa@I"" & "i",ݰEIA?Ё?дD"ghas = True ')ʱдϢ Es%n+ 5?EMItotalMoneySum1+  'һкϼ@4ֵicCO> 1 I '!2ؼֶȫ򽫸ɾ_ isAWRowArr(Num) !i r E G) `'eO-%i Fpcua  - -.To / fSCmsg"Name). s(x).DeletpѸw_9/p" =OhEI>nu3 )?; q 0 i/@!1 '%Ч  rowData,/4q)@?oT_cd"A,1,)'#oROs- q qURtK!zw;  Box "(˴AnR3RwJ& xݣ֤@ʧܼ:Ϊwvnp 2 yǀ鿴EQ`p+TabӻIndex016MMS(c%0SP0/#checkdXQNew Not (0n ظ ,asûxD0,ǷҪrf>ͨع! -4142setTueXQ 2,!8, "SUCCESS" 'ȡ! ɹֵʼΪ0f FGna,u,,?:,,,;Protect Password:="1qaz 2).3 Sub  '-o-)ظijһ *X Sub checkTheSame() Dim myDic As Object,KeyVarpiant($, varData 'rna = ActiveSheet.Range("A65535").End(xlUp).row '1 Set idNumH= C reateJ("Scripting.tionary"b I@O8", "O" & R).value 'ȡѧՀӀF݃GFor Each carK InO4'໤֤ бB$ If"<> "" n NoG?.ExiPsts()B '0GA.AddE, Nul@l 'addһΐkey?Ch,INexƒ Cmyj=.sWith WorksAsp2GmG:G@ClearContent41@Resize(B.Count)Appl(ica.FFunon.Transpos 'D4'*= a2h@ @ GߗxME(6 LL L` X IN xIP `R X(`  iZ b`   iZ lx`  In IN 8IP XIp  z0`   #In IN IP  (`  .In I IN IP I   `  CI In IN IP I  ` x (I I `  H` ( 6I  +$ `  MIn I& i(`* : ` p [In IN I< I   ` H dI hIB ID @H PX `  In 8 IL  V ` In  IL   ` H In h IN  I<  X `Hk In  IN @ I< ` I (   ` I  In  IN 8 I< @H @Z @R  ` In  IN 8 I< `B`^`` d`  I @  ( (x0  X HJ%@ ` x@X D@ @ @0 @ @H @`x @` @H h 0[$*\Rffff*0A5c7c0e73*\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$  &   80(dh 8(d p x &  n X (p  H  ! !(!8!P!X!x!!!X!&! " " ("H"P"p" bx" " ##(#0#H#&# # ,$8$@$`$ fh$ $ $%%  % 88%(p% 8&(P& & && '0'8'X' f`' '(' ( T( &p( ((( $( &($|)$&)$ )$) )) ) *$t*$&*$ * * $** ** ^* X+"p++@+&+ ,, ,@,H,h, bp, ,,- t- &- - --- b- X. x....&0/ X/ h/p/x// ^/ 0  080P0XX0&0 0 001 ^1 x1 111X1&2 @2 P2X2x2 ^2 2 33(3T03&3 3 3333 n3 h4 44"44&`5 5 5555 j5 @6 `66"66&h7 7777 n7 @8 `88"88&H9 p9 999 P9::(:0:&: : :;;(; R0;;;;X;&< @< P<X<`<< b< <$=0=@8=&x= ==$===> ^> p>&> >@>&> ?0?&8?`?h?? |? @$(@P@(X@@@&@ @ @"A(A0APA |XA A AB@B&XB BB BBBB |B hC$CC@C&C D(D$0DXD`DD dD D E@(E&hE EE2EE E pF(FFFFFFGG G@G`GhGpG@xG&G GG GH H@H ZHH HHHNH&8I `IpIxIRI&IJ J(J 0J 8J@J`J  xhJ J6K.8KhKxK( K2K( K1K( K2K( K1KLLJ LpLLLLL fLB M M< M`M MM$M$MNN N \N B  O,@O 0pO@O"O ^P 6hPPPPP0QDHQQQQQQQ Q "xR R .RB R R$SB0S xS S S S S SSS SB hTpT TT T PU hU U UB U"U UVV VV V (V8HVV2VV V VW WW W0W FPWWW W W *WW W X XB XX*X 4 YXY `Y Z ZB 0Z*8ZhZ pZB [ [([ 0[B [^[ v[ \ \B \ \ "\ ]8(]2`]] ]] ]] ] ]^"(^0P^ ^(^^^&^_ __ _B __V_0` 8P` ` `:`4`$0aXa"paaaa aB @bHb6Pbbbbbbb b-----------------------------------------УУдϢʾ ע----------------------------------------------------------- Ԫ] N P T%V'R R'Ld('Lki--------------------------------------------д־ ¼ϢʾһϢ-------------------------------------------- Z ` ^$\,V ` '`iX--------------------------------------------д־ ¼ϢúɫʾϢ--------------------------------------------( Z'd Z ` ^$\,V d ` ^$\%V%f!h(j ` '`ipi--------------------------------------------עʼУ飩-------------------------------------errorInfoע 1Worksheets(sheetIndex).Unprotect Password:="1qaz" p N P n$D%VB@r N P n$D%V!t(vW ӻɫ N P n$D%V!x(Fii--------------------------------------------ɾעʼУ飩-------------------------------------x1Worksheets(sheetIndex).Unprotect Password:="1qaz" N P n$D%VB@| N ~ P  N P n$D%V!t(jd`  N P n$D%V!t(jk0i(r---------------------------------------------ʼУ Ƿӻɾעõķ----------------------------0  Уʧ N P n$D%V!xd жעΪ n N P A@lV עd"Ϊգȥǰע n N PA@zN ע n N P A@lk1 MsgBox "" & rowIndex & "" & errorMsgd :УɹжǷעУʧʱעȥ n N PA@z ,#ȥո,ʾ NУ PУַ"$4 "$4"а˿ոϵͳԶΪA@Xd`kXkPiH----------------------------------------------------------------------------------------------------------------------------------y--------------------------------------------ݱʶöӦķ(ʼУ)-----------------------------------------------------------------------------------------------------------------------------------------------------------------------ѴϢдб( N P n$D%V'  P n$D%V'Iȡбͷ Ϊϲеıͷ  P n$D%V' N e  P n$D%V'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 n N P$'  N е Ϊգ'')УʱдϢ A@XRMsgBox "" & rgold.Row & "е" & Chr(10) & titleMsg & "Ϊգ"k( n  N P A@'a=================================2 ִѧУ========================================== checkNameKT n N PA@@ȥոķ N P n$D%V!' $'  N е ;дȷΪ֣ȴ1ܳ20ַ''%УʱдϢ A@X  'k n  N P A@'Z================================= ִеijУ==========================================checkLenKT  $'  ,$'$ ` ΪDZΪ̶ȹ N е .дȷΪաд򳤶ȱΪ$ λ'$ ed ΪDZΪȷΧ N е 4дȷΪաд򳤶ȱڵ$ λҲ$ λ'$ ed ΪDZΪ̶ȹ N е &дȷΪգҳȱΪ$ λ'$ ed ΪDZΪȷΧ N е ,дȷΪգҳȱڵ$ λҲ$ λ'k '0УʱдϢ A@Xk n  N P A@'h================================= ִеijУ飨Numberͣ==========================================checkNumKT  $'  ,$'$@ ΪDZΪ̶ȹ N е GдȷΪգдΪ֣0λȲ$λСλ$ λ'$eD ΪDZΪ̶ȹ N е ?дȷΪգұΪ֣0λȲ$λСλ$ λ'k'0УʱдϢ A@Xk n  N P A@'i================================= ִ30%У飨Numberͣ========================================== checkPmmcKT  $' n N$'N ȡд  ,$'$@ ΪDZΪ̶ȹ N е ?дȷΪգұΪ֣0λȲ$λСλ$9λҳɼαڳɼ10%-30%֮ڣ'$eD ΪDZΪ̶ȹ N е ?дȷΪգұΪ֣0λȲ$λСλ$9λҳɼαڳɼ10%-30%֮ڣ'k8'0УʱдϢ A@X $ $ e ,$'$@ ΪDZΪ̶ȹ N е 6дȷɼαڳɼ֮ڣ'$eD ΪDZΪ̶ȹ N е 6дȷɼαڳɼ֮ڣ'k''0УʱдϢ A@Xk@ n  N P A@'g=================================15 checkName1 עжǷ--================================== checkName1KT n N$'K ȡд n N$' $ ?$ $ 333333?$1,8,0'  $'d0,8,0'  $'  N n$\,Vkkx  N е )ֻ뺺,ַΪ20λ''(УʱдϢ A@Xd checkYesNo n N PA@k n  N P A@'[=================================ִֵΧУ==========================================ѴϢдбcheckValKT  $'  ,$' N е $дȷΪ֣ڵ$ Ҳ$''-УʱдϢ A@X& isValidateCount = isValidateCount + 1k! n  N P A@'_=================================ִеΪֵУ==========================================ѴϢдбcheckIntKT  $'  ,$'$@ ΪDZΪ̶ȹ N е 8дȷΪգдΪڵ$ҳȲ$ λ'$eD ΪDZΪ̶ȹ N е 0дȷΪգұΪڵ$ҳȲ$ λ'k'0УʱдϢ A@Xk n  N P A@'`================================= ִе֤У========================================== checkSfzjhKT n N$'S ȡд  N е &дȷ֤Ϊգ''0УʱдϢ A@XdP  ֤  P$'O ֤У :֤У N е MдȷΪѧ֤ţһλΪĸXıд''4УʱдϢ A@X  'kd $'  N е EдȷΪգҳȱڵ1λҲ18λ''4УʱдϢ A@Xk@k8k0 n  N P A@'X================================= ִ֤У================================== checkZjlxKT checkZjlx 1$'  N е дȷ''(УʱдϢ A@Xd checkZjlx n N PA@k n  N P A@'\================================= ִѧŵУ==========================================checkXJHKT 1, 1, 50$'  N е EдȷΪգҳȱڵ1λҲ50λ''0УʱдϢ A@Xk8 n  N P A@'[=================================ִпУ==========================================ѴϢдб checkBankKT $'  N е $дȷΪ֣ڵ$ Ҳ$''-УʱдϢ A@Xk n  N P A@'W=================================ִУ==========================================ѴϢдб checkYearKT  $'  N е *дȷʽ20122002ȣ''-УʱдϢ A@Xk n  N P A@'W=================================ִѧУ==========================================ѴϢдбcheckXnKT $'  N е )дȷʽ2012-2013ȣ''-УʱдϢ A@Xk n  N P A@'W=================================ִ·У==========================================ѴϢдб checkMonthKT $'  N е &дȷʽ0112ȣ''-УʱдϢ A@Xk0 n  N P A@'g=================================3 ִеУ(DZ)==========================================ѴϢдб checkDateKT $' 2Уʧ N е дȷдʽΪ"$4xxxxxxxx"$4 20130221''-УʱдϢ A@XkX n  N P A@'c=================================ִеУ飨==========================================ѴϢдбcheckDateNecessaryKT& $' 2Уʧ N е дȷдʽΪ"$4xxxxxxxx"$4= 20131221ֻõ֮ǰʱ䣨գ''-УʱдϢ A@XkX n  N P A@'g=================================ִеijУ飨==========================================ѴϢдб checkBirthdayKT! $' 2Уʧ N е дȷдʽΪ"$4 xxxx-xx-xx"$4 2013-12-21''-УʱдϢ A@Xkx n  N P A@'J=================================10 У绰====================== checkPhoneKT $'  N е дȷдʽΪ"$4-̶绰 ֻ"$4 ''%УʱдϢ A@Xk n  N P A@'L=================================checkOption У鱸ע ====================== checkOptionKT B$'  N е )дȷȲܳ200ַ''%УʱдϢ A@Xk n  N P A@'\================================= ִ϶ѼУ================================== checkDiffNameKT checkDiffName  $'  N е дȷ''(УʱдϢ A@XdH checkDiffName n N PA@k n  N P A@'X================================= ִ֤У==================================checkIDCardTypeKTcheckIDCardType  $'  N е дȷ''(УʱдϢ A@XdcheckIDCardType n N PA@k n  N P A@'v=================================14 checkGender ִǷΪСŮУ--================================== checkGenderKT checkGender 0$' '-ԱдУ֤Ź N е дȷ''(УʱдϢ A@Xd checkGender n N PA@k n  N P A@'u=================================14 checkYesNo ִǷΪǡУ--================================== checkYesNoKT checkYesNo  $'  N е дȷ''(УʱдϢ A@Xdh checkYesNo n N PA@k@ n  N P A@'u=================================14 checkYesNo ִǷΪǡУ--================================== checkSqyyNameKT checkSqyyName  $'  N е дȷ''(УʱдϢ A@Xd checkSqyyName n N PA@k n  N P A@']=================================checkTerm ִѧУ--================================== checkTermKT checkTerm  $ N е дȷ''(УʱдϢ A@XkX n checkTerm  $ N P A@'}=================================15 checkNumYN ִǷΪǡжǷ--================================== checkSNumYNKT n N $'K ȡд 1,8,0'  $'dE0,8,0'  $'  N n$\,V N n$\,VkDkD  N е дȷ''(УʱдϢ A@XdD checkYesNo n N PA@kC n  N P A@'S =========================== ִ϶ʵУ================================== checkSFJEKT 1, 4, 0$'  N е  дȷֻд''(УʱдϢ A@XdB $ N е #дȷ,ֵֻΪ5000'')УʱдϢ' A@XdAkAkA n  N P A@'r=================================checkAtLeastOneNNull ִһΪǿ--==================================checkAtLeastOneNNullKT  'A"ִ һǿУ ĵԪĿ $ =Ϲ   ' P KTF   ' KTF   ' KTF   ' KTF   'n?dϹ  'F6ִ һǿУ ĵԪΪϹĿ    'kp?'n`?iX?_--------------------------------------------ʽ------------------------------------- ]VBSCRIPT.REGEXP$.7RegExΪʽ (4 ȫֿvba\ת  (.ʽ (5ǷִСд  %'3 ִ.i=-----------------------------------------------------------° Уظ˵Ѿûиʽ------------------------------------------------------------V-----------------------------------------------------------1ѧ׶ڱڲ(sheetѧ׶ A65535 $\%%!'*cna = getTotalColumnCount(sheetIndexValue) ^$\!VB@1&ÿУظʱʱѴϢsheet,'`Ϣ¼ʼX==============================ѧ׶ڱڲ==================================0ðÿԪغ֮ǰнбȽ      $\%V'      $\%V'   .ѧͬ˵ظݹ  еݺ͵ ظ!!!!' A@X*ѴϢ'"k@:8:0:i(:-----------------------------------------------------------һ ֵȡֵ------------------------------------------------------------ֵҵֵڵлkeyWord ҵĹؼ'kbn л ֵΪ rowrowH'$]the find result object &. 20 64 A1:A65535 n$D%%,.* * (row *!'$dP8 *!8'$k88k08i(8------------------------------------------------------ ָcellֵ-------------------------------------------------------------1qaz@ n$DB@>  N < n$D%V(iH7------------------------------------------------------ ִڹУ(Ϊ)-------------------------------------------------------------value value1 cellУ鲻ȷfalseУȷtrue D0˵ΪDZ B$F'z5k5k5]'Jijһļ¼ A65535 N$\%%!'LB' N row$$'H=ȡ  H L  N$\%V  J 'Jd4y4k4   H H J   N$\%VX BX LжϹǷcell'yX4kP4 #ʱcountĿΪùеĿi4------------------------------------------------------ ִɾijһвexcelܱģ-------------------------------------------------------------sheetIndex rowNum к1qaz@ n$DB@> L n$D%RB@T/ Ѹɾ- Worksheets(sheetIndex).Protect Password:=123i2------------------------------------------------------ ִɾijһвexcelûб-------------------------------------------------------------sheetIndex rowNum кX L n$D%RB@T/ Ѹɾi1------------------------------------------------------ ȡָcellֵ------------------------------------------------------------- N < n$D%V!'i0------------------------------------------------------ ָcellֵ------------------------------------------------------------- 1qaz@ n$DB@>  N < n$D%V(i/------------------------------------------------------ ݴеֵǰʱѾͨУ飩------------------------------------------------------------- ]X p  N < n$\%V!X 'R'Jijһļ¼ A65535 N$\%%!'LF N row$$'HAȡ  H L  N$\%V  J 'Jd.y.k.   H H J   N$\%V!X 'B B RX 1жϹǷcell  N$\%V!'Z ZX N < \ n$\%V(y0-d(- N < \ n$\%V(k, i,------------------------------------------------------ ȥcellеĿո------------------------------------------------------------- ]X Ԫ]p  3Blength1ʾcellԭijȣlength2ʾִȥոַ'ĬΪûȥո2 Worksheets(sheetIndex).Unprotect Password:="1qaz" N < n$D%V!'B B'^ ^Gzj*"ԪΪգȥո B '`%length2Ϊոһγֵλ `ַո B $b'B BX N < n$D%V('kX*iP*------------------------------------------------------ ȥַ------------------------------------------------------------- ]-[\uFF00-\uFF06][\uFF09-\uFFFF]|[\s,;'<> "?^]+'  $'ddX)'dkH)i@)8)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(DNtitleMs*gQsT,, ) 'ȡбͷ@]If 0"" Then 'Ϊϲ<s/J - 1 L(ElseDthead?G=! ;CEnPd IffArgs!"0"JC Like "checkLen*MУGD Mid9& #EH%Oc H&NumL&@ber&& &@&&ֵLC&M%@b%Inta9?nE9- 'W9 Term1L"ǡ"ΪL"1 7 YesNo -kk ?&ȗ>$ C$DiffNamej%𼶱A8$% _&CodslƖa `IDCardT*'֤Ͷa6ML Ce 8VSqyyɀԭDe_ < (e? A? kYearZݯVE jC]   kPmm>cL ^,8~,yy- G~Select Ca se  '=(1 ִaǿa?ѴЀϢдG ӆNull(rMeth0odXQ7RequiredR_@ Not  rerror"" &Ƴ"!`6& "Ϊգ /hasE`Tr'qʱ% fwriteLog E ' Box 5 gold.RowO & Chr(10) T)beginC_comment,?isFor.o+.2.ѧ/_Ky-0rO removeSpacep-g 'ȥոķ)./k2=c3Stua(2/6/6;/6V55u5дȷЀ}֣1820ַ*_8_8M8?&E+ 1?55eck_comment sheetIndex, chMethodXQ, rowA`olumn0errorMsg  isFor = True  '= ִеij8/ zCase "Len>" ߀S(value, functionArgs)#If Not Then'@0ArSplit( , "<,"?%C '(0)j0 And UBound ,81U 'ΪDZΪ|d3"@"`" &Ǝ"xtitleд ȷ"Ϊա"ΪA<1)λ`+EhlseuO2]OA+ȶΧOexA6OAOڵ Bgv(Ҳ1-2?-%,?-= 1T`jT>?-TTT4T &S "SeS&SS &&&R`'RK?,IE IfGh8asE 'aʱдϢ writeLog*WbeginC|}?z }Numberͣ{}]v} }}F a}}|UP#}}j}oQ{o>h& {{1{{֣>0λqSf(v}?Сi?VsQ //g0~cU7K UUUU  dU____UPU30%!hU ==\gUPmmcU UU1VVw resultQgetCellVCtXQ(%2, 4) 'ȡ0< [XQ"/X[[[][[E׏oEoEoE & "дȷΪգΪ֣0Ȳ"functionArgsArr(1)dλС^V2+ҳɼ@x10%-30%֮ڣ"  ElseIf 0) = 1 Then '~ΪDZΪ̶v3BerrorMsg,"rowIndexе@ titleaa End IfQ0hasEAQPTrue 'УʱAiдϢwriteLog f Dval(ue) > resuxlt)‰ 1S plit(, ",")mVVwvJHvvȟ,? ?w?  ?fCcheckMethodXQ NFa?mmfmEbeginC!_comment sheetɂ, j, `olumn}ipsFor@%! %'2=15Name1עжǷ)--=2Case " U#getCellValueCoun0tXQ(#!3)@ 'ȡax C# 1ǯdl, 4K'JR>=S *h 0.@AP`Z<^ 1y/ c a "1,8,04 "bStu^, Ga2"0ch9e2V_KS2sIX!).!#s(!5q": o| Not? _vy`뺺,@ַq׀Ϊ20/P\Oow %ysetD MBCodAYe`sNo",O7cN_*q?/V/Vu+/V/VUURֵxıT  'дб{VS/{6=3,B;v0y00__] 4ryO& G׉ߵ̜ (@q ?9?9?99 99x' isidatu`+ 165?7666/626ΪxֵУ=& 'ѴϢб Case "checkI8nt" 8N!MethodXQ = 1(value, functionArgs)E If Not=MThen20ArrASplit( , ","?%C '(0)(0 E 'ΪDZΪW5errorMsg."" & rowIndex"е@ title& "дȷEΪգΪڵ&M71)AA/ 2 λA7 ElseS1SSSrSQ(3[Qndha sEaJJTrue@ 'af CV~ writeLog *WEbeginC_comment sheejtb],K~,`o0lumnisbeginCheck_comment sheetIndex, c2MethodXQ , rowolumn isFor = Tru e '=ִеУ飨2ѴЀϢдб}Case "oDateNecessarxy" jNow(valu e)If Not Then '~ʧ$]""" &h"AR Otitleдȷ@ʽΪA C@hr(34) x 20131221ֻõ֮ǰ䣨 "4hasE4 'Hʱw\writeLo!??&?iDdgdbKdBirthdack%7bc%bbbbbb-xx@5c-12-ac^^^ ^Wh?_b Z 10 /^!'[Phone0bWmYNumvYv,TT_*[@-̶ ֻO+o*i")/Yvo) w _( ___(_SV_(O%"Option(ע /x((|=c(, 66obB(qȲ200ַf%%%9%%%t%%%, c_O % " ϶Ѽ|qOKx'DiffNam/PcoP`DMB(t, b, funcA0Args_)BORXQ)T))_+Y?NJ (?((L(( ElsмsetPCodʗez'>qT ....6U_+.ɀ֤1~3.==.$IDCardTyp.3 ....u/0/0r errorMsg = "" & rowIndexP"ltitle& "дȷ" hasETrue 'УдDwriteL og*ElseEsetDMBCode "checkIDCardType", sPheet,, column ,End If @beginC4_comment2AMethodX Q:,yisFoBr '=14 500n0K@4",@ֵ!'Ҫ B ,= Faz ?-"-- V#Xٺ߈ǽ߈r̈'>|AtLeastOneN0Null@һ΀ǿ-- =k,( aAHCou= + 1 ' ! ĵԀĿJMoney=7A N8S8 'qnϹ5qtot\alB9+a>un Select "/lbaojiaoBzCp:? iSum ? _ huoshi H   zhusu G  others H  > Oc*?%n '23 =pG>6>>>Ϊa@OKEU+ vs+ " Jb`Y Functio'-ʽo-  regk(,IiDimaEX As0 ObjISet= Create("VBSCRIPT.RE@GEXP")1'RegExΪ8G EX.GlobalpFq?_ȫֿ''vba\תPattern'o 'QʽIgnor>eB8ִСд3TestgGB.hing # $o A° 4ظ˵Ѿûptqޣ? 1ѧ׶ڱڲ8 -B}SameXٶQNew(sheetIndex2) 'hѧ׶  rna = Ss .Range("A65535").End(xlUp).r$ow'cgetTotalColumnCountNValue)#4omsg Name).Cells.ClearContents 'ÿУظʱѴ Ϣ,YcurM sgRowj1 '¼@ʼ'=ڱڲCF'ÿԪغǰнбȽFor iastartTitle + 2p To babyID1 FICV(i, _ hcEjip - 12͚jAIf(1Then 'cͬ˵&0erro@'"@" & j" еi@!"writeLog F'䳢has6Sa@&True IfNextGC Function '-5һ ֵȡֵ 7C ҵ лkeyWord ĹؼbnBCa ֵΪ Ǣ GetO l`(By b, #$ As Strin(g) @I@ge.r- 7-bDim cObject 'the find res`ult oG7Set= kb)f1:ưF (What:=FLookIn:=Dxls, !A@xlWholIlNoIs h algDqk != "*"!cáEls[r+M`]`DS1 ָc`ֵ8 Pset'2XQ, C*S, coCT, vaBUnprotKPasswe:="1qa^zh4v().,r DO- ִЄsq|(Ϊ) !q1 A`a'!ȷൻfa(R5tWfcheck0DMB($1, flags4I"01 'hDZB4Trim1)q52 0Oa4xit 2b1IData(0 ' һ1č!đNum0ԄAreaSwI 'v( ~Fq ` @(,HhE`S owP A h1%OQ[s+ ONEotcI!{ i Qs + Η C0j( P3)&R q ' aq2Ƿ#Pa 5)^j'ʱcqĿΪ;QoH?obHɾ.вexܱवģG1 14кhadelete`E[2__[_obMs_.D a`!'#).P~f12~3__Uq_o+__n VNo mPow?7A0W[t_ - OIJ:D-! Function getCellValueCountXQ(sheetIndex, rowcol)  x = WorkBsI).f$s(O.v| End  '"$ cjɸֵ3#s9, jUnprotect Password:="1qaz"bRVUݴրе@Wֵǰ ʱͨУ飩_@_DMBCode(B5, DimData, cEZ OCStr(SAê}@0 'ijһļ¼G@Num !Area7).Range("A65535").(xlUp).@ 'Ќa GetRowhOrCw(+ T, "") 'ȡA@ЇFpor i` @ To*GIf #i, 1)8 Thena#&+ 1KElseExit 'lIfgNext ij+ -A1D6#j, 3)HCa%k &P)# 'жρ2A \`22 e:ROA!k# +llumnPlus$ %0!!8">!a$ex"w AҎGjM ȥ#9Ŀ8ո_8removeSpac>ejhQR(As Oing 'Ԫ8('"le@ngth1 Integer, %328 'tʾԭijȣaִaַaw p%Fa!UΪû6&'?э).ww9_xvuG$4 LenCl1wp@0?0'ΪգWr2Inalc ^ q^aγֵ`λG6 2p <> D bxVRxepl(@"%Xo "Truc?>qǧ=7- @1=pecialCharapcter!9regp"[\@uFF00-b6 ]9FF]|@[\s,;'""?^]+3P`Check1(r) `Fz "" #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  000 80&H0p0x000 0D00 11 1 @1"H1 p1x1 $1 "1 1 1 1 12 2@2H2P2 X2>p2 242 3 33  3(3 03 3 3B 334 4&(4P4X4`4h4p4Lx4444444P5-----------------------------------------1 ,дϢʾ Ϣsheet--------------------------------------- ʱ0 Ϊʱ1 Ԫ] N P n$D%V'R R'd'ki-----------------------------------------2 Уѧ ҪΪ-------------------------------------------------------------ʽȷfalseʽȷtrue $F'zk]H  $'d'ki|-----------------------------------------3 УڸʽΪ2012-05-09(Ϊ)---------------------------------------` $F'z@k8]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]))))$"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)))|((02)((0[1-9])|([12][0-9]))))$";^(19|20)\d{2}-(1[0-2]|0?[1-9])-(0?[1-9]|[1-2][0-9]|3[0-1])$'  $'d'kix|-----------------------------------------3 УڸʽΪ2012-05-09(Ϊ)---------------------------------------]h^((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 'kih-----------------------------------------4 У֤---------------------------------------Ϲ򷵻trueϹ򷵻false]790584216379058420Ȩ] 10X9876543200У $F'ȥո]H`x <  6)׶֤Ϊ,ΪͨУ'zk Gzj $$Gzj *[0-9X]Gzj   $' G 'j   $  '  ' $ *  $G'jiz-----------------------------------------У֤ -------------------------------------------------------------ʽȷfalseʽȷtrue],^[\u4e00-\ue863a-z|A-Z|0-9|()|]{1,18}$'  $'d`'kPiH----------------------------------------5 -УѧУѧУʶ 42λһλΪֻx-------------------------------------------------------------ʽȷfalseʽȷtrue ]^[1-9]\d{40}[\dx]$'  $'d'kiz----------------------------------------6 -У黧 -------------------------------------------------------------ʽȷfalseʽȷtrue](.^(\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]h^((19\d{2})|(2\d{3}))$'  $'dH'k8i0q-----------------------------------------7 У·-------------------------------------------------------------ʽȷfalseʽȷtrue]^((0[0-9])|(1[0-2]))$'  $'d'kiv-----------------------------------------9 Уѧ-------------------------------------------------------------ʽȷfalseʽȷtrue]^\d{4}[0-7]\d{3}[0-3]\d{7}$'  $'d'kxipv-----------------------------------------10 У绰-------------------------------------------------------------ʽȷfalseʽȷtrue]^\b((1(([38]\d)|(4[57])|(5[0-35-9]))\d{8})|(0((10)|(2[\d]))-[2-9]\d*)|(0[3-9]\d{2}-[2-9]\d*))\b'  $'d 'k i v-----------------------------------------11 Уп-------------------------------------------------------------ʽȷfalseʽȷtrue0]^[1-9]\d{14,20}$'  $'d 'k i -----------------------------------------checkXn Уѧ磨2012-2013-------------------------------------------------------------ʽȷfalseʽȷtrue]8 ]P 1^(20\d{2}-20\d{2})|(19\d{2}-19\d{2})|(1999-2000)$'  $ -$'$$ 'dx 'kh d` 'kP iH -----------------------------------------checkOption У鱸ע磨Сvalue2-------------------------------------------------------------ȲС200false 򷵻trueh B'zP kH B  'd( 'k i ------------------------------------------------------ȽϴС(Сڵڷtrue)----------------------------------------------------------------'value1value2false 򷵻true BX'B X' B  'Dd'Dki------------------------------------------------------ȽϴС(Сڵڷtrue)-dec---------------------------------------------------------------'value1value2false 򷵻true B$4'B $4' B  'd'ki}------------------------------------------------------У鳤---------------------------------------------------------------0 ,$'' $/ΪDZ'kzk ,-±0ʼֵΪָάõ± $$4 $$4'z kd ˵У̶ $$4'zkki}------------------------------------------------------У--------------------------------------------------------------- ,$'' $/ΪDZ'kzk $& Ϊz .e+СzP $4e% С0z k ,-±0ʼֵΪָάõ± $$4 $$4'zkd ˵У̶ $$4'z0k(k i------------------------------------------------------УֵΧ---------------------------------------------------------------` ,$'' 'zHk@ $) Ϊz $4e) С0zk $4$$4 $4$$4'zki------------------------------------------------------Уֳ(Number,ΪҲΪСС0)--------------------------------------------------------------- ,$'' $/ΪDZ'k` zX kP ֲɼӷ<^(([1-9][0-9]*)|(([0]\.\d{1,2}|[1-9][0-9]*\.\d{1,2}))|0{1})$'  $zk $% Ϊz $4e% С0'z`kX$'+󳤶$'.Сλ .''' "˵ûС $4' $$4'zkd С  . $'DԪֵλ  . $' $$4 $$4'zkki-----------------------------------------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)$'  $'dp'k`iX-----------------------------------------checkMoneyTJ У0-9999Сһλ-------------------------------------------------------------ʽȷfalseʽȷtrue(]^([1-9]\d{0,7})$'  $'d@'k0i(-----------------------------------------checkPersonNum У׶԰һ------------------------------------------------------------ʽȷfalseʽȷtrue]0^(([1-9]\d{0,3}))$'  $'d'ki-----------------------------------------checkIdNumLink У֤ԱͳûдǷһ------------------------------------------------------------ʽȷfalseʽȷtrueH If colIndex = jhrIDColumn Then checkIdNumLink = True Exit Function End If]%Ա֤ǷӦ]$ں֤ǷӦ]0ڵһγֵ±]H"Ա,Ԫ֮ڵ]`$ݺŽȡ]x!,Ԫ֮ڵ]"ݺŽȡ]#]%·] ]8 $' $'  (ڶλΪΪ N  l$\,VdڶλΪżΪŮŮ N  l$\,Vk@ $' $' $' -  -  N  l$\,V'i-----------------------------------------3 УڸʽΪ2012-05-09δʱ(Ϊ)---------------------------------------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  $'d'ki------------------------------------------------------Уֳ(Number,ΪС0)---------------------------------------------------------------( ,$'' $/ΪDZ'kzkֲɼӷ<^(([1-9][0-9]*)|(([0]\.\d{1,2}|[1-9][0-9]*\.\d{1,2}))|0{1})$'  $z k $% Ϊz $4e% С0zk$'+󳤶$'.Сλ .''' "˵ûС $4' $$4'zkd С  . $'DԪֵλ  . $' $$4 $$4'z kki----------------------------------------- Уѧ ҪΪ-------------------------------------------------------------ʽȷfalseʽȷtrue ,$'' $/ΪDZ'k z k ]X*^[\u2E80-\uFE4F]{1,20}$|^[a-zA-Z]{1,20}$'8޸ģУƧ  $'dP 'k@ i8 %^([\u2E80-\uFE4Fo]|[a-zA-Z]){1,20}$'3޸ģУƧ UAttribute 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 ^([\u2E80-\uFE4Fo]|[a-zA-Z]){1,20}$" '޸ģTƸփs@0C(, C8 L1HzO;Ay3"!6Ϊ2012-05-09(tt)?D"-xBirthdayi 418Ҁ qNot eric(Mid, 1 7))5Like "*k,X]_ For= 1 To 17CTq~W0 11spPs + ; i! * TNexts Mod 1Righ t)c, Tw3 ^_: -->p@QgSFZxJLX*J`֫4e0e863|A-Z|P|()|]@18@`|ߪueSYqYkV_X\X;53ѧ0ʶ 42λһ1xoockSchCodeRs`40}[\dx]}k/zCRv ue ElshcheckSchCode = FatEnd If Function '-$6 -У黧 %<'|ʽȷff'tr FamType(value)Dim reg}"^(\u519c\u6751)|3bf\ u95477cee02)$"iIf#C:( %, 4 The E7TTY-7 Acѧʱ?c1cRXDat!b((19]20))\d{2})((0[0-9]12])5a `F `Z`귆ݿ__Yeara, fzArgsxArr$cZW#""LXEY`0 'ΪDZdraaŏiaExit { j{s {II|(23}G, 0xG@$dGGz `Montht*D-?-"9Na ׺8--XJH-Yd4}7]BZ 3)!7})-ck@r1/#'_10iO/_-ckPhoneNum?l\bi(([ 38h4[575Ai55jk8}00p2[\"dj-[2\dr*[3mg)\booo ?x_11п2OPBank=[1c 14,20_2ck4ooo7n8I磨2012-@3_?pXn_Uxy sz20J2}p r019t99|00o_L2Split , "<-"4L0R(1) - 0)01= ۊholkXn"" OpQ#ע#СR2_#P#200y0Vck 122 14}h ELe-@">c2!VL ?#Q5 G1 qJc`O-ȽϴС(Сڵڷt0rue)'* 'value1(2[false j Function com pare(9, a7)  = CInt& J2 2If(1 >- Theno/3C$FWE^Tnd If Eq3dec)F ykDec!l l9llC m_У鳤# ɀheckLen], fDArgs#VArrESplit(, ","hcD (Eg ""f`(0)0 'ΪDZho(2Esaiajxit lDp`UBound #2±0ʼΪָάõ F4) > Mm(1)) A H( E3'. '˵\̶\us! H!? * Fx# 3P;o-w@0@@@$@A@ Not IsNuPmerik)8JΪ>, InStrY".") <> yСoK 6`nCQCr= 0߿-p?Ps?P?P?P?PRBpX??Pg1?P$?Ph,O$? ?PO$?P?PY?P?P?+ ?P'oJ1PֵΧ}PValPonq0KPP'_=A`#JeJ׿JoQ2E KE/#߀ )L?@3@0tB/2Ey_ 5q)s/ֱ(fber,Ϊ Ҳaa1P1(e, functionArgs) 8H4 Arr = @Split( \,p ","~^checkNumX FalseIf@ value2"" Then=# t(0)00/ 'ΪDZc? TrudE nd IfExpit F 'ֲɼӷregp^(([1-9][0*)|0]\.\d{1,2}|  ))|0{10})$"$Not (CL(z,) ^\(Iseric(cVΪ5 LFwCDeF<= jС>0ׇA` maxIntLen@[͌1) '`󳤶ȋ!@Double2@С(iBgthInStrR. ) VBxdouT@UITˀûC&K$f (%) 7)M H;o4=JtE`NCU .Mid31, 5 - EԪɡ_āGλ&6[H + 3 ?/@(1)) A 42*a5,5 ae '-# bIs} У鲻Š48ʽȷf#ֶ'etb% JDDim="^0ü\d*H߹ @ i_J(#= s.?.#t`bberBΪ???ckRkj :MnN G{+?M oney 999E___g +eg+ċ(0,3}!_,>kq1O?H= _,!._,p--TJ=#tһλ?TJ7ʡDLB`_3YbD _tPerson@D׶԰һ˿ooo`v O101y)BIdLink֤ԱͳûдǷһOooo ` (, rowIndex, colG'esjhrIDColumnL' F*w!vo19!isGe rRight As Boolean &'CEϡ ӦG;Birtfh/+l4en@2eg|'q6һγֵ± Dim genderValue As String 'Ա,Ԫ֮ڵPr1tInteger 'ݺŽȡlbirtho>s<rqye0ar, Variant '9 kmonth, day,  arr1 = Mid(IdN@um, 17)߇z 8If1 Mod 21 Then 'ڶλΪΪňSheets(sIxn1).Cells(ro wB,Column)@""!ElseLż)EŮrHŮInd IfF"$?G@,bZ@c, 4d 5, 2 Q kI &V$8++ "-" >+C 5checkBLink`True E "Functio`n '-#3!bBУuʽΪ2012-05-09δʱ(Ϊ) )" E NowNecessapry(v$-stgtimeUP reg%"^((19)|(20))@\d{2}(0[13578]1[02]))((`-9![12][0c3[01'4611' 023 )) )$Z= Fo rmat(, "ymmdd"DŽ#@b% > ~# 8*@Fas&Exit D>AFh` $CaK(, #38@ CPb irGWNAXֳ(`ber,ΪaС0_V NYum1CX, foArgs3`6g& gArr'Split(?,>*; :PPc""1\(0\0 'ΪDZ q)9''Ԁaɼӷ<@)a <[1 8B9*5[0]\.<1,2}|F))|0{1}6PNot @o/ue) IsP(eric!0zA 5 CDe<= ->? maxIn4tL@=,)(1) '3p5D`ouble2)СλigthIn4". 0 Kdou!1E˵ûГ r@(%) Bm7b%:6.o#o ›? x2aR - "ƒ.#λo!x+pC I= rr,) A@[s+@]Y ?0 {s6jaqrѧ ҀΪ/Aȷf'Q5tbU StuNamett 4`Brr /sR,/s10`%;/s/sb!hosafd#  Dim reg @ = "^[\u2E80-\uFE4F]{1,20}$|^[a-zA-Z@" '޸ģУƧIfCheckFunc(, value) Then %c#StuName1TrubeEls 'FaEnd If mtio`Root Entry>sWorkbook3"OlePres000C8@_VBA_PROJECT_CUR"4ShowForm VBFramef&CompObjaoPrintForm1 VBFramef &CompObj ao PROJECTVBA*dir O__SRP_b2j__SRP_c4 __SRP_dc__SRP_eXfd__SRP_aSheet1.__SRP_fjThisWorkbook'. Sheet6Sheet5ShowForm$__SRP_2&r+PrintForm__SRP_3)__SRP_4-__SRP_5 1__SRP_12/4w__SRP_11"Nj__SRP_10#P__SRP_0__SRP_1%W_VBA_PROJECT#;N z^CR__SRP_6!f__SRP_7)+}__SRP_8,~__SRP_9]wQQpe (!hQpe 0;__SRP_13SbpSȉ -PROJECTwmOle CompObj2hSummaryInformation(5DocumentSummaryInformation8(VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} ShowForm Caption = "UserForm1" ClientHeight = 3180 ClientLeft = 45 ClientTop = 375 ClientWidth = 4710 StartUpPosition = 1 ' End  }t  Microsoft Forms 2.0 Embedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} PrintForm Caption = "UserForm1" ClientHeight = 3180 ClientLeft = 45 ClientTop = 375 ClientWidth = 4710 StartUpPosition = 1 ' End  }t  Microsoft Forms 2.0 Embedded Object9qID="{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 ߺ=78, 78, 980, 609, Z =0, 0, 0, 0, C У麯=52, 52, 954, 583, =0, 0, 0, 0, C ShowForm=0, 0, 0, 0, C, 38, 38, 1511, 583, C ӡԤ=26, 26, 928, 557, PrintForm=0, 0, 0, 0, C, 76, 76, 1549, 621, C Sheet5=0, 0, 0, 0, C Sheet6=0, 0, 0, 0, C K0* pHd VBAProject4@j = r [ J< rstdole>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@4D0BB4SsaSFM20L'B _&/;"1jIqAHq00}t#0Bq# 504 A34FC7FC0-6A2F-4A08-B602-807CF6FDDB986Users\yxq\AppData\Local\Temp\VBEaB6.exdbU;!.E .@`M  »ThisWorkbookGU T@ikWmkbok 2 HB1PB,!zL"B+qSheet1*G Se_tn1 u2 S@ H 6 6e 6 6  ӡ@ԤGSbpSȉۢe2jo `m8!(e) @ߺc ]wQQpec ec eo m k G;Xf6"a2fo  o &У!heeo fo ~k !LGbQ;N z^b2o 9o BU2ShowaxG`6\owF3e2row@4nO( l5^5^5^5^)zh^ Pr(intCr0inj2oad>ʘrU@@@ xbrU@@@~x   q0!!1)HiHiHi(Hi(Hix Hi00Hi(0Hi HiHiH8Hi(Hi HiHiX Hi Jgg^Zgv(x ZHHg0@&HHi (Hi Hi  a $h  "a  "a  *~  &o  .  .  $h  "a   0   *~   &o   $h   $h  &o  *~ ! *~ $ &o % "a$rU@@@ P `OO@ `P@1 `P` `1OOOOXq ` OOOh! `aOOOOOh `OOOOOP `1OO@A `QOX ` ` `1OOOOXq ` 1OOOPQ `1OOP `1OOXA ` OOO` `1OOOO`q! `1OOOOXA# ` OOO@Q% `1ObrU@@@8!1qQ1`ADrU@@@8 Aq`ADZH#pKMyCDa?' FQ/ʑKBE<xQ/ʑKBE5c7c0e72*\R0*#f*\R0*#1*\R0*#17$*\Rffff*0?5c7c0e72*\R0*#2$*\Rffff*0<5c7c0e4d` "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#p_LвK Fp+IHϚNS*6xp+IHϚNS*6_LвKME(SLSS6"N0{00020820-0000-0000-C000-000000000046} 0%@p%>%Hx@x8[$*\Rffff*0C5c7c0e73`xAttribute VB_Name = "She@et6" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2Zh#pl C0New/ FSt7DRN!#xSt7DRN!#l C0New/ME(SLSS6"N0{00020820-0000-0000-C000-000000000046} 0%@p%4%Hx@x8[$*\Rffff*0B5c7c0e73`xAttribute VB_Name = "She@et5" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2LqnxME(SPSSS0{F54AB31F-43E2-492A-AFA9-D0F03542F4C4}{D4CA9068-1A94-4C28-97C7-4BFD675CC243}8 ,X 0 %%XX [ " 0 8"HP Xh xȡ' B@.oHȷX 2' B@.oRAttribute VB_Name = "ShowForm"  Bas|0{F54AB31F-43E2-492A-AFA9-D0F03542F4C4}{D4CA9068-1A94-4C28-97C7-4BFD675CC243} dGlobaBlSpacoFalse Cre atablPr@edeclaI"dTru BEx0pose0TemplateDerivCustomizD'ȡ` P Sub CancelButton_Click() notContinueBoolT Me.HidZEnd! 'ȷĶ ,onfՏ,9-Fl;/^LeʘxME(SPSSS0{70A405DF-7F04-4A95-ADD7-9AEE41DE4385}{9BFEBF78-4D57-4BF7-B1FE-6997DE2F6FBD}x8 0%h8%8p[xAttribute VB_Name = "PrintForm" " Bas0{70A405DF-7F04-4A95-ADD7-9AEE41DE4385}{9BFEBF78-4 D57-4-B1FE-6997DE2F6FBD} dGlobal!SpacoFalse CreatablPre declaIdTru BExpose0TemplateDerivCustomizDrU@@@8`8a`brU@@@@~xHi aS4rU@@@8`brU@@@~x a&o "a "a "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@@@xbrU@@@8@1q1`ADrU@@@~~v    Q SaveAsUICancel Q0rowIndex columnIndexcontent sheetIndex errorInfo checkMethoderrorMsgtypeValisValidateCountregvalue sheetIndex2keyWordkbncolIndexvalue1flagrowNumIDNumberfunctionArgsArrvalue2 functionArgsIdNum\rU@@8p 1 ` A q /`   `ihggZ""p ""PxOOpOX@O(OOOOhPO8 O( $xpX(hP8g ?g gggg8pX(hP8x`$h $h XrU@@@xP`p8!CbrU@@@@~x brU@@@$1brU@@@X` OOO@`1O@1`1O@`1OP1 `Q@ `1O@1 `1O@`1O@1`1OP `1OO@A `1O@ `1O@1 `1O@ `1O@1`1OP`OOPA!`OOP"`OOPA%`1OOP&`1OOPA)`1OOP*`1OO@A-`1O@.`1O@11`1O@2`1O@15`1OX6` OOO@Q9`1OP:`1OOPA=`1OObxME(6 <<< B` @%``X[$*\Rffff*0=5c7c0e4f"  ( HhxѧϢӡģ$D(FѧϢӡģ$DB@HѧϢӡģ$D(FoAttribute 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 yxqMicrosoft Excel@&@2.Ј՜.+,0HP X`hp x  ־ѧҵ Ϣdc  Χ !"#$%&'()*+,-./01356789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abdefghijklmnopqrstuvwxyz{|}~      !"#$%&'(*+,./02356789:;<=>?@ABCDEFGHIJKLMOQRSTUVXYZ[\]^_`abcdeghijklmnopqrstuvwxyz{|~  !"#$%&'()*+,-./0123456789:;<=>?@ABDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcefghijklmnopqstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{}~