ࡱ; +^abc T8\pHOU Ba= ThisWorkbook= L}8X@"1[SO1[SO1[SO1[SO1[SO1[SO1[SO1Arial1[SO1[SO1h>[SO1,>[SO1>[SO1@[SO1[SO1[SO1[SO1[SO1Arial1Q[SO1[SO1[SO1 [SO1[SO10[SO1 [SO10[SO10[SO1@[SO1[SO1 [SO1>[SO1[SO1 [SO1[SO1[SO14[SO1 [SO1[SO1 [SO14[SO1<[SO1?[SO1>[SO1[SO1@[SO1[SO1@[SO1[SO""#,##0;""\-#,##0""#,##0;[Red]""\-#,##0""#,##0.00;""\-#,##0.00#""#,##0.00;[Red]""\-#,##0.007*2_ ""* #,##0_ ;_ ""* \-#,##0_ ;_ ""* "-"_ ;_ @_ .))_ * #,##0_ ;_ * \-#,##0_ ;_ * "-"_ ;_ @_ ?,:_ ""* #,##0.00_ ;_ ""* \-#,##0.00_ ;_ ""* "-"??_ ;_ @_ 6+1_ * #,##0.00_ ;_ * \-#,##0.00_ ;_ * "-"??_ ;_ @_ \$#,##0_);\(\$#,##0\)\$#,##0_);[Red]\(\$#,##0\) \$#,##0.00_);\(\$#,##0.00\)% \$#,##0.00_);[Red]\(\$#,##0.00\)""#,##0;\-""#,##0""#,##0;[Red]\-""#,##0""#,##0.00;\-""#,##0.00#""#,##0.00;[Red]\-""#,##0.0050_-""* #,##0_-;\-""* #,##0_-;_-""* "-"_-;_-@_-,'_-* #,##0_-;\-* #,##0_-;_-* "-"_-;_-@_-=8_-""* #,##0.00_-;\-""* #,##0.00_-;_-""* "-"??_-;_-@_-4/_-* #,##0.00_-;\-* #,##0.00_-;_-* "-"??_-;_-@_-"Yes";"Yes";"No""True";"True";"False""On";"On";"Off"],[$ -2]\ #,##0.00_);[Red]\([$ -2]\ #,##0.00\)0_);[Red]\(0\)0.00_);[Red]\(0.00\)0_  0.0_                                        P  P      !     " # $a   %  &ff ' ( )`   * + ,  -           ""@ @ @ @ @ @ @ @ !@ @ ""@ @  1 1 1 1@ @ 1 1 1@ @ 1@ @  1|7 1 1 1 1@ 0@   1@  1 1 1 1 1|@  1 1 1|@ @ 7 1<@ @ .87 /8 087 18 ||e }-} 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?_) [$##  }-}D ?_)}-}K ?_)}-}L ?_)}-}M ?_)}-}Q ?_)}-}S ?_)}-}U ?_)}-}V ?_)}-}W ?_)}-}Y ?_)}-}Z ?_)}-}[ ?_)}-}^ ?_)}-}a ?_)}-}b ?_) 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\`$vCxvzuV[VYf[ёDRNR TUSQNxh_Oo`VV!  =dc:-KmՋ@b g!hĉRv^SbpSOo`ffxX$ @F>xMOS AA@A@   V1 7 checkDiffNameV[V~+R Tyf[uY T 77usYel T^S/f Ty{|W checkYesNo checkGender'`+RsY'`+R7u^8^VN,V NVS>eeg 7 checkSfzjhsfzjh 7 checkName 7[Sё 7 checkNum1,6,0 7 createDate 7xm 7  7 zxjh 7NyR 7 checkYesNo 7/f 7&T 7 checkZXJHNyR 7zxjhm 7 checkZXJH 7:_QR 7 \peleؚB\!kr^R 7[S/ec0W:Sؚ!h[TW{QR 7QQgf[!hYeUxX^DW{QR 7ؚ!h[XT;e``?elYeNNZSXf[MOR 7ؚ!h``?eltYe^;eZSXf[MOR 7vQN 7cυR 7 checkZXJH 7 checkZXJH 7e 7NyR 7 yjsjxjSub 7( _{:NIlW[SNS+T ^'YNI{N1 N NǏ20*NIlW[ OY _ N _kXy% 7 4161013681  xvzuV[VYf[ёDRNR TUS 7  xvzuV[VYf[ёDRNR TUS  7sfje 7/ kXQDRDёvS>eeg kM" T c< TR T T T O1 d= OQ O7 O9 O6TB FlTrqZ(   cq N( X?Su]4c9@ E@ķQ> <kXQf[uvY T<~~  <( CC@],@ڸq9 $< _Yhg<~~  < ( CC@],@Jq9 $<_ Y h g< ~~ i <( CC@:0],5@q9 $<_ Y h g<c9admin>@dinjn7 Sheet1ggDh4hl:SW2 T8 &Z]^  dMbP?_*+%&ffffff?'ffffff?(?)?MFoxit Reader PDF Printer_ 4dXXA4" dXX333333?333333?&<3U} @F} F} F} !F}  K} K}  K} K}  K&@ ,,,,,,, , , , , ,,,,,,,, ,!, J E E J K0DDDD KS FH? G F KU F H G FDHHD F H@ G F F H? G FHDHHI F H? G I F H@ H I F H@ H I F H@ H I DHHIDHHI F-F F. F/ F,F? F$ F F F@ F+ F! F F@ F% F! F F@ F& F! F F@ F' F! F F@ F( F! F F@ F) F! F F @ F* F! F?F? G@ IA FBF@ GC IA FBF@ HD IA FBF@ HE IA FBF@ HF IA FBF@ HG IA FB F@ HH IA !FB!F @ !HI !IAD" lF J<<< <<<<<<<<<<<<<<<<<<<<",#,$,%, "F?"F"@ "HJ "IA #FB #FK #HL #IA $FB $FM $HN $IA %FB %FO %HP %IA 4<<88PH  0(   > @ 7 Sheet5ggD T8 Sa  dMbP?_*+%&ffffff?'ffffff?(?)?"333333?333333?&<3UDDDD x< PH00(  >@   7 Sheet6ggD K*rU@@@~~~~~~~~~R"Qٷ~H`EDrp       1 a  Q  A !Q!Q @!QAq1a!Aq1aAqq Q!  VBAProject ThisWorkbookSheet1Sheet6ӡԤߺУ麯ShowFormSheet5 PrintFormF1C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLLVBA A qPF  F:\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 ]+DC`b0C:\Users\Τƽ\AppData\Local\Temp\VBE\MSForms.exd  checkedRequiredStartwriteLoggetCellValueCountXQ writeLogRedaddCommentXQStartclearCommentsXQStartbeginCheck_commentcallFunctionXQStart regCheckFuncsetCellValueCountXQcheckTheSameXQNewGetRowOrColIndexcheckDMB deleteRowdeleteRowNoProsetCellValueXQ setDMBCode removeSpaceXQ  checkRequired checkStuName checkBirthdaycheckBirthdayNecessarycheckXn IsIDNumber checkSFZJLX checkSchCode checkFamType checkRXDate checkYear checkMonthcheckXJH checkPhoneNum checkBank checkOptioncompare compareDeccheckLencheckIntcheckValcheckNum checkIsInt checkIsNumber checkMoney checkMoneyTJcheckPersonNumcheckIdNumLinkcheckNowNecessaryj  &xRRME(@X< <<pHXhP0hZ^0Hb`ʀ  ꀎf %%ꀦ  ꀢ B‘@ʀp ꀨ @BN0BtB(B`B\B^HH`xHʐLʀ zCʀ d8hꀠP0? h ?j BClP:ꀐ `n?ʐLp@ zCrpB H8@pP0p xP0@`$p8`Z(*\Rffff*065af9dd84\044    08  @ ` Dp 8 0 P0pD084P. ..(8(`>"$$@>`R^FX `*0$`   ^^0p@һṹҳ]$H=Public Const sheetNameValueTJ As String = "2ʵͳ"H]$Ϣ2Public Const IntroSheetName As String = "˵"]$H]$˵0] x ¼ܵУ]$`¼ͷ] "ִ һǿУ ĵԪĿ] 6ִ һǿУ ĵԪΪϹĿ] ÿһкϼеֵ] "һǿУʱ¼Ԫ] Ϣ] %---ģУ¼ĸԪ] 8---ģУ¼ĵԪ]   Уʱ洢ַ] P¼ʱرհť]  ¼ܵУǷвϹ]  ¼ܵУǷظ] #¼ܵУǷظ] %/¼ЧǰǷдϢ ״̬] #У鷽ķֵ]$)¼ʼк]$ )ѧѧſʼλ]D¼ΪյĿ]P"/ǷΪЧ ͳ 5ֶΪյĸ] @"C¼ȥոִнȥ˿ո򷵻true򷵻false] PcellԭʼĵݣϵͳûнԶûĴ֮ǰcell] p7ϴдϢʱڵ,ӦĿʼʱʼֵһ] ] ] RڸݱʶòͬķʱжǷforѭ Cell_SelectionChangeҪõñ]$¼ʡصȼ¼ڵ]$+sheet±Ƿ] ]$h@)е]$0) Ա]$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= *1u$UxME :@P@ @ @ @ @  @ ` ` `$ ` @@Z h"hp:x.6" "H.p   : 8@Hh>": P,`$>, ( ~@$P 8Xx   @ HP.X , **8h%0%D%%%0 %P%,p%& #6$J $"h (, (P (` (,Lp 4J <( <? 8 D6H D0 HB D @ ,  ,0  48( 40` 8 4 0 )" <( <<0 H6@ H0x PB H < (",8(,0`0 ,($$  < 8(LP(&( ( )$  > ,`,p (,40, ,,   (8(@h x*+$  dh p4x 4 $0XpP40HX ` h   x"HP`2p$@6 H*X :   , PX` pa--------------------------------------------ʼУ-----------------------------------------]X]p+ijһ͵ıʶкź͸ʽ3:1;2] ʶ(ĬϱʶԶʶ)](ijһ͵ıʶ飨кź͸ʽ] ijһͱʶľֵ]Զʶ]%Ѽ¼ΪյкŷŽ]( D!<'"ȡĿ 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 <% %!2'nFAILUREA@J&+ȡǷУɹ־Ԫ񣬲ֵʼΪ0'lռ¼ʼΪ0 0 8" ʱִd ʼУ鰴ť¼ʱִ.ȷʼ Уرexcel $4ܵݶʧʧ 6ܰʾ$2 8d1qaz$DB@|kk.$D!b(r)ҳǩΪɫ   "ûвҵѧϢ޷У飡A@2'01qaz$DB@|k'ôУУ¼Ƿд$D!дϢ£A@X      '<"ִ һǿУ ĵԪĿ';6ִ һǿУ ĵԪΪϹĿ'''5"һǿУʱ¼Ԫ'9ǷΪЧ¼ 'hC¼УǰǷд';¼ԱǷд  n $D%V!h'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  <,һؼֶȫ򽫸ɾ  l+ l 'l,"ϢеĸдϢɾ  `  ` `  ^$\%DB@Fr Ѹɾ  `  '` h'k k  l 6 ɾЧ $'  A@BB ѸɾdP   A@BH Ѹɾk   l ˴Уɾ l>Чݣѧ֤У鶼ʧܼΪЧݣA@2k *дϢ鿴ϢA@2$D!b(r ^$\B@Hd 'A@ '%ִУظݷ,ûظǷҪɾЧ Уͨ!A@2.$D!b(rSUCCESSA@J:+ȡǷУɹ־Ԫ񣬲ֵʼΪ0 A@d *ظݣ鿴ϢA@2$D!b(r ^$\B@Hk k 1qaz$DB@1qaz$DB@1qaz$DB@o0 q-------------------------------------------------ظijһ------------------------------------------------@]] A65535 T% %!'2Scripting.Dictionary$.O8O  T% !h'>ȡѧ  %"ѧ໤֤ݽб   %-֤Ų  B@ &#addһΪkeyڶΪvaluek0 k(  ! 'Sheet2$DG:G7 B@  !% !<G17 ,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 & "?ݣѧ֤!ʧHܼuΪ&"WN`eTzƠWorks1).Tab.ColorInhdexb67SyQcttK `S` FaPcheckXQNew (1Pi'Not!E n 'ִ#;ظ8,0ք'ǷҪa<ą;3Cͨ8!/ı/-41427 setCell ueXQ 2,A8, "SUCCESS" 'ȡAɹ־ԪֵʼΪ0 ~ rFQGnah? ,u,,,,,?y,;Protect Password:=`"1qaz 2).:3 Sub '-g!2һT  ;(2;Dim myDic As Obj",KeyVarianrCB4`, varu|rnaCActive.Range("A65535").P(xlUp).q '*Set idz = C reS ("Scripting.tionaryN"Ge" = "hO8"08Od@ ).valu8%d aEach cara In 'Ա໤ggqMA^J V<> ""> PRe .EXxis@) 'qReԎ1Add, Q 'add#һ@Ϊkey*7SsSmy"=C$. srWithj 4"!2W!G:G!ClearContentc 0 &1Resize(+q0)&@pplica1!.Fun@(on.Transposa #1 'c0= `hP& !: Z[~xME(6 <<< `X Id xIN IP `R ``( Ih @ ` Ih @ x`H  Ih @ +` izif`|H`$H```  `  Ih @ `x  Ih @ @`  Ih @ `  Ih @  `( Ih HI @  ` Ih @  `h Ih @ 0 ` Ih @  ` Ih @ h ` Ih @ @  ` I4  I  D `X  I4 x I  0 `  I4  I   ` Ih  I  ` ` Ih @ I   ` Ih  I   `P &&Ih p I   `  Ih @ `x  Ih  (`  Ih @ `  Ih @ H`  Ih @ P` ""I IN If ` ` `R````@ ` @ ` @ ` @ ` Ih ```@ h `  P` 0 @ 0 ( H  v% P,(Z$*\Rffff*0=5af9dd97  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! "! ! ! ! !""0"8"@" H">`" "4" " ## ## # # #B ###$$ $($0$8$ @$ $ $B %% % (%0%8% @% % %B && &8&H&P&X&`&h& p& ' ('B @'H'P'h'x''''' ' 8( X(B p(x(((((((( ( ) )B ) &) $) * 8*&H**p*"*$**(+8+X+x++++ + 2+,"8,`,,  ,,,8,-- -B ------x. ........../-----------------------------------------1 ,дϢʾ Ϣsheet--------------------------------------- ʱ0 Ϊʱ1 Ԫ] N P d$D%V'R R'd'ki-----------------------------------------2 Уѧ ҪΪ-------------------------------------------------------------ʽȷfalseʽȷtrue h$8'zk]H^[\u4e00-\ue863]{1,20}$'  h$'d'ki|-----------------------------------------3 УڸʽΪ2012-05-09(Ϊ)---------------------------------------` h$8'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]))))$"chec;^(19|20)\d{2}-(1[0-2]|0?[1-9])-(0?[1-9]|[1-2][0-9]|3[0-1])$'  h$'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]))))$'  h$'xd'xkih-----------------------------------------4 У֤---------------------------------------PϹ򷵻trueϹ򷵻false======]790584216379058420Ȩ====] 10X9876543200У z$8$~'z'ȥո]H`x f  z6)׶֤Ϊ,ΪͨУ'zk zGzj z$$GzjN P z*[0-9X]GzjX== ====== | $' G 'j  z $  'eKTh  'h z$ $  $G'j iz-----------------------------------------У֤ -------------------------------------------------------------ʽȷfalseA@ʽȷtrue==]"^[\u4e00-\ue863a-z|A-Z|0-9]{1,30}$'ǷΪ  h$'d'ki----------------------------------------5 -УѧУѧУʶ 42λһλΪֻx-------------------------------------------------------------ʽȷfalseʱʽȷtrueX ]^[1-9]\d{40}[\dx]$'PA@  h$'d'kiz----------------------------------------6 -У黧 -------------------------------------------------------------ʽȷfalse checʽȷtrue](.^(\u519c\u6751)|(\u53bf\u9547)|(\u57ce\u5e02)$'  h$'d'kpihu-----------------------------------------7 Уѧʱ-------------------------------------------------------------===1ʽȷfalseǷΪʽȷtrue==@]'^(((19)|(20))\d{2})((0[0-9])|(1[0-2]))$'  h$'dP'k@i8q-----------------------------------------7 У-------------------------------------------------------------ʽȷfalseʽȷtrueP h ,ΪDZ'k@z8k0]h^((19\d{2})|(2\d{3}))$'  h$'d'kiq-----------------------------------------7 У·-------------------------------------------------------------ʽȷfalse h ʽȷtrue]^((0[0-9])|(1[0-2]))$'  h$'dP'k@i8v-----------------------------------------9 Уѧ-------------------------------------------------------------ʽȷfalseʽȷtrue]^\d{4}[0-7]\d{3}[0-3]\d{7}$'  h$'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'  h$'d 'k i v-----------------------------------------11 Уп-------------------------------------------------------------ʽȷfalseʽȷtrue0]^[1-9]\d{14,20}$'  h$'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)$'  h$ h-$'$$ 'd 'k d 'k i -----------------------------------------checkOption У鱸ע磨Сvalue2-------------------------------------------------------------ȲС200false 򷵻trueh 4'z k 4  'd 'k i ------------------------------------------------------ȽϴС(Сڵڷtrue)----------------------------------------------------------------'value1value2false 򷵻true 4X'4 X' 4  'Dd'Dki------------------------------------------------------ȽϴС(Сڵڷtrue)-dec---------------------------------------------------------------'value1value2false 򷵻true 4$4'4 $4' 4  'dp'k`iX}------------------------------------------------------У鳤---------------------------------------------------------------0 ,$'' h$/ΪDZ'k`zXkP ,-±0ʼֵΪָάõ± h$$4 h$$4'zkd ˵У̶ h$$4'zhk`kXiP}------------------------------------------------------У--------------------------------------------------------------- ,$'' h$/ΪDZ'kXzPkH h$& Ϊz  h.e+Сz h$4e% С0zk ,-±0ʼֵΪָάõ± h$$4 h$$4'z(k d ˵У̶ h$$4'zkki------------------------------------------------------УֵΧ---------------------------------------------------------------` ,$'' h'zk h$) Ϊz h$4e) С0zk h$4$$4 h$4$$4'z0k(i ------------------------------------------------------Уֳ(Number,ΪҲΪСС0)--------------------------------------------------------------- ,$'' h$/ΪDZ'kz k h$% Ϊz h$4e% С0z k $'+󳤶$'.Сλ h.''' "˵ûС h$4' $$4'zkd С h h. $'DԪֵλ h h. $' $$4 $$4'zkki-----------------------------------------checkIsInt У鲻С0-------------------------------------------------------------ʽȷfalseʽȷtrue ] ^0|[1-9]\d*$'  h$'d'ki-----------------------------------------checkIsNumber УΪNumber-------------------------------------------------------------ʽȷfalseʽȷtrue ' h$'ki-----------------------------------------checkMoney У0-9999-------------------------------------------------------------ʽȷfalseʽȷtrue]^(([1-9](\d{0,3})|0)|0)$'  h$'d'ki-----------------------------------------checkMoneyTJ У0-9999Сһλ-------------------------------------------------------------ʽȷfalseʽȷtrue(]^([1-9]\d{0,7})$'  h$'dx'khi`-----------------------------------------checkPersonNum У׶԰һ------------------------------------------------------------ʽȷfalseʽȷtrue]0^(([1-9]\d{0,3}))$'  h$'d@'k0i(-----------------------------------------checkIdNumLink У֤ԱͳûдǷһ------------------------------------------------------------ʽȷfalseʽȷtrueH If colIndex = jhrIDColumn Then checkIdNumLink = True Exit Function End If]%Ա֤ǷӦ]$ں֤ǷӦ]0ڵһγֵ±]H"Ա,Ԫ֮ڵ]`$ݺŽȡ]x!,Ԫ֮ڵ]"ݺŽȡ]#]%·] ]8 $' $'  (ڶλΪΪ N r \$\,VdڶλΪżΪŮŮ N r \$\,Vkx $' $' $' -  -  N t \$\,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$' h  'zHk@  h$'d 'kiAttribute 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[1[eCO%a)|((&-2]|e&-a#| '|@'-`'e)eAУd{]f(f fNecessar+gYD,(0_"o%3_";1V" >@7Pue|ez?k|=  q/q4FrR֤Ϲao#n'Iph IsIDNum@ber(ByP lj, )BooleaąConst W'!P790584P2163"r'Ȩ sc10X98765432Ce'qd' = UCase(_ )) 'ȥո-sInteger, iTv= babyIDC Aq>4  e:,Ϊͨ1  @,w%h y  Len( <> 418"N q3Not eric(Mid, 1 ~7P!b75L@ike "*kX]_ For= 1 To l17CTqW0 ]11sps( + ; i! * TNexts Mod 1Right)c, T#E3 S_: -- "@1QwSFZJLXj` "ܩa-z|A-Z|^`3o@WocqXkC P/X,XO/53 ѧ00ʶ 42λһpʻx?ckSchCodeO.A040}[\dx]ϐkOO_Ac er End If pFunction ' -$6 -黧p %x'|ʽfalsetru checkFamType(v alue)Di`m reg  = "^(\u519c\u6751)|3bf\ u95477cee02)$"iIf#C3( %, 4 The E7TTvEcFr-7 ѧʱsRXDatb((19]20))\d{2})((0[0-9]12])5a `F `Z`ݿ_Yea"r, fDArgsArrDW#""LXeT`0 'ΪDZdraaŏiaExit j{s G{II|(23}G, 0xG@$dGGz `Montht*D-?-["9Ja ׺8--XJH-Y4}7]BZ 3!7})Q[.#_10i绰O_-ckPho`neNum?l\bi(([38h4[57Ai55jk8}0B0p2[\dj-D[2\d*[3mg)\boNo2q*I Ap_11п2O`0Bank=[1c14,20_2Т_^4ooXn@I磨2012-@3_pXn_Uxy scɆ20J2}p r9019t9900o_L2 Split , x"-"4q30R( 1) - 0)01= ۊholkp= "" OpQ##СR2_#P#200ayٷVck 122 1@4h ELe-@">c2!VL ?#Q5  qg`OȽϴЄ(true)-< 'value 12false  Function compaHre(9, 7)  = CInt& 2 2IfQ1 >Z Then^fۄC$FWE^Tnd Ifx EqȽϴС(СڵA)-decDec!l l9llC m_У0>hhe ckLen], fDArgsVArrESplit(, ","= c(Eg ""Gf`(0)0 'DZho(2Esaiajxit5Dp`UBound #2±0ʼֵΪָά F4) > Mm(1)) A H(y E3'. '˵\̶\s! H!? * F<{#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'oJ1Pֵ|Χ}PV|alPonq0KPP'=A`#JeJJoQ2E KE/# )L?@3@0tB/2Ey_ 5?q)s/(fber, ΪҲóaa1P111= Split(functionArgs, ", ") checkNum =@ FalsedIf value2"" Then6zF Arr(0 )`0^ 'ΪDZp?GT rudEnd IfCa! (, l= _C 3s.?.e% b$er.Ϊ8*_.0s.#. J@-R٧'((@G{+?/ @Money @0-9E_+r_ck ++((+(\d{0,`3})|0!_,k_,H_,6}_,o_TJ=#tһTJDD7})??+`j__p0_--Personp6׶԰һ˿ooo`v oO101ckߗ] IdLink֤Աͳûдһ?ooo` (, rowIndex, col;'`f@]jhrIDColumn'`' F`!voisGe rRight As Boolean 'C EϡӦ Birth/+lenM@2eg|'qһγֵ±z[gb ` ingS ,t@ݟer1J Žȡom bqe?Va" 1Ayear , Q@²s Variant '@ Dim month",1 A ^day,  V arr genderValue1 = Mid(IdNum, 17)) birlth2181.If eMod 2k1 Then 'λΪΪ0"Sh@eets(sI]xC).Cel@ls(row ,9Column)!6""'El$se<ż<Ů <Ů ~B*@ Fas&Exit~ D>AFh` $CaK(, #38@ CPb irGa *\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#F:\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{E5A1055D-BE2B-441A-8D43-B288A760621A}#2.0#0#C:\Users\s^\AppData\Local\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M Z  ThisWorkbook015af9dd84'ThisWorkbookzLG Sheet1025af9dd84= Sheet1H3 Sheet6035af9dd84? Sheet603SbpSȉ045af9dd84@SbpSȉH]wQQpe0<5af9dd97J]wQQpe`~Xf065af9dd84VXf&x!hQpe0=5af9dd97v!hQpe~[;N z^085af9dd84;N z^U{$ShowForm095af9dd84ShowFormng Sheet50:5af9dd84 Sheet5h3PrintForm0;5af9dd84!PrintFormʘ0H`2Kh19{߻aO)KbKFfL,q4cDMlǟ"925Lm4cH~ʪBLlUP_}GS^)xP NJ}ʞsJ1 HeׯNkpHyIRe"m7NV h XV!compareExcel+`VBA`Win16~`Win32`Win64x`Mac`VBA6#`VBA7#` VBAProject`stdole``Officeu`MSFormsC` ThisWorkbook|` _Evaluate`Workbook_BeforeSave l`SaveAsUI`Cancel` isSaveButtoná`MsgBoxR`ChrK~` vbOKCancelx?`vbOK%`У򲢴ӡϢ`Sheet1`Sheet6`ӡԤX` Browse_Prints` Worksheets`Visible` PrintPreview`ߺ`checkedRequiredStartR`rowIndex6d` columnIndexP` cellValue@` ActiveSheet%N`Cells`writeLog{u`contentl`Sheets ` msgSheetName'` curMsgRow/`getCellValueCountXQc` sheetIndex `colIndex`valueK` writeLogRedm`nLene,` Charactersrg`FontU` ColorIndex`addCommentXQStartS` errorInfo` AddComment`Interior;`Color2F`CommentHs`clearCommentsXQStart7` ClearCommentsf`sheet2RecordNum`ffTotalNumColumn`xlNone`beginCheck_comment;D` checkMethodHd`errorMsg'|`removeSpaceFlag` cellContent`callFunctionXQStart `typeVal#`isValidateCount8`titleMsgh` startTitlel` headIndex` functionArgs8M` checkMethodXQ` checkRequiredb`hasErrorf`isFord` removeSpaceXQ` checkStuNamec`checkLeng`functionArgsArr`Split)`checkNumh`checkValK`checkInt`resZjlx0` IsIDNumber-*` checkSFZJLX*`checkDMB` setDMBCoded` checkBankUw` checkYear6`checkXn` checkMonth` checkBirthday`checkNowNecessary` checkPhoneNum` checkOption,` hasErrorIdNum`atLeaOneNNullCount` checkMoneyi` totalMoney%`baojiaoMoneyColumns`baojiaoMoneySumk`huoshiMoneyColumn_`huoshiMoneySumr`zhusuMoneyColumn_` zhusuMoneySum>-`othersMoneyColumnߥ`othersMoneySumH`atLeaOneNullCount` atLeaError~` regCheckFuncE`reg`regEX*` CreateObject`Patterni` IgnoreCase0`Test4`setCellValueCountXQ]` Unprotect?`Password`checkTheSameXQNew` sheetIndex2n`rnaO`Range `xlUp`row` ClearContents{`i``babyID1` babyIDColumn`ja`babyID2` hasTheSame`GetRowOrColIndexf`keyWordF`kbn1`cZ`Findn`WhatC`LookInP`xlValueso`LookAtO`xlWhole`Columni`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܏`val`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` "$'w =?A ! W K"xxME(6 <<<P L`X IN xIP `R X(` iZ b` Id IN If  jX`8  iZ t0` Id IN IP Iv  `  Id IN IP  `@ Id `I IN IP I  `8 I XId xIN IP I  `0  I PIh ` ` ` Id IN  If @Ih   ` I + `0 Id PI  pi"`$ x ` Ih  I4 @ I6 @: B ` Id  I>  H `h Id  I>  J ` Id  IN @ If ` Ih   ` Ih  Id  IN 8 If @: @L @R ` Id  IN 8 If `4`P`R (Xx  `0 J@%  Z$*\Rffff*0<5af9dd97y B       B  B h p B ( 0@2` p  B 8 8@ $x 8 " pB x 8  $ $  HP xXB 4(0*X$ 8BP0h!  ( 0 8 @  B   4 $H  "p   "   .  0 0@ p  *   .  8 .H  x  0   6  0@6X 8 6 P`(x 2 (0  f8  >&8 ` Xp h `*x j&P x ` (8P X Hp(x H0(x H(p` H(  &   n    8( 8(  &   b   &x   f P p  8( 8( p &x  f H (`   T  &  !(!0! $H! &p!$X!$&!$ "$(" 8"@" H" X"$t`"$&"$ # # $# # (#H# ^P# #"##@#&8$ `$p$ x$$$$ b$ 0%@%`% th% &% & & &@& bH& & &&&'&' ' '''' ^' X( x(((X(&) 0) @)H)h) ^p) ) )**X*&p* * *** ^* 8+ X+p++T+&+ , , ,(,H, nP, , ,,"-0-&- - --. . j(. . .."./&/ //0 0 n(0 0 00"01&1 1 112 P2X2p222&3 @3 P3X3`33 R3334X4&p4 4 4444 b4 H5$`55@5&5 56$686@6`6!h6 Zp6 6 67@7&P7 x77 7777 b7 H8 `88@8&8 8 9 9(909P9 ^X9 9&9 9@:&@: h:x:&:::: |: X;$p;;(;@;&< 0< @<"H<p<x<< |<  = 8=X=@`=&= == =>>(> |0> >$>>@>&8? `?p?$x???? d? 8@ P@@p@&@ @@2@(A x0A A6A.B0B@B( HB2XB( hB1xB( B2B( B1BBBJB8CPCXC`ChC fpCB C C<C(D HD`D$D$DDD DB pExE EE E \hF B F,F 0G@HG"G ^G 6HHH`HHH0HDH8IXI`IhIpIxI I " J HJ .hJB J J$JBJ K 0K @K PK XK hKpKxK K L 0L HL hLB L"L LLL LLL L8MHM2PMM M MM MM MM FN`NhN pN xN *NN N `O xOB OO*O 4O P (P P PB P*Q0Q 8QB QQ QR RB R R "R S80S2hSS SS SS S TT"0T0XT T(TTT&TU U U (UB UUVU8V 8XV V V:V4W$8W`W"xWWWWW-----------------------------------------УУдϢʾ ע----------------------------------------------------------- Ԫ] N P T%V'R R'Ld('Lki--------------------------------------------д־ ¼ϢʾһϢ-------------------------------------------- Z ` ^$\,V ` '`iX------------------------------------------------------ ȡָcellֵ-------------------------------------------------------------( N f d$D%V!h'bi--------------------------------------------д־ ¼ϢúɫʾϢ-------------------------------------------- Z'l Z ` ^$\,V l ` ^$\%V%n!p(r ` '`ii--------------------------------------------עʼУ飩-------------------------------------errorInfoעX 1Worksheets(sheetIndex).Unprotect Password:="1qaz" v N P d$D%VB@x N P d$D%V!z(|W ӻɫ N P d$D%V!~(Fii--------------------------------------------ɾעʼУ飩-------------------------------------01Worksheets(sheetIndex).Unprotect Password:="1qaz" N P d$D%VB@ N  P  N P d$D%V!z(rd  N P d$D%V!z(rkpihr---------------------------------------------ʼУ Ƿӻɾעõķ----------------------------  Уʧ N P d$D%V!~d жעΪ d N P A@tV עd"Ϊգȥǰע d N PA@N ע d N P A@tk1 MsgBox "" & rowIndex & "" & errorMsgd :УɹжǷעУʧʱעȥ d N PA@ ,#ȥո,ʾ NУ PУַ"$4 "$4"а˿ոϵͳԶΪA@Xd`kXkPiH----------------------------------------------------------------------------------------------------------------------------------y--------------------------------------------ݱʶöӦķ(ʼУ)-----------------------------------------------------------------------------------------------------------------------------------------------------------------------ѴϢдб N P d$D%V'h  P d$D%V'Iȡбͷ Ϊϲеıͷ  P d$D%V' N e  P d$D%V'k0'  checkLen*)ΪУ  $'checkLen'  checkNum*e-ΪNumberУ  $'checkNum'  checkVal*e-ΪֵУ  $'checkVal'  checkInt*e-ΪֵУ  $'checkInt'  checkTerm1e-"ǡ"Ϊ1' checkTerm'  checkYesNo1e/"ǡ"Ϊ1' checkYesNo' checkDiffName1e2ѼΪR1' checkDiffName' checkDiffCode1e2ѼΪ1' checkDiffCode' checkIDCardType1e4֤Ϊ1'checkIDCardType' checkSqyyName1e2ԭΪ1' checkSqyyName'  checkYear1e. У1' checkYear'  checkZXJHe-רƻΪ1' checkZXJH'kP _=================================1 ִеķǿУ==========================================ѴϢдб checkNullKT d N P$'  N е Ϊգ'')УʱдϢ A@XRMsgBox "" & rgold.Row & "е" & Chr(10) & titleMsg & "Ϊգ"k0 d  N P A@'a=================================2 ִѧУ========================================== checkNameKT d N PA@@ȥոķ N P d$D%V!h'h h$'  N е ;дȷΪ֣ȴ1ܳ20ַ''%УʱдϢ A@X  'k` d  N P A@'Z================================= ִеijУ==========================================checkLenKT h $'  ,$'$ ` ΪDZΪ̶ȹ N е .дȷΪաд򳤶ȱΪ$ λ'$ ed ΪDZΪȷΧ N е 4дȷΪաд򳤶ȱڵ$ λҲ$ λ'$ ed ΪDZΪ̶ȹ N е &дȷΪգҳȱΪ$ λ'$ ed ΪDZΪȷΧ N е ,дȷΪգҳȱڵ$ λҲ$ λ'kH '0УʱдϢ A@Xk d  N P A@'h================================= ִеijУ飨Numberͣ==========================================checkNumKT h $'  ,$'$@ ΪDZΪ̶ȹ N е GдȷΪգдΪ֣0λȲ$λСλ$ λ'$eD ΪDZΪ̶ȹ N е ?дȷΪգұΪ֣0λȲ$λСλ$ λ'kH'0УʱдϢ A@Xk d  N P A@'[=================================ִֵΧУ==========================================ѴϢдбcheckValKT h $'  ,$' N е $дȷΪ֣ڵ$ Ҳ$''-УʱдϢ A@Xk@ d  N P A@'_=================================ִеΪֵУ==========================================ѴϢдбcheckIntKT h $'  ,$'$@ ΪDZΪ̶ȹ N е 8дȷΪգдΪڵ$ҳȲ$ λ'$eD ΪDZΪ̶ȹ N е 0дȷΪգұΪڵ$ҳȲ$ λ'k'0УʱдϢ A@XkH d  N P A@'`================================= ִе֤У========================================== checkSfzjhKT d N$b'S ȡд  N е &дȷ֤Ϊգ''0УʱдϢ A@Xd  ֤ h P$'O ֤У :֤У N е *дȷΪѧ֤ţ''4УʱдϢ A@X  'kd h$'  N е EдȷΪգҳȱڵ1λҲ18λ''4УʱдϢ A@Xk"k"k" d  N P A@'X================================= ִ֤У================================== checkZjlxKT checkZjlx h1$'  N е дȷ''(УʱдϢ A@Xd! checkZjlx d N PA@k`! d  N P A@'\================================= ִѧŵУ==========================================checkXJHKT h1, 1, 50$'  N е EдȷΪգҳȱڵ1λҲ50λ''0УʱдϢ A@Xk d  N P A@'[=================================ִпУ==========================================ѴϢдб checkBankKT h$'  N е $дȷΪ֣ڵ$ Ҳ$''-УʱдϢ A@Xk0 d  N P A@'W=================================ִУ==========================================ѴϢдб checkYearKT h $'  N е *дȷʽ20122002ȣ''-УʱдϢ A@Xk d  N P A@'W=================================ִѧУ==========================================ѴϢдбcheckXnKT h$'  N е )дȷʽ2012-2013ȣ''-УʱдϢ A@XkP d  N P A@'W=================================ִ·У==========================================ѴϢдб checkMonthKT h$'  N е &дȷʽ0112ȣ''-УʱдϢ A@Xk d  N P A@'g=================================3 ִеУ(DZ)==========================================ѴϢдб checkDateKT h$' 2Уʧ N е дȷдʽΪ"$4xxxxxxxx"$4 20130221''-УʱдϢ A@Xk d  N P A@'c=================================ִеУ飨==========================================ѴϢдбcheckDateNecessaryKT& h$' 2Уʧ N е дȷдʽΪ"$4xxxxxxxx"$4= 20131221ֻõ֮ǰʱ䣨գ''-УʱдϢ A@Xk d  N P A@'g=================================ִеijУ飨==========================================ѴϢдб checkBirthdayKT! h$' 2Уʧ N е дȷдʽΪ"$4 xxxx-xx-xx"$4 2013-12-21''-УʱдϢ A@Xk  d  N P A@'J=================================10 У绰====================== checkPhoneKT h$'  N е дȷдʽΪ"$4-̶绰 ֻ"$4 ''%УʱдϢ A@Xk d  N P A@'L=================================checkOption У鱸ע ====================== checkOptionKT hB$'  N е )дȷȲܳ200ַ''%УʱдϢ A@XkH d  N P A@'\================================= ִ϶ѼУ================================== checkDiffNameKT checkDiffName h $'  N е дȷ''(УʱдϢ A@Xd checkDiffName d N PA@k d  N P A@''T================================= ִн׼У================================== checkZZBZKT checkZZBZ h $'  N е дȷ''(УʱдϢ A@Xdp checkZZBZ d N PA@kH d  N P A@'\================================= ִרƻУ================================== checkZXJHKT checkZXJH h $'  N е дȷ''(УʱдϢ A@Xd checkZXJH d N PA@k d  N P A@'X================================= ִ֤У==================================checkIDCardTypeKTcheckIDCardType h $'  N е дȷ''(УʱдϢ A@Xd checkIDCardType d N PA@kP d  N P A@'v=================================14 checkGender ִǷΪСŮУ--================================== checkGenderKT checkGender h0$' '-ԱдУ֤Ź N е дȷ''(УʱдϢ A@Xd checkGender d N PA@k d  N P A@'u=================================14 checkYesNo ִǷΪǡУ--================================== checkYesNoKT checkYesNo h $'  N е дȷ''(УʱдϢ A@Xd  checkYesNo d N PA@k d  N P A@'u=================================14 checkYesNo ִǷΪǡУ--================================== checkSqyyNameKT checkSqyyName h $'  N е дȷ''(УʱдϢ A@Xd checkSqyyName d N PA@kX d  N P A@']=================================checkTerm ִѧУ--================================== checkTermKT checkTerm h $ N е дȷ''(УʱдϢ A@Xk d checkTerm h $ N P A@'r=================================checkAtLeastOneNNull ִһΪǿ--==================================checkAtLeastOneNNullKT  'A"ִ һǿУ ĵԪĿ h$ h=Ϲ  h ' P KTF  h ' KTF  h ' KTF  h ' KTF  h 'n0dϹ  'F6ִ һǿУ ĵԪΪϹĿ    'k'ni_--------------------------------------------ʽ-------------------------------------]pVBSCRIPT.REGEXP$.7RegExΪʽ (4 ȫֿvba\ת  (.ʽ (5ǷִСд h %'3 ִ.i ------------------------------------------------------ ָcellֵ-------------------------------------------------------------1qaz d$DB@ h N f d$D%V(hi@-----------------------------------------------------------° Уظ˵Ѿûиʽ------------------------------------------------------------V-----------------------------------------------------------1ѧ׶ڱڲ`(sheetѧ׶ A65535 $\% %!'*cna = getTotalColumnCount(sheetIndexValue) ^$\!VB@1&ÿУظʱʱѴϢsheet,'`Ϣ¼ʼX==============================ѧ׶ڱڲ==================================0ðÿԪغ֮ǰнбȽ      $\%V'      $\%V'  .ѧͬ˵ظݹ  еݺ͵ ظ!!!!' A@X*ѴϢ'kBBBiB-----------------------------------------------------------һ ֵȡֵ------------------------------------------------------------ֵҵֵڵлkeyWord ҵĹؼ'kbn л ֵΪ rowrow']the find result object ( ,* 0. A1:A65535 d$D% %&.$ $ "row $!'d@ $!2'k@k@i@------------------------------------------------------ ִڹУ(Ϊ)-------------------------------------------------------------value value1 cellУ鲻ȷfalseУȷtrue 60˵ΪDZ 4$8'z(?k ?k?]` '<ijһļ¼ A65535 @$\% %!'>B' @ hrow$':=ȡ  : >  @$\%V h < '<d(>y >k>   : : <   @$\%VX 4X LжϹǷcell'y=k= #ʱcountĿΪùеĿi@=------------------------------------------------------ ִɾijһвexcelܱģ-------------------------------------------------------------sheetIndex rowNum кx 1qaz d$DB@ > d$D%DB@F/ Ѹɾ- Worksheets(sheetIndex).Protect Password:=123i;------------------------------------------------------ ִɾijһвexcelûб-------------------------------------------------------------sheetIndex rowNum к > d$D%DB@F/ Ѹɾi:------------------------------------------------------ ָcellֵ------------------------------------------------------------- 1qaz d$DB@ h N f d$D%V(hi9------------------------------------------------------ ݴеֵǰʱѾͨУ飩------------------------------------------------------------- ]X p  N f d$\%V!hX 'R'<ijһļ¼ A65535 @$\% %!'>F @ hrow$':Aȡ  : >  @$\%V h < '<d8y8k8   : : <   @$\%V!hX '4 4 RX 1жϹǷcell  @$\%V!h'L LX N f N d$\%V(hy(7d 7 N f N d$\%V(hk6 i6------------------------------------------------------ ȥcellеĿո------------------------------------------------------------- ]X Ԫ]p  3Blength1ʾcellԭijȣlength2ʾִȥոַ'ĬΪûȥո2 Worksheets(sheetIndex).Unprotect Password:="1qaz" N f d$D%V!h'4 4'P PGzj*"ԪΪգȥո 4 'R%length2Ϊոһγֵλ Rַո 4 $T'4 4X N f d$D%V(h'kP4iH4@4Attribute 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 ȡ AֵLJpHDgetBCountXQ(sADʴ A?WorksHEQy.vA`%2GúɫCG3 GRedVHnLen EKzKRcR.Characters(1, ).F].Color73?VJxx&!ʼs+#` errafoåaddCommwXQCVUů,  0™'TUnprotect Password:="1qa>z e\N.A ( I0rior#=<65 535 '1ɫ>% d/.Visi1 6K YesNo -k2 ? DiffNameѼa?%D~ CodslA! 'HBIDC0ardTpM֤ xo(/  kSqyyԭ _ _ "] e? ? kYearZ?MA_ _ ]   kZXJHiCר ƻ#  .uSelect Case ;К=)1 ִqǿ? D }NullUxMethodXQ7RequiredX_bo~P Not јverror"" &6"! F& "Ϊգ/ahasE`Tr'qʱ% fwriteLog E ' Box 5 gol d.RowO & Chr(10){ T)b eginC_commentJ,?isFor.o+.2.ѧ/_Ky-rO removeSpxacep-ʟ 'qȥA\)./k2=c3Stu!b(2/6/6;/6V555дȷ~@֣@1820!*_8_8 writeLog error`Msg DisValidateCount =" "+ 1vEnd If.beginCheck_ commeQsheetIndex, cMethodXQ, rowolumn AisForTrue '= ִеijУlCase "^Len"{oS(value, functionArgs)#@If Not pThenE IArJSplit(, ","#!(0)@50 AUBd 1* 'ΪDZΪ|d3"@"`" &Ǝ"xtitleд ȷ"Ϊա"ΪA<1)λ`+EhlseuO2]OA+ȶΧOex!'''ڵӢ3v(Ҳг1-2?-%,q?-= 1T`jT?-TTTĚT &S "SeS&SSfԿ{F{&R`'R?,IiahasE!@ 'aʱдϢPOO O7 ~ ~~ c~߉/_|,Numberͣ{`  7baXWp%]/lS~'Sš/j& /@/j3~}֣@0޻Uhᙰ(AСk_XsQ2??? //?=YV0WWK WWWW < WW WWWSֵMethodXQ:",visF '= ִѧŵďqCasxXJH~J9Len(value@, "1, 50")SQIf Not Then E"" &Fw"titleд@Ϊҳڀ1λ50@E(?E%Ɉ P?\ \Xa\пN\i@h%aбk$_Bank_ U=WA^?]?]#g\\\ZΪ`֣[!cfunctionArgsArr(0)ad^q1c_a`#"`'_`  __ck_^O^]]]Year]+E^#/o^XQ o^/|!*/^/^%^ʽ20122002ύ+ +oy+[++, ȐE +*#+ZZyn+{VZXĉ*F****ψQ,͈*-*3*****[******or*'*OV_***Month**˲_)**,*****011OU*****[*******o'3޵U(DZ>)++ Case "checkDate" '  MethodXQ = Birthday(value)zIf NothThen 'ЀʧHerrorMsg"" & rowIndex "еʀ title-& "д ȷʽΪChr(34) x 20130221@"UhasEVUTrue 's'д@Ϣ$writeLog ~End IfbeginC_comment sheetV,Ko,\olu mnD 'isFoBrB '=rŅ:u@!Wд >Nece ssary/NowF??d? gb1bֻõ@֮ǰq䣨aggg# gcccc^cd+d"dEcb ߟŧ Ő-xx@-12-^^c ^5s`/1bbU /1I,lU /1,10 u绰-Pho"0" &"е titleˁ дȷ`T9h8asEtAm 'VʱдϢ*writeLog" Elsset@XCodg, R%End ¿dרD}XJH?\XQ?-\!?\!Hc?\g$?\?\?\ ?\?\ ?\Q_Bi_/ _F_b___֤^ -IDCardType___`. ?c'$cc1n1__l1χ!__*_0w"`6ϐϐϐP?ϐϐSۍ_014pbXGe rǷΪС@Ů2---8231Pz |=珴1"0"/6DU)IdNumVԱ𑈣`C>4ET?& ??z44444$6b6F55?fG55556505YesNo55555"5 2>g@_6_6t11Ŋ111* //y/e///G/////6e&*=14 checkYesNo0ִǷΪǡУ-- ( @Case "SqyyName" !*#Metho dXQ =DMB( =, value, functionArgs)SIf NotJ-ThenEerrorMsg@"" & rowIndex"е@ title& "дȷ t3hasE43True 'ʱдϢUwriteLog ZElse"set@YCodi, sheet?,A, colu mnnd IfbeginC_commen.tJJ,;isForV 'aTermf~I  _V_V _Vc E?H7H*`KJK\?L"LAtLeastOneNNull M ǿ՟==okk 4PaAC$oup= + 1 ' !c ĵԪĿ B\Moneyb() A ;B <> 0"[ ' Ϲ total7 |+#ÛSelect B&%"baojiajoC¡:1 Sum-, huoshi_ H   zhusu G  others H  ?Oc*?%| '23 =pG_>6>>>¡@KE+ + " Jb`XuvF-`ʽo-  regb(}DimaEX As ObjISet= Create("VBSCRIPT.REGEXP")q'RegExΪG EX.GlobalpFB}'ȫ@ֿ''vba\@תPattern Rʽ@IgnoreB8= FaЪqִСд3pTestgGB.ˀ`hing #o cellH&5C@Vт=XQ(OexBIQo(PWork2s).UnprotrPassword:="1qazh:p).! s(u).=zO--° Jظ˵ѾPû ԣC1ѧ׶ڱ оSameXQNew(2) 'rw/na@/Si2).Range("ܶA65535").End(xlUp).row  'cna = getTotalColumnCount(sheetIndexValue)hS2 s(msgName).Cells.ClearContents 'ÿУظʱѴ Ϣ_,YcurM sgRow1 '*¼@ʼ,'=ѧ׶ȀڱڲCF'ðÿԪغ֮ǰнȽFor iastartTitle + 2 To rnababyID.12(i|, Dž":j:i - 152jAIf(1Then 'cͬ˵&erro@'"" & j"еti!"writePLog F'ʈhas6S@&True  IfNextGC Function '-7һ ֵȡֵ 7C  лkeyWord ĹؐbnBCa ֵΪ Ǣ Get%O lI!(By b, #$ As String) @I@ger- 7-b Dim cObject 'the find result oG7Set=  kbs).Range("A1:ưF (What:=FLookI n:=xls, !A@xlWhLolIlNoIs h algEDqk != "*"7!cáEls[r+M`]U ִBa(ΪN)|Vva ! 1 cܵ'Aȷfa% et[chec kDMB( , 1, flagOD@<`S"0c7 'ΪDZ=Trim# 1)U>0_Kxit w!?5A3P&Datm҃0 ' һ1č1|{Num0nArea=3ϋ 'І( ~F ` *(,2) 'R?EJ}|owP  |2mO9 s+{_8EoMM1e i wa +4ށ C@T( `3)& ,)r ' aq2Ƿq3a 5)(Rj'ʱcĿΪ;Q| ._w_B-!bHɾ.exܱģoG1 14к 5 deletesyh, Ej2U nprotaoPassw`|:="1xqaz$obsR(.D p!'rA}).P123__Uûq_o__fnWNo mPow?7o,  s:ֵ8)set3XQ, coY>'**o'c'A+).Y=cy()rqր ǰ A1ѾͨA)n setDMBCode(value, sheetIndex, row$col$) DimBData, cVcellV& = CStHr(Ss(m).C7s(s.AzCountI0 'ijһļ0¼uJNum'lArea pRange("A65535").End(xlUp). ' 'u'GetRowOrC(,D, X, "#") 'ȡQRFor i).To[1If bi, 1)#< ThE$ex""#lGj Fu nctioW'-0 ȥ#9Ŀո8  removeSpaceXQܤ$QAs @ing 'ԪP$len gth1 Integer, c2h '#ԭȣ0ִ"!ַJFaΪûF' WorkbC Unprotect Password:="1qazhAstc|#~d Lten1`'0CaM '1Ϊգ@%( 2 In # 2һֵλ Çf2 <> 3A5'q&ReplQ"+~~Xo0TryN>=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(NANIRoot Entry$0m5PWorkbook*bCompObj'h_VBA_PROJECT_CUR"&PrintFormf&CompObjaoVBFrameVBA __SRP_0 2 Xf;v__SRP_1 __SRP_4;N z^I6__SRP_5/`__SRP_2QPrintFormb__SRP_3 uShowFormThisWorkbook%!hQpe e.r_VBA_PROJECTdir HSbpSȉ ]wQQpe Sheet1Sheet5Sheet6 PROJECT PROJECTwm,ShowForm!f0&CompObj"#1ao VBFrame3OlePres000 8@DocumentSummaryInformation88(SummaryInformation(%=Ole A FMicrosoft Excel 2003 Biff8Excel.Sheet.89q }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 rU@@rowIndex columnIndexcontent sheetIndexcolIndex errorInfo checkMethoderrorMsgtypeValisValidateCountregvalue sheetIndex2keyWordkbnvalue1flagrowNumIDNumberfunctionArgsArrvalue2 functionArgsIdNumtrU@@@~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$rU@@@X` 1OOO@`O@1`O@`OP1 `a@ `O@1 `O@`O@1`OP `OO@A `O@ `O@1 `O@ `O@1`OP`!OOPA!`!OOP"`!OOPA%`OOP&`OOPA)`OOP*`OO@A-`O@.`O@11`O@2`O@15`OX6` AaOOO@Q9`ObrU@@@~x a$h  "a &o "a  *~  &o  .  . $h   *~  "a  0  &o  $h $h  *~ !*~ $ &oVVL]ʘxME(S<S<S<S<0{CA7C9DC0-65B4-41EC-BC58-9FABF0AA0738}{789FA4CC-511E-41CB-91F4-BF0BF3E8FA3B}x8 0%h8%8xAttribute VB_Name = "PrintForm" " Bas0{CA7C9DC0-65B4-41EC-BC58-9FABF0AA0738}{784CC-511EJCB-91F4-DBF3E8 FA3B} dGlobalSpacoFalse CreatablPredeclaIdTru BExpose0Templat@eDerivCustomizDrU@@@P`OO@`PX1` 1aOOO@`P`1 `1OOOOX ` 1OOOhQ `1OOOOOhA`!1AOOOOOP`qOO`1 `1aOOOO@q `OX ` 1X ` !AOOOPQ `1aOOPA`1aOO``1aOOOO`q!`1aOOOOXA#` 1aOOObL anxME(S<S<S<S<0{FFD9D7EC-BDFA-4740-AFC7-C6066DD54464}{E3B8653B-A5F5-4CBB-B124-6370550DDB0F}( X  %%X " 0 8"HP Xh xȡ'p B@oHȷX 'p B@oRAttribute VB_Name = "ShowForm"  Bas|0{FFD9D7EC-BDFA-4740-AFC7-C6066DD54464}{E3B8653B-A5F5-4CBB-B124-6370550DDB0F} dGlobaBlSpacoFalse Cre atablPr@edeclaI"dTru BEx0pose0TemplateDerivCustomizD'ȡ` P Sub CancelButton_Click() notContinueBoolT Me.HidZEnd! 'ȷĶ ,onfՏ,9-Fl;/jqAzL#xME(SLSS<N0{00020819-0000-0000-C000-000000000046} *X i, xi.  %( "     )ǷȷϽҪ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 D0* 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@4D0BB4SFM20L'B _&/;"1jIqAHq00}#0Bq# 50 AE5A1055D-BE2 B-4416D43-B288A7@60621A6Users\Τ\AppData\Local\Temp\VBEb6.exdc;@!.E .`M(  "ThisWorkbookG Ti@kWmkbok 2 HB1ZGB,!zTL"B+rS@heet1G SŠe`t1 um2 3` ߪH 6 6 6 L6  ӡԤGSbpS`ȉe2jo p!(e) ߺc ]wQQpec ec eo ~(k `G;`Xf"a2fo o &У!h>eeo [o ~k !LGbQ;N z^b2)o {$o U2ShowaxG`6\owf3e2rogknO( Tl5^5^5M^5^zh^ APrintCrinj2oqd0ʘxMEh BXZ"  ( HhxѧϢӡģ$D(FѧϢӡģ$DB@HѧϢӡģ$D(FoAttribute VB_Name = "Ԥ" Sub Browse_Print () Worksheets("ѧϢlģ").VisiblaTrue"d^P@review2cEnd -H#xME(SLSS<N0{00020820-0000-0000-C000-000000000046}@ 0%@xAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2-h#xME(SLSS<N0{00020820-0000-0000-C000-000000000046}@ 0%@xAttribute VB_Name = "She@et5" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2-#xME(SLSS<N0{00020820-0000-0000-C000-000000000046}@ 0%@xAttribute VB_Name = "She@et6" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2ID="{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="989A3442384238463C463C" DPB="30329CC3B9C3B93C47C4B9139885F7C8BF35030EFA95E7DA02BC1FE32951F195F55168F8" GC="C8CA647765776588" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=0, 0, 0, 0, C Sheet1=0, 0, 0, 0, C ߺ=104, 104, 807, 491, =100, 100, 999, 533, У麯=130, 130, 833, 517, Z =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 ThisWorkbookThisWorkbookSheet1Sheet1ߺ]wQQpeXfУ麯!hQpe;N z^ShowFormShowFormӡԤSbpSȉPrintFormPrintFormSheet5Sheet5Sheet6Sheet6 }t  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 ՜.+,0HP X`hp x  оҽѧҵ Ϣdc  ΧOh+'0@HTd | ΤƽMicrosoft Excel@&@\O  !"#$%&'()*+,-.0123456789:;<=>?@ABCDEFGHIJKLMNOPRSTUVWXYZ[\]^_`acdefghijklmnopqrstvwxyz{|}~     !"#$%&'()*+-./245679:;<>?@  !"#$%&'()*+,-./013456789:<=>?@ABCDEFGHJKLMNOPQRSTUVWXYZ[\]^_`abcdfghijklmnopqrstuvwxyz{|}~     !"#$%&'()*,-./012346789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]_`bc