ࡱ; QRoot Entry3 FRyWorkbook56SummaryInformation(DocumentSummaryInformation8,  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPbSTUVWXYZ[\]^_`acdeyghijklmnopqrstuvwxz{|}~ ZO\p_O1f 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 [SO10[SO1[SO1[SO1 [SO1[SO1@[SO1 [SO1 [SO1@[SO1[SO1 [SO1[SO1[SO1[SO1@[SO1 [SO1[SO1[SO1Q[SO1[SO1 [SO1>[SO1[SO1 [SO1[SO1[SO14[SO1 [SO1[SO1 [SO14[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_                 3 3 3 3 3 3 3 3 3 3 3 3 4 4 4 4 4 4      P 5P      6 3    7 8 9a   :  ;ff < = >`   ? @ A  B 4 4 4 4 4 4    @ @  @ @  ""@ @ @ @ @ @ @ @ !@ @ ""@ @   1 1  1 1@ @ 1 1 1|7  1|7 1 1 1 1 @ @ @ @ 0@   1 1 1 1@ @ 1@ @  $1@ @ 1 1|@  1 1 %1|@ @ 7 1<@ @ &1@  1 1 1 (1|7 )1@ @ 1 1  @  1 1 -1 .1|7 C1<@ @  -1 1 -1 1  -  01<@ @ 1 11 11 D1@ @ ||ш?}-} 00_)}-} 00_)}-} 00_)}-} 00_)}-} 00_)}-} 00_)}A} 00_)ef[$ -}A} 00_)ef [$ -}-} 00_)}A} 00_)L[$ -}-} 00_)}-} 00_)}A} 00_)L[$ -}-} 00_)}-} 00_)}A} 00_)23[$ -}-} 00_)}-} 00_)}A}  00_)23[$ -}-}! 00_)}-}%?_)}A}( ?_)[$ -}-}) ?_)}(}-  ?_)}A}. a?_)[$ -}-}/ ?_)}}}2 }?_)[$ -##0.  }}3 ?_)[$ -???##0.??? ??? ???}-}4 ?_)}-}5 ?_)}A}6 }?_)[$ -}A}9 e?_)[$ -}}}: ????_)???[$ -???##0. ??? ???}}; ??v?_)̙[$ -##0.  }(}<  ?_)}-}= ?_)}A}> ?_)[$ -}A}? ?_)[$ -}-}@ ?_)}A}A ?_)[$ -}A}B ?_) [$ -}x}C?_) [$##  }-}E ?_)}-}G ?_)}-}N ?_)}-}O ?_)}-}P ?_)}-}Q ?_)}-}U ?_)}-}X ?_)}-}Y ?_)}-}Z ?_)}-}^ ?_)}-}_ ?_)}-}a ?_)}-}b ?_)}-}d ?_)}-}h ?_)}-}i ?_)}-}m ?_)}-}n ?_)}-}r ?_)}-}s ?_)}-}t ?_)}-}u ?_)}(}y ?_)}-}{ ?_)}-}} ?_)}-} ?_)}-} ?_)}(}?_) 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\`&WV[R_VYf[ёDRNR TUS3uNxhOo`VV!  =dc:- KmՋ@b g!hĉRv^SbpSOo`f~fhHHG@NF|MOjS AA@A@  %1 7 checkDiffNameV[V~+R Ty checkSqyyCode3ut1uxkuNOO checkSqyyName3ut1u Tyf[uY T 77usYel T^S/f Ty{|W checkYesNo checkGender'`+RsY'`+R7u^8^VN,V NVvQNeUSNd[?QpXP[sYQQgNOVuV~pmQNNsfzjh 7_OS <kXQf[uvY T< ix T @XPPQQ?: ]4i8@ pMKSaK '<O,{9Lvpency_OpekXQ Ncknx _{S@d7 Sheet1ggDh4hd:SW2 ZO 7:  dMbP?_*+%&ffffff?'ffffff?(?)?MFoxit Reader PDF Printer_ 4dXXA4" dXX333333?333333?&<3U} @F} D} D} !D}  E} E}  E7 @ ,,,,,,, , , , , ,,  M H H MN OuGGGG O \+K? ], \- E IK ]/ \.GKKG IK@ J I IK? J IKGKKL I K? J L I K@ K L I K@ K L I K@ K L GKKLGKKL I II I I II? I I II@ I I II@ I I II@ I I II@ I I II@ I I II@ I I II @ I I II"@ I I I I$@ I II I I II? I I II@ I I II@ I I II@ I I I I@ I I D, lP J<<< <<<<<<<<<<<<<<<<<<<<!"#$%',(,),*,+,,,-,.,/,0,1,2,4,5,6, !I!I@ !I !I "I"I@ "I "I #I#I @ #I #I $I$I"@ $I $I %I%I$@ %I %I 'I?'I? 'J@ 'LA (IB(I@ (JC (LA )IB)I@ )KD )LA *IB*I@ *KE *LA +IB+I@ +KF +LA ,IB,I@ ,KG ,LA -IB-I@ -KH -LA .IB.I @ .KI .LA /I>/I"@ /KJ /LA 0IB 0IK 0KL 0LA 1IB 1IM 1KN 1LA 2Iw 2IO 2KP 2LA 4I{4I? 4K| 4Ly 5I{5I@ 5K} 5Ly 6I{6I@ 6K~ 6Ly,4|<<<<<<<<<<<<<<888<<PH  0(   >@?7 Sheet5ggD ZO ,O  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  !"#$%&'()*+,-./0123456789:;=?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdeghijklmnopqrstuvwxyz{|}~ Oh+'0@HTd | ١Microsoft Excel@&@\V ՜.+,0HP X`hp x  ־ѧҵ Ϣdc  Χ Microsoft Forms 2.0 FormEmbedded 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 FormEmbedded 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ȉPrintFormPrintFormSheet5Sheet5Sheet6Sheet6rU@@@xP`8!CbrU@@@ P `OO@ `AP@1 `AP` `aOOOOXq ` aOOOh! `aOOOOOh `!aAOOOOOP `qOO@A `OX ` a` `a1OOOOXq ` aOOOPQ `aOOP `aOOXA ` a1OOO` `a1OOOO`q! `a1OOOOXA# ` a1OOObrU@@@xbrU@@@X` aOOO@`OP1`OO@`O@1 `OP `OOPA `11@`O@1`O@ `O@1 `OP `OO@A `O@ `O@1`O@`O@1!`OP"`aaOOPA%`aaOOP&`aaOOPA)`OOP*`OOPA-`OOP.`OO@A1`O@2`O@15`O@6`O@19`OX:` 1OOO@Q=`OP>`OOPAA `OOXB!` a1OOOblzJ zL#p(MC)ÅfFyFuH?RxyFuH?R(MC)ÅfMEPSLSS6"  65204a15*\R0*#f*\R0*#1*\R0*#17$*\Rffff*0?65204a15*\R0*#2$*\Rffff*0<652049f1` "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 ^Leʘa  *\G{000204EF-0000-0000-C000-000000000046}#4.2#9#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA7.1\VBE7.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.9#0#C:\Program Files\Microsoft Office\root\Office16\EXCEL.EXE#Microsoft Excel 16.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.8#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE16\MSO.DLL#Microsoft Office 16.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\Windows\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{C2D43B23-FA98-4157-9ECF-4D83DB3D4776}#2.0#0#C:\Users\boboa\AppData\Local\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M S_   ThisWorkbook0>65204a15'ThisWorkbookzLxP Sheet10@65204a17= Sheet1H Sheet60C65204a17G Sheet60SbpSȉ0=652049fbHSbpSȉH]wQQpe0A65204a17R]wQQpe`QXf0?65204a15xXf&x!hQpe0D65204a18!hQpe~m;N z^0<652049f1;N z^Ux`-ShowForm09652049f0=ShowFormnw Sheet50B65204a17G Sheet5hPrintForm0;652049f0IPrintFormʘ`x0HiliaFwᓞ,QI$?"Y(^CNSB#v\GH ɰO;&_|)0-w!L[ +^Rm>`a@{˫v*1O )_PZCbW'9E t*TG>(ԕyDKs4M573L] b!8compare Excel+` VBA`Win16~`Win32`Win64x`Mac`VBA6#`VBA7#` VBAProject`stdole``Officeu`MSFormsC` ThisWorkbook|` _Evaluate`Workbook_BeforeSave l`SaveAsUI`Cancel` (isSaveButtoná`MsgBoxR`ChrK~` vbOKCancelx?`vbOK%`(У򲢴ӡϢ` Sheet1`Worksheet_Activate+`Worksheet_SelectionChange4`(TargetF`Range ` Sheet6` ӡԤX` (Browse_Prints` Worksheets`Visible` PrintPreview` ߺ`(checkedRequiredStartR`rowIndex6d` columnIndexP` cellValue@` ActiveSheet%N`Cells`(writeLog{u`contentl`Sheets ` (msgSheetName'` (curMsgRow/` (writeLogRedm`nLene,` Charactersrg`FontU` ColorIndex`(addCommentXQStartS` sheetIndex ` errorInfo` AddComment`Interior;`Color2F`CommentHs`(clearCommentsXQStart7` ClearCommentsf`sheet2RecordNum`ffTotalNumColumn`xlNone`(beginCheck_comment;D` checkMethodHd`(errorMsg'|`(removeSpaceFlag` (cellContent`(callFunctionXQStart `typeVal#`isValidateCount8`valueK`titleMsgh` (startTitlel` (headIndex` (functionArgs8M` (checkMethodXQ` (checkRequiredb`(hasErrorf`(isFord` (removeSpaceXQ` (checkStuNamec` (removeEnter`(checkLeng`functionArgsArr`Split)`(checkNumh` (checkNum1%`resultur`(getCellValueCountXQc`val`result1`a1k\` (checkStuName1`a2l\` (setDMBCoded`(checkValK`(checkInt`resZjlx0` (IsIDNumber-*` (checkSFZJLX*`(checkDMB` (checkBankUw` (checkYear6`(checkXn` (checkMonth` (checkBirthday`(checkNowNecessary`(checkBirthdayNecessary2`re^`su)_`(checkBirthdayNecessary3` (checkPhoneNum` (checkOption,` (hasErrorIdNum`mc9^`rs_`(atLeaOneNNullCount` (checkMoneyi` (totalMoney%`baojiaoMoneyColumns`baojiaoMoneySumk`huoshiMoneyColumn_`huoshiMoneySumr`zhusuMoneyColumn_` zhusuMoneySum>-`othersMoneyColumnߥ`othersMoneySumH`(atLeaOneNullCount` (atLeaError~` (regCheckFuncE`reg`regEX*` CreateObject`Patterni` IgnoreCase0`Test4`(checkTheSameXQNew` sheetIndex2n`(rnaO`xlUp`row` ClearContents{`i``babyID1` (babyIDColumn`ja`babyID2` (hasTheSame`(GetRowOrColIndexf`keyWordF`kbn1`cZ`Findn`WhatC`LookInP`xlValueso`LookAtO`xlWhole`Columni`(setCellValueCountXQ]`colIndex` Unprotect?`Password`value1`flag`Trim@`rowData1`Count0v`rowNummR`(AreasheetIndexH` (deleteRow`RowsU`Deletex`(deleteRowNoPro`(setCellValueXQ` codeValue` (columnPlus`length1S`length2T`Replacef` i`(!ValueColumType` columnNamew`(sheetIndexValue1` (AreaSheetName`(readmeSheetName` (totalCount-`(rgold`(hasErrorInValidateU` (dataRowStart` isNullRowNum8`(cna`(notContinueBoolt` (genderColumn~`(birthdayColumn0` У麯&`(checkBirthdayNecessary`aX`DateDiff`IDNumber4 `Wm`UCase5 `sj`Tk` IsNumeric$*`Right ` (checkSchCode` (checkFamType` (checkRXDate*`(checkXJHF`years`value2` (compareDecN` maxIntLen1` maxDoubleLen` intLength`intValue`douValue` (checkIsIntR` (checkIsNumberG` (checkMoneyTJC`(checkPersonNum `(checkIdNumLinkUz`IdNum>` isGenderRight ` isBirthRight` genderValue` genderValue11` birthValue` birthValue1~`year6n`year1w`month`month1`day`day1;`arr u`st(_`timeNowy` timePrint`Now%`addr`vbBinaryCompare̝` Application*`WorksheetFunction&`Clean` ` rowDataNumn` typeValue`bsTypet` valEntity܏`typeRow` isNullRowArr/` sheetCountB`Protectf`ScreenUpdating! `sysDifficultyGradeNameFlag`indentifyDateFlag `xlToLeftWY`rowType`md`ne`Locked ` totalMoneySumZ`pg`qh` (checkTheSameg`myDico`myKey`varData`idNumDick` idNumDicData`cardNum\`Exists]`Addr`Keysq`Resize@4` Transpose` ShowForm`CancelButton_Click`Hide9z`ConformButton_Clickwf`Flasep` Sheet5` PrintForm`Workbookk` Worksheet` BeforeSave` _B_var_Chr\;`_Defaultj`!_B_var_sysDifficultyGradeNameFlag_`_B_var_indentifyDateFlagE`Activate|`SelectionChangen`_B_var_isNullRowNum;r`_B_var_i `_B_var_isValidateCount"`_B_var_j `_B_var_rowType`_B_var_m `_B_var_n`_B_var_totalMoneySumY`_B_var_p`_B_var_q` "$G 'yI =GIS="@ p0(P7q YX!HH  xME(SPSSS0{D53E632C-D6B5-4B81-9216-35DD4DAAA134}{FA6C18C6-652B-4CE2-BAC4-A83362292219}x8 0%h8%8pS_xAttribute VB_Name = "PrintForm" " Bas0{D53E632C-D6B5-4B81-9216-35DD4DAAA134}{FA6C18C6-652B-4CE2-BAC4-A83362292219} dGlobalSpaco False Cr@eatablPredeclaDIdTru BE`xpose0TemplateDerivCus tomizDrU@@@~x a&o "a $h "a  "a  $h  "a  "a "a  "a  "a  $h  "a  "a "a  "a !"a $$h %$h ($h )$h ,$h -$h 0$h 1"a 4"a 5"a 8"a 9"a <&o ="a @$h  A$h !D&oVLqnxME(SPSSS0{9D8B7A52-B07C-4E11-A978-AC0146DC1635}{4428D1D4-12F4-41CF-A84F-3B337F30F8E3}8 >X B %%XX S_ " 0 8"HP Xh xȡ------' B@@------oHȷ------X D' B@@-----oRAttribute VB_Name = "ShowForm"  Bas|0{9D8B7A52-B07C-4E11-A978-AC0146DC1635}{4428D1D4-12F4-41CF-A84F-3B337F30F8E3} dGlobaBlSpacoFalse Cre atablPr@edeclaI"dTru BEx0pose0TemplateDerivCustomizD'ȡ` P Sub CancelButton_Click() notContinueBoolT Me.HidZEnd! 'ȷĶ ,onfՏ,9-Fl;/rU@@@8@.Q!/`ADrU@@@8.Q.`ADrU@@@xbrU@@@ x8 `8H! `@brU@@@~x   qa.!!1(HiHiHi(      !"#$%'(*+,-./01234579:;<=>?@ABCDEFGHIJLMOPQRSTUVWXYZ[\]^_`abcdeghiklnopqrstuvwxyz{|}Hi(Hix Hi00Hi(0Hi HiHiH8Hi(Hi HiHiX Hi Jgg^Zgv(x ZHHg0@y&HHi (Hi  a $h  "a  "a  *~  &o  .  .  $h  "a   0   *~   &o   $h   $h  &o  *~ ! *~ $ &oVrU@@@$brU@@8 !Q`A0``i I  ) HiHiX`  Z  Z`  "a"arU@@@@~x bZ#p91yJIy F)y A`LDK7|Bx)y A`LDK7|B91yJIyME(SLSS6"N0{00020820-0000-0000-C000-000000000046} 0ic%@pFM%F%Hx@x8S_$*\Rffff*0C65204a17`xAttribute VB_Name = "She@et6" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2rU@@@8`brU@@8p 1 !Qq`q A 7` 1  `ihggZ""p ""PxOOpOX@O(OOOOhPO8 O( $xpX(hP8g ?g gggg8pX(hP8x`$h $h XrU@@@8`8a`brU@@@@~x aS4rU@@@~~~r     SaveAsUICancel 0 PTargetrowIndex columnIndexcontent sheetIndex errorInfo checkMethoderrorMsgtypeValisValidateCountregvalue sheetIndex2keyWordkbncolIndexvalue1flagrowNumfunctionArgsArrresuIDNumbervalue2 functionArgsIdNumFrU@@@@~xIq1   ( Q A  a.!Q!QdQ0 !`&%A&&&1'''`( pl1(a(Q*q****!+++,Q,,Q-h---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~~ ~~~ ~ ~~F"Q`FtGDW -  a a a Qa  @ a p1"q"""#Q###$Q$$$$!%Q%%!aPQ "Q///0Q000111a1111!2Q22223!3Q3333/+4A4q4445A5q5qa a 1  VBAProject ThisWorkbookSheet1Sheet6ӡԤߺУ麯ShowFormSheet5 PrintFormFBC:\Program Files\Common Files\Microsoft Shared\VBA\VBA7.1\VBE7.DLLVBA A qPF9C:\Program Files\Microsoft Office\root\Office16\EXCEL.EXEExcel  p0FC:\Windows\System32\stdole2.tlbstdole 1aL-[DR checkTheSame ?C:\Program Files\Common Files\Microsoft Shared\OFFICE16\MSO.DLLOffice a.E .`M C:\Windows\system32\FM20.DLLMSForms Q Q  Z]HV[2o31C:\Users\boboa\AppData\Local\Temp\VBE\MSForms.exd Q  У򲢴ӡϢ Browse_PrintF(MC)ÅfFyFuH?RDFWorkbookWorkbook_BeforeSave x .`/f&Tnx\OX[excel YOX[ pQVBE7.DLLa`  Oo` Nxh f ,row a nx[ , &|~\ۏLhg!h Y NOX[ pQ Sm ?aS *~ JJ  8PhpxFF&mFUnprotect CellsClearContentsFGetRowOrColIndex&m 0]\Ohpev Ncknx N}ge!jgT QۏLdk!h 1qaz.PasswordProtectEnd&t  A65530 Range IV5FܧIq78 F@.jLFݼDF WorksheetWorksheet_ActivateWorksheet_SelectionChangeFFcheckTheSameXQNew: FAILUREcheckedRequiredStartwriteLog writeLogRedaddCommentXQStartclearCommentsXQStartbeginCheck_commentcallFunctionXQStart regCheckFuncsetCellValueCountXQcheckDMB deleteRowdeleteRowNoProgetCellValueCountXQsetCellValueXQ setDMBCode removeSpaceXQ 4`nx[_YhgT hgǏ z-N RsQexcel &TRS[penc"N1Ybhg1Y% )nc:yTabColorIndex "l gg~b0Rf[uOo` elۏL!hName -NOo`Y N  value -a )(~ : ; Locked ,{ Lvpency -N\ gN*NkXQcknxhgRows Delete checkIsNumber 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 ۏLOckxXzLOuɮ*@aaH6?"91yJIy)y A`LDK7|B checkRequired checkStuName checkBirthday checkIsIntcheckBirthdayNecessarycheckBirthdayNecessary2checkBirthdayNecessary3 IsIDNumber checkSFZJLX checkSchCode checkFamType checkRXDate checkYear checkMonthcheckXJH checkPhoneNum checkBankcheckXn checkOptioncompare compareDeccheckLencheckIntcheckValcheckNum checkMoney checkMoneyTJcheckPersonNumcheckIdNumLinkcheckNowNecessary checkNum1 checkStuName1 removeEnterLxME(6 <<< J`H%``XS_$*\Rffff*0=652049fb"  ( HhxѧϢӡģ$L(NѧϢӡģ$LB@PѧϢӡģ$L(NoAttribute VB_Name = "Ԥ" Sub Browse_Print () Worksheets("ѧϢlģ").VisiblaTrue"d^P@review2cEnd b8H#pܧIq78 F@.jLFݼx@.jLFݼܧIq78ME(PSLSS0D6"<0<8<N0{00020820-0000-0000-C000-000000000046} >X`  @` )B% %XP %< %hXX xS_*\R1*#2a0$*\Rffff*0@65204a17` "  "  (opXo`XAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$BustomizD2 P Sub Works_Activ () p EndSeleonChange(ByVal Target As R %Zh#pxXzLOuɮ F*@aaH6?"x*@aaH6?"xXzLOuɮME(SLSS6"N0{00020820-0000-0000-C000-000000000046} 0%@p%F%Hx@x8S_$*\Rffff*0B65204a17`xAttribute VB_Name = "She@et5" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2O0JH H VBAPro ject@  =m~xME(6 <<< `X Iv xIV IX `Z ``( I @ ` I I @ `h  I @ 0`  I @ ` I I @ +`8 iXiP`H`>H``,` `H  I @ `  I @  `h I @ 0 ` I @  ` I I @ p `8 I @  ` I @  `X  I @  `  I @  `x I @ @ ` ` IV @ I  D `  IV  I   `P  IV p I  ( ` I  I   ` I  I  X` I 8I  ` ''I I  `H  I @ `  I  `P  I @ `  I @ `p  I @ ` ""I  IV @IP ` ` `t````@ ` @ ` @ ` @ ` I ```@  ` %%I I   `x I I @ !`( ! Iv HIV hIP ` ( 0 ` X0p  %h""X4S_$*\Rffff*0D65204a18C  B       (  B    "(P`hpx B   (HPX`hpx &0Xhpx B  (  B  @PX`hp xB  JJ H X  h                n P h B  , $ "  H(  p  x   "     "0 X ` 4p  0 P B h p *x        B   (  B 6(8@HPX |`  B  0(Xhpx x  (B @ H Xx x p B  |  B $ (0 |8  B  lZp |  B    B :@Ph    ` B        .B      ( .B  08@HP XB  &@HPXD`4 8@HPX `B    & H P X `  h   (   "    D 4@!x! !!!!!!!!! !B """ """" "" "" # (# <0#p#x# ## #B @$H$`$ h$&x$$$$$ $ $"$ % % % $(% "P% x% % % %%%%%% &>& X&4x& & && && & `' 'B ''''''''' ' ( (B (( ( ((( ( ) )B )) ))**** * (* * *B *++ +0+8+@+H+P+ X+ + ,B (,0,8,X,h,p,x,,, , @- `-B x- &- $- - -&.*(."X.$..(../0/P/`/h/ / 2//"/080  @0X0p08000 0B h1p1x111102 P2`2h2p2x222222 2B X3`3x3 3&33333 3 3"4 (404 $84 "`4 4 4 4 444455 5>(5 h545 5 55 55 5 p6 6B 666 6&6777 7(7"07X7h7p7x777 7B 77 7 78 808H8P8`8-----------------------------------------1 ,дϢʾ Ϣsheet--------------------------------------- ʱ0 Ϊʱ1 Ԫ] V X v$L%^'Z Z'd'ki-----------------------------------------2 Уѧ ҪΪ-------------------------------------------------------------ʽȷfalseʽȷtrue $Z'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@-----------------------------------------3 УڸʽΪ20120509(Ϊ) У麯---------------------------------------]^((19)|(20))\d{2}((((0[13578])|(1[02]))((0[1-9])|([12][0-9])|(3[01])))|(((0[469])|(11))((0[1-9])|([12][0-9])|(30)))|((02)((0[1-9])|([12][0-9]))))$'  $'d'kiz-----------------------------------------3 УڸʽΪ20120509(Ϊ)---------------------------------------0]^((19)|(20))\d{2}((((0[13578])|(1[02]))((0[1-9])|([12][0-9])|(3[01])))|(((0[469])|(11))((0[1-9])|([12][0-9])|(30)))|((02)((0[1-9])|([12][0-9]))))$' $/ $ / $ ' $/ $ / $ '  $  $d  $ 'd'kd'kd'kih-----------------------------------------4 У֤---------------------------------------Ϲ򷵻trueϹ򷵻false]79058421637905842x0Ȩ] 10X987654320У $Z$''ȥո] P 0 6)׶֤Ϊ,ΪͨУ'zk Gzj $$Gzj *[0-9X]Gzj ,  ,$' G 'j   ,$  '   ' $ >  $G'jiz-----------------------------------------У֤ -------------------------------------------------------------ʽȷfalseʽȷtrue]h"^[\u4e00-\ue863a-z|A-Z|0-9]{1,30}$'  $'d'ki----------------------------------------5 -УѧУѧУʶ 42λһλΪֻx-------------------------------------------------------------ʽȷfalseʽȷtrue]^[1-9]\d{40}[\dx]$'  $'dp'k`iXz----------------------------------------6 -У黧 -------------------------------------------------------------ʽȷfalseʽȷtrue].^(\u519c\u6751)|(\u53bf\u9547)|(\u57ce\u5e02)$'  $'d8'k(i u-----------------------------------------7 Уѧʱ-------------------------------------------------------------ʽȷfalseʽȷtrue]'^(((19)|(20))\d{2})((0[0-9])|(1[0-2]))$'  $'d'kxipq-----------------------------------------7 У-------------------------------------------------------------ʽȷfalseʽȷtrue0  ,ΪDZ'kxzpkh]^((19\d{2})|(2\d{3}))$'  $'d 'kiq-----------------------------------------7 У·-------------------------------------------------------------ʽȷfalseʽȷtrue]X^((0[0-9])|(1[0-2]))$'  $'d 'k i v-----------------------------------------9 Уѧ-------------------------------------------------------------ʽȷfalseʽȷtruep]^\d{4}[0-7]\d{3}[0-3]\d{7}$'  $'d 'k i v-----------------------------------------10 У绰-------------------------------------------------------------ʽȷfalseʽȷtrue ]x freg = "\b((1(([38]\d)|(4[57])|(5[0-35-9]))\d{8})|(0((10)|(2[\d]))-[2-9]\d*)|(0[3-9]\d{2}-[2-9]\d*))\b"R^((^1[3|4|5|7|8|9][0-9]\d{8}$)|(0((10)|(2[\d]))-[2-9]\d*)|(0[3-9]\d{2}-[2-9]\d*))$'  $'d 'k i v-----------------------------------------11 Уп-------------------------------------------------------------ʽȷfalseʽȷtrue ] ^[1-9]\d{14,20}$'  $'d'ki-----------------------------------------checkXn Уѧ磨2012-2013-------------------------------------------------------------ʽȷfalseʽȷtrue ] ] 1^(20\d{2}-20\d{2})|(19\d{2}-19\d{2})|(1999-2000)$'  $ -$'$$ 'dh'kXdP'k@i8-----------------------------------------checkOption У鱸ע磨Сvalue2-------------------------------------------------------------ȲС200false 򷵻true V'z@k8 V  'd'ki------------------------------------------------------ȽϴС(Сڵڷtrue)----------------------------------------------------------------'value1value2false 򷵻true` VX'V X' V  'Dd'Dki------------------------------------------------------ȽϴС(Сڵڷtrue)-dec---------------------------------------------------------------'value1value2false 򷵻true V$4'V $4' V  'd'ki}------------------------------------------------------У鳤--------------------------------------------------------------- ,$'' $/ΪDZ'kzk ,-±0ʼֵΪָάõ± $$4 $$4'zkd ˵У̶ $$4'zkki}------------------------------------------------------У---------------------------------------------------------------( ,$'' $/ΪDZ'kzk $& Ϊzp .e+Сz@ $4e% С0zk ,-±0ʼֵΪָάõ± $$4 $$4'zx kp d ˵У̶ $$4'z k k i ------------------------------------------------------УֵΧ--------------------------------------------------------------- ,$'' 'z8k0 $) Ϊz $4e) С0zk $4$$4 $4$$4'zkxip------------------------------------------------------Уֳ(Number,ΪҲΪСС0)---------------------------------------------------------------X ,$'' $/ΪDZ'kPzHk@ $% Ϊz $4e% С0'zk$'+󳤶$'.Сλ .''' "˵ûС $4' $$4'zkd С  . $'DԪֵλ  . $' $$4 $$4'z@k8k0i(-----------------------------------------checkIsInt У鲻С0-------------------------------------------------------------ʽȷfalseʽȷtrue]h ^0|[1-9]\d*$'  $'d 'ki-----------------------------------------checkIsNumber УΪNumber-------------------------------------------------------------ʽȷfalseʽȷtrue' $'ki-----------------------------------------checkMoney У0-9999-------------------------------------------------------------ʽȷfalseʽȷtrue]p^(([1-9](\d{0,3})|0)|0)$'  $'d'ki-----------------------------------------checkMoneyTJ У0-9999Сһλ-------------------------------------------------------------ʽȷfalseʽȷtrue]^([1-9]\d{0,7})$'  $'d'ki-----------------------------------------checkPersonNum У׶԰һ------------------------------------------------------------ʽȷfalseʽȷtrue]^(([1-9]\d{0,3}))$'  $'d'kxip-----------------------------------------checkIdNumLink У֤ԱͳûдǷһ------------------------------------------------------------ʽȷfalseʽȷtrue If colIndex = jhrIDColumn Then checkIdNumLink = True Exit Function End If]`%Ա֤ǷӦ]x$ں֤ǷӦ]ڵһγֵ±]"Ա,Ԫ֮ڵ]$ݺŽȡ]!,Ԫ֮ڵ]"ݺŽȡ] #]8P%·]h] $' $'  (ڶλΪΪ V  ~$d,^dڶλΪżΪŮŮ V  ~$d,^k $' $' $' -  -  V  ~$d,^'i0-----------------------------------------3 УڸʽΪ2012-05-09δʱ(Ϊ)---------------------------------------](]@]X]p^((19)|(20))\d{2}((((0[13578])|(1[02]))((0[1-9])|([12][0-9])|(3[01])))|(((0[469])|(11))((0[1-9])|([12][0-9])|(30)))|((02)((0[1-9])|([12][0-9]))))$' yyyymmdd$'   'zk  $'dh'kXiP------------------------------------------------------Уֳ(Number,ΪС0)--------------------------------------------------------------- ,$'' $/ΪDZ'k8z0k( $% Ϊz $4e% С0z k $'+󳤶$'.Сλ .''' "˵ûС $4' $$4'z k d С  . $'DԪֵλ  . $' $$4 $$4'z0 k( k i ----------------------------------------- Уѧ ҪΪ-------------------------------------------------------------ʽȷfalseʽȷtrue  ,$'' $/ΪDZ'k z k ]^[\u4e00-\ue863]{1,20}$'  $'d 'kx ip ȥǴӡַ V P$^'  $4   MsgBox addr  !%' MsgBox addr  V P+^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)?"sBirthday5, fwArgsArrdrVC$,/9+0b* 'ΪCjB-`. km)pJ2oIMM' G"^((19)|(20))\d{2}-(0?[1 3578] 1[`02]))-9a[12][0ac3[01 (( 46"11Y# 0?2 )))e^%\b[1-T3]309]|-c)c523d_bYd(dG udNecessaredcrSB2B0@9B[ |(3 / PgP1 5w9k / ]r@/ / gR05@R Ta R 2TnM AA ?OpA 2Cx d  a02 ?1 ? ?<3 , su? 6?Oa/CO|(`??aMidr 1, 4) +0 "/"PU5,T 2_7$bsu, QQ'P're]f_*`h@'DateDiff("d", a, b) > 7 㼾J3 ~KN---p!%naSSo 9//,724A 2Q֤x?>ϹAq'Iȥb IsIDNumber(By0 y, )Boolea݀Const W' "790584P2163"2'Ȩ c10X98765432Cɒ '& = UCase(TMr)) 'ȥո  Dim s As Integer, i 4T4If colIndex = babyIDColumn And IDNumber6"" Then׶֤Ϊ,ΪͨУNaIsLFalse Exit FunctionEf !Len(H) <> 18K@Not Isberic(Mid, 17kLike "*[0-9X]UFor= 1 To 17 TCW@) W0g10Bss + ai! * T Ne xtCs Mo0d 11CRi(ghtI@)#c,l TAD)kTru@kch'-%AA& 'ʽȷ෵fBt,+ checkSFZJLX(`value^regHD"^[\u4e00-\ue863a-z |A-Z|}]{1,30}$"T- C(, CBQC ;@SEK E´`5A ec-1ѧ`ʶ 42λһλΪֻx4846r4chCode4[1-9]\d{40}[\dx]2C[2 22 '#6H2 8..FamTyp.^(\u519c\u6751)|3bf\u95D477ce`e02)?222d=2G?2*$7 dȀѧʱ811RXDat1^(((19@20))02})((0i]@12])OckJ}l13?rq+JV/N J--$_bHckYea"rG, fArgsArrDctR^d3= 0}'0ΪDZpcqI{i Ojo Kpk@"%19$|(23}#`t## np##4o#¿####Monthk :::?ck@/#!b:Eߟ_9RѐkOXJHS,4}P7т3u37o//ck@{Q#?10i఺OPho\ne?5'D\bi(([38h4[57Qi5pL35k8}050p2Pj-[J2r*[3{2}g)\bgK^1[3|4|5|7|8|9]@8}$Qt8!!ck!?!x""o- 11 Уп *< 'ʽfalse*&truFunction checkBank(value) Dim0 reg  = "^[1-9]\d{14,20H}$"If)CKFT(-, K Then%Tj&TB EQF^ End If ]k+ Xn%ѧ磨2012-3 XnW]`yearsPa(20` 2}-)|(1N9CB9900)oi@hSplit', "-"DAc|B (1) - 0) 1L| ^= |}K ?H~ Du= g?FuB,OpCעСڂ2 D! 200 vxu##31Dm23$ 4b12""2ai-4eExit 'oJg3Le[D>2!@oFe}߈}ȽϴС(76)$@7eMa uCompareBBCIn{1F2EJ'J9c 87̃J?*-X5decO:5C %h dDec,g1= Cue1 r??!oz'z!RiaI, fdArgsiArrppy@q,IqGO3wX" @(u0"S 'ΪDZ7bKEPv]p UBound(] '±0ʼֵ     !"#$%&'(*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~άõ qp&) >.<X) A@B<s2))g=?_oq]!5 '@˵.̶A.1o  [ @9? @o@ &;@@Ԡo \@0.@@b@R@@ Not IsNumerik53JΪ}>, I0nStrcp0." ) <> OС{oO 6`gq= 0 -p?P!8?P?P0Pbά If Len(value) >= CDec(functionArgsArr(1)) And T<T2T0ThenncheckInt = True/ E`xit F.E IfElse '˵У̶ȓ p,p1ow{'-2GֵΧsF E#" AValC, I)a Split , ","  FazGq@"" jHcANot IsNumericA 'Ϊ(E˜}AB @04С0$FL u0d7.^/}e0^Y^(8ber,Ϊ ҲcС@".)\ cc [c,@ càB:0)@ OΪDZZ=#tlQ4X>Aa`nn @ \m,!bmax',i 'QoؠDouble2) ' !,λintgthAInStr(".)W \ueGdou P%yûГ ?$`P ( ) OI!9+ +1^\o 5 PMid1,  - 1Ԫ$Qg#λ_!h+pC ϓuϤ_?0Uqg oo` IsgDeC?@ȷеfs'Q5~t¶ C%Dim regp'"^0|[1-9]\d*$"[pC(, 6H /JHk?oth} AΪ_???Ѣj = 8 ?K??_Money 0-9E___' ++((+(\d{0,3})|0!_,k_,*H_,,V,TJ=#tλ/-5 'ȷfalse#*&tru$Function checkMoneyTJ(valu e) Di`m reg  = "^([1-9]\d{0,7})$"If)CIW(-, K Then%T mPTE  Fc End If ap,PersonNum У׶԰һ5/džK bHb3})bGB|= c cFWcIBdbLinkc֤ԱͳûǷx0i+(B, rowIndex, colwB@'jhrIDColumn' E)3Exit `9a ed !!yisGe@rRight As Boolean &',.A+ ӦvBirt&h3]le ngth2Integer ':һγֵ±5 gV!String,Ԫ֮@61Žȡb |B;year, Variant 'amonth, day, i %arrE-1UMid\17, 1[ g= H 8%A Mod 2` 1b@XλΪΪ[Sheepts(sBoB71).Cells(GsC#o) "ЛA E,ż%PŮ?x?mn"Ů)$ ?! , 4"!, 5, 2x _, Y18 " 0 + "-" +*ppw N}]--3"}:ѐΪ2012-05-09ʱ(Ϊ) WNowNecessarzyn{sVS@cTtime`LPNߘИ(19)| (20)) 2}(0[13578]p1[02]p))((0P[ 12][03[01P469="1P02)G`= F@ormat(, "ymmdd"d( @ > :B!PV*0o )oߨw_2%@ +_$!,ֳ(ber,Ϊ1IС>0/+,um"1#,, fArgsCiArrSplit(y,uc }"1\(0QT0 ΪDZ4u)gY? $z?@ Not Isericc)( l1 ,h CDex<=   1@maxIn0tLen 1) 'a&8A(Do0uble0!(2)С|λtiInQ5'".i# Bu0Kdou!1%E˵ûГ r@(%) Bc oa5*True Exit Fun ctionEnd If 6Else 'ӀСvintValue = Mid(v , 1, InStr".") - 1) 'ԪֵʈλZdouZ-W++ k Len(R) <= CDec(fArgsArr(1)) A<ŗ2ThecheckNum1FaT< qG|'-% Уѧ ҪΪ 'ȷpfABt E- MStuName1El)QqYSplitw, "," 81eIf B@"" SyL(0) 0 ΪDZ|!y1Dim 8reg^[\u4e00-\ue863]{1,20}$" CVa1(,!)L!A -'%? !'Ǵַ @moveEnter(sheetIndex, row$col"`>addrCells(2 C`, Ch0)bBinaryCompare) > <'MsgBox #! $Ap`Pca.Work.Clean(AdR  S'2 ( -UxMEx6 LL L"L <x :@`@8kP@ @ @ @ @X ` @ @ $` `& `( `> `* @8%pXX@p@x@(X L2fdh&@8 @0 @X @p @ @ @ @ @0 @`p @h @P @(8 @ $<l084@ @ H6`@ @ @, @ 01@ 1@p d6 @2X @@ :@( :@ @ @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 { XN@S_$*\Rffff*0<652049f1*\R1*#405*\R1*#13f*\R1*#133*\R0*#17$*\Rffff*0?65204a15*\R1*#12e*\R1*#43$*\Rffff*0@65204a17*\R1*#13b*\R1*#2a0$*\Rffff*0A65204a17*\R0*#2*\R0*#f*\R0*#1 h"hp:x.6" "H.p D  :L \8@\H\h\>^":  4P,`$>^, ( ~@$PV 8X x   \ @ HP.dX ,L \ * *8h(%0%D%%%0 %P%,p%&  (#6z$J  $"h (,V (PV (`" (,LFp 4Jv <($ <? 8 D6vH D0> HBj D @ ,  ,0  48v( 40>` 8 j 4 0 )"( <($ <<0 H6v@ H0>x PBj H < (" ,8v(,0>`0 j,($$x  < 68(LZP(&( (   )$  > ,`, p (,>40x, ,",   (8(2@h x*4 +$N  `^` h4LpdN   &4 $(LPdhPVJ 4Ld(N@P X \` \ \ x"@HX2h$@6 @*P :   ,HPX ha--------------------------------------------ʼУ-----------------------------------------]X]p+ijһ͵ıʶкź͸ʽ3:1;2] ʶ(ĬϱʶԶʶ)](ijһ͵ıʶ飨кź͸ʽ] ijһͱʶľֵ]Զʶ]%Ѽ¼ΪյкŷŽ]( L!^' "ȡĿ 0ĿȷģٽдУA@21qazT$LB@ |k1qazT$LB@R1qazT$LB@R1qazT$LB@R f$d!^B@*-$ÿοʼʱѴϢsheet,'hϢ¼ʼ'.ôУУ¼Ƿд֣׶ϢУ ('#Ĭ϶ѼδͨУ'Ĭ϶δͨУ f$d!^B@*-$ÿοʼʱѴϢsheet, &A65530$L%D%!('$ ȡxcna = Worksheets(1).Range("1:1").Find(What:="*", After:=[a1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Column IV5 <%D%!L'FAILUREA@l&+ȡǷУɹ־Ԫ񣬲ֵʼΪ0'ռ¼ʼΪ0 0 8" ʱִd ʼУ鰴ť¼ʱִ.ȷʼ Уرexcel $4ܵݶʧʧ 6ܰʾ$2 8d1qazT$LB@ |kk.$L!b(r)ҳǩΪɫ $  "ûвҵѧϢ޷У飡A@2'01qazT$LB@ |k'ôУУ¼Ƿд$L!дϢ£A@` $   ,  $'<"ִ һǿУ ĵԪĿ';6ִ һǿУ ĵԪΪϹĿ'''5"һǿУʱ¼Ԫ'9ǷΪЧ¼ 'C¼УǰǷд';¼ԱǷд 2  2$L%^!'Oһбʶֵ'2=жforѭǷcallFunctionXQStart ûִĬϷ <ʶΪ -$'Gʽ14-3:25 :$'H6ʽ3:25ȡıʶвֳ֣кź͹ DJҪּϵҪУ飨ĬУ͵ԶУ   Y&+1ΪеһԪΪĬУ $:$'V*ȡıʶвֳ֣кź͹$'SԶʶ , $;$'cԶʶ͵ľֵ   gԱʶб $ , 2 A@}ݱʶֵöӦķk  $;$'Pȡıʶв   WԱʶб $ , 2 A@Hk@ eJ ʽ3:25$'QԶʶ , Pʶеڵǰ$;$'eԶʶ͵ľֵ   kԱʶб $ , 2 A@ݱʶֵöӦķkd-ֻĬУʽ14$;$'Hȡıʶв   OԱʶб $ , 2 A@Hk@k8 , 2$L%^( 2 6ִ һǿУ ĵԪΪϹĿ    , е һдȷ''8УʱдϢ A@`  'd   'Tÿһкϼеֵk  <,һؼֶȫ򽫸ɾ , +  ',"ϢеĸдϢɾ  h  h h  f$d%fB@hr Ѹɾ  h  'h 'k ,k "  6 ɾЧ "$' " A@dB ѸɾdP  " A@dH Ѹɾk  "  ˴Уɾ :Чݣ֤У鶼ʧܼΪЧݣA@2k *дϢ鿴ϢA@2$L!b(r f$dB@Hd( '6A@  6'%ִУظݷ,ûظǷҪɾЧ Уͨ!A@2.$L!b(rSUCCESSA@l:+ȡǷУɹ־Ԫ񣬲ֵʼΪ0 $A@Nd *ظݣ鿴ϢA@2$L!b(r f$dB@Hk k 1qazT$LB@ 1qazT$LB@ 1qazT$LB@ o8 q-------------------------------------------------ظijһ------------------------------------------------@]] &A65535 \%D%!('$2Scripting.Dictionary$.,O8O $ \%D!'.>ȡѧ 0 .%"ѧ໤֤ݽб 0 0 ,%2-֤Ų 0 ,B@4&#addһΪkeyڶΪvaluek8 k0 ( &!6'(Sheet2$LG:G7DB@* ( !%: &!^G17D,8q.&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& !: BKxME(6 LL T` X IV xIX `Z `(`  ib j`   ib tx`  Iv IV 8IX XIx  0`   #Iv IV IX  (`  .Iv I IV IX I   `  IICI Iv IV IX I  ` x I I `  H` ( I" +8 `  Iv I: i<`> N ` p Iv IV IP I   ` H I hIV IX @\ dX `  Iv 8 I`  j ` Iv  I`   ` H Iv h IV  IP  l `HHk Iv  IV @ IP ` I (   ` I  Iv  IV 8 IP @\ @n @Z ` Iv  IV 8 IP `V`r`t H( X x0( R@%@ ` 8P @l L@ @h @ @ @ @x @` @H   S_$*\Rffff*0A65204a17*\R1*#405*\R1*#13f*\R1*#133$ B       B  B h p2 p `B x 8 $ 8 "@ pHB  8  $0 X$`  xB 48(p*$ 8BH0!X`hp x  B ( 0 4P $  "   "    .( X p 0   *   .0 ` x .   0    .8  h x 6   6  (88P 6 ( 8H(`&  f p >& 0 X@ h 0*H xj&  HXhp ` **8h  H(x H`( HH(p H(H  &  (H nP   8(@ 8(0  &  (H pP (  88$p 8P$ h &p < %h  h $$8,d$88 ,dp $      &  !(!0!P! nX! !(!"H "h"x"""""""""X#&X# ## #### b# P$ p$$$$$&@% h% ,x%%%% f% @& `&p&& & 8&(& 8'(' `( &h( (((( f( 8)(P) x) T) &) ** * $8* &`*$X*$&*$ +$+ (+0+ 8+ H+$tP+$&+$ + , $,, ,8, ^@, ,",,@,&(- P-`- h---- b-  .0.P. tX. &. . //0/ b8/ / ////&x0 0 0000 ^0 H1 h111X1&1 2 0282X2 ^`2 2 223X3&`3 3 333 ^3 (4 H4`4p4Tx4&4 4 55585 n@5 5 55"6(6&6 6 6667 j 7 7 77"78&8 8889 n 9 9 99"9:&: : :::  n; (p; &;;";;&< < <<<  n< X= &x=(=(==">0>&> ? ??8? P@?????&P@ x@ @@@@ R@A0AHAXPA&A A AAAB bB B$BB@B&C 0C@C$HCpCxCC ^C D&D @D@HD&D DD&DDDE | E E$EE(E@F&PF xF F"FFFF |F hG GG@G&G H H (HHHPHpH |xH H$I8I@@I&I II$IIIJ dJ J J@J&J K0K28KpK xK L(L(@L(hLLLLLLLLM M@MHM PM XM8xM$MN &N NN N$N O 88O(jpO  O O &O P(P0P 8PXP Z`P PPPNQ&PQ xQQQRQ&R(R 0R@R HR PRXRxR  xR R6S.PSSS( S2S( S1S( S2S( S1TT TJ8TTTT ZT U$(UPU@XU&U UU"UVV(V  P0V VV VVV(VV V8W$HW W &X (X8X   PX 8hX(bX Y  Y &Y @YPYXYxYYY fYB Y Z<ZHZ hZZ$Z$ZZZ [ \[ B \,(\ 0X\@\"\ ^\ 6P]]]]]0^D0^x^^^^^^ ^ "`_ _ ._B _ _$_B` `` p` ` ` ` ``` `B PaXa xaa a 8b Pb hb bB b"b bbb bcc c80chc2pcc c cc cd dd F8ddd d d *dd d e eB ee*e 4f@f Hf f gB g* gPg XgB g gh hB h^h vh h hB i i "i i8j2Hjj jj jj j jj"k08k hk(kkk&kk kl lB llVlm 88m pm m:m4m$n@n"Xnnnnn-----------------------------------------УУдϢʾ ע----------------------------------------------------------- Ԫ] V X \%^'Z Z'Td('Tki--------------------------------------------д־ ¼ϢʾһϢ-------------------------------------------- b h f$d,^ h 'hiX--------------------------------------------д־ ¼ϢúɫʾϢ--------------------------------------------( b'l b h f$d,^ l h f$d%^%n!p(r h 'hipi--------------------------------------------עʼУ飩-------------------------------------errorInfoע 1Worksheets(sheetIndex).Unprotect Password:="1qaz" x V X v$L%^B@z V X v$L%^!|(~W ӻɫ V X v$L%^!(Nii--------------------------------------------ɾעʼУ飩-------------------------------------x1Worksheets(sheetIndex).Unprotect Password:="1qaz" V X v$L%^B@ V  X  V X v$L%^!|(rd`  V X v$L%^!|(rk0i(r---------------------------------------------ʼУ Ƿӻɾעõķ----------------------------0  Уʧ V X v$L%^!d жעΪ v V X A@tV עd"Ϊգȥǰע v V XA@N ע v V X A@tk1 MsgBox "" & rowIndex & "" & errorMsgd :УɹжǷעУʧʱעȥ v V XA@ ,#ȥո,ʾ VУ XУַ"$4 "$4"а˿ոϵͳԶΪA@`d`kXkPiH----------------------------------------------------------------------------------------------------------------------------------y--------------------------------------------ݱʶöӦķ(ʼУ)-----------------------------------------------------------------------------------------------------------------------------------------------------------------------ѴϢдб( V X v$L%^'  X v$L%^'Iȡбͷ Ϊϲеıͷ  X v$L%^' V e  X v$L%^'kh0'  checkLen*)ΪУ  $'checkLen'  checkNum*e-ΪNumberУ  $'checkNum'  checkVal*e-ΪֵУ  $'checkVal'  checkInt*e-ΪֵУ  $'checkInt'  checkTerm1e-"ǡ"Ϊ1' checkTerm'  checkYesNo1e/"ǡ"Ϊ1' checkYesNo'  checkYesNoe."ǡ"Ϊ1' checkYesNo' checkDiffName1e2ѼΪ1' checkDiffName' checkDiffCode1e2ѼΪ1' checkDiffCode' checkIDCardType1e4֤Ϊ1'checkIDCardType' checkSqyyName1e2ԭΪ1' checkSqyyName'  checkYear1e. У1' checkYear'  checkPmmce- У1,8,0' checkPmmc' checkBxke, У1,8,0'checkBxk'k _=================================1 ִеķǿУ==========================================ѴϢдб checkNullKT v V X$'  V е Ϊգ'')УʱдϢ A@`RMsgBox "" & rgold.Row & "е" & Chr(10) & titleMsg & "Ϊգ"k` v  V X A@'a=================================2 ִѧУ========================================== checkNameKT v V XA@@ȥոķ V X v$L%^!' $'  V е ;дȷΪ֣ȴ1ܳ20ַ''%УʱдϢ A@`  'k v  V X A@'Z================================= ִеijУ==========================================checkLenKT v V XA@Fȥسķ v V XA@Hȥոķ  $'  ,$'$ ` ΪDZΪ̶ȹ V е .дȷΪաд򳤶ȱΪ$ λ'$ ed ΪDZΪȷΧ V е 4дȷΪաд򳤶ȱڵ$ λҲ$ λ'$ ed ΪDZΪ̶ȹ V е &дȷΪգҳȱΪ$ λ'$ ed ΪDZΪȷΧ V е ,дȷΪգҳȱڵ$ λҲ$ λ'k '0УʱдϢ A@`k v  V X A@'h================================= ִеijУ飨Numberͣ==========================================checkNumKT  $'  ,$'$@ ΪDZΪ̶ȹ V е GдȷΪգдΪ֣0λȲ$λСλ$ λ'$eD ΪDZΪ̶ȹ V е ?дȷΪգұΪ֣0λȲ$λСλ$ λ'k'0УʱдϢ A@`k v  V X A@'i================================= ִ30%У飨Numberͣ========================================== checkPmmcKT  $' v V$'N ȡд  ,$'$@ ΪDZΪ̶ȹ V е ?дȷΪգұΪ֣0λȲ$λСλ$5λҳɼαڳɼ50%֮ڣ'$eD ΪDZΪ̶ȹ V е ?дȷΪգұΪ֣0λȲ$λСλ$5λҳɼαڳɼ50%֮ڣ'k'0УʱдϢ A@` $ $? $ $ e  ?  V е 9дȷɼαڳɼ50%֮ڣ'  ?e ,$'$D ΪDZΪ̶ȹ V е 6дȷɼαڳɼ֮ڣ'$eH ΪDZΪ̶ȹ V е 6дȷɼαڳɼ֮ڣ'k k''0УʱдϢ A@`k v  V X A@'g=================================15 checkName1 עжǷ--================================== checkName1KT v V$'K ȡд v V$' $ ?$ $ 333333?$1,8,0'  $'dh0,8,0'  $'  V v$d,^kk  V е )ֻ뺺,ַΪ20λ''(УʱдϢ A@`dh" checkYesNo v V XA@k@" v  V X A@'[=================================ִֵΧУ==========================================ѴϢдбcheckValKT  $'  ,$' V е $дȷΪ֣ڵ$ Ҳ$''-УʱдϢ A@`& isValidateCount = isValidateCount + 1kP v  V X A@'_=================================ִеΪֵУ==========================================ѴϢдбcheckIntKT  $'  ,$'$@ ΪDZΪ̶ȹ V е 8дȷΪգдΪڵ$ҳȲ$ λ'$eD ΪDZΪ̶ȹ V е 0дȷΪգұΪڵ$ҳȲ$ λ'k'0УʱдϢ A@`kX v  V X A@'`================================= ִе֤У========================================== checkSfzjhKT v V$'S ȡд  V е &дȷ֤Ϊգ''0УʱдϢ A@`d  ֤  X$'O ֤У :֤У V е *дȷΪѧ֤ţ''4УʱдϢ A@`  'kd $'  V е EдȷΪգҳȱڵ1λҲ18λ''4УʱдϢ A@`kkk v  V X A@'X================================= ִ֤У================================== checkZjlxKT checkZjlx 1$'  V е дȷ''(УʱдϢ A@`d checkZjlx v V XA@kp v  V X A@'\================================= ִѧŵУ==========================================checkXJHKT 1, 1, 50$'  V е EдȷΪգҳȱڵ1λҲ50λ''0УʱдϢ A@`k v  V X A@'[=================================ִпУ==========================================ѴϢдб checkBankKT $'  V е $дȷΪ֣ڵ$ Ҳ$''-УʱдϢ A@`k@ v  V X A@'W=================================ִУ==========================================ѴϢдб checkYearKT  $'  V е *дȷʽ20122002ȣ''-УʱдϢ A@`k v  V X A@'W=================================ִѧУ==========================================ѴϢдбcheckXnKT $'  V е )дȷʽ2012-2013ȣ''-УʱдϢ A@`k` v  V X A@'W=================================ִ·У==========================================ѴϢдб checkMonthKT $'  V е &дȷʽ0112ȣ''-УʱдϢ A@`k v  V X A@'g=================================3 ִеУ(DZ)==========================================ѴϢдб checkDateKT  $' 2Уʧ V е дȷдʽΪ"$4xxxxxxxx"$4 20130221''-УʱдϢ A@`k v  V X A@'c=================================ִеУ飨==========================================ѴϢдбcheckDateNecessaryKT& $' 2Уʧ V е дȷдʽΪ"$4xxxxxxxx"$4= 20131221ֻõ֮ǰʱ䣨գ''-УʱдϢ A@`k v  V X A@'g=================================ִеijУ飨==========================================ѴϢдб checkBirthdayKT!  $' 2Уʧ V е дȷдʽΪ"$4xxxx-xx"$4 2013-12''-УʱдϢ A@`k( v  V X A@'g=================================ִеijУ飨==========================================!ѴϢдб ߺcheckBirthdayNecessary2KT, $' 2Уʧ V е дȷдʽΪ"$4xxxxxxxx"$4 20131201''-УʱдϢ A@`k@ v  V X A@'g=================================ִеijУ飨==========================================ѴϢдбcheckBirthdayNecessary3KT, v V$'K ȡд v V$'K ȡд  $' 2Уʧ V е дȷдʽΪ"$4xxxxxxxx"$46 20131201ҪԺϵ5գ''-УʱдϢ A@`k v  V X A@'J=================================10 У绰====================== checkPhoneKT $'  V е дȷдʽΪ"$4-̶绰 ֻ"$4 ''%УʱдϢ A@`kh v  V X A@'L=================================checkOption У鱸ע ====================== checkOptionKT B$'  V е )дȷȲܳ200ַ''%УʱдϢ A@`k v  V X A@'\================================= ִ϶ѼУ================================== checkDiffNameKT checkDiffName  $'  V е дȷ''(УʱдϢ A@`d checkDiffName v V XA@k v  V X A@'X================================= ִ֤У==================================checkIDCardTypeKTcheckIDCardType  $'  V е дȷ''(УʱдϢ A@`d8checkIDCardType v V XA@k v  V X A@'v=================================14 checkGender ִǷΪСŮУ--================================== checkGenderKT checkGender 0$' '-ԱдУ֤Ź V е дȷ''(УʱдϢ A@`dpE checkGender v V XA@k@E v  V X A@'u=================================14 checkYesNo ִǷΪǡУ--================================== checkYesNoKT checkYesNo  $'  V е дȷ''(УʱдϢ A@`dC checkYesNo v V XA@kC v  V X A@'u=================================14 checkYesNo ִǷΪǡУ--================================== checkSqyyNameKT checkSqyyName  $'  V е дȷ''(УʱдϢ A@`d@B checkSqyyName v V XA@kB v  V X A@']=================================checkTerm ִѧУ--================================== checkTermKT checkTerm  $ V е дȷ''(УʱдϢ A@`k@ v checkTerm  $ V X A@'}=================================15 checkNumYN ִǷΪǡжǷ--================================== checkSNumYNKT v V $'L ȡд v V $'H ȡд v V $'H ȡд 1,8,0'  $'d0?0,8,0'  $'  V v$d,^ V v$d,^k>k> 1,8,0,$'$@ ΪDZΪ̶ȹ V е ?дȷΪգұΪ֣0λȲ$λСλ$5λҳɼαڳɼ50%֮ڣ'kh='0УʱдϢ A@`k(=   $ ?$ 1,8,0,$'$@ ΪDZΪ̶ȹ V е ;дȷɼαڳɼ50%֮ڣ'k<''0УʱдϢ A@`k;k; v  V X A@'S =========================== ִ϶ʵУ================================== checkSFJEKT 1, 4, 0$'  V е  дȷֻд''(УʱдϢ A@`dp: $ V е #дȷ,ֵֻΪ5000'')УʱдϢ' A@`d9k9k9 v  V X A@'r=================================checkAtLeastOneNNull ִһΪǿ--==================================checkAtLeastOneNNullKT  'A"ִ һǿУ ĵԪĿ $ =Ϲ   ' X KTF   ' KTF   ' KTF   ' KTF   ' n7dϹ  'F6ִ һǿУ ĵԪΪϹĿ    'kX7'T================================= ִУ================================== checkPmTypeKT checkPmType 1$'  V е дȷ''(УʱдϢ A@`d(6 checkPmType v V XA@k5 v  V X A@'J==========================================================================checkBxkKT  $' 'k85 v V$'N ȡд  ,$'$@ ΪDZΪ̶ȹ V е ?дȷΪգұΪ֣0λȲ$λСλ$ λ'k4'0УʱдϢ A@` $ $e ,$'$@ ΪDZΪ̶ȹ V е 4дȷμ޿һ£'k2''0УʱдϢ A@`k2 v  V X A@'nx2ip2_--------------------------------------------ʽ------------------------------------- ]VBSCRIPT.REGEXP$.7RegExΪʽ (4 ȫֿvba\ת  (.ʽ (5ǷִСд  %'3 ִ.i1-----------------------------------------------------------° Уظ˵Ѿûиʽ------------------------------------------------------------V-----------------------------------------------------------1ѧ׶ڱڲ(sheetѧ׶ &A65535 "$d%D%!('$*cna = getTotalColumnCount(sheetIndexValue) f$d!^B@*1&ÿУظʱʱѴϢsheet,'hϢ¼ʼX==============================ѧ׶ڱڲ==================================0ðÿԪغ֮ǰнбȽ ,  $ , 0 "$d%^'. 2  , 2 0 "$d%^'4 . 4.ѧͬ˵ظݹ 2 еݺ͵ ,ظ!!!!' A@`*ѴϢ'6kX-P-H-i@------------------------------------------------------------һ ֵȡֵ------------------------------------------------------------ֵҵֵڵлkeyWord ҵĹؼ'kbn л ֵΪ rowrowH'8]the find result object :B FD JH A1:A65535 v$L%D%@.> > <row >!('8dh+ >!L'8kP+kH+i@+------------------------------------------------------ ָcellֵ-------------------------------------------------------------1qazT v$LB@R  V P v$L%^(i`*------------------------------------------------------ ִڹУ(Ϊ)-------------------------------------------------------------value value1 cellУ鲻ȷfalseУȷtrue X0˵ΪDZ V$Z'z)k)k(]'^ijһļ¼ &A65535 b$d%D%!('`B' b row$8'\=ȡ , \ ` , b$d%^  ^ '^d(y(k' , 2 \ \ ^  2 b$d%^X VX LжϹǷcell'yp'kh' 2#ʱcountĿΪùеĿi '------------------------------------------------------ ִɾijһвexcelܱģ-------------------------------------------------------------sheetIndex rowNum к1qazT v$LB@R ` v$L%fB@h/ Ѹɾ- Worksheets(sheetIndex).Protect Password:=123i%------------------------------------------------------ ִɾijһвexcelûб-------------------------------------------------------------sheetIndex rowNum кX ` v$L%fB@h/ Ѹɾi$------------------------------------------------------ ȡָcellֵ------------------------------------------------------------- V P v$L%^!'i#------------------------------------------------------ ָcellֵ------------------------------------------------------------- 1qazT v$LB@R  V P v$L%^(i#------------------------------------------------------ ݴеֵǰʱѾͨУ飩------------------------------------------------------------- ]X p  V P v$d%^!X 'Z'^ijһļ¼ &A65535 b$d%D%!('`F b row$8'\Aȡ , \ ` , b$d%^  ^ '^d0!y(!k ! , 2 \ \ ^  2 b$d%^!X 'V V ZX 1жϹǷcell 2 b$d%^!'n nX V P p v$d%^(yH d@ V P p v$d%^(k  2i------------------------------------------------------ ȥcellеĿո------------------------------------------------------------- ]X Ԫ]p  3Blength1ʾcellԭijȣlength2ʾִȥոַ'ĬΪûȥո2 Worksheets(sheetIndex).Unprotect Password:="1qaz" V P v$L%^!'V V'r rGzj*"ԪΪգȥո V 't%length2Ϊոһγֵλ tַո V $v'V VX V P v$L%^('kpih`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- GM:Bxk {  U   Select Case) '=11 ִqǿ>q?ϢдGq Null8UMethodXQ @RequiredX_boP Not Ѫ rerror"" &6"! F& "Ϊգ/ahasE`Tr'qʱ% fwriteLog E ' Box 5 gol d.RowO & Chr(10){ Tb eginC_commentJ,?isFor.o+.2.ѧ/_Ky-@{O removeSpxacep-ܟ 'ȥոķA\)./k2=c3Stuj(2/6/6;/6V555дȷА@֣ɴ@1820ַ*_8_8M> writeLog error`Msg  isValidateCount =" "+ 1vEnd If.beginCheck_ commeQsheetIndex, cMethodXQ, rowolumn AisForTrue '= ִеijУlCase "a^Len"{removeEnter {t 'ȥسķ-SpaceXQ).ոeW:(value, functionArgs)(@If NotKy pThen ENIArxSplit(, ","#!(0)@50 AUBd 1* 'ΪDZΪ|3"@"`" &Ƽ"titleд ȷ"Ϊա"ΪA<1)λ`VElse'n'2'Χ''!'''ڵ Ӣ3v(Ҳ1-2?-wE9-1T`jT?-TTTĚT &S "Se&{SSf{F{&R`'R?) }hasEx '1vʱSдϢ_(-ϊϊ4 rnNumberͣh] Z }}F }B_X|U0}}]j}oQ{%oQh& >h1{{֣>0޻qSf(v}?Сi?VsQ //9T0~cU7K UUUU  dUU`UPUx30%!hU==lLUPmmcU UU1VVw@ resul1g@etCellu1sXQ(5)@ 'ȡ0Ȏ If Not checkMethodXQ ThenfunctionArgsArr = Split( ., ",") M(0)P1p'ΪDZΪ̶ [errorMsg-"" & rowIndex" title& "дȷCΪգұΪ֣0@λL`'p1):λ!С2ҳ <څ50%ڣ"Else``` ``E(``BE End If_jhasETrue 'УʱдϢwriteLog2W$Dval(`@ue) / result) > 0.5 Or$>*!!P C $ (?L|l_l1G,:/ <="+ @Iu? l;;;7 ?!?!dL/*}ۋ= FamTTT]T_ $cbeginC_comment@ sheetb, ,olumnT!OisFo!Qd@'= 15Name1ע@Ƿ!--?Case| "G` P= getCellValueCou`ntXQ(՜, 3) 'bq10P, 4k( >=p *\@A~ nW^R ^#Ra "1,8,0vb&=#StuS|, a1 L a2"08 * 2Vk S2sX!).!#s(!5":  ? //' 뺺ր,ַΪ20/P/P/P\OO %yset@DMBCodAYesNo",O7cN_*q?/V/V3/V/VUUQִֵΧ 'EдбwI Case "checkVal8" dMethodXQ = (value, functionArgs)zIf NotzThen2; ]ArrSplit( , ","zGerrorMsg@"" & rowIndex"еA title& "дȷΪ֣`ڵӂ'T(0),Ҳ`+1量\hasEcaTrue 'Уд write0Log E ' isidate`Count@ M+ 1End IfbeginC_comme@sheetf, ,FlolumnD 0isFoAK '=ִΪֵoU+_d= 0b 'WkΪDZΪ̶_GU A_} Y}Ϊՠk!D_D{W2B Else)1))++)_C)(gs(((h f _FckE}/f_T?Q cT֤oTRԉSfzjhRv resZjlx?getPCell`ku3kXLQ(e, 8'ȡ>ȞݟF)7G""6?4Q E4_C_,߃߃_,#KO? sIsIDNuPmber%scg) ') = qtk#.OM?!!!!ѧ Oe/"/"/"/o"o"ߦ{ߦo SO)? \4SFZJLX%n$ԏo"o"o"o"Yxx1t18t $$$O$$o /:??_5/| д/|п/|v= ִ֤У. Case "checkZjlx" :PMethodXQ = DMB(9, value@, "1")FI`f Not=MThen.}err orMsg:"" & row Index"е title& "ȷna3hasE43True '偧ʱдϢUwriteLog ZElse"setCod, sPheetB>,@, columnEnd If@beginC~_commentJ J},;isFobrDU 'рŵ#8XJH~J9C@*Len(, 1, 50Up  \Ϊգҳȱڵ150b%cce dFW[\ck\ e\^п8\i@h!%дaЄ_Bank_^A^?]"\\ZΪ`֣[afunctionArgsArr(0)!ć^q1c_ab``"`'/0/0/]/ e]yE //+.!/..@x.^Year..E^#/f/g/OO+H/ʽ20122002ύ+ \)j++++++?(+ѧ+++yn+++Xĉ*P*******-*3*****g j*******'*OV_***Month***_ G**,*****011OU*****b ' PE nd If|beginCheck_comment sheetIn@dex, c2MethodXQ, row0olumn errorMsg^isFor = True '=3 ִеУ(DZ)<4ѴϢдб P@Case "qDate" hBirthday(value, functionArgsArr)If Not Then 'ʧ$_%"" & j"Rtit le@kдȷʽΪA Chr(34) x 20130221"*hasEA* 'Ayʱn\writeLog WE[?? $f -Njţb:c%c" cNecessary?dE;"dNowdb b*bbb xb1bֻ֮ǰʱ䣨aggg# g???ןc^c d+d"deyc+Z=þǟddc IO2%~_cccc-x?2c-12/> /cc*/O1//M1/t1 ,_-22O2A ߰o3ya24 44'f'oXQoR3 noooo o3313^ 333 33x33333, c Lu3033_33?3E/3?3 re)getCellVCoun0tXQ( 27@) 'rĘݯsu29x >A>ry3(rsu_r>>> _r_rt"bՃ>ҪԺϵ5գ " hasError = True 'УдwriteLog eOMsg/End IfbeginCheck_comment sheetIndex, c MethodXQ, row `olumnNisFN '=10 绰 7Case "ePhoneߊsNum(@value)/I f Not I Txhen 8I"`" &T"еtit le|дȷʽΪA Chr(34) -̶F H ݱ>'I`COptionBQ PPCQcKP, 66_Qu_Qsg_QGUQȲܳ200KK#Kck? ִѼLjDiffNamQA!Z@C0DMB(, B, func`ArgsRa j~ߜoz (@Else#NsetPCodujxwPzoaT .O.ЀOc /.=,.ɀ֤1~.-.IDCardTyp. .0...3 /0XQY5r/0~/0J /0XL/0/0!?0>0*_0)"o6_0_0_0_0orD_0O,L14)GerA`ΪŮ2--823OPT`1"0"_//G9U)IdзCӣΘC44?A694 444L44$6b6F55?fG5555565 _f05YesNo5$55n --=  Case "checkYes8No" <R@MethodXQ =B DMB( t, value, function Args)PIf0 NotGWTh en.errorMsg~"" & rowIndex " title& "дȷs30hasE43True 'Уʱд@ϢUwriteLog CZElse"sDetCod,@ sheet|,, columnTnd IfbeginC_commentJ,;isFDorDU '14cBִǷΪǡg:SqyyNameF_`_`_`_`_`@: _`MBH`(-`* ```` c`Term`_ѧڿ]cK}H 4] [ 0E?H:H*KKOV%15 2&NumYNOVEVжϡW̶V='S(!resultbgetCellVaPCountXQ(_?ex, 9) '~bt mc__T, 10orsoogV1oo z ""6Ya1@"1,8,0(a1ZF a2v08 ܞT2I GS%qs(#).$s(ㅣ#= "@YoC,Z?ArQSplit(#, ","}(3= 1*'aCΪ̶𳤶ȟ =E_1&qΪգұ֣0λ xp !С`(2)ɰɼ$΁50%֮/#ߜoh C_r$NAv??S5L(mc) >(Y* 0.5)Sh '111111N1a= "" & rowIndexP"еʀltitleMsglдȷɼα 50%֮ڣ"  !End If'checkMethodXQ = False6hasErrorTrue 'Уд&writeLog e)m|1beginC_comment sheet4, JK,olumnD 1isF#M!' = ϶ʀX 6Case ".SFJE6uNum(value, "1, 4, 0")KEIf NotKH Then IC@xֻA@?V< E{i@&+,) <> 5000|&fd&W,$ֵ!'Ϊ_'_~ C?-"-- Q {y߈߈̈ $'>|AtLeastOneNNu llһΪǿ-- =K%7( aACou= + 1 ' ! ĵԪĿ$#PoneyoAgBqp '! Ϲ5qtotalMA9+ Select ">cdOIbaojiaoBCR:iSum? ? _ huoshi H   zhusu G  others H  RRc*'?%n '23 =pG>6>>>Ϊ@KEu + + " Jb`YXTQͱ ["cPmTyp>eo 2_DMB(,3KqsSo)\x!OsetCod%,zUO6pj#o˕oIq,OسTo .+<8.Bxk_.O.`1~, functionArgsv#ue = "" Th en checkMethodXQTrueEnd If>@resultgetCellValueCountXQ(sheetIndex, row 7) 'ȡд\If N8ot zfunctionAr gsArrPSplit( , "x,")?%B&(40)(1'DZΪ̶14errorMsg-"" &"еʀ title& "ȷ!գұΪ֣0λ&IM81)λ 2 ";DhasEED 'У@ʱ]дwriteLog EZ ElsBe}val(ue) <> Aû)؃/_$_eAx < YXYYaWμ"޿aһ£NEN#>2_6 FaIw_]_] _]E#b eginCA_comment jcolumn$misFoakASelect aFd '-&ʽ  e reg(,:DimEX As Obj+Set= Create#("VBSCRIPT.REGEXP")A'RegExઽ EX.GlobalE 'ȫֿ''vba\תPatter.n RʽIgnoreCaseB/ǷִСд<pTe stXG'ִhing#$o!° Ahظ˵Ѿûиi 1ѧ׶ڱڲ  -;ДSame`XQNew }'r>w(naSs:.Range("A65535").P;(xlUp).'c TotalCBBؙmsg%NP ).!s.ClearContIs 'ÿʱUAB ,c"uaRowP 1 '¼@ʼ'=ocO'ðԪغ֮нбȽϧ1Ti0 startT + 2 To rnag4babyID1WI2(i, c3ϲ AjO@i - 1o32exj x@q e ! Ҍ+ͬq:1;o UjzùiCr@!O y ') :prr NexptnOG/Fһ ֵݸֵo` #@ҵCлkeyWord Ĺؐabn"# ֵΪ H RI Get@@ODlR0(By@H, QStrf)AIqHgerm- x1уc 'the fipol c@@k";GXvex).Range("A1:A65535").Find(What:=keyWord, LookIn:=xlVal(uesDADxlWhole)  If Not c Ishing ThenBPJkbn = `"row" $GetRowOrColIndex. c./ JElse' ;Hum Enpd If F@unctio  '-2 cell`ֵ3# I setC*CountXQ@(sheet, c, vWވ@wk s).Unprotect Passw:="1qazN"I$s().@p W5WִڹУ(Ъ)CFor i % To1bi, 3B?p'+ 1G #5orh(Next ic!j.#4+ c -i DCStr(j, 3>)MB '0ж(dCGA eSbS)A IQj 'cĿ_wߐ  ]в@exܱģ 8c  Qahкdelete`䋿__o3 y:ow_.D 'Ѹf!' P~f123__Uûq_o__ VNo mP??;A0W[t_ - OIJ:O8)g-=QL$$% _?Y\k?obx, Ťg/(/ ݴ!BpZ0ֵǰʱ1Ѿͨˑ?orowN, c$ol + um`nPlusYCPStr()kExit ForElsep8O""9nd If Next j  E Function '-2 ȥ0ո3#D $ removeSpaceXQ(D, jaDim B1 As king 'C length Integer, 2 ' ʾC<ԭij0ȣ ִ ЁECַ 7Fa@ 'Ϊû ' WorkBsC).Unprotect Password:="1qazȂD~=PV@@,Len(_IfDN:1@0CaM '1Ϊգ%$*` Ino , "( ")12һγֵλÃf2 <> 3A5' ReplQ"Et4+@  ETru!y!|+z > &xRRME(@z0D6 <`zhX0h|ꐀHꀄH@ʀx @8 @ꀐh @Bx @%Ϣ%ꀪh  @  @ꀦ @0B‚(@ʀX @$@ꀬ @bBphB!ꘔB#˵%~BfHpHꐂxHʘBʀ @ʀP @8ph @ꀤ8 @0 @6  @ꀈ  @ꘊ B‌P@ꀒ @h@ꀎ@ʘBꀐ@ @ꘒpB"H8h(XPpx x8@Hx$p(8HS_*\R1*#2a0$*\Rffff*0?65204a15(*\Rffff*0?65204a15\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=  r SP_ J< 9stdole>stdole h%^*\G{00020430v-C 0046}#2.0#0#C:\Windows\System32\e2.tlb#OLE Automaption0EOfficEOfQicEE2DF8D04C-5BFA-101B-BDER5EAAC42Egram Files\CommonMicrosoft Shared\OFFICE16\MSO.DLL#M 16.0 Ob LibrarFyKMSForms>BSFr@ms3D452EE@1-E08F0A-8-02608C4D0BB4SsSFM20L'B _&/;"~1jIqAHq00}#0Bq# h0@C2D43B23-FA98-4157-9ECF-4D83DB3D477Users\boboa\AppData\Local\Tem`p\VBEZ..xexd[3!.E .`M E ThisWorkbookGT Ti@cWekbokT 2 THB1P@B,!zL"B +BSheet1G Se\t1 q2M ` H 6 6 6 6  ӡԤGSbpSȉe2jo m !(e) ߺc ]wQQpec ec eo Qm k G;`Xf"a2fo o &У!h>eeo mo ~k !LGbQ;N z^b2)o -o U2ShowaxG`6\owf3e2row]nO( Tl5^5^5M^5^zh^ APrintCrin2oqb7ʘID="{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="4E4CE2B67E4AC84EC84ECC52CC52" DPB="9C9E3004304F4D4F4DB0B3504D9F0C116344D3B1EF9296194326E6E0F3CF75252549C1E53C8C" GC="EAE846DA95DB95DB6A" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=0, 0, 0, 0, C Sheet1=0, 0, 0, 0, C ߺ=0, 0, 0, 0, C =0, 0, 0, 0, C У麯=0, 0, 0, 0, C =0, 0, 0, 0, C ShowForm=0, 0, 0, 0, C, 26, 26, 1612, 699, C ӡԤ=0, 0, 0, 0, C PrintForm=0, 0, 0, 0, C, 52, 52, 1638, 725, C Sheet5=0, 0, 0, 0, C Sheet6=0, 0, 0, 0, C  FMicrosoft Excel 2003 Biff8Excel.Sheet.89qT ? &" 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_VBA_PROJECT_CUR"ShowForm2 o CompObj aVBFrame f&PrintForm oCompObj aVBFramef&PROJECTwmVBA__SRP_7$!__SRP_d __SRP_11<j__SRP_13> ThisWorkbookf. _VBA_PROJECTfJ$PrintForm__SRP_12ShowForm__SRP_10__SRP_e__SRP_fj__SRP_b__SRP_c __SRP_9 &__SRP_a)2__SRP_86~Sheet6,8__SRP_5&K__SRP_6#N__SRP_3(f__SRP_4%j__SRP_1)m__SRP_2' __SRP_0"8SbpSȉ /~Sheet1-Sheet5+!hQpe *;N z^1 ?]wQQpe .)gXfdir0SPROJECTOlePres0008@Ole CompObj4i