ࡱ; j T8\p Administrator 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[SO14[SO1 [SO1[SO1 [SO14[SO1<[SO1?[SO1>[SO1[SO1@[SO1[SO1@[SO1[SO1@[SO1[SO1@[SO1[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      , )    - . /a   0  1ff 2 3 4`   5 6 7  8 * * * * * *    @ @  @ @  ""@ @ @ @ @ @ @ @ !@ @ ""@ @   1 1  1 1@ @ 1 1 1|7  1|7 1 1@ @ 1 1 1 1 @ @ @ @  1@ 0@   "1 1 1 1@ @ 1@ @  '1@ @ )1 "1  1|@  1 1 (1|@ @ 7 1<@ @ 987 :8 ;87 <8 =87 >8 ?87 @8 A87 B8 C87 D8 E87 F8 G87 H8 ||pzA}-} 00_)}-} 00_)}-} 00_)}-} 00_)}-} 00_)}-} 00_)}A} 00_)ef[$ -}A} 00_)ef [$ -}-} 00_)}A} 00_)L[$ -}-} 00_)}-} 00_)}A} 00_)L[$ -}-} 00_)}-} 00_)}A} 00_)23[$ -}-} 00_)}-} 00_)}A}  00_)23[$ -}-}! 00_)}-}%?_)}A}( ?_)[$ -}-}) ?_)}(}-  ?_)}A}. a?_)[$ -}-}/ ?_)}}}2 }?_)[$ -##0.  }}3 ?_)[$ -???##0.??? ??? ???}-}4 ?_)}-}5 ?_)}A}6 }?_)[$ -}A}9 e?_)[$ -}}}: ????_)???[$ -???##0. ??? ???}}; ??v?_)̙[$ -##0.  }(}<  ?_)}-}= ?_)}A}> ?_)[$ -}A}? ?_)[$ -}-}@ ?_)}A}A ?_)[$ -}A}B ?_) [$ -}x}C?_) [$##  }-}E ?_)}-}G ?_)}-}N ?_)}-}O ?_)}-}P ?_)}-}Q ?_)}-}U ?_)}-}X ?_)}-}Z ?_)}-}[ ?_)}-}\ ?_)}-}a ?_)}-}b ?_)}-}d ?_)}-}e ?_)}-}g ?_)}-}i ?_)}-}l ?_)}-}m ?_) 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\`"kL V[R_VYf[ёDRNR TUS*mNxhWOo`VV!  =dc:- KmՋ@b g!hĉRv^SbpSOo`f&fp@F>xMO S AA@A@  z1 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$ kXQ[Sё ,gNyV[R_VYf[ёDRhQ:N5000(kt^/CQ) _kXy! 7 checkSFJE 7 checkYesNo 7checkDateNecessary 7b~c T;`Npeb~c T T!k pmTotalCount pmmc% 7bzsm 7Yl 7 checkSNumYN 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~SQ 4136013437 4121011035 4131010271 4113010092 4145013643 4133010337 4131010269 4135010399; <{~<<3=q>x9?"@BuBJE Ge PH zI J%QKccB~-z4nA_)k:~yw T8 h  dMbP?_*+%{&ffffff?'ffffff?(?)?M.Microsoft Print to PDFP/ 4dXXA4GIS4DINU"$,?]{~SMTJ{084F01FA-E634-4D77-83EE-074817C03581}RESDLLUniresDLLPaperSizeA4OrientationPORTRAITResolutionResOption1ColorModeColor,V4DM p"O4wMH5L*@VDocumentUserPasswordDocumentOwnerPasswordDocumentCryptSecurity" d333333?333333?&<3cAU} U} l} U} U} U} U}  U} 3 U} 4t U} u Uu PPutbP PqQ R T hU iV gT eS XR XQ \1 \1 XA Xp XI Z@ PB c;j `7 ka a<aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaatl Q lW P Z Z Z Z Z  Z  Z  P  P ]/m Q" [E dF QG [+ [*  [-  [,  Q=  [. i[ZkP m[Pn p[6 V nX Wo WC WD WH W# W$ W%  W'  W&  W(  V! S: oY Sn fJ SL SK SM SN Y)  SO  SP  S?  S>z  s(   vj NKX?O ]4v6@ E@ķQ> <kXQf[uvY T<~~  <`KCC@],@Y9 $< _Yhg<~~ i <KCC@G],5@i9 $<_ Y h g<v6admin>@dinjn7 Sheet1ggDh4hl:SW2 T8 3xf~  dMbP?_*+%&ffffff?'ffffff?(?)?MFoxit Reader PDF Printer_ 4dXXA4" dXX333333?333333?&<3U} @F} D} D} !D}  E} E}  E3 @ ,,,,,,, , , , , ,,  M H H MN O9GGGG Oq ^0K? _2 ^3 Ey 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 'I\'I? 'J] 'L^ (I_(I@ (J` (L^ )I_)I@ )Ka )L^ *I_*I@ *Kb *L^ +I_+I@ +Kc +L^ ,I_,I@ ,Kd ,L^ -I_-I@ -Ke -L^ .I_.I @ .Kf .L^ /I[/I"@ /Kg /L^ 0I_ 0Ih 0Ki 0L^ 1I_ 1Ij 1Kk 1L^ 2I_ 2Il 2Km 2L^&D@<<<<<<<<<<<<<<88PH  0(   >@&&& 7 Sheet5ggD T8 ,I  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(NANIa *\G{000204EF-0000-0000-C000-000000000046}#4.2#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.8#0#E:\office2013\Office15\EXCEL.EXE#Microsoft Excel 15.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\System32\stdole2.tlb#OLE Automation(*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.7#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE15\MSO.DLL#Microsoft Office 15.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library *\G{FBC52CC4-FEC5-459F-8F96-4C803E85A40C}#2.0#0#C:\Users\lenovo\AppData\Local\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M Z  ThisWorkbook0B5b02ff97'ThisWorkbookzLxP Sheet10>5b02ff94= Sheet1H Sheet60A5b02ff94? Sheet60SbpSȉ045b02ff49@SbpSȉH]wQQpe0?5b02ff94J]wQQpe`Xf0=5b02ff94dXf&x!hQpe0C5b02ff99!hQpe~d;N z^0<5b02ff4a;N z^Ux`-ShowForm095b02ff49!ShowFormnw Sheet50@5b02ff94+ Sheet5hPrintForm0;5b02ff49-PrintFormʘ`xH0@%2TE?IXYbc92BX[M^>-CAg;Ck4I#vHsbWIw(#CZCfAOG$VT-`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` IsNumeric$*`Right ` (checkSchCode` (checkFamType` (checkRXDate*`(checkXJHF`years`value2` (compareDecN` maxIntLen1` maxDoubleLen` intLength`intValue`douValue` (checkIsIntR` (checkIsNumberG` (checkMoneyTJC`(checkPersonNum `(checkIdNumLinkUz`IdNum>` isGenderRight ` isBirthRight` genderValue` genderValue11` birthValue` birthValue1~`year6n`year1w`month`month1`day`day1;`arr u`st(_`timeNowy` timePrint`Now%` ` rowDataNumn` typeValue`bsTypet` valEntity܏`typeRow` isNullRowArr/` sheetCountB`Protectf` Application*`ScreenUpdating! `sysDifficultyGradeNameFlag`indentifyDateFlag `xlToLeftWY`rowType`md`ne`Locked ` totalMoneySumZ`pg`qh` (checkTheSameg`myDico`myKey`varData`idNumDick` idNumDicData`cardNum\`Exists]`Addr`Keysq`Resize@4`WorksheetFunction&` Transpose` ShowForm`CancelButton_Click`Hide9z`ConformButton_Clickwf`Flasep` Sheet5` PrintForm`Workbookk` Worksheet`_Defaultj`!_B_var_sysDifficultyGradeNameFlag_`_B_var_indentifyDateFlagE`_B_var_isNullRowNum;r` _B_var_Chr\;`_B_var_i `_B_var_isValidateCount"`_B_var_j `_B_var_rowType`_B_var_m `_B_var_n`_B_var_totalMoneySumY`_B_var_p`_B_var_q` BeforeSave` "$'=?A!K+ - e"@ p0(P7q YX!HH  rU@@@@~xIa Q $ QAa* 1Q@"A a""1###$P 1$a$Q&q&&&&!'''(Q((Q))))LggD08Z8`0l@8g@\gLpI(pg\h8Z8h8hg{gg\h8Z8h8hg\h8Z8h8hg\h8Z8h8hg^h8Zp8h8hgg pg4p 8Z888gPg8g^h8Zp8h8hgh8Z8h8hg8 Z! 8V"hh#8hgV$Ipp( pgg%?gg &Ipp'O(O(? p gg\h8Z8h8hg{gggdh8Z8h)*8hgx>JgLp+I(pg p%g\h8Z8h8hg{gg pgh8Z8h,-O` 8hgxg( kg.g/g0g12g13gpg4g p5g(X#k(PgzX @h8Z8h68hg p7g1\gV8Ia (gV9Ia (g"qnP gFqmlqnl gv @9Ia (g$gKl gv:Ia (g>qmlqnll gj @ExppXp 0xg gg g7p> gv:Ia (g>qmlqnl@ gj @ExppXp 0xg@P gg"qnP|g$gKpgv:Ia (g>qmlqnlpgj @ExppXp 0xggggv:Ia (g>qmlqnlgj @ExppXp 0xg6gggx @X @h8Z8h;8hgX(g6/T/.C7l0gZ<O=O3O>Op`2pgg2g ppRgg0ggpg`Ag g>lplgxlph8Zp8h?@8hgg"lpg4gg gg2h8gh`!ghKxg4@ ggNkhp pggh8gdg^pAOBO( pgg~gLpCI(pgdh8Z8h)*8hgNh8Zp8hD8h(gg pEg& gE gLpFI(pgdh8Z8h)*8hgVGIpp( pgJ@p (p"ggLpHI(pgdh8Z8h)*8hgNh8Zp8hD8hggg\h8Z8h8hg\h8Z8h8hg\h8Z8h8hg{LX4%@(X@(P8X8@hpP`P x8hpHi@ aS SK*   rU@@@~~~~~~~~~2~ ~~~~~ ~ ~ ~~L"Q Du3U  aA,aa aq Q1q!aAq !aQ q p.A.q.../A/q///0A0q0000!1A1q111212a2222!3Q333qaq  A a Q!  VBAProject ThisWorkbookSheet1Sheet6ӡԤߺУ麯ShowFormSheet5 PrintFormF1C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLLVBA A qPF  E:\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 ,EL> 2C:\Users\lenovo\AppData\Local\Temp\VBE\MSForms.exd  У򲢴ӡϢ checkTheSame FF &m F&m  0]\Ohpev Ncknx N}ge!jgT QۏLdk!hVBE7.DLLUnprotectS @(~ 1qaz. PasswordProtect Oo` Nxh f , JJ  8Phpx CellsClearContentsF&t ! A65530 RangeEndrow IV5F3ԅZAArL FDgOa h'DF Worksheet x:FFTab FAILUREcheckedRequiredStartwriteLog writeLogRedaddCommentXQStartclearCommentsXQStartbeginCheck_commentcallFunctionXQStart regCheckFunccheckTheSameXQNewGetRowOrColIndexsetCellValueCountXQcheckDMB deleteRowdeleteRowNoProgetCellValueCountXQsetCellValueXQ setDMBCode removeSpaceXQ 4`nx[_YhgT hgǏ z-N RsQexcel ` Q! a &TRS[penc"N1Ybhg1Y% )nc:yColorIndex "l gg~b0Rf[uOo` elۏL!hName -NOo`Y N  value - %(~ : ; Locked ,{ Lvpency -N\ gN*NkXQcknxhgRows DeleteDF dk!k!h-N RdN :LeHepencY T0NNSR!h1Y%sS9eL:NeHepenc * gOo` g w Oo` h ۏLOck Select !hǏ! SUCCESS * g͑ Ypenc g w Oo` h ۏLOck *ԤA.OmDLgeFcH\~u7<9ջE/dEFlHƹJ@*\5Fi:`F.AFWorkbookWorkbook_BeforeSave .`/f&Tnx\OX[excel YOX[ pQ nx[ , &|~\ۏLhg!h Y NOX[ pQ Sm ? checkRequired checkStuName checkBirthdaycheckBirthdayNecessary IsIDNumber checkSFZJLX checkSchCode checkFamType checkRXDate checkYear checkMonthcheckXJH checkPhoneNum checkBankcheckXn checkOptioncompare compareDeccheckLencheckIntcheckValcheckNum checkIsInt checkIsNumber checkMoney checkMoneyTJcheckPersonNumcheckIdNumLinkcheckNowNecessary checkNum1 checkStuName1d~xME(6 <<<p `X In xIN IP `R ``( I @ ` I @ `H  I @ +` ii<`H`*H```  `  I @ `x  I @ @`  I @ `  I @  `( I HI @  ` I @  `h I @ 0 ` I @  ` I @ h ` I @ @  ` IB  I  D `X  IB x I  0 `  IB  I   ` I  I  ` ` I @ I   ` I  I   `P ''I p I   `  I @ `x  I  (`  I @ `  I @ H`  I @ P` ""I IN I< ` ` ``````@ ` @ ` @ ` @ (` I ```@ ` %%I I  ` I 8I @   h  H0 ` P@(`(  0`% 0/pZ$*\Rffff*0C5b02ff99   B       (  B    "(P`hpx B  0 8@H P D  (B `px n   B @,H$x"H ( 08 @"X "  4( ` h   B  ( *0 ` p x    @ ` B x         `  B   6       |   B   0  (08@ xH  B   08@HPXx x ( HB `hp | H hB $ | p B f 08@HP |X  B  8HPX`h p   B 8@H:P     B    ( 08 @H P .B   0 @PX`hp x .B HP` p B 08P X&hD40 8@Hh B 8@X `&p  ( " 8@DH4  (08@ HB   @ "Hp x <  B     &   !! ! 0!"8! `! h!p! $x! "! ! ! ! !""8"@"H" P">h" "4" # ## # # (# # #B ###$ $($0$8$@$ H$ $ $B %% % 0%8%@% H% % %B && &@&P&X&`&h&p& x& ' 0'B H'P'X'p'''''' ' @( `(B x((((((((( ( ) )B ) &) $)  * @*&P**x*"*$**(+@+`+++++ + 2+ ,"@,h,,  ,,,8,-- -B ------. .......... /B /// /&/000 0 (0 H0"P0 x00 $0 "0 0 0 0 01(1H1P1X1 `1>x1 141 2 2 2 (202 82 2 2B 233 3&03X3`3h3p3x3"33333333-----------------------------------------1 ,дϢʾ Ϣsheet--------------------------------------- ʱ0 Ϊʱ1 Ԫ] N P n$D%V'R R'd'ki-----------------------------------------2 Уѧ ҪΪ-------------------------------------------------------------ʽȷfalseʽȷtrue $F'zk]H^[\u4e00-\ue863]{1,20}$'  $'d'ki|-----------------------------------------3 УڸʽΪ2012-05-09(Ϊ)---------------------------------------` $F'zk]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])$'  $'d0'k i|-----------------------------------------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   $  'h  ' $ *  $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]$'  $'d'kiz----------------------------------------6 -У黧 -------------------------------------------------------------ʽȷfalseʽȷtrue](.^(\u519c\u6751)|(\u53bf\u9547)|(\u57ce\u5e02)$'  $'d'kpihu-----------------------------------------7 Уѧʱ-------------------------------------------------------------ʽȷfalseʽȷtrue@]'^(((19)|(20))\d{2})((0[0-9])|(1[0-2]))$'  $'dP'k@i8q-----------------------------------------7 У-------------------------------------------------------------ʽȷfalseʽȷtrue  ,ΪDZ'k@z8k0]h^((19\d{2})|(2\d{3}))$'  $'d'kiq-----------------------------------------7 У·-------------------------------------------------------------ʽȷfalseʽȷtrue]^((0[0-9])|(1[0-2]))$'  $'dP'k@i8v-----------------------------------------9 Уѧ-------------------------------------------------------------ʽȷfalseʽȷtrue]^\d{4}[0-7]\d{3}[0-3]\d{7}$'  $'d('kiv-----------------------------------------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)$'  $ -$'$$ 'd 'k d 'k i -----------------------------------------checkOption У鱸ע磨Сvalue2-------------------------------------------------------------ȲС200false 򷵻trueh B'z k B  'd 'k i ------------------------------------------------------ȽϴС(Сڵڷtrue)----------------------------------------------------------------'value1value2false 򷵻true BX'B X' B  'Dd'Dki------------------------------------------------------ȽϴС(Сڵڷtrue)-dec---------------------------------------------------------------'value1value2false 򷵻true B$4'B $4' B  'dp'k`iX}------------------------------------------------------У鳤---------------------------------------------------------------0 ,$'' $/ΪDZ'k`zXkP ,-±0ʼֵΪָάõ± $$4 $$4'zkd ˵У̶ $$4'zhk`kXiP}------------------------------------------------------У--------------------------------------------------------------- ,$'' $/ΪDZ'kXzPkH $& Ϊz  .e+Сz $4e% С0zk ,-±0ʼֵΪָάõ± $$4 $$4'z(k d ˵У̶ $$4'zkki------------------------------------------------------УֵΧ---------------------------------------------------------------` ,$'' 'zk $) Ϊz $4e) С0zk $4$$4 $4$$4'z0k(i ------------------------------------------------------Уֳ(Number,ΪҲΪСС0)--------------------------------------------------------------- ,$'' $/ΪDZ'kz k $% Ϊz $4e% С0'z k $'+󳤶$'.Сλ .''' "˵ûС $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)$'  $'d'ki-----------------------------------------checkMoneyTJ У0-9999Сһλ-------------------------------------------------------------ʽȷfalseʽȷtrue(]^([1-9]\d{0,7})$'  $'dp'k`iX-----------------------------------------checkPersonNum У׶԰һ------------------------------------------------------------ʽȷfalseʽȷtrue]0^(([1-9]\d{0,3}))$'  $'d8'k(i -----------------------------------------checkIdNumLink У֤ԱͳûдǷһ------------------------------------------------------------ʽȷfalseʽȷtrueH If colIndex = jhrIDColumn Then checkIdNumLink = True Exit Function End If]%Ա֤ǷӦ]$ں֤ǷӦ]0ڵһγֵ±]H"Ա,Ԫ֮ڵ]`$ݺŽȡ]x!,Ԫ֮ڵ]"ݺŽȡ]#]%·] ]8 $' $'  (ڶλΪΪ N  j$\,VdڶλΪżΪŮŮ N  j$\,Vkp $' $' $' -  -  N  j$\,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$'   'z@k8  $'d'ki------------------------------------------------------Уֳ(Number,ΪС0)---------------------------------------------------------------( ,$'' $/ΪDZ'kzk $% Ϊz $4e% С0zkx$'+󳤶$'.Сλ .''' "˵ûС $4' $$4'zkd С  . $'DԪֵλ  . $' $$4 $$4'zkki----------------------------------------- Уѧ ҪΪ-------------------------------------------------------------ʽȷfalseʽȷtrue ,$'' $/ΪDZ'kzk]X^[\u4e00-\ue863]{1,20}$'  $'d8'k(i "Attribute VB_Name = "У麯" '-%1 ,дϢ ʾ sh`eet$ʱ0! Ϊ1 Function checkRequired(bIndex, row coluDmn ) 'ԪDim cellValu@e As Sng= Work5s8).C s(;If2" Then0K gFalseE{Trund If E-2"ѧ ҪΪ8& !ʽȷuf7'At1wStu(vgCpRTrim?"R1IDS8Exit GIPre ^[\u4e00-\ue863]{1,20}$ '@ C(, /L|(_q{R2y{3 =1Ϊ2012-05-09(o)?"sBirthday 8@T ?8a /#?8 *8'`1B8((19)|(20))\d{2}-(0?[13578] 1[002]))-9a[12][0c03[01 (( 46"11Y 0?2 )))H\2[1[2)@/h)819|@)$)@'-2]|&-#|` (|'-'_f)QfrBPi{S^f(ܟf fNecessarg3ZD,(0o"}%3g"A2"x"QgQ2=Qe?k= Lqoq4 AR֤Ϲocn'Iph IsIDNumber(By͐ ,  )BooleaConst W'aP7905@842163"r'Ȩ,ӳc10X9876543&2C '' = UCas e(B_ )) 'ȥո-sInteger, iT%= b@abyIDC" >Aq>4C `׶e:,Ϊͨ1  %h yC  Len( <> 18"N 1arNot er@ic(Mid, 1 7Pa f 5Like "*!lX]_" For= 1 To 17CTqWD0 1л 1sps + ; i! * T0Nexts Mod 1 Right)c, Tcϓ_:-- "@qϰQϰSFZJLX ` "a-z|A-Z|^3`ԯɣ XkC P/X,X/5!3ѧ00ʶ 42λ0һΰʻ~x?ckSchCoc2!VL ?#Q5  qg`OȽ С(ڷtrue)-< 'value1 2false  Function compaHre(9, 7)  = CInt& 2 2IfQ1 >Z Then^fۄC$FWE^Tnd Ifx EqȽϴС(СڵՈdecDec!l l9llC m_У鳤>hheckLDen], fDArgsVArrESplit(, "," c(Eg ""f`((0)0 'Ϊho(2Esaiajxit lDp`UBound #2±0ʼֵΪָάõ F48) > Mm(1)) A H( E3'. ' \̬\s! Hs!? * FGJ'_x1#:tc&b+P;o-w@0@@@$@A?@ Not IsNumerik)8J>,  InStrY".@") <> yСoK 6`CQCr= a0-p?Ps?P?P?P?PRBpX??Pg1?P$?Ph,O$? ?PO$?P?PY?P?P?+ ?P?POK-1Pֵ|Χ}PV|alPonq0KPP'=A`#JeJJoQ2E KE/# )L?@3@0tB/2Ey_ 5?q)s/(fber, ΪҲóaa1P111 Arr = Split(functionArgs, ",")  checkNumFalsedIf value2"" The>n6zF (0 )`0^ 'ΪDZp?GT rudEnd If48ʽȷfþ'et% JǀDim reg="^0|[1-9]\d*$"#>C! (,C l= _C 3hs.?.e% ber.Ϊ8*_.0s.#. = h @-@G{+?/ Money 0-9E/_+_ck' ++((+(\d{0,3})|0!_,k_,ʑH_,6_,opg_TJ=#tһλ?TJDD7})??+`j__@'0_--Pe0rsonp6԰һ˿ooo`v O101ck=] Id!Link֤ԱͳûдǷһ?ooo` (, rowIndex, col'0f@]jhrIDC`olumn'`' F`!voisGe rRight As Boolean 'CEϡ0Ӧ Birth/+len@2eg|'qγֵ±[gb G` ingS ,tڵڤݟer1J Žȡom bqe?&a"   Dim year,(1 As Variant ' month,&  ^ ^da8y,  V arrgenderValue1 = Mid(IdN@um, 17)) birth2181.If 2 Mod 251 Then 'ڶΪΪ"Sheets(sI]xC).Cells((row ,9Co lumn)6"Ą"'Else<$ż<Ů<ŮInd IfF"$?G@,bZ@c, 4d 5, 2 Q kI &V$V++ "-" >+C 5checkBLink$True E@DFunction '-%3„УAڸʽΪ2012-05-09δ(Ϊ)d & /NowNecessary(vDZ AstStri ng=AtimeUPre%"^((19)|(20))\ d{2}(0[@13578]1[02]))(( `-9![12][0c3[014611 023 )))$Z= Format(, "ymmdd"#@b% > ~B3*@Fas&Exit D>AFh` -$CaK(, #38@ CPb irGWNAXֳ(`ber,@ΪaС0_V{ZNYum1CX, foArgsd6a"Arr%Split(=,&  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( ((( $( &($X)$&p)$ )$) )) ) )$t)$&X*$ * * $** ** ^* 0+"H+p+@x+&+ ++ +, ,@, bH, ,,, t, &`- - --- b- 0. P.h.x..&/ 0/ @/H/P/p/ ^x/ / /0(0X00&0 0 000 ^0 P1 p111X1&1 2 (202P2 ^X2 2 223T3&`3 3 3333 n3 @4 `4x4"44&85 `5 p5x555 j5 6 86X6"h66&@7 h7x777 n7 8 88X8"h88& 9 H9 X9`99 P999::&: : :::; R;`;x;;X;&; < (<0<8<X< b`< <$<=@=&P= x==$==== ^= H>&`> >@>&> >?&?8?@?`? |h? ?$@(@(0@@X@&@ @ @"@AA(A |0A A AA@A&0B XBhB pBBBB |B @C$XCC@C&C CD$D0D8DXD d`D D D@E&@E hExE2EE E HF(`FFFFFFFFFG8G@GHG@PG&G GG GGGH Z H HHHNH&I 8IHIPIRhI&II IJ J JJ8J  x@J J6J.K@KPK( XK2hK( xK1K( K2K( K1KKKJKHL`LhLpLxL fLB L L<L8M XMpM$M$MMM M \N B N,O 0HO@xO"O ^O 6@PxPPPP0PD QhQQQQQQ Q "PR xR .RB R R$RBS PS `S pS S S SSS SB @THT hTT T (U @U XU xUB U"U UUU UUU V8 VXV2`VV V VV VV VW F(WpWxW W W *WW W pX XB XX*X 4X0Y 8Y Y YB Z*Z@Z HZB Z Z[ [B [^[ v[ [ [B \ \ "\ \8]28]p] ]] ]] ] ]]"^0(^ X^(x^^^&^^ ^^ ^B __V_` 8(` `` `:`4`$a0a"Hapaxaaa-----------------------------------------УУдϢʾ ע----------------------------------------------------------- Ԫ] 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 е *дȷΪѧ֤ţ''4УʱдϢ A@X  'k@d8 $'  N е EдȷΪգҳȱڵ1λҲ18λ''4УʱдϢ A@Xkhk`kX 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@Xk` n  N P A@'[=================================ִпУ==========================================ѴϢдб checkBankKT $'  N е $дȷΪ֣ڵ$ Ҳ$''-УʱдϢ A@Xk n  N P A@'W=================================ִУ==========================================ѴϢдб checkYearKT  $'  N е *дȷʽ20122002ȣ''-УʱдϢ A@Xk8 n  N P A@'W=================================ִѧУ==========================================ѴϢдбcheckXnKT $'  N е )дȷʽ2012-2013ȣ''-УʱдϢ A@Xk n  N P A@'W=================================ִ·У==========================================ѴϢдб checkMonthKT $'  N е &дȷʽ0112ȣ''-УʱдϢ A@XkX 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 е дȷдʽΪ"$4 xxxx-xx-xx"$4 2013-12-21''-УʱдϢ A@Xk 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@Xdp 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@Xd checkYesNo n N PA@kh 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@Xk n checkTerm  $ N P A@'}=================================15 checkNumYN ִǷΪǡжǷ--================================== checkSNumYNKT n N $'K ȡд 1,8,0'  $'d8E0,8,0'  $'  N n$\,V N n$\,VkDkD  N е дȷ''(УʱдϢ A@Xd0D checkYesNo n N PA@kD 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ִ һǿУ ĵԪΪϹĿ    'k?'n?i?_--------------------------------------------ʽ------------------------------------- ]VBSCRIPT.REGEXP$.7RegExΪʽ (4 ȫֿvba\ת  (.ʽ (5ǷִСд  %'3 ִ.i>-----------------------------------------------------------° Уظ˵Ѿûиʽ------------------------------------------------------------V-----------------------------------------------------------1ѧ׶ڱڲ(sheetѧ׶ A65535 $\%%!'*cna = getTotalColumnCount(sheetIndexValue) ^$\!VB@1&ÿУظʱʱѴϢsheet,'`Ϣ¼ʼX==============================ѧ׶ڱڲ==================================0ðÿԪغ֮ǰнбȽ      $\%V'      $\%V'   .ѧͬ˵ظݹ  еݺ͵ ظ!!!!' A@X*ѴϢ'"kh:`:X:iP:-----------------------------------------------------------һ ֵȡֵ------------------------------------------------------------ֵҵֵڵлkeyWord ҵĹؼ'kbn л ֵΪ rowrowH'$]the find result object &. 20 64 A1:A65535 n$D%%,.* * (row *!'$dx8 *!8'$k`8kX8iP8------------------------------------------------------ ָcellֵ-------------------------------------------------------------1qaz@ n$DB@>  N < n$D%V(ip7------------------------------------------------------ ִڹУ(Ϊ)-------------------------------------------------------------value value1 cellУ鲻ȷfalseУȷtrue D0˵ΪDZ B$F'z6k6k6]'Jijһļ¼ A65535 N$\%%!'LB' N row$$'H=ȡ  H L  N$\%V  J 'Jd5y5k5   H H J   N$\%VX BX LжϹǷcell'y4kx4 #ʱcountĿΪùеĿi04------------------------------------------------------ ִɾ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(i0------------------------------------------------------ ݴеֵǰʱѾͨУ飩------------------------------------------------------------- ]X p  N < n$\%V!X 'R'Jijһļ¼ A65535 N$\%%!'LF N row$$'HAȡ  H L  N$\%V  J 'Jd@.y8.k0.   H H J   N$\%V!X 'B B RX 1жϹǷcell  N$\%V!'Z ZX N < \ n$\%V(yX-dP- 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('k*ix*p*zAttribute VB_Name = "ߺ"  '-%УдϢʾ &( Function checkedRequiredStart(rowIndex, c olumn )  { 'Ԫ@Dim cellValue As rSng= A;veShePet.Cs6If-" Then*F_Fal4seETrund If < E)[д־ ooһkqmwriteLog(content]iX`s(msgB)[curMsgRow, 1)JCK + 1?D DúɫCE ERedVFnLen7@LZ.Characters(1, ).F7.Colorl=31*SS  ʼG` errafoaddCHommQXQ#s|", ,  0t'Work s().Unprotect Password:="1qazOey.A N( ..Itrior#=<65535 '1૱>%  d/.VisiblĠ_?ɾElearsCk΅"BB ?+0+ 5`&[!*2Recp)Nu8m A:HtffTotal`?um u\4&UE15l lqXOO .ExlNondu(u_L?%K Ƿ4*õķo)beginC_c#LHGpMethod?LLuwLЋNot3 '焹aWʧ|?u$6 Is hing$жρ<Ϊ/T\ W| LAOAa'ȥǰq¡$ cDt_ ʫ 'L alw/ !. <' "Box @"" &gD& "h'tt$ɹ3!0гѕ&ʱđ rCq+remopaceFla(/Qո,ʾ:sW@УȀַChr(34)%QC& w"րа ϵͳԶΪa%ˬ A ]!qO?L?Y/ݱʶC 0XӦsX([)O-O?@!дccallFunctionXQStart(typeVal, sheetIndex, row$colHumn0isRidateCoun t) value = Wo$rks().Cells(DtitleMsgGsT,, ) 'ȡбͷ If `"" Then 'ϲеn/J - 1 L(ElseDÅtheadG=! ;CEnd( IffArgs!"0"JÅ Like "checkLen*MУGĄD Mid9& #EH%O 1H&NumL&@ber&& &@&&ֵLC&M%@b%Inta9?~nE9- 'W9Term1L""ΪL"1 7 YesNo -kk ?&ȗ>$ C$DiffNamej%ѼA8$% G _&CodslƖa `IDCar dT*'֤a6M#; e !8VSqyyԭDe_ < (e? ? kYearZݯVE jC]   kPmmcL ^,8,?yy- G~Select Case  '=C(1 ִaǿa?ѴϢдG ӆNull(rMethodXQ7RequiredHOR_@ Not  rerror"" & &"!06& "Ϊգ첆/hasE `Tr'Bqʱ% fwriteLog E B' Box 5 gold.RowO & Chr(10) T)beginC_commento:,?isFor.o+.2.ѧ/_Ky-0rO removeSpacep-ӟ 'ոķooso1)./k2=c3Stua(2/6/6;/6V55u5дȷЀ}֣1820ַ*_8_8M8E+ 1?55t sheetIndex, checkMethodXQ, rowAolumn0errorMsg  isFor = True  '= ִеij8/ zCase "Len>" 2(value, functionArgs)#If Not Then'@0ArSplit( , "<,"?%C '(0)j0 And UBound ,81U 'ΪDZΪ|d3"@"`" &Ǝ"xtitleд ȷ"Ϊա"ΪA<1)λ`+EhlseuO2]OA+ȶΧOexA6OAOڵ BgPҲ1-2?-%,?-= 1T`jT>?-TTT4T &S "SeS&SS &&&R`'RK?,IE IfGh8asE 'aʱдϢ writeLog*W@beginC_commen#?i}?z }Numberͣ{}] } }}Xa}}|UP#}}j}oQ{>h|& {{1{{ ֣>0λqS7f(v}?Сi?VsQ //g0~cU7K UUUU  dU__U_ҧUPU30%!hU==\gUPmmcU UU1VVw resultQgetCellVC0tXQ(%2, 4) 'ȡ0< [XQ"/X[[[][[EoEoEoE?cEȷΪգұΪ0λȲ" & functionArgsArr(1)("λС^V2Vҳɼx10%-30%֮ڣ"  ElseIf0) = 1 Then '~ΪDZΪ̶v3BerrorMsg,"rowIndexе@ title& "дaTcEnd IfQ0hasEAQPTrue 'УʱAiдϢwriteLog f Dval(ue) > resuxlt)‰L1S plit(, ",")jwv*Gvv,? ?w'w? ?fCcheckMe@thodXQ NFa?mmfmEbeginC!_comment@ sheet,2 j, olumn}isFor@%! %'= 15Name1ע@Ƿ- -=2Case< " U#getCellValueCountX Q(#!3) 'ȡ C# 1_ >4KJR>=AS * 0.@AP`Z<^ 1y/ c a "1,8,v04 "bStu^, 'Ga2"0ch9e2VKJS2sX!).!#s(!5q":9  Not? vy`,q20/P\Oow %ysetDMBCodAYesNo",O7cN_*qo/V/Vu+/V/VUURִրΧıT '!д|{VS/{6=3,B;v0y00__] 4v[O& ׉ߵ̜ (@q ?9?9?9 9C9x' isi8datu`+ 165?7666/626HΪֵ6\=$ 'ѴϢ,б Case "checkI8nt" 8NBMethodXQ = 1(value, functionArgs)E If Not=MThen2 aArrASplit( , ","?%C '(0)(0 E 'ΪDZΪW5errorMsg."" & rowIndex"е@ title& "дȷEΪգΪڵ&M71)AA/ 2 λA7 ElseS1SSSrSQ(3[Qndha sEaJJTrue 'У0ʱ CV~ writeLXog *WEb eginC_comment sPheetb],K~,`olumnisFoa` ִl֤A%%!SfzjhcresZjlx 5getCellVCountXQ(#e, p 'ȡ!|<2bo ""m;, u*"iaXXe XF!$++,c IsIDNumberEc_) ' S?8 tkk #.O [!jje+j#Uѧ Oe/"N  o"oo is`;idate;@3+ 1S) ? ܓSFZJLX%n$`$ / bD ___xa#1t 18t $$$OFʴ o_??_5/|/|U/|/|/|x"|CDf/|=={{1y{ ][DMB&(#Ғ, 4"1RoA5SWWWWw)/1/1/1\o0o0!LsetCodexj,---qO-?)B-ѧ8ŵ-@=== Case "checkXJH" MethodXQ = Len(value, "1, 50")If Not;KThen2errorMsgz"" & rowIndex "е@title-& "дȷΪҳڀ1λ 50ØPhasERPTrue 'УʱϢwwriteLog {End IfbeginC_comment sheejtW,k,]o0lumnD *isForDG 'ִпQ  @[дaб@Bankx C?ŎQ@I|AΪ֣EAfunctionArgsArr(0)g^q1c_a``!`'W\U`__ck%__J_^ZA^]]"$]Year]_AG_g߼__Cʽ20122002ȣWb$WW WW WWeV+*+ѧ++0rZ+Xn+&ԉXĉ*6**ψψׁV͈*-*3**߆߆ *(jOV*OV*'*OV_***Month**_V**,O*****011OU****g j*******o'3 !+U(DZ)++ +Date" B Ao,`,Birthday,v, , 'ҳʧo.7.. .Y.ΪAChr(346xl aQ[0221J 00?000[8 End If beginCheck_comment sheetIndex, c2MethodXQ, row0olumnerrorMsgisFor = True '=ִеУ8 eѴϢб NCase "oDateNecessary" 'bjNow(value) If Not Then 'Ȁ~ʧ$IE"" &ЀB"AROtitle@iдȷΪA Chr(h34) x 20131221ֻõ֮ǰʱ@첄"4hasEA4 ' ʱw\writeLog Wu??&Ɉ?dckBirthdack%7bc%bbb9&>b bb-xx@5c-12-ac^a^^c^Wh_b+10 ఺ '(Phone0bWmYNumvYv,-̶ ֻO+o*i")/Yvo)pw _( ___(_SV_(O%"Option(౸ע /x((|=c(, 66obB(q Ȳ200ַf%%%9%%%%t%%%, c__ % " ϶qOKx'DiffNam/PcoP`0DMB(t, b, funcA0pArgs_)BORXQ)T))_+Y?NJ (((L(( Els#setPCodʗez'>qTT/TTU_+.֤1~. ==.$IDCardTyp.3 ....u/0?/0t/0/0$0 & titleMsg"ȷ" hasError = True 'УʱдϢwriteLog eJ*ElseEsetDMBCode "checkIDCardType", sheetIndex, row column,@End If b eginC4_comment2AMethodXQE:,yisF '=14<GeurִǷΪСŮ--)=K?CasXT?h(g, value, "0")YIf Not Then < E IdNum?p֤Ť"8"@ȅ??H8If Not checkMethodXQ ThenkerrorMsg" &  "е@title-& "дȷ섲hasE43True 'УдUwriteLog ZElse"setDMB@Code "YesNo", ,, columnݔ6beginCAc_compmentJi,;isForDU(' = ִ϶ʵࢽ` =CasENSFJE|6'Num(value, "1, 4, 0<")KEsAZZ"Z +,) <> 5000K@4",ֵI!'Ϊ  ,= Faz ?-"-- V#Xٺ߈ǽ߈ö'>|AtLeastOneNNullһΪǿ-z- =k,( a#ACou= + 1 ' ! ĵԪ#@MoneyoA N8S8 'qnp5qtpotalB9+ a>un Select "/lbaojiaoBCp:? iSum ? _ huoshi H   zhusu G  others H   Oc*?%nd '23 =pG>6>>>րΪ?a@KEU+ vs+ " Jb`Y Functio'-ʽ#o-  reg(,IiDimaEX As ObjISet= Create("VBSCRIPT.REGEXP")1'RegExઽG EX.Globa>lpFq?_ȫֿ''vba\תPatterno 'QʽIgnoreB8ǷСд3TestgGB.8hing # $o ° 4ظѾ(ptqޣ 1ѧ׶ڱڲ -B}SameXQNewX2) 'w(ʶna = She ets(s`Index2).Range("A65535").End(xlUp).@row 'cgetTotalColumn CountVa0lue)hmsgName).Cells.ClearContents 'ÿУظʱʱѴς,YcurMsgRo"w1 '*¼ʼ$,'=ѧ׶ڱxڲCF'ðÿԪغ֮ǰбȽAFor iastartTitle + 2 To0 rnababyID1 Ⴌ(i,  Eji - 12j9AIf(1Then 'cͬ˵&erro@'"" & j"еi(!"writeLog FB'h4as6S@&True IfpNextGC Function  '-7һ ֵȡֵ 7C ҵ @лkeyWord ĹؼbnBCa @Ϊ `Ǣ (GetO lIQ(By b, #$ As String) @I@ger- 7-bDim cObject 'the find result oG7Sett= kbg1 :ưF (What:=FLook@In:=xls, !A@xlWholIlNoIs h algDqk != "*n"!cáEls[r+M`]`DS1 ָc`0ֵ8 qPset2X2Q, *S, coCT, va䁴BUnprotK Passwe:="1qazhT#9o).,r DO- ִsq|() q1 `a'!Ȁfa(R5tWfcheckDMB($1, flags'4"01 'hΪDZ4Trim91)q52 0Oa4xit  2b1IDatt(0 '@ijһ1!đNum0ԄAreaS 'v}( Fq  @(,H) 'h?E`cowP W o%OQs+ ONE}otc``E!{ i Q  Ηu C0j( P3>)&R q '0жaq2#Pa 5)(Rj'ʱcqĿΪ;Q?oH?obHɾ.в exģ?G1 814hadelete`E[2__O[_obs().D `6!'1).P~f123__Uûq_o__nⲲ VNo mPow?7A0W[t_ - OIJ:O5)Ron getCellValueCountXQ(sheetInde@x, row$col$)  = Work%s).s( .v| End Function '-2 ָcֵ3F I s9, jUnprotect Password:="1qaz"Œݴրе@Wֵǰ ʱͨУ飩_A_DMBCode(B5, DimData, cEZ OCStr(SAê}@0 'ijһļ¼G@Num !Area7).Range("A65535").(xlUp).@ 'Ќ:GetRowhOrC(KT, "") 'ȡA@ЇFpor i` @ To*GIf #i, 1)8 The}#&+ 1K El se+!ExitN lIfgN`ext ijӮ+ - =1D6#j, 3)HCa% k &P)# 'ρ2 ǷA \`22 e:RA!k# +llumnPlus$ %0!!8">O!a$ex" AҎGjM ȥ#9pո_8removeSpa D bxVRxepl(@"??3_FtXo "Truc>qǧ2 ( -UxMEx6 LL L"L <x :@`@8kP@ @ @ @ @X ` @@ ` ` `  `* `  @8%pXX@p@x@(X D2^\`@8 @0 @X @p @ @ @ @ @0 @`p @h @P @(8 @ <|X084@ @z H6X@ @ @ @ 01@ 1@p vP" @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 { X:@Z$*\Rffff*0<5b02ff4a*\R1*#3c7*\R1*#12d*\R1*#121*\R0*#17$*\Rffff*0=5b02ff94*\R1*#11c*\R1*#42$*\Rffff*0>5b02ff94*\R1*#129*\R1*#278$*\Rffff*0?5b02ff94*\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!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'zռ¼ʼΪ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ǷΪЧ¼ 'vC¼УǰǷд';¼ԱǷд  | $D%V!'Oһбʶֵ'2=жforѭǷcallFunctionXQStart ûִĬϷ <ʶΪ -$'Gʽ14-3:25 :$'H6ʽ3:25ȡıʶвֳ֣кź͹ DJҪּϵҪУ飨ĬУ͵ԶУ   Y&+1ΪеһԪΪĬУ $:$'V*ȡıʶвֳ֣кź͹$'SԶʶ  $;$'cԶʶ͵ľֵ   gԱʶб $   A@}ݱʶֵöӦķk  $;$'Pȡıʶв   WԱʶб $   A@Hk@ eJ ʽ3:25$'QԶʶ  Pʶеڵǰ$;$'eԶʶ͵ľֵ   kԱʶб $   A@ݱʶֵöӦķkd-ֻĬУʽ14$;$'Hȡıʶв   OԱʶб $   A@Hk@k8  $D%V(  6ִ һǿУ ĵԪΪϹĿ     е һдȷ''8УʱдϢ A@X  'd   'Tÿһкϼеֵk  <,һؼֶȫ򽫸ɾ  z+ z 'z,"ϢеĸдϢɾ  `  ` `  ^$\%RB@Tr Ѹɾ  `  '` v'k k  z 6 ɾЧ $'  A@PB ѸɾdP   A@PH Ѹɾk   z ˴Уɾ z:Чݣ֤У鶼ʧܼΪЧݣA@2k *дϢ鿴ϢA@2$D!b(j ^$\B@Hd( '"A@  "'%ִУظݷ,ûظǷҪɾЧ Уͨ!A@2.$D!b(jSUCCESSA@X:+ȡǷУɹ־Ԫ񣬲ֵʼΪ0 A@:d *ظݣ鿴ϢA@2$D!b(j ^$\B@Hk k 1qaz@$DB@1qaz@$DB@1qaz@$DB@o8 q-------------------------------------------------ظijһ------------------------------------------------@]] A65535 T%%!'2Scripting.Dictionary$.O8O  T%!'>ȡѧ  %"ѧ໤֤ݽб   %-֤Ų  B@&#addһΪkeyڶΪvaluek8 k0 ( !' Sheet2$DG:G7B@  !% !JG17,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& !:  > &xRRME(@f06 <`fhP0hhlHpH@ʀx @8 @ꀈh @tx @%Ϣ%ꀢh  @  @ꀞ @B‒(@ʀX @@ꀤ @NB\hB!ꘂB#˵%jB^HpHnxHʘBʀ @ʀP @r8ph @ꀜ8 @0 @"  @v  @x BzP@ꀊ @`@|@ʘB~@ @ꘀpB"H8h(XPpx x8@Hd$p(8HZ*\R1*#278$*\Rffff*0=5b02ff94(*\Rffff*0=5b02ff94\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= Root Entry F}0wpWorkbook2SummaryInformation(DocumentSummaryInformation8(OlePres000D8@_VBA_PROJECT_CUR"ShowForm CompObj  aVBFrame o f&PrintForm CompObj aVBFrameof&PROJECTwmPROJECTVBA__SRP_6#-__SRP_74j__SRP_86 __SRP_9c__SRP_a__SRP_bj__SRP_c__SRP_dj__SRP_e__SRP_fShowForm__SRP_10w__SRP_11 PrintForm!ThisWorkbook". _VBA_PROJECTe"__SRP_5$I__SRP_4%L~__SRP_3&N__SRP_2'w __SRP_1(R__SRP_0)Sheet6*aSheet5+tSheet1,!hQpe -~SbpSȉ .]wQQpe /;N z^0<?dir1YXf\CompObj3hOle  Oh+'0@HT d p|lenovo@&@dQMicrosoft Excel ՜.+,0H P X   Χ־ѧҵ Ϣdc  Microsoft Forms 2.0 Embedded Object9qVERSION 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 ThisWorkbookThisWorkbookSheet1Sheet1ߺ]wQQpeXfУ麯!hQpe;N z^ShowFormShowFormӡԤSbpSȉPrintFormPrintFormSheet5Sheet5Sheet6Sheet6ID="{00000000-0000-0000-0000-000000000000}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Module=ߺ Module= Module=У麯 Module= Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=ShowForm Module=ӡԤ BaseClass=PrintForm Document=Sheet5/&H00000000 Document=Sheet6/&H00000000 HelpFile="" Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="C0C26C6A706A706E746E74" DPB="80822C33493349CCB73449E3085567B82F25931E6A8517CA328C4FB31901812565C19868" GC="4042ECEFEDEFED10" [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, 968, 502, Z =100, 100, 999, 533, У麯=104, 104, 994, 528, =78, 78, 1046, 517, ShowForm=0, 0, 0, 0, C, 26, 26, 1164, 503, C ӡԤ=0, 0, 0, 0, C PrintForm=0, 0, 0, 0, C, 52, 52, 1190, 529, C Sheet5=0, 0, 0, 0, C Sheet6=0, 0, 0, 0, C rU@@@8 `AqDrU@@@xbrU@@@~x  a a* 1$HiHiHi(Hi(Hix Hi00Hi(0Hi HiHiH8Hi(Hi HiHiX Hi Jgg^Zgv(x ZHHg0@&HHi (Hi  a$h  "a "a *~  &o  . . $h "a  0  *~  &o  $h  $h &o  *~ !*~ $ &oVrU@@@P`!OO@`QP@1`QP``q!OOOOXq ` q!OOOh! `q!OOOOOh `1q!QOOOOOP`OO@A`OX ` q` `q1OOOOXq ` aOOOPQ `qOOP `qOOXA` q1OOO``q1OOOO`q!`q1OOOOXA#` q1OOObrU@@@8 P**`AqDrU@@@ xbrU@@@8 *!+`AqDrU@@@ xbrU@@8 ,-1-Q---+++Q+/`', `ihggZ""p ""PxOOpOX@O(OOOOhPO8 O( $xpX(hP8g ?g gggg8pX(hP8x`$h $h XrU@@@xP`p8ACbLqnxME(SPSSS0{9963FA2B-F21F-4A9D-B5C5-33B98A87C465}{863ED49C-59E6-4B78-92FE-3A68C81FCA9D}8 "X & %%XX Z " 0 8"HP Xh xȡ'~ B@$oHȷX ('~ B@$oQAttribute VB_Name = "ShowForm"  Bas|0{9963FA2B-F21F-4A9D-B5C5-33B98A87C465}{863ED49C-59E6-4B78-92FE-3A6@8C81FCn} dGlobalSpacoFalse CreatablPredeclaIdTru BExpo se0TemplateDerivCustomizD'ȡ P Sub CancelButton_Click() notContinueBoolT Me.HDidZEnd! 'ȷq ,onfՏ,-Fl;/rU@@@~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@@@X` q!OOO@`O@1`O@`OP1 `a1@ `O@1 `O@`O@1`OP `OO@A `O@ `O@1 `O@ `O@1`OP`aOOPA!`aOOP"`aOOPA%`OOP&`OOPA)`OOP*`OO@A-`O@.`O@11`O@2`O@15`OX6` 1OOO@Q9`OP:`OOPA=`OOb^LeʘxME(SPSSS0{DDB8A30B-9EA6-45B4-92AB-7102C48A013C}{450BBF4C-33F6-4933-B24C-F6FA98E49D49}x8 0%h8%8pZxAttribute VB_Name = "PrintForm" " Bas0{DDB8A30B-9EA6-45B4-92AB-7102C48A013C}{450BBF4C-33FJ933-B2F6FA98E49D49} d@GlobalSpacoFalse CreatablPredeHclaIdTru BExpose0TemplateDerivCustomizDlzJ zL#plHƹJ@*\5Fi:`F.AFxi:`F.AFlHƹJ@*\5MEPSLSS6"  %Hx@x8Z$*\Rffff*0A5b02ff94`xAttribute VB_Name = "She@et6" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2Zh#p*ԤA.OmD FLxL*ԤA.OmDME(SLSS6"N0{00020820-0000-0000-C000-000000000046} 0%@p%*%Hx@x8Z$*\Rffff*0@5b02ff94`xAttribute VB_Name = "She@et5" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2ZH#p3ԅZAArL FDgOa h'xDgOa h'3ԅZAArLME(SLSS6"N0{00020820-0000-0000-C000-000000000046} 0%@p%<%Hx@x8Z$*\Rffff*0>5b02ff94`xAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2xMEh BXZ"  ( HhxѧϢӡģ$D(FѧϢӡģ$DB@HѧϢӡģ$D(FoAttribute VB_Name = "Ԥ" Sub Browse_Print () Worksheets("ѧϢlģ").VisiblaTrue"d^P@review2cEnd U0* pHd VBAProject4@j = r Z 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@4D0BB4 SINDOWS\sSFM20L'B _&/;"1jIqAHq00}#:0Bq# 50 AFBC52CC4-FEC5-459F-8F96-4C803E85A40C6Users\lenovo\AppData\Local\Tem`p\VBEb7.xexdc?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHJKMOPQSTUVWXYZ[\]^_`bcdefghijklmnopqrsuvwxyz{|}~  !"#$%&'()*+,-./0123456789:;<=>?@ABCEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdfghijklmnopqrstuvxyz{|}~      !"#$%&'()*+,-./0123456789:;=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[]^_`abcdefghiklmnopqrstuvxyz{|}~