ࡱ; f T8\p Administrator Ba= ThisWorkbook=9 L}8X@"1[SO1[SO1[SO1[SO1[SO1[SO1[SO1Arial1[SO1[SO1h>[SO1,>[SO1>[SO1@[SO1[SO1[SO1[SO1[SO1Arial1Q[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 [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_                 / / / / / / / / / / / / 0 0 0 0 0 0      P 1P      2 /    3 4 5a   6  7ff 8 9 :`   ; < =  > 0 0 0 0 0 0    @ @  @ @  ""@ @ @ @ @ @ @ @ !@ @ ""@ @   1 1 1 1@ @ 1 1 1@ @ 1|7 1|7 1 1@ @ 1 1 1 1 @ @ @ @ 0@   "1 1 1@ @ #8@ 1 1 %1|7 1 1@ @  (1 "1  1|@  1 1 '1|@ @ 7 1<@ @ )1@  +1@ @ ,1 .1@ @ ?87 @8 A87 B8 ||w| i}-} 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 ?_)}-}Y ?_)}-}[ ?_)}-}\ ?_)}-}] ?_)}-}a ?_)}-}b ?_)}-}d ?_)}-}g ?_)}-}h ?_)}-}j ?_)}-}k ?_)}-}o ?_)}-}p ?_) 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\`P V[VYf[ёDRNR TUSdNxhKwOo`VV!  =dc:- KmՋ@b g!hĉRv^SbpSOo`ffpP)(@NF|MOS AA@A@   1 7 checkDiffNameV[V~+R Ty checkSqyyCode3ut1uxkuNOO checkSqyyName3ut1u Tyf[uY T 77usYel T^S/f Ty{|W checkGender'`+RsY'`+R7u^8^VN,V NVvQNeUSNd[?QpXP[sYQQgNOVuV~pmQNNsfzjh 7 checkName 7_OS@QA&CE_ F Ge H J$K X" X# X$  X&  X%  Xm  Xn  Xo Xp Xq Xr Xs Xt Xu Xx Xz X{ X X X X S6 rH SI v S S? S@ SA Z'  SB  SC  S  Sv  Sw S Sv Sw S Sv Sw S Sv Sw S t S S  zzryZ(   vj Ng1X? ]4v6@ E@ķQ> <kXQf[uvY T<~~  <h1CC@],@n?9 $< _Yhg<~~  <i1CC@],@?9 $<_ Y h g< ~~ i < j1CC@->],5@N?9 $<_ Y h g<v6admin>@dinjn  7 Sheet1ggDh4hb:SW2 T8 7TpVv  dMbP?_*+%&ffffff?'ffffff?(?)?MFoxit Reader PDF Printer_ 4dXXA4" dXX333333?333333?&<3U} @F} D} D} !D}  E}  E}  E7 @ ,,,,,,, , , , , ,,  M H H MN ObGGGG O I.K? `0 _1 E I.K `3 _2GKKG 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 II$@ 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,3,4,5,6, !I!I@ !I !I "I"I@ "I "I #I#I @ #I #I $I$I"@ $I $I %I%I$@ %I %I )I7)I )e8 )I9*IIII +IK+I? +JL +LM ,IN,I@ ,JO ,LM -IN-I@ -KP -LM .IN.I@ .KQ .LM /IN/I@ /KR /LM 0IN0I@ 0KS 0LM 1IN1I@ 1KT 1LM 2IN2I @ 2KU 2LM 3IJ3I"@ 3KV 3LM 4IN 4IW 4KX 4LM 5IN 5IY 5KZ 5LM 6IN 6I[ 6K\ 6LM*h<<<<<<<<<<<<<<<88PH  0(   >@? 7 Sheet5ggD T8 {  dMbP?_*+%&ffffff?'ffffff?(?)?"333333?333333?&<3U     GGGGGGGGG G G G G GGGGGGGGGGGGGGGG>f0 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(@d06 <`dhP0hfjHnH@ʀx @8 @ꀈh @rx @%Ϣ%ꀢh  @  @ꀞ @B‒(@ʀX @ @ꀤ @LBZhB!ꘀB#˵%hB^HpH%lxHxcnʘB", Aʀ @ectiʀP @%p8ph @ꀜ8 @Ϊ00 @"   @t  @xcelv BʧxP@1qazꀊ @`@ɫz@ϢʘB|@ @ô~pB"H8h(XPpx x8@Hb$p(8Hʎ[*\R1*#278$*\Rffff*0>5b8ed0c6(*\Rffff*0>5b8ed0c6\044    08  @ ` Dp 8 0 P0pD084P. ..(8(`>"$$@>`R^FX `*0$`   ^^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 A 1 Q' Q A  -qq1q4Q0!!"0%$A%%&q&&0`&@<'1'a)))))1****1+,,8,,!-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`P x8hpHi@ aS SK*   rU@@@~~~~~~~~ ~~~2~ ~~~~ ~ ~~B"QNb_@  aA  aA aA a pa"""#A###1a!a$Q$$!aa Q  .../Q////+'0A0q00+01!1Q11112A2q222313a33qa  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 ?(L XMFeAAk/VP-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 CellsClearContentsFsetCellValueCountXQcheckDMB deleteRowdeleteRowNoProTab&t  A65530 Rangerow IV5Fs)bAer FHO*kmDF Worksheet regCheckFunccheckTheSameXQNewGetRowOrColIndexsetCellValueXQ:FF FAILUREcheckedRequiredStartwriteLog writeLogRedaddCommentXQStartclearCommentsXQStartbeginCheck_commentcallFunctionXQStartgetCellValueCountXQ 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 - ( checkYear(~ : ; Locked ,{ Lvpency -N\ gN*NkXQcknxhgRows Delete dk!k!h-N RdN :LeHepencY T0NNSR!h1Y%sS9eL:NeHepenc  checkRXDatecheckXn * gOo` g w Oo` h ۏLOck Select !hǏ! SUCCESS * g͑ Ypenc g w Oo` h ۏLOck L 5`!L>CF5b8ed0c6bXf&x!hQpe0C5b8ed0c9!hQpe~Jd;N z^0<5b8ed084;N z^Ux`-ShowForm095b8ed084#ShowFormnw Sheet50A5b8ed0c8+ Sheet5hPrintForm0;5b8ed084-PrintFormʘx`HHH 'AyOfVAB m+DY@nN89X0GAO a a'/AK PG<@G%0jM^T|Q3ivD3y&5{F4֣H/ Lū>wܺIxAE){ ]'"Z!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\`a2l\` (setDMBCoded`(checkValK`(checkInt`resZjlx0` (IsIDNumber-*` (checkSFZJLX*` (checkBankUw` (checkYear6`(checkXn` (checkMonth` (checkBirthday`(checkNowNecessary` (checkPhoneNum` (checkOption,`(checkDMB` (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` i`(!ValueColumType` columnNamew`(sheetIndexValue1` (AreaSheetName`(readmeSheetName` (totalCount-`(rgold`(TargetF`(hasErrorInValidateU` (dataRowStart` isNullRowNum8`(cna`(notContinueBoolt` (genderColumn~`(birthdayColumn0` У麯&`(checkBirthdayNecessary`IDNumber4 `Wm`UCase5 `sj`Tk`Flasep` 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%` (checkStuName1` ` 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` 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_totalMoneySumY`_B_var_p`_B_var_q` "$'=?A#K+ - c"@ p0(P7q YX!HH  2 ( -UxMEx6 LL L"L <x :@`@8kP@ @ @ @ @X ` @@ ` `  `  `( ` @8%pXX@p@x@(X D2^\`@8 @0 @X @p @ @ @ @ @0 @`p @h @P @(8 @  <zV084@ @x H6X@ @ @ @ 01@ 1@p tN @X @@ :@( :@ @ @0 HB@p 0B@ @ pH@ H@x @p J(0L@8X PP@p@ `8P8R@( pY@ Y[@ _?@p _0ae@ @ @ ps@ su y@h @ P 8 {@8 H { X8@ʎ[$*\Rffff*0<5b8ed084*\R1*#3c7*\R1*#12d*\R1*#121*\R0*#17$*\Rffff*0>5b8ed0c6*\R1*#11c*\R1*#42$*\Rffff*0?5b8ed0c8*\R1*#129*\R1*#278$*\Rffff*0@5b8ed0c8*\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һͱʶľֵ]Զʶ]%Ѽ¼ΪյкŷŽ]( D!H'"ȡĿ 0ĿȷģٽдУA@21qaz>$DB@|k1qaz>$DB@<1qaz>$DB@<1qaz>$DB@< ^$\!VB@-$ÿοʼʱѴϢsheet,'`Ϣ¼ʼ'.ôУУ¼Ƿд֣׶ϢУ ('#Ĭ϶ѼδͨУ'Ĭ϶δͨУH ^$\!VB@-$ÿοʼʱѴϢsheet, A65530$D%%!'  ȡxcna = Worksheets(1).Range("1:1").Find(What:="*", After:=[a1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Column IV5 <%%!6'zFAILUREA@V&+ȡǷУɹ־Ԫ񣬲ֵʼΪ0'xռ¼ʼΪ0 0 8" ʱִd ʼУ鰴ť¼ʱִ.ȷʼ Уرexcel $4ܵݶʧʧ 6ܰʾ$2 8d1qaz>$DB@|kk.$D!b(j)ҳǩΪɫ   "ûвҵѧϢ޷У飡A@2'01qaz>$DB@|k'ôУУ¼Ƿд֜$D!дϢ£A@X      '<"ִ һǿУ ĵԪĿ';6ִ һǿУ ĵԪΪϹĿ'''5"һǿУʱ¼Ԫ'9ǷΪЧ¼ 'tC¼УǰǷд';¼ԱǷд  z $D%V!'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  $D%V(  6ִ һǿУ ĵԪΪϹĿ     е һдȷ''8УʱдϢ A@X  'd   'Tÿһкϼеֵk  <,һؼֶȫ򽫸ɾ  x+ x 'x,"ϢеĸдϢɾ  `  ` `  ^$\%PB@Rr Ѹɾ  `  '` t'k  k  x 6 ɾЧ $' 6 A@NB ѸɾdP   A@NH Ѹɾk   x ˴Уɾ x:Чݣ֤У鶼ʧܼΪЧݣA@2k *дϢ鿴ϢA@2$D!b(j ^$\B@Hd( ' A@ '%ִУظݷ,ûظǷҪɾЧ Уͨ!A@2.$D!b(jSUCCESSA@V:+ȡǷУɹ־Ԫ񣬲ֵʼΪ0 A@8d *ظݣ鿴ϢA@2u$D!b(j ^$\B@Hk k 1qaz>$DB@1qaz>$DB@1qaz>$DB@\o8 q-------------------------------------------------ظijһ------------------------------------------------@]] A65535 T%%!' 2:Scripting.Dictionary$.O8O  T%!'>ȡѧ  %"ѧ໤֤ݽб   %-֤Ų\  B@&#addһΪkeyڶΪvaluek8 k0 ( !' Sheet2$DG:G7B@  !%  !HG17,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& !: BxME(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 7I I ` H` ( EI  +" `  \In I$ i&`( 8 ` p iIn IN I: I   ` H rI hI@ IB @F NX `  In 8 IJ  T ` In  IJ  V `HHkH In h IN  I:  IH (   ` In @ IN ` I:   ` I  In  IN 8 I: @F @X @R ` In  IN 8 I: `@`\`^ H( X x0( J@% h 8P @V D@ @h @ @ @ @x @` @H   ʎ[$*\Rffff*0@5b8ed0c8*\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    68  p  6   8  0@6X (  ( 0@(X   f   @Xp>x&  XHPp hx * (HXj`&  @ `H   H(x8 H( H(p HP( 0 &8 `px n  8 @ 8X( 8H( 0 &8 `px p ((@h p8$ 8$  & $   88(jp 8(j   &    (  H (!8!P!X!h!!!!!!!&H" p"" """" b" @# `#p####&0$ X$ ,h$$$$ f$ 0% P%`%x% % 8%(% 8x&(& P' &X' '''' f' (((@( h( Tx( &( ()) $() &P)$Xx)$&)$ )$* * * (* 8*$t@*$&*$ * * $*+ +(+ b0+ +++ t+ &H, p, ,,, b, - 8-P-`-h-&- . (.0.8.X. ^`. . ../X/&p/ / /// ^/ 80 X0h0x0X0&0 1 1181 ^@1 1 111T1&H2 p2 2222 n2 (3 H3`3"x33&(4 P4 `4h4p44 j4 5 (5H5"X55&06 X6h6p66 n6 7 (7H7"`77&8 88 H8P8p8 Px88888&9 9 9999 R9P:h::X:&: ; ; ;(;H; bP; ;$;;@<&@< h<x<$<<<< X< 0=H=h=@p=&= ===R>`>&h> >> > >>> ^> @? X?x?@?&? ?? @ @(@H@ ^P@ @"@@@@&8A `ApA xAAAA ^A (B&@B hB@pB&B BB&BC C@C |HC C$CD(D@8D&xD D D"DDDE |E E"EE@E&F @FPF XFxFFF F 0G(HGpGGGGGGGGH H(H0H@8H&xH HH HHHI |I I$II@I&J 8JHJ$PJxJJJ dJ K (K@HK&K KK2KL xL L6L.LMM( M20M( @M1PM( `M2pM( M1MMMJMN(N0N8N@N fHN B N N<NO  O8O$XO$OOO O \`P B P,P 0Q@@Q"Q ^Q 6R@RXRxRR0RDR0SPSXS`ShSpS xS "T @T .`TB T T$TBT U (U 8U HU PU `UhUpU xUB VV 0VPV XV V W  W @WB XW"`W WWW WWW W8W X2(X`X xX XX XX XX FX8Y@Y HY PY *`YY Y 8Z PZB hZpZ*Z 4ZZ [ [ [B [*[\ \B \^\ v\ \ \B ] ]] ]B `^ h^ "^ ^8^2_8_ P_p_ __ _ __"_0_ `(@`h`p`&x`` `` `B PaXaVxaa 8a (b Hb:Xb4b$bb"c8c@cHcXc-----------------------------------------УУдϢʾ ע-----------------------------------------------------------: Ԫ] 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' checkDiffName1e2ѼΪ1' checkDiffName' checkDiffCode1e2ѼΪ1' checkDiffCode' checkIDCardType1e4֤Ϊ1'checkIDCardType' checkSqyyName1e2ԭΪ1' checkSqyyName'  checkYear1e. У1' checkYear'  checkYFJEe/ У1' checkYFJE'  checkPmmce- У1,8,0' checkPmmc'k _=================================1 ִеķǿУ==========================================ѴϢдб checkNullKT n N P$'  N е Ϊգ'')УʱдϢ A@XRMsgBox "" & rgold.Row & "е" & Chr(10) & titleMsg & "Ϊգ"k0 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λȲ$λСλ$5λҳɼαڳɼ30%֮ڣ'$eD ΪDZΪ̶ȹ N е ?дȷΪգұΪ֣0λȲ$λСλ$5λҳɼαڳɼ30%֮ڣ'k@'0УʱдϢ A@X $ 333333?$ e ,$'$@ ΪDZΪ̶ȹ N е ;дȷɼαڳɼ30%֮ڣ'$eD ΪDZΪ̶ȹ N е ;дȷɼαڳɼ30%֮ڣ'kp''0УʱдϢ A@Xk( n  N P A@'}=================================15 checkNumYN ִǷΪǡжǷ--================================== checkName1KT n N$'K ȡд n N$' $ ?$ $ 333333?$ 1,1,100'  $'d0,1,100'  $'  N n$\,VkPkH  N7еɼ10%-30%Ҫдע˵ *ֻ뺺,ַΪ100λ''(УʱдϢ A@Xdx checkYesNo n N PA@kP 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@Xkh n  N P A@'`================================= ִе֤У========================================== checkSfzjhKT n N$'S ȡд  N е &дȷ֤Ϊգ''0УʱдϢ A@Xd  ֤  P$'O ֤У :֤У N е *дȷΪѧ֤ţ''4УʱдϢ A@X  'kd $'  N е EдȷΪգҳȱڵ1λҲ18λ''4УʱдϢ A@Xkkk n  N P A@'\================================= ִѧŵУ==========================================checkXJHKT 1, 1, 50$'  N е EдȷΪգҳȱڵ1λҲ50λ''0УʱдϢ A@Xkx n  N P A@'[=================================ִпУ==========================================ѴϢдб checkBankKT $'  N е $дȷΪ֣ڵ$ Ҳ$''-УʱдϢ A@Xk n  N P A@'W=================================ִУ==========================================ѴϢдб checkYearKT  $'  N е *дȷʽ20122002ȣ''-УʱдϢ A@XkP n  N P A@'W=================================ִѧУ==========================================ѴϢдбcheckXnKT $'  N е )дȷʽ2012-2013ȣ''-УʱдϢ A@Xk n  N P A@'W=================================ִ·У==========================================ѴϢдб checkMonthKT $'  N е &дȷʽ0112ȣ''-УʱдϢ A@Xkp n  N P A@'g=================================3 ִеУ(DZ)==========================================ѴϢдб checkDateKT  $' 2Уʧ N е дȷдʽΪ"$4xxxxxxxx"$4 20130221''-УʱдϢ A@Xk n  N P A@'c=================================ִеУ飨==========================================ѴϢдбcheckDateNecessaryKT& $' 2Уʧ N е дȷдʽΪ"$4xxxxxxxx"$4= 20131221ֻõ֮ǰʱ䣨գ''-УʱдϢ A@Xk n  N P A@'g=================================ִеijУ飨==========================================ѴϢдб checkBirthdayKT"  $' 2Уʧ N е дȷдʽΪ"$4xxxx-xx"$4 2013-12''-УʱдϢ A@Xk n  N P A@'J=================================10 У绰====================== checkPhoneKT $'  N е дȷдʽΪ"$4-̶绰 ֻ"$4 ''%УʱдϢ A@Xk0 n  N P A@'L=================================checkOption У鱸ע ====================== checkOptionKT B$'  N е )дȷȲܳ200ַ''%УʱдϢ A@Xk n  N P A@'\================================= ִ϶ѼУ================================== checkDiffNameKT checkDiffName  $'  N е дȷ''(УʱдϢ A@Xd checkDiffName n N PA@kP n  N P A@'R=========================== ִ϶ʵУ================================== checkSFJEKT 1, 4, 0$'  N е дȷ''(УʱдϢ A@Xd $@ N е #дȷ,ֵֻΪ8000''')УʱдϢ A@XdXkPkH n  N P A@'X================================= ִ϶ӦУ================================== checkYFJEKT checkYFJE  $'  N е дȷ''(УʱдϢ A@Xd checkYFJE n N PA@k n  N P A@'X================================= ִ֤У================================== checkZjlxKT checkZjlx 1$'  N е дȷ''(УʱдϢ A@Xd checkZjlx 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@XdH checkGender n N PA@k n  N P A@'u=================================14 checkYesNo ִǷΪǡУ--================================== checkYesNoKT checkYesNo 1$'  N е дȷ''(УʱдϢ A@XdE checkYesNo n N PA@kE n  N P A@'}=================================15 checkNumYN ִǷΪǡжǷ--================================== checkSNumYNKT n N $'K ȡд 1,8,0'  $'dPD0,8,0'  $'  N n$\,V N n$\,VkCkC  N е дȷ''(УʱдϢ A@XdHC checkYesNo n N PA@k C n  N P A@'u=================================14 checkYesNo ִǷΪǡУ--================================== checkSqyyNameKT checkSqyyName  $'  N е дȷ''(УʱдϢ A@XdA checkSqyyName n N PA@kA n  N P A@']=================================checkTerm ִѧУ--================================== checkTermKT checkTerm  $ N е дȷ''(УʱдϢ A@Xk8@ n checkTerm  $ N P A@'r=================================checkAtLeastOneNNull ִһΪǿ--==================================checkAtLeastOneNNullKT  'A"ִ һǿУ ĵԪĿ $ =Ϲ   ' P KTF   ' KTF   ' KTF   ' KTF   'nX>dϹ  'F6ִ һǿУ ĵԪΪϹĿ    'k='n=i=_--------------------------------------------ʽ------------------------------------- ]VBSCRIPT.REGEXP$.7RegExΪʽ (4 ȫֿvba\ת  (.ʽ (5ǷִСд  %'3 ִ.iH<-----------------------------------------------------------° Уظ˵Ѿûиʽ------------------------------------------------------------V-----------------------------------------------------------1ѧ׶ڱڲ(sheetѧ׶ A65535 $\%%!' *cna = getTotalColumnCount(sheetIndexValue) ^$\!VB@1&ÿУظʱʱѴϢsheet,'`Ϣ¼ʼX==============================ѧ׶ڱڲ==================================0ðÿԪغ֮ǰнбȽ      $\%V'      $\%V'  .ѧͬ˵ظݹ  еݺ͵ ظ!!!!' A@X*ѴϢ' k888i8-----------------------------------------------------------һ ֵȡֵ------------------------------------------------------------ֵҵֵڵлkeyWord ҵĹؼ'kbn л ֵΪ rowrowH'"]the find result object $, 0. 42 A1:A65535 n$D%%*.( ( &row (!'"d6 (!6'"k6k6i6------------------------------------------------------ ָcellֵ-------------------------------------------------------------1qaz> n$DB@<  N : n$D%V(i5------------------------------------------------------ ִڹУ(Ϊ)-------------------------------------------------------------value value1 cellУ鲻ȷfalseУȷtrue B0˵ΪDZ @$D'zP4kH4k@4]'Hijһļ¼ A65535 L$\%%!'JB' L row$"'F=ȡ  F J  L$\%V  H 'HdP3yH3k@3   F F H   L$\%VX @X LжϹǷcell'y2k2 #ʱcountĿΪùеĿih2------------------------------------------------------ ִɾijһвexcelܱģ-------------------------------------------------------------sheetIndex rowNum к1qaz> n$DB@< J n$D%PB@R/ Ѹɾ- Worksheets(sheetIndex).Protect Password:=123i1------------------------------------------------------ ִɾijһвexcelûб-------------------------------------------------------------sheetIndex rowNum кX J n$D%PB@R/ Ѹɾi/------------------------------------------------------ ָcellֵ------------------------------------------------------------- 1qaz> n$DB@<  N : n$D%V(i/------------------------------------------------------ ȡָcellֵ------------------------------------------------------------- N : n$D%V!'iP.------------------------------------------------------ ݴеֵǰʱѾͨУ飩------------------------------------------------------------- ]X p  N : n$\%V!X 'R'Hijһļ¼ A65535 L$\%%!'JF L row$"'FAȡ  F J  L$\%V  H 'Hdx,yp,kh,   F F H   L$\%V!X '@ @ RX 1жϹǷcell  L$\%V!'X XX N : Z n$\%V(y+d+ N : Z n$\%V(kX+ i@+------------------------------------------------------ ȥcellеĿո------------------------------------------------------------- ]X Ԫ]p  3Blength1ʾcellԭijȣlength2ʾִȥոַ'ĬΪûȥո2 Worksheets(sheetIndex).Unprotect Password:="1qaz" N : n$D%V!'@ @'\ \Gzj*"ԪΪգȥո @ '^%length2Ϊոһγֵλ ^ַո @ $`'@ @X N : n$D%V('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 ? DiffNameѼa?%D~ #CodslA! `IDCardT*'րͶ;:`._Sqyy;ԭ;Q0] e? WYearZ?M`?:]  :iYFJEC/ E QPmmcrA1,8,ySS- ( ~Select Casel '=121 ִᡒǿ?ѴϢд?G NullMet`hodXQ@Required Not>  Terror"", &f"!v& "գ/has&E`Tr0'qʱ9% fwriteLog E ' Box 5 gold.RowO & Chr(10) TͨbeginC_commentz,?isFor. o+.2.ѧ/_Ky-{O removeSpacep-ԟ 'ȥոķϯٯٯq)./Ek2=c3StuQk(2/6/6;/6V555дȷ01820ַ*_8_8M8E<+< 1?5 5mment sheetIndex, checkMethodXQ, row`olumn0error@Msg isFor = True '= ִеijУ/ zCase "Len" (value, functionArgs)#@If Not pThen@0ArSplit( , ","?%#C '(0)j0 And UBou\nd ,81U 'ΪDZΪ̶d3"@"" &Ǝ"x titleȷ"Ϊ@ա"LΪA<1)첆+ElseuO2]OA+ΧOLexA6OAOڵBgPҲ:1-2?-%,?-= 1T`jT?-TCTTT &S "SeS߽&SS &&&R`'R?,IE IfGhasE '!aʱϢ writeLog*WbeginC_co?}?z }Numberͣ{}] } }}7 a}}|UP#}}j}oQ{>h& {{1{{@֣>0λoqSf(v}?i?VsQ //g0~cU7K UUUU  dU____ҧUPU3<0%!hU==UPmmcU ;UU1UUg r esultQge@tCellVCatXQ(2, 5) '¡0+ [/i[[[][[E׿_E_E_E?ȷΪգұΪ֣0λȲ" & functionArgsArr(D1)("λ^V2Vɼ$x30%֮ڣ"  ElseIf0) = 1 Then '|ΪΪ̶t3BerrorMsg,"rowIndexе  title& "<@k`PcEnd IfPhasEAPOTrue 'У ʱAhϢwriteLog e Dval(ue) > result * 0.3)B2Split(, ",")EkawwGww?- xx  ?hcheckMethodXQ`OFaoooEbeginC!_comment sheet, j, %olumnisFor@%! %d'=15NumYNִǷΪǡŘжϡA--^ =K5Case "aC ame1= getCellValueCou`ntXQ(I&g$4) 'ȡA 0 #1n, 5MLoWUNV0A.J1 1Ia2"0t;2&a? +S3s )."s(G!6!"?f;  Not+;o f{V10%-Ҫ.ע˵(mր뺺, ַўΪ100{ Soo; _S{ 'yset@DMBCodeCYesNo",zScR#q/YY5YYYYTqXֵΧaV 'ѵдб{Y0V2?=0=5EI=v2|> ؀37]7&uO& _w!ܹR (0СO ߿ ?9?9?9 9C2i' isi8dat#x`+ 1OE?7 777_gY isFor = True '=ִеΪրУh@°ѴϢд б Case "checkInt" (!Method XQ1(value, functionArgs)E If Not &ThenB0ArSplit( , ","?%C '(0) j0 E 'DZΪ̶W5errorMsg@"" & rowInde x"AxtitleA & "дȷ"΀գCڵLM71)AA/, 2 λ7 ElseS>1SSSSQ([(EndcKhasEaJJ!@ 'af CV~ writeLog *WbeginC_comment sheet5b],K~,`olxumnk è֤xߨ !SfzjhcresZjlx 5get CellVCountXQ(#e, p'ȡ!|2aGo ""m;,% u*"iaXXe XF!$++,c K= IsIDNuPmber%sc/) ') 3W tkk#.OM!jje+j#Uѧ Oe/"N  o"Coo is`;ipdate;@3+ 1S)? ܓ=SFZJLX%n$`$ / bD ___xa#1t 18t $$$OFʴ o_??_5/|/|5/|/|?/|+{"|ѧ𼮺_Я{XJH{ [Len["1, 506Α/6?_X_X_X_XI55505 555o5o5O,/0O.O.O.RoisFor = Tr@ue '=пУ@ѴϢдб Case "checkBank" (Meth0odXQ*(v`alue)0\I@f Not @Thenerr orMsg5"" & row Index"е title& "ȷΪ֣ڵ'functionArgsArr(0),+1zhasEca 'ʱ0ЅfC writeLog E 'End IfbeginCA_comment sheet5\,o,columnD 'isPݿY8ear , w ?F <__ʽ20122002ȣWWWHW'@W WckW*A W W_HXn?WXnߴߴ~?U?U%U-U3U%c UeUUW*OVq*)*OV?_*OV*Month*;=4f*_`_*__q]U011OUm*ĚZ*nK_U****o'3 !+@U(DZ)?++ +Date" B Ao,airthday?,-t- '!1wʧO"....&/.Ϊ1\Chr(34rxl 1\0221;111 Oj1111111,;1!1ѩ__1_1 \1Necessary1r C11Now^O1O1AO1ϵ?pO1O1& 2F11B1-ֻõ֮ǰʱ䣨뼀" hasError = True 'УʱдϢwrit@eLog eOMsg/End IfbeginCheck_comment sheetIndex, cMethodXQ, row olumn?isFt '=ִеij4хдбCase "qBirthday" ' C@o (value, functionArgs)b NotW Th0en 'I@ʧ<&`%"" &Fj"TPQt0itle@дȷʽA Chr(34) x-xxL A2013-12ZP?cs?c]10 Ab绰< '[Ph8oneRZNumCZXIfW,SSS-̶# ֻ$V;?=?uPPNdgPLEOpBQע KPCQ%66_Q_Q? 5Ȳ200ַ?PYF%9%?O% %1, c /% " AѼqOKODiffN 8000O?:7ϻ_?&/i», ֵAΪAhK-!Fa:Y5r@o@??Q0 beginCheck_comment sheetIndex, cdMethodXQ, row`olumnerrorMsg isFor = True$ F'= ϶(5= Case "YFJ|E"  qSDMB(, value, functionArgs)'If Not ThenC>"" &"е title дȷ r3hasE3 'VʱдϢ*wri@teLog }Els{Aset@XCodg,Қ%End If?: $֤.55R 5p5c11j111* 11 o/yn/_/_/_/G_/_/_/_/_/6[/ _/*15&9TYN_/U/Єϡfe"= Case "checkSNumYN" |result = getCellValueCountXQ(sheetInde@x, row9) 'ȡ̀дIf \"" Then+ a1"1,8,0MethpodXQ0(*v[,")0ElTse>2>0=>2?>\ ^ JSs).s(10)\A!1End IfUW@>Not i?errorMsg6" &F"е@titleA & "ȷF0hasEATrue 'Уʱд@Ϣ writeLog - ڟ set@DMBCodYesNo", ScolumnT1beginC!_comment/ 4~,isFor* 'y[14TaǷΪǡ@3--^ = #qyyNameC`M3(, dfunctionArgs_`@KI "_`_` _`_`_`c _`J`S'-`ߙ Y`ck``X"MTerm_ѧڿ]c..Y).--|rE/+j_[& /+_[/+_[_[_[/ $w$Toa, :C%]OV% V %==&AtLeastOneNNull&һΪǿOV}=OVkL( >aBNO + 1 'a u  1 ĵԀĿ[0"@p.Moneby) Ar\ <> 0- '1Ϲ5qtotalBP +aSelect riuOIbaoPjiaoBCB:iSum ? _ huoshi H?   zhusu G?  others H  sc*?%| '23 >pG>6>>>¡Ϊ!@/KE+h+ " Jb`XuF -ʽo--?- Function regCheck@(0, valu e) DimLEX As @Object:Set8= CreateB("VBSCRIPT.REGEXP")O'RegExΪʽNEX.Global = True'ȀֿB'vba\ת [Pattern.'5-*JIgnoreCaseFal ǷСд B#wTest()'ִ Nothing End ''° Уظ˵Ѿûиʽ"- '1ѧ׶ڱڲ+JcTheSameXQNew(sheetIndex2) 'BhTna@fS s .Range("A65535").@](xlUp).Hrow'cBgetTotalColumnCou4ntVms gBN@-).Cells.ClearContents 'ÿ΅gʱʱ!eϢ5,#curM sgRow1 'E¼@ʼ'>=.'ðÿԪغ֮ǰнбȽG For i`startTitle + 2 To rna%hbabpyID1D+b#I?#+(i, c4ji -\ 1c 2Zj^! If Zn 'Wͬ tavA erroB"" & jA`"е:̓iA‡@!" writeLog 'SWhasu S!IfoNex?ңaһ ֵֵx7`C ҵ лkeyWord ĹؼrbnBCa ֵΪ Ǣ Get@@ODlR0(By@H g1|, STtrf)AIHgerCm-x1уc 'the fijresult o c@@k IX)6X1:fXF(What:= LookIn:=xlVs, A xlWhol@6t@Is ]u 16K&Pk= "`"5>p caaEQ c.I-0q.' ֐cg>seNtlpXQp, Pb), co*?!|).Unprotp Passw2:="1qazJv().rD/- Q|(ʀΪ)?A q$1 (@a'!ȷfaQ5t0h1bDMB$1, flagr1I"01 'hDZφ+Trim1)q41 0/a!Exit G/SSe1opwDatT(0 'ijһi1ʤ"Num0A·SWI 'V( Rij` m@(,cHphE`咕qowP Q h1%/Qs+/NoTcM{ i 1 \+  Cj( 03)&R  q 'ж'aq2ۺ#Pa 5)/(Rj'ʱcQΪ;QoH?o- ִijһвexcelܱģ'$ 'sheetIndex rowNum к Function deleteRHow(1, +) Works#).Unprotect Password:="1qaz"6I5s(/.D> `'Ѹ' 9P8123 End htaûЁN~o<]fX?LX @ָlֵ]D ȤsetCellValueXQM?A, colDv ĪA#). = ?b! ȡ!+_b+*D(*g*Count+*t&%9f ݴеPֵǰ@ʱaѾͨУxzTDMBCode(y?, LEL DimDataAYde]@^h@-CStr(S?a.8? 0 'ϸļ¼# Area).Range("A65535"). (xlUp).  ' a GetQOrCw(+ ,Ci, "") 'aA ЇFo8r i` @ To$G-If &`i, 1)8 Thena&+ 1KElseExit @  jIf7Nextl iQ j^ + -! 1I"}j, 3K!A1()@ 'жAǷ! uc2,). 2 V$OY) 7 +bumnPlusV OOqO ue "Y{#jUOLA ȥĿո?RremoveSpac}wh#QR(As Oing 'Ԫ('"length1 IntegPer, 328 B'tʾijȣaַ D bx3VRxepl(@"%x{Eo "Truc>qGDd~xME(6 <<< `X In xIN IP `R ``( I @ ` I I @ `h  I @ +` ii:`H`(H``` @`  I @ `  I @ ``(  I @ `  I @  `H I hI @ 0 ` I @  ` I @ P ` I @  ` I @  `8 I @ @  ` I@  I  D `x  I@  I  P `  I@ 0 I   ` I  I   `@ I ` I   ` I  I   `p $$I  I  H` &&I (I  `  I @ P`0  I  `  I @ p`8  I @ `  I @ `X ""I xIN I: ` ` `^````@ ` @ ` @ ` @ `` I ```@ `8 I XI @ p@  P P ` 0`H PtalM%p P/ʎ[$*\Rffff*0C5b8ed0c9  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" "" "B 8#@#X# `#&p##### # #"# $$ $$ "@$ h$ x$ $ $$$$$$ $>% H%4h% % %% %% % P& p&B &&&&&&&&& & x' 'B '' ' ''' ' x( (B (( (((())) ) ) )B )))* *(*0*8*@* H* * +B + +(+H+X+`+h+p+x+ + 0, P,B h, &p, $, , ,&,*-"H-$p--(--. .@.P.X. p. 2.."./(/  0/H/`/8x/// /B X0`0h0p0x00 1 @1P1X1`1h1x11111 1 (2 H2B `2h22 2&222222"23 3(30383@3P3-----------------------------------------1 ,дϢʾ Ϣsheet--------------------------------------- ʱ0 Ϊʱ1 Ԫ] N P n$D%V'R R'd'ki-----------------------------------------2 Уѧ ҪΪ-------------------------------------------------------------ʽȷfalseʽȷtrue $D'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У $D$''ȥո]h :  6)׶֤Ϊ,ΪͨУ 'zk Gzj $$Gzj *[0-9X]Gzj   $' G 'j   $  '  ' $ (  $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 @'z k @  'd` 'kP iH ------------------------------------------------------ȽϴС(Сڵڷtrue)----------------------------------------------------------------'value1value2false 򷵻true @X'@ X' @  'Dd8 'Dk( i ------------------------------------------------------ȽϴС(Сڵڷtrue)-dec---------------------------------------------------------------'value1value2false 򷵻true @$4'@ $4' @  '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------------------------------------------------------Уֳ(Number,ΪС0)--------------------------------------------------------------- ,$'' $/ΪDZ'kXzPkH $% Ϊz  $4e% С0zk$'+󳤶$'.Сλ .''' "˵ûС $4' $$4'zkd С  . $'DԪֵλ  . $' $$4 $$4'zPkHk@i8-----------------------------------------checkIsInt У鲻С0-------------------------------------------------------------ʽȷfalseʽȷtrueH] ^0|[1-9]\d*$'  $'d0'k i-----------------------------------------checkIsNumber УΪNumber-------------------------------------------------------------ʽȷfalseʽȷtrue' $'k i-----------------------------------------checkMoney У0-9999-------------------------------------------------------------ʽȷfalseʽȷtrueP]^(([1-9](\d{0,3})|0)|0)$'  $'d'ki-----------------------------------------checkMoneyTJ У0-9999Сһλ-------------------------------------------------------------ʽȷfalseʽȷtrue]X^([1-9]\d{0,7})$'  $'d'ki-----------------------------------------checkPersonNum У׶԰һ------------------------------------------------------------ʽȷfalseʽȷtruep]^(([1-9]\d{0,3}))$'  $'d'ki-----------------------------------------checkIdNumLink У֤ԱͳûдǷһ------------------------------------------------------------ʽȷfalseʽȷtrue If colIndex = jhrIDColumn Then checkIdNumLink = True Exit Function End If]%Ա֤ǷӦ]$ں֤ǷӦ]ڵһγֵ±]"Ա,Ԫ֮ڵ]$ݺŽȡ]0!,Ԫ֮ڵ]H"ݺŽȡ]`x#]%·]] $' $'  (ڶλΪΪ N ~ h$\,VdڶλΪżΪŮŮ N ~ h$\,Vk $' $' $' -  -  N  h$\,V'i@-----------------------------------------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]))))$' yyyymmdd$'   'zk  $'dx'khi`----------------------------------------- Уѧ ҪΪ-------------------------------------------------------------ʽȷfalseʽȷtrue ,$'' $/ΪDZ'k0z(k ]x^[\u4e00-\ue863]{1,20}$'  $'d'kiKAttribute 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)c52?dV?d(?d' 5dNecessarDe$c2BAB09A[ |(3 / OgO14z9ku  ]?p4 AQ֤<Ϲqn3m8'Io IsIDNumber(By` ׈, Œ)@BooleaԄConst W'QD7905842163"r'Ȩ#Sc10X987`65432C 2'V& = UCase(2zU)) 0ZXո-sInteger, ziT%= babyIDC AA{43dca0׶e:,Ϊx1  sFl  F  Len( <> 18jcpNot eric(Midh, 1 7P1 5Like d"*`X]o  For= 1 To 17CTqWz w111Bsps + ; i!! * TNe xts Mo8d 1Ri(ght)c, TcS}?/Ϳ; "?@AQSFpZJLXTs` "a-z|A-Z|p30ӁGY WX~kV/X,X//5!3-ѧP0ʶ 42λ0һ΀ɻ~x?ckSchColdeO>1`40}[\dx]ϐkOC_fo Ewnd Function '-$6 -У %xN|ʽȷfalse1tru checkFamType(value) Dim0 reg  = "^(\u519c\u6751)|3bf\u95477cee02)$"If#C3(%, 4 TheoE7TTEoc Fr EaIf -7 ѧʱsRXDatb((19]20))\d{2})((0[0-9]12])5a `F `Z`ݿ_Yea"r, fDArgsArrDG""Pa`0 'ΪDZd\a?a]iaExitj{s G{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)\bo~oRq*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  qG`OȽϴСB()-3 'value12false true Function compare( r, n)  = CInVt& 2 2I"fQ1 >Z Txhen^fHFE^Tg#End If q3ȽС(С ڵڅ)-8dec)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Ū:nArgs, "@,") checkNum = FalsedIf valued"" Then6zFfunctioArr(0 )`0^ 'ΪDZp?GT rudEnd If d? --Money 0-9Q?___ ++((+(\d{0,3})|0!_,k_,*H_,DJY,nd If EpFunctio n '-%checkMoneyTJ У逽0-9Сpһλ&(ʽfalsetru (valu e) Di`m reg  = "^([1-9]\d{0,7})$"IfCq+(, % The( = TE ET{ Fc PersonNum׶԰໸˹öa% bHb3})bGBcO cFWzIdbLinkc֤ͳдǷһip(", rowIndex,p col"dh V'`hjhrID@Columnlc'?[a")3Exit y#q eda!yisGe@rRight As Boole0an ',.!A+Ӧ Birth3]length2Integer ':γֵ± gV!String,Ԫ֮ڵh61Žȡb |B;y`ear, Variant 'amon0th, day, i %arr-1UMid\17, 1[ g= H= 8%Ū Mohd 2` 1b@XڶλpΪ[Sheets(sBoB71).Cells(GsC#o) "A E,ż%Ů?xCAŮ w! 8, 4"!, p5, 2x _, Y18 " 0 + "-" +*ppw NKgM?O_3":ѐΪ2012-05-09δʱ(Ϊ)g_ NowNecessaryn{sVS@cTtime`LPNߘИ(19)|(20)) 2}(0[13578]p1[02]))((0P[12][@p3[01P469"1Pl02)G`= Format(!, "ymm8dd"d( @ > :B!PV*0o )oߨw_2%@ g+_$--a+ ҪΪ~# '1Qc-StuName1#-, fa4Args4)Arr`Split(y,5!Rc!"1(0\0 ΪDZ5umwșI%za>@("^[\u4e00-\ue863]@{1,20}_k!F_bّ !2`l'}Root EntryPptq2s@pWorkbook1|OlePres000?8@_VBA_PROJECT_CUR"2ShowForm VBFramef&CompObjaoPrintForm/ VBFramef &CompObj ao PROJECTVBA(dir I__SRP_b2__SRP_cN__SRP_dUj__SRP_eWXf`__SRP_a^ Sheet1-__SRP_fjThisWorkbook&. Sheet6Sheet5ShowForm#__SRP_2%n PrintForm__SRP_3&__SRP_4*__SRP_5 A__SRP_11D __SRP_10"ix__SRP_0__SRP_1$_VBA_PROJECT";N z^?__SRP_6!)~__SRP_7*__SRP_8+__SRP_9j]wQQpe '<!hQpe .'}SbpSȉ ,PROJECTwmOle CompObj0hSummaryInformation(3DocumentSummaryInformation8$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="5B59F75E5662566252665266" DPB="B6B41A3B2ECD94EA94EA6B1695EA44ABF4825930468C7D73666CF59FD7BAC68C2C1C70D8BC1563" GC="1113BDBEBEBEBE41" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=0, 0, 0, 0, C Sheet1=0, 0, 0, 0, C ߺ=0, 0, 0, 0, C =0, 0, 0, 0, C У麯=0, 0, 0, 0, C =0, 0, 0, 0, C ShowForm=0, 0, 0, 0, C, 25, 25, 1189, 608, C ӡԤ=0, 0, 0, 0, C PrintForm=0, 0, 0, 0, C, 50, 50, 1214, 633, C Sheet5=0, 0, 0, 0, C Sheet6=0, 0, 0, 0, C E0* 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@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 L6  ӡԤGSbpS`ȉe2jo p!(e) ߺc ]wQQpec ec eo (k G;`Xf"a2fo o &У!h>eeo Jdo ~k !LGbQ;N z^b2)o -o U2ShowaxG`6\ow&3e2rMow 4nO( l5^5^5^5^zh^ PrintCrinj2oQd0ʘrU@@@ P `OO@ `P@1 `P` `1OOOOXq ` OOOh! `aOOOOOh `OOOOOP `1OO@A `QOX ` ` `1OOOOXq ` 1OOOPQ `1OOP `1OO`A `1OOOOX ` OOO`Q! `1OOOOX!# ` OOObrU@@@8 -q-`ADrU@@@ xbrU@@@8`!.qQ.`ADrU@@@~x   A-q1q'HiHiHi(Hi(Hix Hi00Hi(0Hi HiHiH8Hi(Hi HiHiX Jgg^Zgv(x ZHHg0@&HHi Hi (Hi  a $h  "a  "a  *~  &o  .  .  $h  "a   0   *~   &o   $h   $h  *~  &o ! *~ $ &oVZH#ps)bAer FHO*kmxHO*kms)bAerME(SLSS6"N0{00020820-0000-0000-C000-000000000046} 0%@p%<xc%Hx@x8ʎ[$*\Rffff*0?5b8ed0c8`xAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2rU@@@xblzJ zL#p(L XMFeAAk/VP-xeAAk/VP-(L XMMEPSLSS6"  5b8ed0c6*\R0*#2$*\Rffff*0<5b8ed084` "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'bJN(Aja F콘FL J?Zx콘FL J?Z'bJN(AjaME(SLSS6"N0{00020820-0000-0000-C000-000000000046} 0%@p%>`D%Hx@x8ʎ[$*\Rffff*0B5b8ed0c8`xAttribute VB_Name = "She@et6" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2Zh#p L 5`!L>CF FCFME(SLSS6"N0{00020820-0000-0000-C000-000000000046} 0we%@p#F@%*%Hx@x8ʎ[$*\Rffff*0A5b8ed0c8`xAttribute VB_Name = "She@et5" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2LqnxME(SPSSS0{4987DFBC-721B-4B3A-8C7B-70D5C7F35D83}{49001818-D5C1-4006-905C-946A2E9DB9C8}8 $X ( %%XX ʎ[ " 0 8"HP Xh xȡ'| B@&"oHȷX '| B@&oPAttribute VB_Name = "ShowForm"  Bas|0{4987DFBC-721B-4B3A-8C7B-70D5C7F35D83}J001818-(1-4006-905C-946A2E9@DB9C8} dG lobalSpacoFalse CreatablPredec$laIdTru BExpose0TemplateDerivCustomizD'ȡ P Sub CancelButton_Click() notContinueBoolT Me.HidZEnd! @ 'ȷ ,onfՏ,-Fl;/^LeʘxME(SPSSS0{80BAA37B-CE4E-4C58-B90A-ADF32E73636D}{2B6914D4-D53E-409F-92BC-0706BD220D85}x8 0b%h8A%8pʎ[xAttribute VB_Name = "PrintForm" " Bas0{80BAA37B-CE4E-4C58-B90A-ADF32E73636D}{2B6914D4-D53J09F-92BC-0706BD220D85} dGlobal!SpacoFalse CreatablPre declaIdTru BExpose0TemplateDerivCustomizDrU@@@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` OOO@`1OP1`1QOO@`1OP1 `@ `1O@1 `1O@`1O@1`1OP `1QOO@A `1O@ `1O@1 `1O@ `1O@1`1OP`OOPA!`OOP"`OOPA%`1OOP&`1OOPA)`1OOP*`1OOPA-`1OO@.`1O@11`1O@2`1O@15`1O@6`1OX19` OOO@:`1OP1=`1OObrU@@@~x a&o "a $h "a  "a   "a  "a "a "a  $h  "a  "a  "a  "a "a  $h !$h $$h %$h ($h )$h ,$h -$h 0"a 1"a 4"a 5"a 8"a 9&o <"a =$h&rU@@@~~v    q SaveAsUICancel q0rowIndex columnIndexcontent sheetIndex errorInfo checkMethoderrorMsgtypeValisValidateCountregvalue sheetIndex2keyWordkbncolIndexvalue1flagrowNumfunctionArgsArrIDNumbervalue2 functionArgsIdNum\rU@@@@~xbrU@@@$brU@@@8 Aq`ADrU@@@xbxMEh BXʎ["  ( 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 WSMicrosoft Excel@&@'.՜.+,0HP X`hp x  ҽѧҵ Ϣdc  Χ !"#$%&'()*+,-./013456789:;<=>?@ABCDEFGHIJKLMOPQRSTVXYZ[\]_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%'()+,-./0123456789:;<=>?@BCEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghjklmnopqrstuvwxyz{|}~  !"#$%&'()*+,-./0123456789:;<=>@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_abcdefghijklmopqrstuvwxyz{|}~      !"#$%&()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdeghijklmnopqrtuvwxyz{|}~