ࡱ> 0d3  !"#$%&'()*+,-./32Ac56789:;<=>?@BDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abfghijklmnopqrstuvwxyz{|}~Root Entry Fl1aWorkbook%[ETExtDataZ_VBA_PROJECT_CUR"./"wʌwʌ \pAdministrator Ba= ThisWorkbook= P8X@"1[SO1 [SO1 [SO1 [SO1[SO1[SO1[SO1Arial1[SO1@[SO1[SO1 [SO1 [SO1[SO10[SO1@[SO1 [SO1>[SO1 [SO1[SO1>[SO1[SO1[SO1?[SO1,>[SO1[SO1h>[SO1 [SO1<[SO1>[SO1[SO14[SO14[SO1Arial1 [SO1[SO1[SO1[SO+""#,##0;""\-#,##05""#,##0;[Red]""\-#,##07""#,##0.00;""\-#,##0.00A""#,##0.00;[Red]""\-#,##0.00i*2_ ""* #,##0_ ;_ ""* \-#,##0_ ;_ ""* "-"_ ;_ @_ W))_ * #,##0_ ;_ * \-#,##0_ ;_ * "-"_ ;_ @_ y,:_ ""* #,##0.00_ ;_ ""* \-#,##0.00_ ;_ ""* "-"??_ ;_ @_ g+1_ * #,##0.00_ ;_ * \-#,##0.00_ ;_ * "-"??_ ;_ @_ /\$#,##0_);\(\$#,##0\)9\$#,##0_);[Red]\(\$#,##0\);\$#,##0.00_);\(\$#,##0.00\)E \$#,##0.00_);[Red]\(\$#,##0.00\)e0_-""* #,##0_-;\-""* #,##0_-;_-""* "-"_-;_-@_-c/_-* #,##0.00_-;\-* #,##0.00_-;_-* "-"??_-;_-@_-S'_-* #,##0_-;\-* #,##0_-;_-* "-"_-;_-@_-u8_-""* #,##0.00_-;\-""* #,##0.00_-;_-""* "-"??_-;_-@_-                 *  /    -                  P P  1    $  !  ff7 " /    ` a * +   1   -   9  6 .   1 ,  1  5 /  4     @ @  ""@ @ ""@ @ @ @  @ @ !@ @ 1@ @ 1  1  1  1 1 1 1@ @ 1 1@ @ 1 1  1  1 1@  1|@  0@ 8@ 1  11 1 1  1|7 1|@ @ 7  1@ @  1<@ @ 1 8^ĉ!20% - :_eW[r 32&20% - :_eW[r 3 eQeQ!40% - :_eW[r 32'40% - :_eW[r 3]]!60% - :_eW[r 32(60% - :_eW[r 3  lʑ lʑ!60% - :_eW[r 22$60% - :_eW[r 2h 4h 4fJTe,g fJTe,g hh!8^ĉ 12"ʑ'`e,g 5ʑ'`e,g#h 1h 1$h 2h 2!%60% - :_eW[r 12 60% - :_eW[r 1&h 3h 3!'60% - :_eW[r 42,60% - :_eW[r 4 (QQ ){{*hgUSCQ60% - :_eW[r 52060% - :_eW[r 5?:_eW[r 6&1:_eW[r 6!@40% - :_eW[r 62340% - :_eW[r 6!A60% - :_eW[r 62460% - :_eW[r 6B8^ĉ 2C8^ĉ 4ccXTableStyleMedium9PivotStyleLight16`g4 V[VYf[ёDRNRTUSINxhYOo`VV480 MOC A@dc:-KmՋ@b g!hĉRv^SbpSOo`! =- checkName checkZjlx checkSfzjh checkPhonecheckNum1,8,0 checkPmmccheckBxk checkYesNo checkSNumYNcheckBirthdaycheckLen0,1,50checkLen1,180,300checkBirthdayNecessary2checkLen1,60,200checkLen1,50,150checkLen1,1,150checkBirthdayNecessary3 checkName1laRte!jgv  b?  b@  bA bB bC bD bE bF bG bH bI bJ bK bL bM bN bM bO bM bP bM bQ dR eS dT dU dV dW dX dY dZ  d[  d\  d]  d^ d_ d] d` d_ d] d` d_ d] d` d_ da db dc dd de df dg dh dif  vj(   vj  Ԕ5%Ԕ5%((?Comment 13942 ]4v6`<kXQf[uvYT<%  V 9CCButton 19],@A9$< _Yhg<  Z 9CCButton 1535],@A9$<_ Y h g<& i \ 9CCButton 13801-=],5@A9$<_ Y h g<&v6admin>@< ggDh4h\:SW2Sheet1  7%!S Y dMbP?_*+%&ffffff?'ffffff?(?)?" dXX333333?333333?& U} 7D} D} D} !D}  E}  E}  E7@,,,,,,, , , , ,,, Fj Gk Gl Fm En Eo D~ H? Ip Dp Eq D~ H Ir DrHH Ds~ H@ It Du Ds~ H? Iv DwHHHJ Dx~ H? Iy Jz Dx~ H@ H{ Jz Dx~ H@ H| Jz Dx~ H@ H} JzHHJHHJ D~ D~ D D D~ D~ D? D D~ D~ D@ D D~ D~ D@ D D~ D~ D@ D D~ D~ D@ D D~ D~ D@ D D~ D~ D@ D D~ D~ D @ D D~ D~ D"@ D D~ D~ D$@ D D~ D D D D~ D? D D D~ D@ D D D~ D@ D D D~ D@ D DBrXF F888 8888888888888888888 !"#$%)+,,,-,.,/,0,1,2,3,4,5,6, D~ D@ D D !D~ !D@ !D !D "D~ "D@ "D "D #D~ #D @ #D #D $D~ $D"@ $D $D %D~ %D$@ %D %D )D~ )D )K )D +D~ +D? +I +J6 ,D~ ,D@ ,I ,J6 -D~ -D@ -H -J6 .D~ .D@ .H .J6 /D~ /D@ /H /J6 0D~ 0D@ 0H 0J6 1D~ 1D@ 1H 1J6 2D~ 2D @ 2H 2J6 3D~ 3D"@ 3H 3J6 4D 4D 4H 4J6 5D 5D 5H 5J6 6D 6D 6H 6J6*h888888888888888888>@<   ggDSheet5  % dMbP?_*+%&ffffff?'ffffff?(?)?" d333333?333333?& U>@< ggDSheet6  !"#$%&'()*+,-./013456789:;<=>?@ABCEFGHIJKLMNOPQRSUVWXYZ[\]^_`abcefghijklmopqrstuvwxyz{} >k6g Y0* pHd VBAProject4@j = r ~_ J< rstdole>stdoleh%^*\GVBA wʌwʌXf4dir];N z^C?  &xRRME (@l06 <HlhJ0hnkr`Hv@ʘ0BʀX @ʀ4 @ꀂD @zL @%Ϣ˵%ꀜV  @Z  @| \ @~HB X@‌p@ʀd @x@ꀂz@ʘBꀄH~ @bhB!ꘈB#%BһpBXHpHtpHʀ @$ @x8Hh @ꀖP@*T @(X  @ꀘ^ @"0Bꀄ` @Zt@ꀞ| @T BꘆpB"H 80pXpHpH 0Xj$p88~_*\R1*#119$*\Rffff*0=61509cd6(*\Rffff*0=61509cd6\044    08  @ ` Dp 8 0 P0pD084P. ..(8(`>"$$@>`R^FX `*0$`   ^^0p@һṹҳ]$H=Public Const sheetNameValueTJ As String = "2ʵͳ"]$Ϣ2Public Const IntroSheetName As String = "˵"]$H]$˵] p ¼ܵУ]$¼ͷ] 0"ִ һǿУ ĵԪĿ] 6ִ һǿУ ĵԪΪϹĿ] Xÿһкϼеֵ] "һǿУʱ¼Ԫ] Ϣ] %---ģУ¼ĸԪ] 8---ģУ¼ĵԪ]  Уʱ洢ַ] ¼ʱرհť]  ¼ܵУǷвϹ]  ¼ܵУǷظ] #¼ܵУǷظ] %/¼ЧǰǷдϢ ״̬]  #У鷽ķֵ]$)¼ʼк]$H)ѧѧſʼλ]D0¼ΪյĿ]X"/ǷΪЧ ͳ 5ֶΪյĸ] p"C¼ȥոִнȥ˿ո򷵻true򷵻false] PcellԭʼĵݣϵͳûнԶûĴ֮ǰcell] 7ϴдϢʱڵ,ӦĿʼʱʼֵһ] ] ] RڸݱʶòͬķʱжǷforѭ Cell_SelectionChangeҪõñ]$¼ʡصȼ¼ڵЈ]$+sheet±Ƿ]  ]$hH)е]$) Ա----]$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'k,ci sFO).ڸݱʶòͬ0)A! жϑ;forѭ C_SeleBFChMõñ W^,headIb'+ʡصȱ& SqsV9= 2 'q  nottinueQ$AqJPlu"S6104 'crger6ԱsbirthHday= ڵ{00020430-C 0046}#2.0#0#C:\Windows\syst em32\e2.tlb#OLE Automation`EOffDicEOficEE2DF8D04C-5BFA-101B-BDE5ETAAC42E2EUsers\Administrator\AppData\Local\Kingsoft\WPS A\11.1.0$.9\oK6\ksoapi.dll#Micro 16.0 Ob LibraryWMSForms>SFrms3 @YD452EE1-E08F6A-8-02608C4D0BB4YFM20.DLLH'B e&/;"1pIwAHw00}#0Bw# 50 A7F287CB0-7BC3-4710-BE9F-FFAAAD1878486lDMINI~1kTemp\VBE\U.exd<@".E.`(M  "ThisWorkbookGTĊi@lWnkbok 2 HB1Z{",zTL""+uS@heet1GSŠect1 Ay2H66R66- ӡ@ԤGSbpSȉ[e2jop!(e) ߺc]wQQpece'ceoS(kG;Xf"a&2fo o &!У!h|eeod2jo~k!L GbQ;N` z^b2So -o U2ShowG`6q\ow3e2ro1]nOR( l5^55^5^5^zh^ Print#ri&nxEbj2od0ʘ (N-UxME<6 LL L"L < 4 `XkPz@h @X x@H ?@8 @@(  @ ` ` ``  `0 `" %0X8 >,XVZet@ ntry@ @ "ic@0 {@H onNa@` box_@x @ //op@ /app@ t 9449@p }, @` @ P ppcm@@  6^*2.@h0 ld@ 0R@ E_@  @ @ "1@H `1 $@ P|V(@$ @p H:@ p:_o@ @p| @l B@0\ HBBo@L @X< p0He@, XH@( dvXJ *L@ `P'@ R<P0Rp@@ XYoŖў@x h@Y@[@ x_@ _a0pe@ ld@ @@ XsJ@ h@sx@uy @x @h { $@X {al@ ~_$*\Rffff*0>61509cd6*\R1*#3cb*\R1*#30d*\R1*#268*\R0*#17$*\Rffff*0=61509cd6*\R1*#118*\R1*#31$*\Rffff*0?61509cd7*\R1*#1be*\R1*#119$*\Rffff*0@61509cd7*\R0*#2*\R0*#f*\R0*#1 h"hp:x.6" "H.p )  :+ ;8@;H;h;>;" : "P, `$ >;,] ( ~@$UP1 8Xx W ; @ HP.=X  ,+; **R8 h%0 %D % % %0 % P%,p%& #6M$J $"h (,3 (P3 (` (,L,p 4JI <( <? 8 D6HH D0& HB< D @ ,  ,0  48H( 40&` 8 < 4 0 )" <( <<0H6H@H0&xPB<H <(",8H(,0&`0 <, ($$M  < "8(L7P(&( ( )$  > ,`,p (,&40M, ,,   (8(@h x*+$,  `7` h4+p=1 4  $(+P=hP1,4+=(1@P X ;` ; ; x" @HX2h$@6 @*P :   ,HPX ha--------------------------------------------ʼУ-----------------------------------------]@]X+ijһ͵ıʶкź͸ʽ3:1;2]p ʶ(ĬϱʶԶʶ)](ijһ͵ıʶ飨кź͸ʽ] ijһͱʶľֵB]ԶʶH]%Ѽ¼ΪյкŷŽ_] >!P'"ȡĿ ,0ĿȷģٽдУA@,1qazF$>B@|k1qazF$>B@D 1qazF$>B@D 1qazF$>B@D X$V!PB@-$ÿοʼʱѴϢsheet,'ZϢ¼ʼ'.ôУУ¼Ƿд֣׶ϢУ`* ('#Ĭ϶ѼδͨУ' Ĭ϶δͨУ X$V!PB@-$ÿοʼʱѴϢsheet, A65530$>%%!' ȡxcna = Worksheets(1).Range("1:1").Find(What:="*", After:=[a1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Column IV5 6%%!>'FAILUREA@^&+ȡǷУɹ־Ԫ񣬲ֵʼΪ0'ռ¼ʼΪ0 * 2" ʱִd ʼУ鰴ť¼ʱִ.ȷʼ Уرexcel $.ܵݶʧʧ 0ܰʾ$, 2d1qazF$>B@|kk.$>!b(d)ҳǩΪɫ   "ûвҵѧϢ޷У飡A@,'*1qazF$>B@|k'ôУУ¼Ƿд$>!дϢ£A@R     '<"ִ һǿУ ĵԪĿ';6ִ һǿУ ĵԪΪϹĿp* '''5"һǿУʱ¼Ԫ'9ǷΪЧ¼ '|C¼УǰǷд';¼ԱǷд $  $$>%P!'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  $$>%P( $ 6ִ һǿУ ĵԪΪϹĿ     е һдȷ''8УʱдϢ A@R  'd   'Tÿһкϼеֵk  <,һؼֶȫ򽫸ɾ  +  ',"ϢеĸдϢɾ  Z  Z Z  X$V%XB@Zr Ѹɾ  Z  'Z |'k k   6 ɾЧ $'  A@VB ѸɾdP   A@VH Ѹɾk    ˴Уɾ :Чݣ֤У鶼ʧܼΪЧݣA@,k *дϢ鿴ϢA@,$>!b(d X$VB@Hd('(A@ ('%ִУظݷ,ûظ0ǷҪɾЧ Уͨ!A@,.$>!b(dSUCCESSA@^:+ȡǷУɹ־Ԫ񣬲ֵʼΪ0 A@@d *ظݣ鿴ϢA@,$>!b(d X$VB@Hk k 1qazF$>B@1qazF$>B@1qazF$>B@o8 q-------------------------------------------------ظijһ------------------------------------------------ ]`x] A65535 N%%!'2Scripting.Dictionary$.$O8O  N%!'&>ȡѧ ( &%"ѧ໤֤ݽб ( ( $%*-֤Ų ( $B@,&#addһΪkeyڶΪvaluek8 k0 ( !.' Sheet2$>G:G7B@  !%2 !PG17,0q.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̗Zwp&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 rSoSQMKE=?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ͨ!/!ı/-41427setCellueXQ 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& !: ]wQQpe  eSbpSȉ  v!hQpe  Sheet12~MxME(6 LLH F` @ IH `IJ `L R` iT \X` 8  iT f`  Ih IH IJ Ij  t` X  #Ih xIH IJ  ~`  .Ih I 8IH XIJ xI  x`  ??CI Ih IH 8IJ XI  `  I I ` p` P I +*( `  Ih I, i.`0 @ ` h Ih IH IB I   ` ( I HIH hIJ @N V  `  Ih IR ---- \` ` Ih ----IR  ^` ` k Ih  FIH  ----IB @ ----I һ  ` Ih  ,IH  XIB ----  ` @ I ` ----Ih  'IH  ,IB  X@N b(@` Z@L ---- ` H  Ih h ---IH  IB .Unp`Haz"`d>`f xp(X`   D % @ 0(0hH@^l  hX0!n`> J h$>%@h 0@X ----@H ----@D @4 õ@$ ----@ @  `  ~_$*\Rffff*0@61509cd7*\R1*#3cb*\R1*#30d*\R1*#268 B       B   B  h p2 p `B  x 8 $ 8 "@ pHB   8$0X$` xB  48(p*$ 8BH0!X`hp x  B  ( 0 4P $  "   "    .( X p 0   *   .0 ` x .   0   68 p6 8 0@6X (  ( 0@(X&   f h >& ( X8 h (*@ pj& @P`h ` **0`x  H(x HX( H@(p H(@  &  @ nH   8(8 8((  &  @ pH ( 80$h 8H$ ` &h $  8(j 8(j 0  8  &@  h x    0!(H!p!H!!!!""("0"P"X"`"h"&" #(# 0#P#X#x# b# # $$0$8$P$&$ % ,%@%H%h% fp% % %& & (& 8@&(x& 8 '(X' ' &( ((8(@(`( fh( ((( ) T ) &x) ))) $) &)$X *$&x*$ *$* ** * *$t*$&`+$ + + $++ ++ b+ @,P,p, tx, &, - (-0-P- bX- - --..&. . .../ ^/ h/ ///X/&0 @0 P0X0x0 ^0 0 11 1X(1&1 1 111 ^1 H2 h222T2&2 3 (30383X3 n`3 3 34" 4H4&4 4 55585 j@5 5 55"6(6&6 77787 n@7 777"808&8 8 889 n 9 9&99"9:&: : :::  n; p;&;(;(;<" <H<&< = (=0=P=  PX=====&h> > >>>> R>0?H?`?Xh?&? ? ?@@(@ b0@ @$@@@@& A HAXA$`AAAA XA B(BHB@PB&B BBBRB@C&HC pCC C CCC ^C  D 8DXD@`D&D DD DEE(E ^0E E"EE@E&F @FPF XFxFFF ^F G& G HG@PG&G GG&GGH H |(H H$HH(H@I&XI I I"IIII |I pJ"JJ@J&J K0K 8KXK`KK K L((L(PL(xLLLLLLLMM0MPMXM `M hM8M$MN &N NN N$O (O 8HO(jO  O O &P (P8P@P HPhP |pP P$Q0Q@8Q&xQ QQ$QQQR dR xR R@R&R S(S20ShS xpS S6T.@TpTT( T2T( T1T( T2T( T1TUUJ(UxUUU JU  UV(V@VHV8`VVHW&PW xWWW8W bWXX`X&hX XXXX XX fX B  HY PY<XYY YY$Y$Z@ZHZ PZ \Z B  X[,x[ 0[@["\ ^@\ 6\\\]0]0P]D]]]]]^^ ^ "^ ^ .^B  (_ 0_$@_Bh_ _ _ _ _ _ _`` `B  `` `` ` a a a aB  a"a  b8b@b HbPbXb `b8bb2bb c 0c@c HcPc Xchc Fccc c c *c(d 0d d dB  ee*(e 4Xee e 8f PfB  hf*pff fB 8g<@g J`gg gB  h h@h HhB  h i "i @i8`i2ii ij j j (j 0j@j"`j0j j(jkk&k8k @kPk XkB  kkVlhl 8l l l:l40m$hmm"mmmmm-----------------------------------------УУдϢʾ ע----------------------------------------------------------- Ԫ] H J N%P'L L0'Fd('Fki--------------------------------------------д־ ¼ϢʾһϢ-------------------------------------------- T Z X$V,P Z 'ZiX--------------------------------------------д־ ¼ϢúɫʾϢ-------------------------------------------- T'^ T Z X$V,P ^ Z X$V%P%`!b(d Z 'Zipi--------------------------------------------עʼУ飩-------------------------------------errorInfoעX 1Worksheets(sheetIndex).Unprotect Password:="1qaz" j H J h$>%PB@l H J h$>%P!n(pW ӻɫ H J h$>%P!r(@ii--------------------------------------------ɾעʼУ飩-------------------------------------1Worksheets(sheetIndex).Unprotect Password:="1qaz" H J h$>%PB@v H x J z H J h$>%P!n(dd` | H J h$>%P!n(dk0i(r---------------------------------------------ʼУ Ƿӻɾעõķ----------------------------  Уʧ H J h$>%P!rd жעΪ h H J A@fV עd"Ϊգȥǰע h H JA@tN ע h H J A@fk1 MsgBox "" & rowIndex & "" & errorMsgd:УɹжǷעУʧʱעȥ h H JA@t ,#ȥո,ʾ HУ JУַ"$. "$."а˿ոϵͳԶΪA@Rd`kXkPiH----------------------------------------------------------------------------------------------------------------------------------y--------------------------------------------ݱʶöӦķ(ʼУ)-----------------------------------------------------------------------------------------------------------------------------------------------------------------------ѴϢдб H J h$>%P'  J h$>%P'Iȡбͷ Ϊϲеıͷ  J h$>%P' H e  J h$>%P'kh0'  checkLen*)ΪУ  $'checkLen'  checkNum*e-ΪNumberУ  $'checkNum'  checkVal*e-ΪֵУ  $'checkVal'  checkInt*e-ΪֵУ  $'checkInt'  checkTerm1e-"ǡ"Ϊ1' checkTerm'  checkYesNo1e/"ǡ"Ϊ1' checkYesNo' checkDiffName1e2ѼΪ1'checkDiffName' checkDiffCode1e2ѼΪ1'checkDiffCode' checkIDCardType1e4֤Ϊ1'checkIDCardType' checkSqyyName1e2ԭΪ1'checkSqyyName'  checkYear1e. У1' checkYear'  checkYFJEe/ У1' checkYFJE'  checkPmmce- У1,8,0' checkPmmc' checkBxke, У1,8,0'checkBxk'k _=================================1 ִеķǿУ==========================================ѴϢдб checkNullKT h H J$'  H е Ϊգ'')УʱдϢ A@RRMsgBox "" & rgold.Row & "е" & Chr(10) & titleMsg & "Ϊգ"kh h  H J A@~'a=================================2 ִѧУ========================================== checkNameKT h H JA@@ȥոķ H J h$>%P!' $'  H е ;дȷΪ֣ȴ1ܳ20ַ''%УʱдϢ A@R  'k h  H J A@~'Z================================= ִеijУ==========================================checkLenKT h H JA@Fȥسķ h H JA@Hȥոķ  $'  ,$'$ ` ΪDZΪ̶ȶ H е .дȷΪաд򳤶ȱΪ$ λ'$ ed ΪDZΪȷΧ H е 4дȷΪաд򳤶ȱڵ$ λҲ$ λ'$ ed ΪDZΪ̶ȶ H е &дȷΪգҳȱΪ$ λ'$ ed ΪDZΪȷΧ H е ,дȷΪգҳȱڵ$ λҲ$ λ'k '0УʱдϢ A@Rk h  H J A@~'h================================= ִеijУ飨Numberͣ==========================================checkNumKT  $'  ,$'$@ ΪDZΪ̶ȶ H е GдȷΪգдΪ֣0λȲ$λСλ$ λ'$eD ΪDZΪ̶ȶ H е ?дȷΪգұΪ֣0λȲ$λСλ$ λ'k '0УʱдϢ A@Rk h  H J A@~'i================================= ִ30%У飨Numberͣ========================================== checkPmmcKT  $' h H$'N ȡд  ,$'$@ ΪDZΪ̶ȶ H е ?дȷΪգұΪ֣0λȲ$λСλ$5λҳɼαڳɼ30%֮ڣ'$eD ΪDZΪ̶ȶ H е ?дȷΪգұΪ֣0λȲ$λСλ$5λҳɼαڳɼ30%֮ڣ'k'0УʱдϢ A@R $ 333333?$ e ,$'$@ ΪDZΪ̶ȶ H е ;дȷɼαڳɼ30%֮ڣ'$eD ΪDZΪ̶ȶ H е ;дȷɼαڳɼ30%֮ڣ'k''0УʱдϢ A@Rk h  H J A@~'}=================================15 checkNumYN ִǷΪǡжǷ--================================== checkName1KT h H$'K ȡд h H$' $ ?$ $ 333333?$1,1,100'  $'d0,1,100'  $'  H h$V,Pkk  H7еɼ10%-30%Ҫдע˵ *ֻ뺺,ַΪ100λ''(УʱдϢ A@Rd" checkYesNo h H JA@k" h  H J A@~'[=================================ִֵΧУ==========================================ѴϢдбcheckValKT  $'  ,$' H е $дȷΪ֣ڵ$ Ҳ$''-УʱдϢ A@R& isValidateCount = isValidateCount + 1k h  H J A@~'_=================================ִеΪֵУ==========================================ѴϢдбcheckIntKT  $'  ,$'$@ ΪDZΪ̶ȶ H е 8дȷΪգдΪڵ$ҳȲ$ λ'$eD ΪDZΪ̶ȶ H е 0дȷΪգұΪڵ$ҳȲ$ λ'k'0УʱдϢ A@Rk h  H J A@~'`================================= ִе֤У========================================== checkSfzjhKT h H$'S ȡд  H е &дȷ֤Ϊգ''0УʱдϢ A@RdH  ֤  J$'O ֤У :֤У H е *дȷΪѧ֤ţ''4УʱдϢ A@R  'k8d0 $'  H е EдȷΪգҳȱڵ1λҲ18λ''4УʱдϢ A@Rk`kXkP h  H J A@~'\================================= ִѧŵУ==========================================checkXJHKT 1, 1, 50$'  H е EдȷΪգҳȱڵ1λҲ50λ''0УʱдϢ A@Rk h  H J A@~'[=================================ִпУ==========================================ѴϢдб checkBankKT $'  H е $дȷΪ֣ڵ$ Ҳ$''-УʱдϢ A@Rk  h  H J A@~'W=================================ִУ==========================================ѴϢдб checkYearKT  $'  H е *дȷʽ20122002ȣ''-УʱдϢ A@Rk h  H J A@~'W=================================ִѧУ==========================================ѴϢдбcheckXnKT $'  H е )дȷʽ2012-2013ȣ''-УʱдϢ A@Rk@ h  H J A@~'W=================================ִ·У==========================================ѴϢдб checkMonthKT $'  H е &дȷʽ0112ȣ''-УʱдϢ A@Rk h  H J A@~'g=================================3 ִеУ(DZ)==========================================ѴϢдб checkDateKT  $' 2Уʧ H е дȷдʽΪ"$.xxxxxxxx"$. 20130221''-УʱдϢ A@Rk h  H J A@~'c=================================ִеУ飨==========================================ѴϢдбcheckDateNecessaryKT& $' 2Уʧ H е дȷдʽΪ"$.xxxxxxxx"$.= 20131221ֻõ֮ǰʱ䣨գ''-УʱдϢ A@Rk h  H J A@~'g=================================ִеijУ飨==========================================ѴϢдбcheckBirthdayKT"  $' 2Уʧ H е дȷдʽΪ"$.xxxx-xx"$. 2013-12''-УʱдϢ A@Rk h  H J A@~'g=================================ִеijУ飨==========================================ѴϢдбcheckBirthdayNecessary2KT, $' 2Уʧ H е дȷдʽΪ"$.xxxxxxxx"$. 20131201''-УʱдϢ A@Rk( h  H J A@~'g=================================ִеijУ飨==========================================ѴϢдбcheckBirthdayNecessary3KT, h H$'K ȡд h H$'K ȡд  $' 2Уʧ H е дȷдʽΪ"$.xxxxxxxx"$.6 20131201ҪԺϵ5գ''-УʱдϢ A@Rk h  H J A@~'J=================================10 У绰====================== checkPhoneKT $'  H е дȷдʽΪ"$.-̶绰 ֻ"$. ''%УʱдϢ A@RkP h  H J A@~'L=================================checkOption У鱸ע ====================== checkOptionKT B$'  H е )дȷȲܳ200ַ''%УʱдϢ A@Rk h  H J A@~'\================================= ִ϶ѼУ==================================checkDiffNameKTcheckDiffName  $'  H е дȷ''(УʱдϢ A@RdcheckDiffName h H JA@kp h  H J A@~'R=========================== ִ϶ʵУ================================== checkSFJEKT 1, 4, 0$'  H е дȷ''(УʱдϢ A@Rd0 $@ H е #дȷ,ֵֻΪ8000''')УʱдϢ A@Rdxkpkh h  H J A@~'X================================= ִ϶ӦУ================================== checkYFJEKT checkYFJE  $'  H е дȷ''(УʱдϢ A@Rd  checkYFJE h H JA@k h  H J A@~'X================================= ִ֤У================================== checkZjlxKT checkZjlx 1$'  H е дȷ''(УʱдϢ A@RdE checkZjlx h H JA@kE h  H J A@~'X================================= ִ֤У==================================checkIDCardTypeKTcheckIDCardType  $'  H е дȷ''(УʱдϢ A@Rd0DcheckIDCardType h H JA@kD h  H J A@~'v=================================14 checkGender ִǷΪСŮУ--================================== checkGenderKT checkGender 0$' '-ԱдУ֤Ŷ H е дȷ''(УʱдϢ A@RdhB checkGender h H JA@k8B h  H J A@~'u=================================14 checkYesNo ִǷΪǡУ--================================== checkYesNoKT checkYesNo 1$'  H е дȷ''(УʱдϢ A@Rd@ checkYesNo h H JA@k@ h  H J A@~'}=================================15 checkNumYN ִǷΪǡжǷ--================================== checkSNumYNKT h H $'K ȡд h H $'H ȡд h H $'H ȡд 1,8,0'  $'d ?0,8,0'  $'  H h$V,P H h$V,Pk>k> 1,8,0,$'$@ ΪDZΪ̶ȶ H е ?дȷΪգұΪ֣0λȲ$λСλ$5λҳɼαڳɼ30%֮ڣ'kX='0УʱдϢ A@Rk=   $ 333333?$ 1,8,0,$'$@ ΪDZΪ̶ȶ H е ;дȷɼαڳɼ30%֮ڣ'k<''0УʱдϢ A@Rk;k; h  H J A@~'u=================================14 checkYesNo ִǷΪǡУ--==================================checkSqyyNameKTcheckSqyyName  $'  H е дȷ''(УʱдϢ A@RdH:checkSqyyName h H JA@k: h  H J A@~']=================================checkTerm ִѧУ--================================== checkTermKT checkTerm  $ H е дȷ''(УʱдϢ A@Rk8 h checkTerm  $ H J A@~'r=================================checkAtLeastOneNNull ִһΪǿ--==================================checkAtLeastOneNNullKT  'A"ִ һǿУ ĵԪĿ $ =Ϲ   ' J KTF   ' KTF   ' KTF   ' KTF   'n6dϹ  'F6ִ һǿУ ĵԪΪϹĿ    'kh6'C===================================================================checkBxkKT  $' h H$'F ȡд  ,$'$8 ΪDZΪ̶ȶ H е ?дȷΪգұΪ֣0λȲ$λСλ$ λ'k4'(УʱдϢ A@R $ $e ,$'$8 ΪDZΪ̶ȶ H е 4дȷ޿μ޿һ£'k3''(УʱдϢ A@RkX3 h  H J A@~'n(3i 3_--------------------------------------------ʽ-------------------------------------x]VBSCRIPT.REGEXP$.7RegExΪʽ (4 ȫֿvba\ת  ( .ʽ ( 5ǷִСд  %'3 ִ.i1-----------------------------------------------------------° Уظ˵Ѿûиʽ------------------------------------------------------------V-----------------------------------------------------------1ѧ׶ڱڲ(sheetѧ׶ A65535 $V%%!'*cna = getTotalColumnCount(sheetIndexValue) X$V!PB@1&ÿУظʱʱѴϢsheet,'ZϢ¼ʼX==============================ѧ׶ڱڲ==================================0ðÿԪغ֮ǰнбȽ     " $V%P'  $   $ " $V%P'&  &.ѧͬ˵ظݶ $ еݺ͵ ظ!!!!' A@R*ѴϢ'(k..-i------------------------------------------------------------һ ֵȡֵ------------------------------------------------------------ֵҵֵڵлkeyWord ҵĹؼ'kbn л ֵΪ rowrowp'*]the find result object ,4 86 <: A1:A65535 h$>%%2.0 0 .row 0!'*d, 0!>'*k,k+i+------------------------------------------------------ ָcellֵ-------------------------------------------------------------(1qazF h$>B@D  H B h$>%P(i+------------------------------------------------------ ִڹУ(Ϊ)-------------------------------------------------------------value value1 cellУ鲻ȷfalseУȷtrue J0˵ΪDZ H$L'z)k)k)]'Pijһļ¼ A65535 T$V%%!'RB' T row$*'N=ȡ  N R  T$V%P  P 'Pd(y(k(  $ N N P  $ T$V%PX HX LжϹǷcell'y (k( $#ʱcountĿΪùеĿi'------------------------------------------------------ ִɾijһвexcelܱģ-------------------------------------------------------------sheetIndex rowNum к1qazF h$>B@D R h$>%XB@Z/ Ѹɾ- Worksheets(sheetIndex).Protect Password:=123ih&------------------------------------------------------ ִɾijһвexcelûб-------------------------------------------------------------sheetIndex rowNum к  R h$>%XB@Z/ ѸɾiX%------------------------------------------------------ ָcellֵ-------------------------------------------------------------1qazF h$>B@D  H B h$>%P(ix$------------------------------------------------------ ȡָcellֵ-------------------------------------------------------------` H B h$>%P!'i#------------------------------------------------------ ݴеֵǰʱѾͨУ飩------------------------------------------------------------- ]   H B h$V%P!X 'L'Pijһļ¼ A65535 T$V%%!'RF T row$*'NAȡ  N R  T$V%P  P 'Pd!y!k!  $ N N P  $ T$V%P!X 'H H LX 1жϹǷcell $ T$V%P!'` `X H B b h$V%P(y d H B b h$V%P(k $i ------------------------------------------------------ ȥcellеĿո------------------------------------------------------------- ] Ԫ]  3Blength1ʾcellԭijȣlength2ʾִȥոַ'ĬΪûȥո2 Worksheets(sheetIndex).Unprotect Password:="1qaz" H B h$>%P!'H H'd dGzj*"ԪΪգȥո H 'f%length2Ϊոһγֵλ fַո H $h'H HX H B h$>%P('k izAttribute 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?DDúɫCE ERedVFnLen7@LZ.Characters(1, ).F7.Colorl=31*SS  ʼG`errafoaddCHommQXQ#s|", ,  0t'Work s().Unprotect Password:="1qazOey.A N( ..Itrior#=<65535 '1૱>%  d/.VisiblĠ_?ɾElearsCk΅"BB ?+0+ 5`&[!*2Recp)Nu8m A:HtffTotal`?um u\4&UE15l lqXOO .ExlNondu(u_L?%K Ƿ4*õķo)beginC_c#LHGpMethod?LLuwLЋNot3 '焹aWʧ|?u$6 Is hing$жρ<Ϊ/T\ W| LAOAa'ȥǰq¡$ cDt_ ʫ 'L alw/ !. <' "Box @"" &gD& "h'tt$ɹ3!0гѕ&ʱđ rCq+remopaceFla(/Qո,ʾ:sW@УȀַChr(34)%QC& w"րа ϵͳԶΪa%ˬ A ]!qO?L?Y/ݱʶC 0XӦsX([)O-O?@!дccallFunctionXQStart(typeVal, sheetIndex, row$colHumn0isRidateCoun t) value = Wo$rks().Cells(DtitleMsgGsT,, ) 'ȡбͷ If `"" Then 'ϲеn/J - 1 L(ElseDÅtheadG=! ;CEnd( IffArgs!"0"JÅ Like "checkLen*MУGĄD Mid9& #EH%O 1H&NumL&@ber&& &@&&ֵLC&M%@b%Inta9?~nE9- 'W9Term1L""ΪL"1 7 YesNo-kk ? DiffNameѼa?%D~#CodslA!`IDCardT*'րͶ;:`._Sqyy;ԭ;Q0] e? WYearZ?M`?:]  :iYFJEC/ E QPmmcrA1,8,ySS- / .` |Bxk  ?Select Caseuu '=C:1 ִ1ǿա'?ѴϢдQG Nullj(BMethodXQPIRequired"/ Not  Terrors"" & "!0& "Ϊգ첆/hasE `Tr'BqʱQ% fwriteLog E B' Box 5gold.RowO& Chr(10)T]beginC1-_commento ,?isFor.o+.2.ѧ/_Ky-pO removeSpacep-ܟ 'ոķ??s?)./k2=c3Stus(2/6/6;/6V55E5дȷ֣aɴ1820ַ*_8_8MA writeLog error`Msg  isValidateCount =" D+ 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==UDPmmcU UU1UUg@ resul!g@etCellu1cXQ(5)@ 'ȡ0!  If Not checkMethodXQ T`hen *functionArgsArr = Split( ., ",") M(0)P1r'ΪDZ̶errorMsg-"" & rowIndex"еtitle& "дȷCΪұΪ֣0 λL0'p1):λ!С2ҳɼ<څ30%֮ڣ"Elsew``` ``E(``BE End If_jhasETrue 'Уд@ϢwriteLog2CW$Dval(`u e) > result * 0.3)`@$Vu ?WϧϧO] 77gQ96!Ӓ po$͟ A hasError = True 'ʱд΀Ϣ "writeLog eMsg^' isValidateCounFt+ 1DE nd IfbeginCheck@_commeasheetIndex, c MethodXQ, row olumn#eisF '=ִеΪxā0Bдб틃Case "qInt" A`E (value, functionArgs)CVa NotT pThen IArSplit(, ","If ,(0)@5"0" 'ΪDZΪ̶<ȟ+Ņ@"" &"Axtitle@дȷ"ҠΪ@Cڵ K(1)AA/X 2 B Else)1))&))!))(gsD((hE_F_>¿k è֤ߨ  }SfzjhcresZjlx@getCellucXQ(i̇ p'ȡ!|;o |""m;9hhE4_C#_,߄߄_,KO?sIsIDNuPmber%sc) ') = tqtk#.OM!)djjj#UѧOe/"/"/"/o"o"ߧߧo SO)? ܓ=SFZxJLX%n$XQCo"o"_!$qMYYxa#1t 18t $$$O$$o /:?o?_5 Џ L,O/|+{"|ѧ_Я{XJH{ #[Len["1, 50/6/65555255505ų hasError = True 'ʱд΀Ϣ writeLog eMsgd!@End IfbeginCheck_comment sheetIndex, cMethodXQ , row olumnTisF! '=ִп<Ł.!д틁Case "oBank"| (valu e) uIf NotN Then Q"" &F["еtitleдȷΪ֣ڵfunctionArgsArr(0)AҲ,1IF=-'WdW__^ZA^]]"*]Year]]A], C_冟_F__ʽ20122002|ȣWb$W WW Wa , functionArgs@¿d!dx-xxd-12___# _/_?c?c?c?c]?c?c"0c&2zdGȿȿE`pg(re, supppP> p>ҪԺϵJ5տr @ @x$@@@@_@ q@?=10 Q$఺O'= ִ϶Ѽ,I^=7Case "Dif`fNamef=!=DMB(L, ĢfunctionArgsPm QL8[?ElseKeset@YCodi,etN ]a]]nA ^XF]ʀ\+\SFJE_\C D\Num($Z"1, 4, 0"Y!! YyYYbY C*) <> 80<00с ~_,@ֵ`ΞFau ء?-c-@o@?Q3CrCrC! rCDӾDDYD ?r 7rqqqt2ϛϛɛEl.Lo.b .yqT)q %....ҵ .-*-֤q--Zjlxq"---"1OrR_S?-?-?-?-Y[Or?-?-1O-Q5N-O-exO-'O-O-O-O-O-6O-?)?O-/O-IDCardTyp3 --[[uU?]?]t//" & titleMsgP"ȷ" hasError = True 'УʱдϢwriteLog eJ*ElseEsetDMBCode "checkIDCardType", sheetIndex, row column,@End Ifb eginC4_comment2AMethodXQE:,yisF '=14<GeurִǷΪСŮ--=K?CasXT?h(g, value, "0")YIf Not Then < E IdNum?p֤Ť"˅е? ,F+?H(Y* 0.3)Sh`M1_J1111N11̴Index & "е@"titleMsglдȷɼα30%֮ڣ" !End If'checkMethodXQ =@ False6hasErrorTrue 'УʱϢ&writeLog e)m|1beginC_comment@ sheet, , row`olumn1isFM '= 14YesNoִǷΪǡA`--= ?Case "SqyyNameԠHDMB(L, value, functionArgs)\If NotV Then ?Ɖ@"ځEbޤ_?[! Enset,Cod4,SR(d`g``X"MTermà%_ѧڿ]c ] 4]R\[I_Vora= _V 4_V_V _VCVXy?Hck*`KK @"LAtLeastOneNNullMષǿOV*o'DVL(aHCouh= O @+ 1 '11 u  1 ĵԪĿ"@p.Money(R[) AA <> 0- 'Q}Ϲ85qtotalB@Z+aSelect :cuOIbaojiaoBzCR:iSum ?_ huoshi H   zhusu G  others H  > sc*?%| '23 =pG_>6>>>¡a@KE5+h+ " Jb߄~JQ??O[#Bxk ,=Num1sP߫7resultAgetC0ellV1XQ(ig7) 'ȡ! 'ﰩIAr1Split(y, "<,"eP\(0:)1_@_oΪȟ ) % ΪգΪ֣0 1)aλ!<С˰(2' End If  hasError = True 'УʱдϢwriteLogD eJMsg*ElseIf val(ue) <>result@) ThenafunctionA rgsArSplit( , "8,")!? #(0){1= 'wΪΪ̶𳤶-*"" & rowIndex"е titleȷ޿μһ£ "H}checkMethodXQ@+Fag@H_T-beginCA,_comment sheetV4, 2,F\olumnD isFN@&SelePct FD '-(ʽ" E regBB(,рH.DimEX As ObFjB%TSet= Create#("VBSCRIPT.REGEXP")A'RegExΪ EX.GlobalHBE'ȫ ֿG'vba\ תm Pattern `P ! ʽIgnoreCase`[~Ƿִдj -aTestŘ 'ִ0').Nothin+HHE ° A˵ѾûАʽ?M7 1ѧ׶ڱڲ*[xSameXQNew(|2) 'H4na 3S!sj.Range("A65535")..(xlUp).'c"getTotalC†Count Vallmsg"N).Cells.ClearCont s 'ÿ3ʱ e",curRo"w1 'E¼ʼ'=ocO'ðÿԪغ֮ǰнаȽϧaUi0 @startTn + 2 To r nag4babyID1Is2(i, c35~ AjO@i - 1o32exj x0?q eӅ+@ͬq:ʾ1;1 U?jń̓iCr@=4! >y ') 0:p_N NextnOGOF ֵȡֵo` #AҵCлkeyWord Ĺؼrabn"# ֵΪ HRI Get@@ODlR0(By@H9, St*rf)AIHgenrm-x1уc 'the f&i`ē o c[@@k";IX)6X1 :fXF(What:= Look@In:=xlVs, A xlWhole>@6t@xIs u" (Pkѐ= "`"' caaQI-0q.' ָHcgаsetlpXQp|*?!dex).U nprotp Passw2:="1qazJv&(co1).bp(r?/  Q|()A q1 0!s᷵غfc'Q1t``wunction checkDMB(value, 01, flag) If4 = "0" Then '˵ΪDZxNV^Trim1)nl L*}#True Exit F End If Dim rowDataCounta0 'ijһļ¼#NumSheets(AreasIndex).Range("A65535").7(xlUp). 'І%iFalsiH0GetRowOrCol.5, "") 'ȡXYFor i',|TozbĔgCells(i, g|vN+ 1EF6 Cj orhNextl iA.jN.G+: -ACStr(3j, 3.) C)ρQ@Ƿc@ȇ,_I<B=j' ʱc@ĿΪÁ#`е%@& A'-2 րɾвex<ܱ`ģs 'c  Qahк e deletje ^(',$UW(orksh).Unprotect Password:="1qaz"*@s(c).D 'LC"b' P.1232) 2û222y2No@._3¡ow{,X: ָt֎8hRset2V!XQ, cdU!|tGUXñVl).C=7Q?$  A!+Ŀoxgxr\<Q0bxt  ݴ PZ`(ֵǰʱ1ѾͨУO<k*Codeř,T2H,|de.@o A 2Iv). 1|= ߖ֖ Z}Q?>a_ x*0esRұQQ9L""K!(ߚߚuc2, 2B~$o0Z +bumnPlusV "Oq _:4l ue "Y{Uq%}OL ȥTոRremoveSpace?goRGQR(As ing 'Ԫ擹'length1 Intege(r, 328 '!tʾԭij|aַ~awΪѣ&RW7t Password:="1qa z" value1 = Worksheets(Index).Cells(row, col2rlengthLen(") JCַ=Replace{?B"|pCo+remove$SpBXQTrueWEnd If Z xME(6 << <x <` :p%H@~_$*\Rffff*0B61509ce3"   ( HhxѧϢӡģ$>(@ѧϢӡģ$>B@BѧϢӡģ$>(@oAttribute VB_Name = "Ԥ" Sub Browse_Print () Worksheets("ѧϢlģ").VisiblaTrue"d^P@review2cEnd <jxH#<^r kJQɕ FEv?BOCDEFGHIJKLMNPXRySTUVWYtZ[\]^r`abcdefghijklmnopqsuvxw{z^j"~xME(6 << <` ` @ Ih `icIH IJ `L 0` I  @ ` p I ǡI chec@  @`   2I @ 2 `   =I 4@ P`  HI I yNam@ kYea+H`  biiBchec`H `0H``` `   {I @ 8`   I @  ` x I @ ( `  I @  ` h I I @ 8 `  I @ ` x I @ (`  I * @ ` h  I @ 0 `  I @ @  ` p IH  I  D0 `  IH  I   ` p  IH  I  0 ` #I  I   ` p 9I  I  0 ` VI  I   ` p $$hI  I  0` &&I I  ` p  I @ `  I  ` H  I @ `   I @ p` 8  I @ ``  ""I IH IB u954` ` `f(`----`----`--`----@ ----` @ ` ue@ ^(((` -9])@   `  I ---7`----`----`---@ fals  ` ` !I I @ {3}) !`  ! 4Ih ----IH 8----IB ----` 0 @p 08( 0 0P( 80 H0 P% ""(4X~_$*\Rffff*0A61509ce3>  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 PB  hp*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  ''' '&''''' (  ("(( P(X( $`( "( ( ( ( (() )()0) 8)>P) )4) ) )) ** * * *B  ****+++ +(+ 0+ + +B  +, , , ,(, 0, , ,B  ,- -(-8-@-H-P-X- `- - .B  0.8.@.X.h.p.x... . (/ H/B  `/h/p/////// / x0 0B  0 &0 $0 1 (1&81*`1"1$11(2(2H2h2222 2 223"(3P3p3  x3338334 4B  444444h5 5555555555 5 p6 6B  666 6&6777 7(7"07X7h7p7x777 7B  77 7 78 808H8P8 `8-----------------------------------------1 ,дϢʾ Ϣsheet--------------------------------------- ʱ0Ϊʱ1x Ԫ] H J h$>%P'L L¼'d'ki-----------------------------------------2 Уѧ ҪΪ-------------------------------------------------------------ʽȷfalseԪʽȷtrue $LУ'zk]^[\u4e00-\ue863]{1,20}$'д  $'d'ki|-----------------------------------------3 УڸʽΪ2012-05-09(Ϊ)---------------------------------------A@~0 L== ,Ϊ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]))))$"0* ^\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]))))$'A@  $'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(Ϊ)---------------------------------------]8^((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]))))$' $/ $ / $ ' $/ $ / $ 'A@  $  $d  $ ===='d'kd'kd'kih-----------------------------------------4 У֤---------------------------------------Ϲ򷵻trueϹ򷵻falseP]790584216379058420Ȩ] 10X987654320У $L$''ȥո]0 B " 6)׶֤Ϊ,ΪͨУ 'zk Gzj $$Gzj *[0-9X]Gzj   $' G 'j   $  '   ' $ 0  $G'jiz-----------------------------------------У֤ -------------------------------------------------------------ʽȷfalseʽȷtrueH]"^[\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ʽȷtrue8].^(\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ʽȷtrue(  ,ΪDZ'kxzpkh]^((19\d{2})|(2\d{3}))$'  $'d 'kiq-----------------------------------------7 У·-------------------------------------------------------------ʽȷfalseʽȷtrue] ^((0[0-9])|(1[0-2]))$'  $'d'k i v-----------------------------------------9 Уѧ-------------------------------------------------------------ʽȷfalseʽȷtrue8]^\d{4}[0-7]\d{3}[0-3]\d{7}$'  $'d 'k i v-----------------------------------------10 У绰-------------------------------------------------------------ʽȷfalseʽȷtrue]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\b((^1[3|4|5|7|8][0-9]\d{8}$)|(0((10)|(2[\d]))-[2-9]\d*)|(0[3-9]\d{2}-[2-9]\d*))\b'  $'d 'k i v-----------------------------------------11 Уп-------------------------------------------------------------ʽȷfalseʽȷ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 򷵻true0 H'z@k8 H  'd'ki------------------------------------------------------ȽϴС(Сڵڷtrue)----------------------------------------------------------------'value1value2false 򷵻true HX'H X' H  'Dd'Dki------------------------------------------------------ȽϴС(Сڵڷtrue)-dec---------------------------------------------------------------'value1value2false 򷵻true0 H$4'H $4' H  'd'ki}------------------------------------------------------У鳤--------------------------------------------------------------- ,$'' $/ΪDZ'kzk ,-±0ʼֵΪָάõ± $$4 $$4'zkd˵У̶ $$4'zkki}------------------------------------------------------У---------------------------------------------------------------0 ,$'' $/Ϊ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)---------------------------------------------------------------0 ,$'' $/ΪDZ'kPzHk@ $% Ϊz $4e% С0'zk$'+󳤶$'.Сλ .''' "˵ûС $4' $$4'zkd С  . $'DԪֵλ  . $' $$4 $$4'z@k8k0i(------------------------------------------------------Уֳ(Number,ΪС0)--------------------------------------------------------------- ,$'' $/ΪDZ'kzk $% Ϊz $4e% С0zk$'+󳤶$'.Сλ .''' "˵ûС $4' $$4'zkd С  . $'DԪֵλ  . $' $$4 $$4'zkki-----------------------------------------checkIsInt У鲻С0-------------------------------------------------------------ʽȷfalseʽȷtrue0] ^0|[1-9]\d*$'  $'d'ki-----------------------------------------checkIsNumber УΪNumber-------------------------------------------------------------ʽȷfalseʽȷtrue' $'ki-----------------------------------------checkMoney У0-9999-------------------------------------------------------------ʽȷfalseʽȷtrue]h^(([1-9](\d{0,3})|0)|0)$'  $'d'ki-----------------------------------------checkMoneyTJ У0-9999Сһλ-------------------------------------------------------------ʽȷfalseʽȷtrue]^([1-9]\d{0,7})$'  $'d'kxip-----------------------------------------checkPersonNum У׶԰һ------------------------------------------------------------ʽȷfalseʽȷtrue]X^(([1-9]\d{0,3}))$'  $'dP'k@i8-----------------------------------------checkIdNumLink У֤ԱͳûдǷһ------------------------------------------------------------ʽȷfalseʽȷtruep If colIndex = jhrIDColumn Then checkIdNumLink = True Exit Function End If]%Ա֤ǷӦ]($ں֤ǷӦ]@ڵһγֵ±]X"Ա,Ԫ֮ڵ]p$ݺŽȡ]!,Ԫ֮ڵ]"ݺŽȡ]#]%·]0]H $' $' (ڶλΪΪ H  p$V,PdڶλΪżΪŮŮ H  p$V,Pk $' $' $' -  -  H  p$V,P'i-----------------------------------------3 УڸʽΪ2012-05-09δʱ(Ϊ)---------------------------------------`]]]]^((19)|(20))\d{2}((((0[13578])|(1[02]))((0[1-9])|([12][0-9])|(3[01])))|(((0[469])|(11))((0[1-9])|([12][0-9])|(30)))|((02)((0[1-9])|([12][0-9]))))$' yyyymmdd$'   'zX kP  $'d0 'k i ----------------------------------------- Уѧ ҪΪ-------------------------------------------------------------ʽȷfalseʽȷtrue  ,$'' $/ΪDZ'k z k ]^[\u4e00-\ue863]{1,20}$'  $'d 'kx ip ȥǴӡַ H B$P'  $.   MsgBox addr  !%' MsgBox addr  H B+Pk 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)c52?dV?d(?d' 5dNecessarDe$c2BAB09A[ |(3 / OgO14z9ku  ]r@?q / GR05 R TA R24nL AA `?OpyA Cx d ߏ  a02 1 ߭?3, su? և??`|(q`?x?C"a@Midr 1, 4) + "/"PU5, 2_ 7$bsu, QQ''ree*`lh'DateDiff("d", a, b) > 7 ~J3 N---p!maSSo 9//,oȿ1;4 2֤]0c'I%b IsIDNumber(4By , / )BooleaCon0st W'"790584216 3"2'`c10X987605432C 'T& = U`Case(bU)) `Lո Dim s As Integerh, i hT4If colIndex = babyIDColumn And ID@Number6"" Then '׶֤Ϊ,ΪͨУNaIsLFlase Exit FunctionEf !Len(H) <> 18@Not Isberic(Mid, 17))Like "*[0-9X]:UFor= 1 To 17 TCW@) W0H10Bss + ai!! * T Ne xtCs Mo0d 11CRi(ghtI@)#c,< TADCkTru@kch'-%AA& 'ȷfalBt,+ checkSFZJLX(value^8regHD"^[\u4e00-\ue863a-@z|A-Z|}]{1,30}$"[T C(, CqC ;@SE.AK FC5E´`5ac-1 ѧ`ʶ 42λһΪֻ|x4846r4c hCode4[1-9]\d{40}[\dx]2C[222'#6H2< 8..FamTyp.^(\u519c\u6 751)|3bf\u95477ce`e02)?222d=2?2*$7 dѧʱ811 RXDat1^(((19.20))02})((0i]@12])OckJ}l13?rq+JV/ J --$ݿ_bH@ckYearG, fArgsArrDctR^d3= 0}2ΪDZpcqIi O[jo pk@"%1"9$|(23}#`t## np?##4o#####Monthk:::?ck@/#!b:E_9RѐkOXJH,4}P7т337o//ck@{Q#?10i绰OPhone?5'D\bi(([ 38h4[57eQi5p35k8}00p2PQj-[2r*["3{2}g)\b䷸^1[3|4|5|7|8]08}$Ad \ !ck!!x""o-11 Уп 4( 'ʽfalse*&tru$Function checkBank(value) Dim0 reg  = "^[1-9]\d{14,20H}$"If)CKFT(-, K Then%TjMT EQF^ End If ]k+ Xn%ѧ磨2012-3XnW]`yearsPa(20` 2}-)|(1N9CB9900)oi@hSplit', "-"DAc|B (1) - 0) 1L| ^= |}K ?H~ Du= g?B,OpCעСڂ2 D! 200 vxu##31Dm23$ 4b12""2ai-4eExit 'oJg3Le[D>2!@oFe}߈C ȽϴС(76)$@7eMa uCompareBBCIn{1F2EJ'J9c 87̃J?*-X5decO:5C %h Dec,g1= Cue1 r??!oz'z!RiaI, fdArgsiArrppy@q,IqGO3wX" @(u0"S 'ΪDZ7bKEPv]p UBound(] '±0ʼֵΪάõ 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?P:P± If Len(value) >= CDec(functionArgsArr(1)) An*d T<T2TTh encheckInt = True/ ExiXt F.EIfElse '˵У̶ȓ p,p1ow{'-2GֵΦsF E# AHValC, 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ؠDoublBe2) '!,BλiDntgthInStr(".)Wg \ueGdouP%yûГ ?$/`P ( ) OI!9+ +1^\oG 5PMid1,  - 1ԪQg#λ_!h+pC ϓuϤ_?0Uqg_ggg-gm15$F%p'g ^1/g/@$O/g/giu !O;Yrb,j@ ?gD<v? ?g ? *`_eY_e >_ej_e3@K_eue`#_entcbIfp_e @p_eEt`_e_S_eD2*oJoheTС intValue = Mid(v,, 1,@ InStr<".") - 1) 'Ԫֵ@λdlouW+WA If Len() <= CDec(functionArgsArr(1)) A\nd-x-2Then;che@ckNum1FalseExiXt FOEUIf  '-%VIsInt У鲻0i& !ʽȷfB'AtruGE. #)C;Dimp regV"^0|[1-9]\d*$"C@~C_A(, ) n== T oE k r\n\@Hber]Ϊ\\C ] '#Y@-IsericdL,)(-dYV(#" Money "(0-9(8??WY1WJ(2W(("W(\d{0,3})|0AXX ?XX'$'0TJm0Ǻһλ 8?191TJ1C1"17})0w0 0|ey0&$0P`ersonq#1׶԰һx 7o\1ckv \D151ckO]x!IfI'=  II--BIdLink֤ͳдǷһ?ooo (, rowIndex, colx'ePajhrIDColumn,`'1LvoCQUisGe rRight As BooleanL 'CEϡ8ӦCBirth/+length2Seg|'qһγϡЮ±[gb Gc` ingS ,ڵڤݟer1J Žȡom bqe?Fa" qy`ear, QBVParia'1lmonthL, bdpay, @a|rr!T.17`ˇ- 7YS$=8АZMod 2111 ڶλpΪ@GSheets(sa7).Cell\s(9#7)"lЄE¼Ůԟ͡1Ů{w! B4"!, 5, 2x _, Y2O" 0 + "-" +*ppwNd/\x--32!a:2012-05-09δ@ʱ(p) quNowNecessary(value) Dim st As StringTtimehNowhPZnre = "^((19)|(20))\d{2}(0[13578]1[02]))((-9@[12][0 38[01' 469 11/e,02Q)))$"r{= FormatB(t, "ymmdd"If >ThencheckNuFalseExit Fu nctioEnpd If-C+#(,6) E4 5Tru4E?9K &'-%> У ҪΪ֦ 'ʽȷ෵fCRBtAUz)p6U%'%:%$ppa"z)p61:Ntt(((0 6 t0 ( uW  ''0:Ntt: :!^6 t0r;:%p(%$dp)p=(%p(%$dpW"C#)p5 un+'t'':$N 6tz;:%p(%$dp)pzRp(%$dpW%:&`  '/ )p6 u ( uDh (( () (* +, :+- (uz.z/(uDhP M(% @p(%$dp A0h)p5z1h:+]@ 3:2Nh  3X/ 53:4Nh  3/ 5X5IL,X5ILi|X5Iih\I| @X:4N  3H/ 6(%H((3zH(%H:5N  38/ 6&85ILiL85Iih,z<L @8(q(l 6-(6 L~,3 |~\Z u1GH(%X:5N  38/ 6&85ILiL85IihG<L @8(q(l 6-(6 L~ 5I= (%((38 H(%:5N  38/ 6&85ILiL85Iih8 <L @8(q(l 6-(6 L~ H(%X:5N  38/ 6&85ILiL85Iih <L @8(q(l 6-(6 L~ Mf% @ @p(%$dp C7)p5 ~O")(]<)(/' 7:8:9-::t`,6tz, '5( *(]t U " ( &vivih Mvi%p: %$dp;<)p5 ~@ vi"{u.z ~(x (hXZ x"pzx(]3 zM@( = 6M ,kzDx(t = 6t x~X  (]t 7'0't':> :? 6 t0uG+'t'':@N 6t=(%p(%$dpW"C#)p51p: %$dpA)pzB( C6 uB7+'t'':DN 6t=(%p(%$dpW"C#)p51:ENtt(((0 6 t0,M@(((t F6t+'t'':GN 6t=(%p(%$dpW"C#)p51p: %$dpA)p;:%p(%$dp)p;:%p(%$dp)p;:%p(%$dp)ptr$%l\<,hXP|XLxh`H8( "plaormappl"4 ( pt00   f`rU @nrU~|   aQ)yA0  __SRP_a__SRP_b__SRP_c__SRP_d 0   0   0 X  0   0   0   0 x  0   0 p$  0 (  0   0   0   <:4%DX%h$hdD)hDJ$%DX%h$hdDC)hD5",x(lhD0 `   0   0        rU , `//( `0( `08 `1Q////0! ` 1///<I `1q/////<q `1/////, `//( `/0 ` 19Q8 `1a////09 ` ///,a `1//, `1//8 `1a////0 ` 1a///8 `1a////0) ` 1a///nrU~|  ""0   0   0 0  0   0 @  0   0 P  0 H  0   0 8  0   0 (  0   0 8  0   0 (  0   0 0  0  0 0  0  0 0  0  0 0  0  0 0  0   0   0   0   0 p  0 `  0   0        !CrU 0 ` 1///( `/, `//( `/(! `/,I `//,q `a( `/( `/( `/( `/,9 `//(a `/( `/( `/( `/( `/,) `1//,Q `1//,y `1//, `I//, `I//,  `I//,1 `I//,Y `I//( `/( `/( `/( `/(! `/0I ` qa///(q `/, `I//0 !` 1a///nrU~| __SRP_e__SRP_fgShowForm PrintForm0  krU $`nL+nxME     !"#$%&'()+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXY[\]^_`abcdefghkmnopsuvwxz{|~(SPSSS0{2654CF0B-B82B-4BC6-AF8D-4BFFAFEFE1D5}{24B3DA00-47D6-47B0-B136-7EBE10286903} 6@ :% %@@~_ " 0 8"HP Xh xȡ' B@8oHȷ@ ' B@8 oPAttribute VB_Name = "ShowForm"  Bas|0{2654CF0B-B82B-4BC@6-AF8DFFAFEFE1D5}{24B3DA00-47D6B0-B136-7EBE102@86903}dG lobalSpacoFalse CreatablPredec$laIdTruBExpose0TemplateDerivCustomizD'ȡ P Sub CancelButton_Click() notContinueBoolT Me.HidZEnd! @ 'ȷ ,onfՏ,-Fl;/HLOʘxME(SPSSS0{4065D527-7E27-4204-8B66-E9FDACA22A16}{648CC6D5-8DED-4FE6-93FF-8F49A3A1E40C}p0(%X0 %0`~_xAttribute VB_Name = "PrintForm"" Bas0{4065D527-7E4204-8B66-E9FDACA22A16}{648CC6D5-8DED-4FE6-93FF-8F49A3A1E40C}dGlobal!SpacoFalse CreatablPre declaIdTruBExpose0TemplateDerivCustomizDt6D zL#<Q`.ImE_2HFIF5cwxIF5cwQ`.ImE_2HME(ThisWorkbook!* _VBA_PROJECT_R$PROJECT(ZShowForm%wʌwʌSLSS6"  <,<0<4<8<<<N0{00020819-0000-0000-C000-000000000046}` $`k@8 i& `i( % %  %`@.0,*24@l @\ @0L @x< @H, @` @ @ @ @ @ @8 \@ @  @P @| @hl @\ @L @< @, @ @ @( lse,@@ ": f@ ": "@ : "k@<8~_$*\Rffff*0<61509cd5*\R0*#f*\R0*#1*\R0*#17$*\Rffff*0=61509cd6*\R0*#2$*\Rffff*0>61509cd64 "     )ǷȷϽҪexcel籣棬"$.ȷ"$., $.&ϵͳҪмУ飬粻棬"$.ȡ"$.? 0$,'* * 2A@4dP'(k@o80ڱAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046}|GlobalSpacFalse dCreatablPredeclaIdTruBExposeTemplateDerivBustomi6zD2P Sub _BeforeSave(@ByVal AsUI As Boolean, _ Can(cel)isButtonkMsgBox("ǷȷϽҪ@ex " & Chr(34)"ȷ ,10ϵͳмУA?", 0vbOKC63If L4 ThenBDAӡΠϢ E‰gPP= fE nd If Ai 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" Vea *\G{000204EF-0000-0000-C000-000000000046}#4.2#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLL#Visual Basic For Applicationsr*\G{45541000-5750-5300-4B49-4E47534F4655}#3.0#0#C:\Users\Administrator\AppData\Local\Kingsoft\WPS Office\11.1.0.9999\office6\etapi.dll#Upgrade WPS Spreadsheets 3.0 Object Library (Beta)*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\system32\stdole2.tlb#OLE AutomationZ*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#63.1#0#C:\Users\Administrator\AppData\Local\Kingsoft\WPS Office\11.1.0.9999\office6\ksoapi.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{7F287CB0-7BC3-4710-BE9F-FFAAAD187848}#2.0#0#C:\Users\ADMINI~1\AppData\Local\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E.`M  ~_  ThisWorkbook0<61509cd5!ThisWorkbookzLx Sheet10?61509cd77 Sheet1H Sheet60361509ca19 Sheet60-SbpSȉ0B61509ce3:SbpSȉH]wQQpe0@61509cd7D]wQQpe`S Xf0=61509cd6jXf&x!hQpe0A61509ce3!hQpe~dj;N z^0>61509cd6;N z^Ux`-ShowForm0961509ca15ShowFormn1 Sheet50:61509ca1= Sheet5h-PrintForm0;61509ca1?PrintFormʘ`H0x7GWH< xٷ1KN/ 'V*3Ai_ntrKBtܠI?vdxO"ɹ-(Nj1 Io_L/_&-`othersMoneyColumnߥ`othersMoneySumH`(atLeaOneNullCount` (atLeaError~` (regCheckFuncE`reg`regEX*` CreateObject`Patterni` IgnoreCase0`Test4`(checkTheSameXQNew` sheetIndex2n`(rnaO`Range `xlUp`row`ClearContents{`i``babyID1` (babyIDColumn`ja`babyID2` (hasTheSame`(GetRowOrColIndexf`keyWordF`kbn1`cZ`Findn`WhatC`LookInP`xlValueso`LookAtO`xlWhole`Columni`(setCellValueCountXQ]`colIndex` Unprotect?`Password`value1`flag`Trim@`rowData1`Count0v`rowNummR`(AreasheetIndexH` (deleteRow`RowsU`Deletex`(deleteRowNoPro`(setCellValueXQ` codeValue` (columnPlus`length1S`length2T`Replacef` i`(!ValueColumType` columnNamew`(sheetIndexValue1`(AreaSheetName`(readmeSheetName` (totalCount-`(rgold`(TargetF`(hasErrorInValidateU` (dataRowStart` isNullRowNum8`(cna`(notContinueBoolt` (genderColumn~`(birthdayColumn0` У麯&`(checkBirthdayNecessary`aX`DateDiff`IDNumber4 `Wm`UCase5 `sj`Tk`Flasep` IsNumeric$*`Right` (checkSchCode` (checkFamType` (checkRXDate*`(checkXJHF`years`value2` (compareDecN` maxIntLen1` maxDoubleLen` intLength`intValue`douValue` (checkIsIntR`(checkIsNumberG` (checkMoneyTJC`(checkPersonNum `(checkIdNumLinkUz`IdNum>`isGenderRight ` isBirthRight` genderValue` genderValue11` birthValue` birthValue1~`year6n`year1w`month`month1`day`day1;`arr u`st(_`timeNowy` timePrint`Now%`(checkStuName1`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` Sheet5` PrintForm`Workbookk` BeforeSave` _B_var_Chr\;`_Defaultj`!_B_var_sysDifficultyGradeNameFlag_`_B_var_indentifyDateFlagE` Worksheet`_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`! = ? 79 ;E 5k"@ p0(P7q YX!HH  rsionCompatible32="393222000" CMG="90923C3A403A403E443E44" DPB="20228CD3A9D3A92C57D4A90368B5C7184F8573BE0A25F72A12EC2FD33921E14505E17888" GC="B0B21C5F1D5F1DA0" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=0, 0, 0, 0, C Sheet1=0, 0, 0, 0, C ߺ=0, 0, 0, 0, C =0, 0, 0, 0, C У麯=0, 0, 0, 0, C =0, 0, 0, 0, C ShowForm=0, 0, 0, 0, C, 25, 25, 1146, 486, C ӡԤ=0, 0, 0, 0, C PrintForm=0, 0, 0, 0, C, 50, 50, 1171, 511, C Sheet5=0, 0, 0, 0, C Sheet6=0, 0, 0, 0, C  }t  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 'fi&o$&CompObj'jaVBFramel 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 'PrintForm#-*wʌwʌfq&o)+CompObj,raVBFrametPROJECTwmyMsoDataStorewʌwʌSummaryInformation(0} End ThisWorkbookThisWorkbookSheet1Sheet1ߺ]wQQpeXfУ麯!hQpe;N z^ShowFormShowFormӡԤSbpSȉPrintFormPrintFormSheet5Sheet5Sheet6Sheet6Oh+'0HPXd p|ޘ@&@3ʌMicrosoft Excel՜.+,D՜.+,H(0 8@ (\dlKSOProductBuildVer2052-11.1.0.9999DocumentSummaryInformation8$