ࡱ> )iz-  !"#$%&'(K+,<h/0123456789:;=?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefgklmnopqrstuvwxyz{|}~Root Entry F( *|WorkbookLETExtData:_VBA_PROJECT_CUR"26&@    \p_[=NwZ Ba= ThisWorkbook=)m.8X@"1[SO1[SO1[SO1[SO1[SO1[SO1[SO1Arial1[SO1@[SO1[SO1 [SO1 [SO1[SO10[SO10[SO1[SO1@[SO1 [SO1[SO1 [SO1h>[SO1[SO1,>[SO1>[SO1>[SO1>[SO1?[SO14[SO1 [SO14[SO1[SO1[SO1[SO1<[SO1Arial1 [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\)c/_-* #,##0.00_-;\-* #,##0.00_-;_-* "-"??_-;_-@_-u8_-""* #,##0.00_-;\-""* #,##0.00_-;_-""* "-"??_-;_-@_-S'_-* #,##0_-;\-* #,##0_-;_-* "-"_-;_-@_-e0_-""* #,##0_-;\-""* #,##0_-;_-""* "-"_-;_-@_-                              P P     /    ff7 `  a !* "- #+  1    1   -     9 *     6 .   $  1  ,  1  5 / /  4            $  @ @ ""@ @ ""@ @ @ @  @ @ !@ @ @ @  1@ @  1@ @ 1 1@  1  1  1 1 1 1@ @ 1 1@ @ 1@ @ 1 1Q@ @  1 1! 1A  1@  1|@  1@  1@  1!@  1!@  1A@  1 1Q 1 1 1Q 1  x7 1|@ @ 7  1|7  1Q|7  1@ @  1<@ @  1Q@ @   x x@ @  1a 1 8^ĉ  lʑ lʑ fJTe,g fJTe,g hhʑ'`e,g 5ʑ'`e,g h 1h 1 h 2h 2 h 3h 3 h 4h 4 eQeQ QQ !{{"hgUSCQ40% - :_eW[r 62340% - :_eW[r 6!?60% - :_eW[r 62460% - :_eW[r 6@8^ĉ 12 A8^ĉ 2B8^ĉ 2 2C8^ĉ 2 3D8^ĉ 2 4 E8^ĉ 3 F8^ĉ 4G8^ĉ 4 2H 8^ĉ_hQVL?e:SRNxccXTableStyleMedium9PivotStyleLight16` - ؚ!h,gNyV[Rf[ё TUS9NxhKOo`VV580 MOC A@-KmՋ@b g!hĉRv^SbpSOo`!  = a checkName checkZjlx checkSfzjh checkSFJEcheckDateNecessary checkSQLY checkBZSMlaRte!jgveeg3ut1uYlf6 _{:NIlW[SNS+TT'Y\QW[k ^'YNI{N1 N NǏ20*NIlW[ OY _ N b _san _kXy3%; kXQf[uNN{|W SNxh-NvNN{|WۏLkXQ Y E\lN 0 Q[ I{2kw` Nxh _kXy8%B kXQf[uNN{|W@b[^NS OY:kXQE\lN, 140602199907061024 gTNMO:NW[kX_{'YQ _kXy >% kXQDRhQ(CQ/f[g) ё NP:N2500_kXy% kXQ^Sё ё NP:N2500_kXy% kXQ[Sё ё NP:N2500_kXy%P kXQDRDёvS>eeg eKNMRveS+TS_e lV[Rf[ё cgS>e S>eekXQ:N,gf[gёS>e[e0_kXyM%5 kXQ3ut1u,wQSOSgqNxh-NvNy OY A SkXQW[k('Y\QGWS),SY , NS͑ YeQ _kXy2%;Yg3ut1ukXQ&^ H vQN vt1u kXQYlf SKNR NkXQYlf W[&{^gY:N100MO ^_kXyel T^S/f Ty{|WapplyListEntryFAILURE checkYesNo/f 4121010158&T checkGendersY'`+RsY7u'`+R7u checkDiffNameyr+RV[V~+R TyVN,V NVcheckIDCardTypeE\lNQ[XuQeLr^yO /nyr:Sbgq/Nf oyr:Sbgq/Nf S~nE\leg_'YFLXY8lENE\OOAbgqB7bSCvQN checkTerm%fc[f[gf[gyc[f[g[^mS6q~p[ [^mSzSaYNN[^bXTVkuD t^ȏ RRR1_`QE [^1\f[P[sYYF[^bXT1YNG[^ k:PHI^chzaS[^JNOO checkZjlxZ a$    %4  dMbP?_*+%z&ffffff?'ffffff?(?)?" d333333?333333?& cAU} ]Y} Z} Y} .Y} .Y} .Y} Y}  Y} Y} Y} 3 Y} 4k Y} llY} mp Y} qqsY} ru Y} v Y}  Y rrTrTrUrTrTrVrWrDXrz@ [ \ ] ^ _ T ` J J xlza bbc d ef g hijk bbc V k V T T T l T T m n m V V V o p p p iVl{ qp q r s q s s t q q y u v u u u! u" w# u$ u%l|Y:~Lq(   Lq  Ԕ5%Ԕ5%((?Comment 14668]4L9`  <kXQf[uvY T<&  V 9CCButton 19],@A9 $< _Yhg<  Z 9CCButton 1535],@A9 $<_ Y h g<' i \ 9CCButton 13801D],5@A9 $<_ Y h g<'L9admin>@<d ggDh8hb:SW2_1Sheet1   5%DxJ  dMbP?_*+%&ffffff?'ffffff?(?)?" dXX333333?333333?& U} .J} J} J} !J}  I}  I} I}  I5@,,,,,,, , , , , ,,,,,,,,,,,,,,, K& L' L( K) I* I+ J,M?N? J- I. J,M@M J/MM J0~ M@ N1 J2 J0~ M? N3 J4MMMO J5~ M? N6 O7 J5~ M@ M8 O7 J5~ M@ M9 O7 J5~ M@ M: O7 MMO J;~ M? N< O J;~ M@ M= O J;~ M@ M> O J;~ M@ M? O J;~ M@ M@ O J;~ M@ MA O J;~ M@ MB O J;~ M @ MC O J;~ M"@ MD O J; ME MF O J; MG MH O J; MI MJ OMMO JK~ J? PL JM JK~ J@ PN JMM J Q JE JO J Q JG JPDlF @288 888888888888888888 8 !"#$%&I'(,I),*,+,,,-,.,/,0,1,2,3,4, J Q JI JQ !J !Q !JR !JS!R "J "Q "JT "JU #J #Q #JV #JW $J $Q $JX $JY %J %Q %JZ %JJ &J &Q &J[ &J\ 'J 'Q 'J] 'J^(JSJJ )J_~ )J? )N< )O *J_~ *J@ *N= *O +J_~ +J@ +M> +O ,J_~ ,J@ ,M? ,O -J_~ -J@ -M@ -O .J_~ .J@ .MA .O /J_~ /J@ /MB /O 0J_~ 0J @ 0MC 0O 1J_~ 1J"@ 1MD 1O 2J_ 2JE 2MF 2O 3J_ 3JG 3MH 3O 4J_ 4J` 4MJ 4O. 8B88888888888888888> @<d' ggDSheet5   %  dMbP?_*+%&ffffff?'ffffff?(?)?" d333333?333333?& U>@<d ggDSheet6   !"$%&'()*+,-./012345789:;<=>?@ABCDEFGHJKLMNOPQRSTUVWXYZ[]^_`abcdefghijklmnpqrstuvwxyz{|} } A.  A.  A. [0JHH "Hd VBAP@rojectD@& = r )[ J < 9stdole>stdole( h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\System32\e2.tlb#OLE Automation0AEOfficEODficE E2DF8D04C-5BFA-101B-BHDE5EAAC4 2Egram Files\C ommonMicrosoft Shared\OFFICE16\MSO.DLL#M 16.0 Ob LibraryKMSForms>SFrms3 D452EE1-E08F0A-8-0260VBA @  Xf.qdir_;N z^> R  &xRRME(@n06 <nhP0hpt0Hx`@ʀ @8 @ꀎh @| x @%Ϣ%ꀨ  @  @ꀤ @ꘂB @@ꀐp @`@ꀆ@ʘBꀈ0 !@ꘊ`B#˵%hBrB^HpHvxHʘBʀ @ʀP @z8ph @ꀢP @0 @*  @~  @ꘀ B$PB‘@ʀ @@ꀚ @N@B bphB"ꘌB$PP00p @x`@H` p8lP%`x:)[*\R1*#2a2$*\Rffff*0M69249231(*\Rffff*0M69249231\066    08  @ ` Dp 8 0 P0pD084P. ..(8(`>"$$(@h>R^ F `*X$    0^^0p@һṹҳ]$H=Public Const sheetNameValueTJ As String = "2ʵͳ"]$Ϣ2Public Const IntroSheetName As String = "˵"]$H]$˵0] x ¼ܵУ]$`¼ͷ] "ִ һǿУ ĵԪĿ] 6ִ һǿУ ĵԪΪϹĿ] ÿһкϼеֵ] "һǿУʱ¼Ԫ] Ϣ] %---ģУ¼ĸԪ] 8---ģУ¼ĵԪ]   Уʱ洢ַ] P¼ʱرհť]  ¼ܵУǷвϹ]  ¼ܵУǷظ] #¼ܵУǷظ] %/¼ЧǰǷдϢ ״̬] #У鷽ķֵ]$)¼ʼк]$ )ѧѧſʼλ]$)ѧ֤ſʼλ]DP¼ΪյĿ]@"/ǷΪЧ ͳ 5ֶΪյĸ] "C¼ȥոִнȥ˿ո򷵻true򷵻false] pPcellԭʼĵݣϵͳûнԶûĴ֮ǰcell] 7ϴдϢʱڵ,ӦĿʼʱʼֵһ] ] ] RڸݱʶòͬķʱжǷforѭ Cell_SelectionChangeҪõñ]$¼ʡصȼ¼ڵ]$+sheet±Ƿ] @]$h0)е]$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= 2 'ѧɀѧ0λæccard3 ֤)Dim isA1(Ϊev%.AFΠЧ! a 5ֶc fremoveSpaceFlatEBȥո@πa$ˡ2tr@uefalse ceࡌ2!2a@|ûнԶûwG֮AKsc ur`@*)Long 'ϴxдO!a@,ӦĿʼʱsֵһ&rna%'`g`cQbisF0SI2ڸݱʶòͬP-CE жϱ?forѭ C_Sele bJChQҪõwb)headdI= 0(/ʀصȱ& Susv9r0v±0 nottinu~eQ$Aq0NӑP luBW:104 @'gHwge rC:Ա w birthd$ay= @ڵ 8C4D0BB4 SINDOWS\sSFM20L'B _&/;"1jIqAHq00}#0Bq# 50 A2DCF1D5F-9A75-4(A43fDhB351B789AAA6Users\\AppData\Local\Tem`p\VBEb7.xexdcec ec eo dm k  G;Xf"a2fo $o &У!hOeeo mo ~k !LGbQ;N zl^b2o 9o U2Show1axG`6\onw3e2rowS4nO( l5^5^5^5^zh^ PrintCrinw%bj2odb>ʘxME (9UxME6 LL L"L ` :@`@kP@ @ @ @ @X ` @@ ` ` `  `2 `" @8%x@ ( px``@(x@ D2^\`@8 @0 @X @p @ @ @ @ @0 @`p @h @P @(8 @ <^08 @H @ @ "@`"@ '@`'H46X@ @ @x @` >@(H @>0~jP@0 @& @P h(G@ PG@ @ @ O@ (O@p @8X PU@@ 8U@8 @0 @ @ @ 8ce@  8i@X H ip w@ X~@ ~@p @X X   p P@@ @x( @  X @  @ @ @ 0   *@)[$*\Rffff*0<692490fb*\R1*#408*\R1*#140*\R1*#134*\R0*#17$*\Rffff*0M69249231*\R1*#12f*\R1*#43$*\Rffff*0N69249232*\R1*#13c*\R1*#2a2$*\Rffff*0K692491f7*\R0*#2*\R1*#12*\R0*#f*\R0*#1 h"hp:x.6" "H.p D  :L \8@\H\h\>^":  4P,`$>^, ( ~@$PV 8X x >|   "n   "@h   p  \  (.d0 `,Lx \ * *@(X%0p%D%%%0%( %,H %& x  ( #6z $J $"@ (,Vh (PV (`" (,LFH 4Jv <($ <?  D6v D0>X HBj Hl " G$ H( M4l0 N~h N& N8N P ,`I D@,  ,0 48v40>8 j08lP "pG$HM4lN~N&pN8N  ,I 40 )"((<($P <<0xH6vH0>PBjPlX "xG$HM4lN~N&xN8N  ,I H <((" 0,8vX,0>0 j0l "G$(H8M4l@N~xN&N8(N ` ,pI ,($$x  < 60(LZH(&( (   )$  >,X, h (x,>40x, ,",   0(28` p*4 +$N  `^X `4LhdN   &4 $ LHd`PVx 4LdN 0 8 \@ \` \ x" (82H$@6 *0 :`   ,(08 Ha--------------------------------------------ʼУ-----------------------------------------]X]p+ijһ͵ıʶкź͸ʽ3:1;2] ʶ(ĬϱʶԶʶ)](ijһ͵ıʶ飨кź͸ʽ] ijһͱʶľֵ]Զʶ]%Ѽ¼ΪյкŷŽ]( D!J'"ȡĿ 0ĿȷģٽдУA@21qazT$DB@|k1qazT$DB@R1qazT$DB@R1qazT$DB@R ^$\!VB@ -$ÿοʼʱѴϢsheet,'`Ϣ¼ʼ'.ôУУ¼Ƿд֣׶ϢУ ('#Ĭ϶ѼδͨУ'Ĭ϶δͨУ ^$\!VB@ -$ÿοʼʱѴϢsheet, A65530$D%%!' ȡxcna = Worksheets(1).Range("1:1").Find(What:="*", After:=[a1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Column IV5 <%%!@'FAILUREA@^&+ȡǷУɹ־Ԫ񣬲ֵʼΪ0'ռ¼ʼΪ0 0 8" ʱִd ʼУ鰴ť¼ʱִ A9:IV65536$D%!h5ͺ9 9q A9:IV65536$D% 9 ,@9'ıʽq.ȷʼ Уرexcel $4ܵݶʧʧ 6ܰʾ$2 8d1qazT$DB@|kk.$D!b(j)ҳǩΪɫ   "ûвҵѧϢ޷У飡A@2'01qazT$DB@|(k 'ôУУ¼Ƿд$D!дϢ£A@X      '<"ִ һǿУ ĵԪĿ';6ִ һǿУ ĵԪΪϹĿ'''5"һǿУʱ¼Ԫ'9ǷΪЧ¼ '~C¼УǰǷд';¼ԱǷд &  &$D%V!'Oһбʶֵ'2=жforѭǷcallFunctionXQStart ûִĬϷ <ʶΪ -$'Gʽ14-3:25 :$'H6ʽ3:25ȡıʶвֳ֣кź͹ DJҪּϵҪУ飨ĬУ͵ԶУ   Y&+1ΪеһԪΪĬУ $:$'V*ȡıʶвֳ֣кź͹$'SԶʶ  $;$'cԶʶ͵ľֵ   gԱʶб $  & A@}ݱʶֵöӦķ  &$D%V'Hȥַķ $j'   &$D%V'{ȡбͷ  & е Fַ^ , ; ' <> " ? ո س뷨Ϊȫͣ飡''^УʱдϢ  &$D%V!t(v ӻɫ A@XN%isValidateCount = isValidateCount + 1kh`kX  $;$'Pȡıʶв   WԱʶб $  & A@  &$D%V'Hȥַķ $j'   &$D%V'{ȡбͷ  & е Fַ^ , ; ' <> " ? ո س뷨Ϊȫͣ飡''^УʱдϢ  &$D%V!t(v ӻɫ A@XN%isValidateCount = isValidateCount + 1kk eJ ʽ3:25$'QԶʶ  Pʶеڵǰ$;$'eԶʶ͵ľֵ   kԱʶб $  & A@ݱʶֵöӦķ  &$D%V'Hȥַķ $j'   &$D%V'{ȡбͷ  & е Fַ^ , ; ' <> " ? ո س뷨Ϊȫͣ飡''^УʱдϢ  &$D%V!t(v ӻɫ A@XN%isValidateCount = isValidateCount + 1k  k d-ֻĬУʽ14$;$'Hȡıʶв   OԱʶб $  & A@  &$D%V'Hȥַķ $j'   &$D%V'{ȡбͷ  & е Fַ^ , ; ' <> " ? ո س뷨Ϊȫͣ飡''^УʱдϢ  &$D%V!t(v ӻɫ A@XN%isValidateCount = isValidateCount + 1kX P kH k@  &$D%V( & 6ִ һǿУ ĵԪΪϹĿ     е һдȷ''8УʱдϢ A@X  'd   'Tÿһкϼеֵk  <,һؼֶȫ򽫸ɾ  +  ',"ϢеĸдϢɾ  `  ` `  ^$\%VB@Xr Ѹɾ  `  '` ~'k k   6 ɾЧ $'  A@PB ѸɾdX   A@PH Ѹɾk(   ˴Уɾ :Чݣ֤У鶼ʧܼΪЧݣA@2k *дϢ鿴ϢA@2$D!b(j ^$\B@Hd0'*A@ *'%ִУظݷ,ûظǷҪɾЧ Уͨ!A@2.$D!b(jSUCCESSA@^:+ȡǷУɹ־Ԫ񣬲ֵʼΪ0d0*ظݣ鿴ϢA@2$D!b(j ^$\B@Hkk1qazT$DB@1qazT$DB@1qazT$DB@oXq-------------------------------------------------ظijһ------------------------------------------------@]] A65535 T%%!'2Scripting.Dictionary$ .$O8O  T%!'&>ȡѧ ( &%"ѧ໤֤ݽб ( ( $%*-֤Ų ( $B@,&#addһΪkeyڶΪvaluekXkPH !.' Sheet2$DG:G7B@   !2%4 !JG17,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)..@1h/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^`Ӱťp¼)ith s:9:IV:61@r ׀ͺ' .["B嬓.Siz161gW  .Horiz@alAlignmgxl:k berForma@tLocal! @"ıu 3Y1ca("ȷQAM ̑Hرexcel" & Chr(1@o& "@ʧ3!Can0*ܰʾ") # 1# r!_h_h[h=3 hKTaBbwlorI`OxA -4142}ǩ'Ϊɫ PIstartTitle >+``|yt`3 "ûв@ѧA^`޷1ya> 6 i2 Toqg :eaOnefNa#= `UQ һǿձ YO`_΀?totalMoneyw&e!P. "? "miijspsieHr@Ч15/InE ' ǰQC0??9dsydԱQ}-j 1,g=9(1, j).һ֞յ_is = $жforѭ! olFuncXQSV S5Zw <> p&QZ ' 1/#= S0t(+o-o'S14-3:25 $rowType = Split(t0Value, ":") 'ʽ3ȡıʶв кź͹'If UBound(bs) <> 0 Then 'ҪּϵУ飨Ĭ x͵Զr 'HFPor mLa+ 1 Tol'+1ΪеԪa@valE`ntityrT(|m)roRow"%(0e3;{@i)E,'@>kGA1b;BľֵRnR)Q'gx? callFunctionXQStart `(n`1, Pi, jsidateCt#ֵöӦķ #uWorksheets(1).Cells()_ _ #'!ȥַ? (removeSpecial@>Character(_$f+g ,`leMsg5sKTitl@jAбͷ9A)error"" & i`("AjA F& "څ@^ , ; '"" ? ո س뷨Ϊa뀼飡"_ hasE `Tr1'!sʱxϢoT8.InP+ior.Colv= 65535 'ɫwriteLog uO'iLO= p_End If /Next5 _ m ss= False2ooV4T0_S~~~ }}} RkBzzz;s= zzozʕzȡzzzzzzzzz zzд Ϣ JWorksheets(1).Cells(i, j).Interior.Color = 65535 'ӻɫMwriteLog er@rorMsgM`'isValidateCountk+ 1:End If 3)Next&Els@eIf UBDd(rowType) <> 0 Then '3:252#tRow^(0) 'ԶԸ{@Ci(C+A(еڵǎ;jval`Splitcs, ";"N%ľֵ) yjF}nLA) ToC' б+callFunctionXQStart `(n), 1, Ay'$4öӦķx+u>e %v__#' !ȥ? (removeSpeciBPCharac`()#m+m (title5sLTaa 'ȡбͷ)%"" &D i`"AjAA& & "E ^ , ; '!["" ? س뷀ΪȫU"_ _ 0hasE{P Tr1'УʱS_8_ ߍ 'ֻĬBq)Í140pPp.9szbs1ez!1Dħr//xxxvv% ?bc::// rrKk= rr rrrOrrrsgtrrrr_ ?rr2@Ϣ JWorksheets(1).Cells(i, j).Interior.Color = 65535 'ӻ MwriteLog errorMsgM`'isValidateCount#k+ 1:En@d If +)Next! ׆@LockedOF0alse_*3 j 'ִ һǿУ ĵԪΪϹĿIf atLeaOneNull~<> 0 Ah = ThenEa@I"" & i"Ё,MEA?Ё?дȷ`"has = True ')ʱд_?% sKn+ 5EMtotalMoneySLum1+  'ÿһкϼ@4ֵicO> 1 II '!2ؼֶȫɾ&_isAWRo wArr(Num) !i r E ) `'yeO-%Vi FpcFua  - -.To  fSCmsg"Name$).s(x). Deletpܸ_9/p" =OhEInu3 )?; rq 0 i/@!1 '%Ч  rowData,/4q)@?T_cd"A,1,)'#oROs- q qURtK!zw ; Box "˴AnRRwJ& xݣ֤ʧܼҴ:Ϊwvnp 2 y鿴"EQ`+TabӻIndex016MMS(c%0SP0/#checkdXQNew Not 3(0n ظ,asûD0,Ƿrf`ͨ! -4142csetTu@eXQ 2,!8, "SUCCESS" '! ɹ־ֵʼ໯Ϊ0 g(o(o(o(o(o(^7Protect Password:="1qaz2).3 Sub 8 '-!/cijһ-, Sub checkTheSame() Dim myDic As Ob ject, Key VariantPH, va rData 'rna = ActiveSheet.Range("A65535").End(xlUp).Row ' b Set idNum= Create("Scripting.tionary"=b I@O8", "O" & R).value 'ȡӀF݃GFor Each carK In#O4'ԁ ֤ @б$  If"<> "4" nNo~.Exists (<) 'ԆGA.AddE, Null 'addһΐkey?Ch,INexƒ Cmyj=.sWith WorksAsp2GmG:G@ClearContent41@Resize(B.Count)Appl(ica.FFunon.Transpos 'D4'*= a2h@ @ ]wQQpe  juSbpSȉ #!hQpe  ׉Sheet16GxME(6 LL L` X IN xIP `R X(`  iZ b`   iZ lx`  In IN 8IP XIp  z0`   #In IN IP  `  -In IN I  ` @ 2In `I IN IP I  ` 8 GI XIn xIN IP( I0  ` 0 @I PI `   `  NI +, ` X eIn xI. i0`2  ` ( vI HIB hID @H P8 `  In  IL  Z ` In  IN  I  I  \ ` h In  IL  ^ `Hk In  IN @ I ` I (   ` I  In  IN 8 I @H @` @R  ` In  IN 8 I `B`d`f j`  I @   (x0  8 J%@ ` x@^ D8X@ @ @0 @ @H @`x @` @H h 0)[$*\Rffff*0K692491f7*\R1*#408*\R1*#140*\R1*#134 B       B  B h p2 p `B x 8 $ 8 "@ pHB  8  $0 X$`  B ( 0P xXB 4(0*X$ 8BP0h!  ( 0 8 @  B     4 $P  "x   "   .  8 0H x  0   * 0 H .X   .   0 8H6` 6 .  P`8x 6  (8 `p.   f X x>&  X( h *0 `j& 0@PXx `   H((xp H(0 H(p H( h &p  n HXp x 8( 8( x &  n Xp  8( 8(  &  b h &X  ,    f X! x!!! ! 8!(! 8"(" x# &# #### f# P$(h$ $ T$ &$ %0%8% $P% &x%$|%$& &$ H&$X& h&p& x& &$t&$&'$ 0' @' $H'P' X'x' ^' '"' (@((&h( (( (((( b( `)p)) t) &* 8* H*P*p* bx* * ++(+0+&+ + ++, , ^(, , ,,,X,&8- `-p-x-- ^- .  .0.@.XH.&. . .../ ^/ p/ ///T/&0 @0 P0X0`00 n0 0 101"@1h1&1 2 0282@2`2 jh2 2 23"(3P3&3 4(404P4 nX4 4 45"5@5&5 5 66(6 P066666&@7 h7 x7777 R78 888X@8&8 8 8889 b9 p9$99@9&9 :0:$8:`:h:: ^: :";0;@8;&x; ;;";;;< ^< p<&< <@<&< =0=&8=`=h== |= >$(>P>(X>@>&> > >"?(?0?P? |X? ? ?@@@&X@ @@ @@@@  j@ XApAA AFAA@A0B&8B `BpB0xBBBB pBHC(`C CCCCC CC C DD(D@DHDXDpDDDTD&D E 0E8EXE t`E E$EF@ F&`F FF$FFFF NFHG.`GGGGG GG&pH H HHHH dH HI `I@I&I II2J8J Npc b b@bNHb&b bbbPa&bc c0c 8c @cHchc x@J J6J.K@KPK( XK2hK( xK1K( K2K( K1KKKJKHL`LhLpLxL fLB L L<L8M XMpM$M$MMM M \N B N,O 0HO@xO"O ^O 6@PxPPPP0PH QhQQQQQQ Q "PR xR .RB R R$RBS PS `S pS S S SSS S HT `T xT TB T"T TTU UUU U8@UxU2UU U UV VV V(V FHVVV V V *VV V W WB WW*W 4XPX pXXB XX XY Y Y YB Y*Y Z (ZB Z^Z vZ [ [B [ [ "[ \8 \2X\\ \\ \\ \ \]" ]0H] x](]]]&]] ^^ ^B ^^V^(_ 8H_ _ _:_4_$(`P`"h```` `B 8a@a6Haaaaaaac-----------------------------------------УУдϢʾ ע----------------------------------------------------------- Ԫ] N P T%V'R R'Ld('Lki--------------------------------------------д־ ¼ϢʾһϢ-------------------------------------------- Z ` ^$\,V ` '`iX--------------------------------------------д־ ¼ϢúɫʾϢ--------------------------------------------( Z'd Z ` ^$\,V d ` ^$\%V%f!h(j ` '`ipi--------------------------------------------עʼУ飩-------------------------------------errorInfoע 1Worksheets(sheetIndex).Unprotect Password:="1qaz" p N P n$D%VB@r N P n$D%V!t(vW ӻɫ N P n$D%V!x(Fii--------------------------------------------ɾעʼУ飩-------------------------------------x1Worksheets(sheetIndex).Unprotect Password:="1qaz" N P n$D%VB@| N ~ P  N P n$D%V!t(jd`  N P n$D%V!t(jk0i(------------------------------------------------------ ȡָcellֵ-------------------------------------------------------------0 N  n$D%V!'ihr---------------------------------------------ʼУ Ƿӻɾעõķ----------------------------  Уʧ N P n$D%V!xd жעΪ n N P A@lV עd"Ϊգȥǰע n N PA@zN ע n N P A@lk1 MsgBox "" & rowIndex & "" & errorMsgd :УɹжǷעУʧʱעȥ n N PA@z ,#ȥո,ʾ NУ PУַ"$4 "$4"а˿ոϵͳԶΪA@Xd`kXkPiH----------------------------------------------------------------------------------------------------------------------------------y--------------------------------------------ݱʶöӦķ(ʼУ)-----------------------------------------------------------------------------------------------------------------------------------------------------------------------ѴϢдб N P n$D%V''  P n$D%V'Iȡбͷ Ϊϲеıͷ  P n$D%V' N e  P n$D%V'k0'  checkLen*)ΪУ  $'checkLen'  checkNum*e-ΪNumberУ  $'checkNum'  checkNLen*e.ΪNumberУ  $' checkNLen'  checkVal*e-ΪֵУ  $'checkVal'  checkInt*e-ΪֵУ  $'checkInt'  checkTerm1e-"ǡ"Ϊ1' checkTerm'  checkYesNo1e/"ǡ"Ϊ1' checkYesNo' checkDiffName1e2ѼΪ1' checkDiffName' checkDiffCode1e2ѼΪ1' checkDiffCode'  checkSQLYe-Ϊ1' checkSQLY' checkIDCardType1e4֤Ϊ1'checkIDCardType' checkSqyyName1e2ԭΪ1' checkSqyyName'  checkYear1e. У1' checkYear'  checkXXSHZT1e0ѧУ״̬У1' checkXXSHZT'k _=================================1 ִеķǿУ==========================================ѴϢдб checkNullKT n N P$'  N е Ϊգ'')УʱдϢ A@XRMsgBox "" & rgold.Row & "е" & Chr(10) & titleMsg & "Ϊգ"kx n  N P A@'a=================================2 ִѧУ========================================== checkNameKT n N PA@@ȥոķ N P n$D%V!' $'  N е ;дȷΪ֣ȴ1ܳ20ַ''%УʱдϢ A@X  'k n  N P A@'Z================================= ִеijУ==========================================checkLenKT  $'  ,$'$ ` ΪDZΪ̶ȹ N е .дȷΪաд򳤶ȱΪ$ λ'$ ed ΪDZΪȷΧ N е 4дȷΪաд򳤶ȱڵ$ λҲ$ λ'$ ed ΪDZΪ̶ȹ N е &дȷΪգҳȱΪ$ λ'$ ed ΪDZΪȷΧ N е ,дȷΪգҳȱڵ$ λҲ$ λ'k '0УʱдϢ A@XkP n  N P A@'h================================= ִеijУ飨Numberͣ==========================================checkNumKT  $'  ,$'$@ ΪDZΪ̶ȹ N е KдȷΪգдΪ֣ڵ0λȲ$λСλ$ λ'$eD ΪDZΪ̶ȹ N е CдȷΪգұΪ֣ڵ0λȲ$λСλ$ λ'k'0УʱдϢ A@Xk@ n  N P A@'h================================= ִеijУ飨Numberͣ========================================== checkNLenKT  $'  ,$'$@ ΪDZΪ̶ȹ N е KдȷΪգдΪ֣ڵ0λȲ$λСλ$ λ'$eD ΪDZΪ̶ȹ N е CдȷΪգұΪ֣ڵ0λȲ$λСλ$ λ'kh'0УʱдϢ A@Xk( n  N P A@'[=================================ִֵΧУ==========================================ѴϢдбcheckValKT  $'  ,$' N е $дȷΪ֣ڵ$ Ҳ$''-УʱдϢ A@X& isValidateCount = isValidateCount + 1k8 n  N P A@'_=================================ִеΪֵУ==========================================ѴϢдбcheckIntKT  $'  ,$'$@ ΪDZΪ̶ȹ N е 8дȷΪգдΪڵ$ҳȲ$ λ'$eD ΪDZΪ̶ȹ N е 0дȷΪգұΪڵ$ҳȲ$ λ'k"'0УʱдϢ A@Xk@" n  N P A@'`================================= ִе֤У========================================== checkSfzjhKT n N$'S ȡд  N е &дȷ֤Ϊգ''0УʱдϢ A@Xd  ֤  P$'O ֤У :֤У N е MдȷΪѧ֤ţһλΪĸXıд''4УʱдϢ A@X  'kd $'  N е EдȷΪգҳȱڵ1λҲ18λ''4УʱдϢ A@Xkkk n  N P A@'X================================= ִ֤У================================== checkZjlxKT checkZjlx 1$'  N е дȷ''(УʱдϢ A@XdX checkZjlx n N PA@k0 n  N P A@'\================================= ִѧŵУ==========================================checkXJHKT 1, 1, 50$'  N е EдȷΪգҳȱڵ1λҲ50λ''0УʱдϢ A@Xk n  N P A@'[=================================ִпУ==========================================ѴϢдб checkBankKT $'  N е $дȷΪ֣ڵ$ Ҳ$''-УʱдϢ A@Xk n  N P A@'W=================================ִУ==========================================ѴϢдб checkYearKT  $'  N е *дȷʽ20122002ȣ''-УʱдϢ A@Xk n  N P A@'W=================================ִѧУ==========================================ѴϢдбcheckXnKT $'  N е )дȷʽ2012-2013ȣ''-УʱдϢ A@Xk n  N P A@'W=================================ִ·У==========================================ѴϢдб checkMonthKT $'  N е &дȷʽ0112ȣ''-УʱдϢ A@Xk n  N P A@'g=================================3 ִеУ(DZ)==========================================ѴϢдб checkDateKT $' 2Уʧ N е дȷдʽΪ"$4 xxxx-xx-xx"$4 2013-02-21''-УʱдϢ A@Xk n  N P A@'c=================================ִеУ飨==========================================ѴϢдбcheckDateNecessaryKT& $' 2Уʧ N е дȷдʽΪ"$4xxxxxxxx"$4- 20131221ֻϵͳʱ֮ǰ''-УʱдϢ A@Xk n  N P A@'g=================================ִеijУ飨==========================================ѴϢдб checkBirthdayKT! $' 2Уʧ N е дȷдʽΪ"$4xxxxxxxx"$4 20131221''-УʱдϢ A@Xk n  N P A@'J=================================10 У绰====================== checkPhoneKT $'  N е дȷдʽΪ"$4-̶绰 ֻ"$4 ''%УʱдϢ A@Xkx n  N P A@'L=================================checkOption У鱸ע ====================== checkOptionKT B$'  N е )дȷȲܳ200ַ''%УʱдϢ A@Xk n  N P A@'\================================= ִ϶ѼУ================================== checkDiffNameKT checkDiffName  $'  N е дȷ''(УʱдϢ A@Xd checkDiffName n N PA@k n  N P A@'X================================= ִѧУ״̬У================================== checkXXSHZTKT checkXXSHZT  $'  N е дȷ''(УʱдϢ A@XdH checkXXSHZT n N PA@k n  N P A@'X================================= ִ֤У==================================checkIDCardTypeKTcheckIDCardType  $'  N е дȷ''(УʱдϢ A@XdcheckIDCardType n N PA@k n  N P A@'v=================================14 checkGender ִǷΪСŮУ--================================== checkGenderKT checkGender 1$' '-ԱдУ֤Ź N е дȷ''(УʱдϢ A@Xd checkGender n N PA@k n  N P A@'u=================================14 checkYesNo ִǷΪǡУ--================================== checkYesNoKT checkYesNo  $'  N е дȷ''(УʱдϢ A@Xdh checkYesNo n N PA@k@ n  N P A@'d=================================14 checkSQLY ɵУ--================================== checkSQLYKT  $'   N е дظ¼룡'd N е дȷ'k'(УʱдϢ A@Xd checkSQLY n N PA@R У'kP n  N P A@'i=================================15 checkSqyyName ִбע˵У--================================== checkBZSMKT n N$'L ȡд ''   $ $' h'k  1,1,100'  $'d0,1,100'  $' N n$\,Vkh  N е &дȷ,ַΪ100λ''(УʱдϢ A@Xk n  N P A@'n=================================14 checkSqyyName ִУ--================================== checkSqyyNameKT checkSqyyName  $'  N е дȷ''(УʱдϢ A@Xd`E checkSqyyName n N PA@k0E n  N P A@'G=================================У====================== checkSqyyDescKT N P n$D%V! 1, 1, 60$'dHD 0, 1, 60$'k D  N е VдȷΪʱдȲܳ60ַ''%УʱдϢ A@XkHC n  N P A@']=================================checkTerm ִѧУ--================================== checkTermKT checkTerm  $ N е дȷ''(УʱдϢ A@XkB n checkTerm  $ N P A@'r=================================checkAtLeastOneNNull ִһΪǿ--==================================checkAtLeastOneNNullKT  'A"ִ һǿУ ĵԪĿ $ =Ϲ   ' P KTF   ' KTF   ' KTF   ' KTF   'n @dϹ  'F6ִ һǿУ ĵԪΪϹĿ    'k?'n?i?_--------------------------------------------ʽ-------------------------------------]pVBSCRIPT.REGEXP$ . 7RegExΪʽ (4 ȫֿvba\ת  (.ʽ (5ǷִСд  %'3 ִ. i>-----------------------------------------------------------° Уظ˵Ѿûиʽ------------------------------------------------------------V-----------------------------------------------------------1ѧ׶ڱڲ(sheetѧ׶ A65535 $\%%!'*cna = getTotalColumnCount(sheetIndexValue) ^$\!VB@ 1&ÿУظʱʱѴϢsheet,'`Ϣ¼ʼX==============================ѧ׶ڱڲ==================================0ðÿԪغ֮ǰнбȽ     $ $\%V'" &   & $ $\%V'( " (.ѧͬ˵ظݹ & еݺ͵ ֤ظ!!!!' A@X*ѴϢ'*kh:`:X:iP:-----------------------------------------------------------һ ֵȡֵ------------------------------------------------------------ֵҵֵڵлkeyWord ҵĹؼ'kbn л ֵΪ rowrow',]the find result object .6 :8 >< A1:A65535 n$D%%4.2 2 0row 2!',dx8 2!@',k`8kX8iP8------------------------------------------------------ ִڹУ(Ϊ)-------------------------------------------------------------value value1 cellУ鲻ȷfalseУȷtrue D0˵ΪDZ B$F'z6k6k6]'Jijһļ¼ A65535 N$\%%!'LB' N row$,'H=ȡ  H L  N$\%V  J 'Jd5y5k5  & H H J  & N$\%VX BX LжϹǷcell'y`5kX5 &#ʱcountĿΪùеĿi5------------------------------------------------------ ִɾijһвexcelܱģ-------------------------------------------------------------sheetIndex rowNum к1qazT n$DB@R L n$D%VB@X/ Ѹɾ- Worksheets(sheetIndex).Protect Password:=123i3j--------------------------------------------------------------------------Уʽ˵--------------------8 1qazT n$DB@R  N  n$D%V(i2------------------------------------------------------ ִɾijһвexcelûб-------------------------------------------------------------sheetIndex rowNum к L n$D%VB@X/ Ѹɾi1------------------------------------------------------ ָcellֵ------------------------------------------------------------- 1qazT n$DB@R  N  n$D%V(i0------------------------------------------------------ ݴеֵǰʱѾͨУ飩------------------------------------------------------------- ]X p  N  n$\%V!X 'R'Jijһļ¼ A65535 N$\%%!'LF N row$,'HAȡ  H L  N$\%V  J 'Jd /y/k/  & H H J  & N$\%V!X 'B B RX 1жϹǷcell & N$\%V!'` `X N  b n$\%V(y8.d0. N  b n$\%V(k. &i------------------------------------------------------- ȥcellеĿո------------------------------------------------------------- ]X Ԫ]p  3Blength1ʾcellԭijȣlength2ʾִȥոַ'ĬΪûȥո2 Worksheets(sheetIndex).Unprotect Password:="1qaz" N  n$D%V!'B B'd dGzj*"ԪΪգȥո B 'f%length2Ϊոһγֵλ fַո B $h'B BX N  n$D%V('k`+iX+------------------------------------------------------ ȥַ------------------------------------------------------------- ]-[\uFF00-\uFF06][\uFF09-\uFFFF]|[\s,;'<> "?^]+'  $'jd`*'jkP*iH* N е !дȷ,Ϊ2500' checkSFJEKT 1, 4, 0$'  N е  дȷֻд''(УʱдϢ A@Xd) $ ')УʱдϢ' A@Xd`(kX(kP( n  N P A@'G =========================== ׼==================================8(|Attribute VB_Name = "ߺ"  '-%УдϢʾ &( Function checkedRequiredStart(rowIndex, c olumn )  { 'Ԫ@Dim cellValue As rSng= A;veShePet.Cs6If-" Then*F_Fal4seETrund If < E)[д־ ooһkqmwriteLog(content]iX`s(msgB)[curMsgRow, 1)JCK + 1?D DúɫCE ERedVFnLen7@LZ.Characters(1, ).F7.Colorl=31*SS  ʼG` errafoaddCHommQXQ#s|", ,  0t'Work s().Unprotect Password:="1qazOey.A N( ..Itrior#=<65535 '1૱>%  d/.VisiblĠ_?ɾElearsCk΅"BB ?+0+ 5`&[!*2Recp)Nu8m A:HtffTotal`?um u\4&UE15l lqXOO .ExlNondu(u?%- ȡָȨAֵ?*getBBCountXQXHLKQs.v}w^ Y^ Ƿ2Gu=õpob eginCQ_c^zMetho~d_r _ `NotÜR1 'iʧ ,%+H Is hing!$жOΪܿ/Tn 'j| _AOA9ȥqס$ cWt_ Z '_ aw/ !uA<' "Box "" &V& "B{'tt$ɹf!0гQѕ&ʱߑ rԇq+remo0рpaceFla(!/Q,ʾ:%)j@УַChr(34)KVCt& w"а ϵͳԶΪa%< A ]!q?Lb- '`%0ݱʶöӦķ(ʼУ)",%+'BѴϢдб Functio@n callXQStart(typeVal, sheetIndex, row@columnisidateCount) value = Work$s(').Cells.(*"' isFor,True titlPeMsgs;T  , 5) ' ȡKͷ@GIf "" Then 'Ϊϲıͷ Da/% - 1 &GE8lse"P@:headBe#!eEnd IfBfArgs!"0"J Like "chec kLen*MȁG MidG9& dX%'c(Num, bernm {&N&k310?'ckL'ֵ:aF&& IntAM?9eM- '7M Term1`"ǡ"Ϊ`"1 _ YesNo  2 ? DiffNameѼA?%I ?} xBCod / !O ff kSQLY%/ / \- R %^IDCar dTP`֤ a o(Sqyy&ԭ&"G_ _ ] e? ? kYearZ~/Vf _ _ _ R:ar  kXXSHZT6 ѧУɀ״̬  :6= ̈Select CaseU4'=(1 ִAǿQ ??3 N8ull URMethodXQ`Required2} No r~~~O  d| |$||?+}?z }Numberͣ =}}f } }}F B_FX|U3}}]j}{{@> oQϵϵaw!zĵ{`{{A>0λSg?С_@5 VsQR___ ooooϦyT}rUAOL OVOVOVOV  dOVOVOVOVOVQOVOVA# Case "checkNLepn" 0MethodXQ = f(value, functionArgs)If Not|NThen2 aArrSplit( , ","~K '(0)(0 E 'ΪDZΪW5errorMsg."" & rowIndex"е@ title& "дȷEΪգ Ϊڵ0λTL- x1) ΀С  2 X=Else}Y1YYYȻ܃YҿWWM:End IfahasEATrue '̀УʱH\дϢ writeLog -W@beginC!_comment sheet"c, ,FfolumnäisFoAa '=ִֵΧġ$ E)дaбk$HValh D o*lwF C 1p@a=B?g?gc#f' is >idateCou c=.x+ 1o nckEy?7?763!6Ϊjֵ66`L66Int65 7@7x777`5X>&>"?r(Ì?Oe@(/,s򢏌> 6ϣsT WW dSS[_T P cT֤oRSfzjhRe rresZjlx?getCell`ku3kXQ(5,, 8'ȡ*ݟ)LG""r?4?4?4=4E"._,_,_,_,_,KO # If resZjlx = "֤" Then checkMethodXQIsIDNumber(value, columnIndex) 'У Not  d 'RP0Ter@rorMsgz" & rowQ"еʀ title& "дȷΪmһλSΪX첄"VhasEXVTrue 'xʱ0дϢ#(writ`eLog A isValidateCount#M+ 1End Else_M@SFZJLX)֘IΪգ ҳڀ1λ18@?H!$e>{/?  @beginCa_ comme]sheetB`,f,k isFoBrz '= ִ㌼X́=Case "BetDMB((, d"1"4mk߇>$ ۙset +Cod2, INjLXY_[|-/_c?bO-*B-ѧŵ---XJH-F #-@Len%"1, 50_-6O.߇߇C݇?c?c50?c 1O2o--.j4..O.*[|paBдб//Bank/O/@/<?\ߠ.\om"???;֣-qfunctionArgsArpr(0)12?r(13 000 b/.j'/0//}//?t///+!//]..HYear...E^#ϋ///^/^/^/^ʽ20122002>ύ++óд Ϣ writeLog errorMsg@End If>beginCheck_comment sheetIndex, cMethodXQ , rowolumn ~isFor = Tru e '=ִѧУ,хдбwCase "iXn"uY(value)If Not Then4"" &"е@t0itle@xдȷʽ2012-3ȣ8-phasEA h '^ʱ =F'FdZMonthUWaUU6UUU0112UeUߦc ߦeUδߪckߪߪ3 ځV(DZ)+߬%ȬDate" 'VBirthday?Y5Y 'ʧk Chr(34)x-xx@M  a-01q0[oL0o)[?0o0o_ 0,00v_0\0NecessarVyO1& =N|ow1/XQ"11 1g111o1B3122@1ֻͳʱǰ2 222 22t00000/0O,0R111 1e^0b Cbb00p0>б.00& xcas0a~ ....?[Ov0000000,10 !绰xH-Phone?]Num\  If Not checkMethodXQ T`hen $errorMsg = "" & rowIndex"еʀ6 titleZ& "д ȷʽΪ%Chr(34)@-̶ @ ' "hasETrue 'УʱϢ writeLo,g y' End If beginC_comment sheet, , `olumnFisForw '=|Option Fע  2Case "o_Bƒ=6(value, 66)GȲܳ200#KaL ִ϶3MS==CNDiffName4O0DMB(V, !dQfunc`ArgsR?Sjtr {ߜQ? ElsevBset,Cod(-ɜet AٟrX]ѧУ״̬]k]XXSHZT\\d\3O.O.Xπq~ɀO.lO.||LO.O O.yN.v/.ex/./.'/.ev/.I1,ϋ/.+-".֤/.\6IDCardTyp\s \?pg..\3 F00t0000000* 00!00*_0_0_0G_0_0_07_0_0O,14P)GeP6rqǷΪСŮ2--o`t3o`P KðR 11"1"///GU)IdNumsԱC744444 444*4go 6q6F555 G beginCheck_comment sheetIndex, cdMethodXQ, rowA`olumnerrorMsg  isFor = TrueBd'=14>zYesNo ִǷΪǡР--R= @Case "1" 8aDMB( , value, functionArgs)(If Not ThenB?"" &"е titleŁ дȷ shasEqj 'WʱдϢ*wri@teLog [ElsBsetрXCodKh, R&End If; <%SQLYɵľ! _XQB_Sqly(^a\kg\ca@ 1a'-b bظ¼b [Uss Xww wcwBwBLwx '!Z'u?yv15 #Sqy`yName'ٱע˵wڇ!BZSMֹ@resultdgetCellVaCountXQ(gT8) 'xȡAcv sPLen(#@SPm" Ai0 ?o snpMid(L, i, 1_ "h"Ea (Next iO QNE? ja1p"1,00YmAuZ_MVA20IgA2o&S%sh)).1+s()9)q3h !]ȷ,ַΪ100λfYO\OOlO\o )qQ3ϒU(I{A˒/V} 250n0s&@"?3,!IΪA :__RH=&Faz9oO4 +1A?7?Ei6oC’iwkC oi=BAtLeastOneNNulljһA!Ϊǿտj?/GkjLF aCouP{=Ot + 1 'a u  u Ԫ<Ŀ_a6#'on4eyu6Aq 6 'Ϲb DtotalMwA`8+wSelect "OIbaojiaoBCR:iSum ? _ huoshi H    zhusu G   others H  c*?%ɱV '23 =pG>6>>>Ϊ@KF+ r+ " Jb^XF;-0ʽo-  regr(DimaEX As ObjIh Set regEX = CreateObject("VBSCRIPT.REG EXP")'RxΪpʽ 6.@GlobalTrue4'ȫֿB'vba\ת [PatteEA cYTheSameXQNew(sheetIndexp2) 'Bhn*a@fS s .Range("A65535").@](xlUp).R$ow'cBgetTotalColumnCoun:tV{ ms gBN@-).Cells.ClearContents 'ÿ΅gʱʱ!eϢ5,GcurMsg@(@51 ' ¼ʼ '=]'ðÿغ֮ǰн бȽGFor i`startTitle + 2 To rnarcardID1D+b#I?#+(i, c4)ji - 1c 2Zj^! 6tP Is Tu q67 8kh= "`"1  c baEQI-0qO.' ֐Bauf(Ϊ~)@+r !q1 cnȰK'!ȷ෵fіQ5t-~DMB c, R1, fxlagd )"0 'ASΪDZ+!Trim1)q/A 0_K!ExitSSA3P&Datm0 'ijһ1q||Num0$o>A=3'ƀ® @*(,2REJU}|owP Q PQ|%_;s+Y{;_8oMM1e i p :C@T( 3)&,)F '8жaq2Qƺ́q3a 5)ARY 5vRj'cĿ1;Q_w@obHɾ.вexܱࣻ E1 14кEdeleteP2(<, Ej2Unprot Passw`|:="1xqaz$obsR(.D p!' P123_s-У˵H Function setCellNumXQ(sheetIndex, rowcolvalu e) Workfst).Unprotect Password:="1qaz&":s({).{ =  End  ' ִɾijһexcelûбࣻ,L nA кdeleteRowNoPro .D 'Ѹ8?LB4 ָHlֵ9V?ð??$F ݴе @WǰѾͨADMBCoder(k, V1H DimaData, c@b8@Bg~ FbxCStxr(S?2_0.54 LenCl1;p@0?0u'Ϊ/W2Inwal^ q^aһγֵλG6 2 <> D b3$= Repl(@"%@UFEo "Truc>q6 1𷽷?=pecialCharacterǓ!9regp"[\uFF00-b6]9FF]|[\s,;'""?^]+3P`Check1(#i `FZ[ "< So(6 <<< B`@%(hX)[$*\Rffff*0R69249249"  ( HhxѧϢӡģ$D(FѧϢӡģ$DB@HѧϢӡģ$D(FoAttribute VB_Name = "Ԥ" Sub Browse_Print () Worksheets("ѧϢlģ").VisiblaTrue"d^P@review2cEnd ZH#pj~EJNMݶ/ F     4 !2#$%&'()*+,-./013LV6789:;<=>?@ABCDEFGHIJ^MNOPQRSTUW[XYZ\`]_paibcdefghjsklmnoqrtuvwxy|}~0m~xME(6 <<< `X In xIN IP `R ``( I @ ` I I @ `h I @ 0`  I @ +@` ii`H`2H``` `  I @ ``(  I @ `  I @  `H I @ 0 ` I I @  ` I @ P ` I @  ` I @ p `8  I @  ` I @ @  `p IB  I  DH `  IB ( I   `  IB  I  x `8 I X I   ` I  I   `h I  I  @` //I  I  `  I @ H`(  I  `  I @ h`0  I @ `  I @ `P ##I pIN I ` ` `f````@ ` @ ` @ ` @ `X --I xI  p` I ```@  ` I I @  `x I I ` p P` @H  x p 0@ h0H%@ !! 2)[$*\Rffff*0Q69249234G  B       (  B     H(p  0 PB hp &H 08@HP XB     Dx B 0@HPX` nh  B  , $H p  H       " H h   "   4 ( 0   B   4 0 @ H P X ` h  0 B H P X x      0 PB hp6x | h B 0 x  B    (08Xhpx x  (B @HPp | ( HB `h$p | P pB f (0 |8  B (08@H P  B  (:0p     B       ( 0 .B    08@HP X .B (0@ P`hpx B 0 8&HpxD4  (Hhpx B  8 @&Px  ( "  D(4p      ( B         ! ! "(!P! X! <`!!! !! !B p"  x"" "&"""""  "D#X# p#x# # #"# ## $# "$ 0$ @$ H$ P$p$$$$$ $>$ %40% h% p%x% %% % & 8&B P&X&`&x&&&&&& & @' `'B x'' ' ''' ' @( `(B x(( ((((((( ( x) )B )))))))** * * *B ***+ +(+0+8+@+ H+ + ,B 0, &8, $`, , ,&,*,"-$8-`-(----.. . 8. 2P.."...  ./(/8@/x// /B 80@0X0 `0&p00$000000 0 1" 1 H1P1 $X1 "1 1 1 1 1112$(2P2X2`2h2 p2>2 242 3$03 X3 `3 h3p3 x33 3B  4(40484@4H44 55 5(505@5H5P5X5`5 h5 5 6B (606 H6 P6X6`6h666 66666 7(70787@7 H7 X7h7p7x77 7 8 08B H8P8&h8 8 8888-----------------------------------------1 ,дϢʾ Ϣsheet--------------------------------------- ʱ0 Ϊʱ1 Ԫ] N P n$D%V'R R'd'ki-----------------------------------------2 Уѧ ҪΪ-------------------------------------------------------------ʽȷfalseʽȷtrue $F'zk]H%^([\u2E80-\uFE4Fo]|[a-zA-Z]){1,20}$'3޸ģУƧ  $'d'kix-----------------------------------------2 Уѧ ҪΪ-------------------------------------------------------------ʽȷfalseʽȷtrue` ,$''$/ΪDZ'zXkP]%^([\u2E80-\uFE4Fo]|[a-zA-Z]){1,20}$'3޸ģУƧ  $'d'ki|-----------------------------------------3 УڸʽΪ2012-05-09(Ϊ)--------------------------------------- $F'z0k(]reg = "^((19)|(20))\d{2}-((((0?[13578])|(1[02]))-((0?[1-9])|([12][0-9])|(3[01])))|(((0?[469])|(11))-((0?[1-9])|([12][0-9])|(30)))|((0?2)-((0?[1-9])|([12][0-9]))))$"reg = "^((19)|(20))\d{2}-((((0[13578])|(1[02]))-((0[1-9])|([12][0-9])|(3[01])))|(((0[469])|(11))-((0[1-9])|([12][0-9])|(30)))|((02)-((0[1-9])|([12][0-9]))))$";^(19|20)\d{2}-(1[0-2]|0?[1-9])-(0?[1-9]|[1-2][0-9]|3[0-1])$'  $'d`'kPiH|-----------------------------------------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]))))$'  $'d0'k ih-----------------------------------------4 У֤---------------------------------------Ϲ򷵻trueϹ򷵻false0]790584216379058420Ȩ] 10X987654320У $F' ȥո](   6)׶֤Ϊ,ΪͨУ'zkx Gzj $$Gzj *[0-9X]Gzj   $' G 'j   $  '  ' $ 2  $G'jiPz-----------------------------------------У֤ -------------------------------------------------------------ʽȷfalseʽȷtrue@],^[\u4e00-\ue863a-z|A-Z|0-9|()|]{1,18}$'  $'d0'k i----------------------------------------5 -УѧУѧУʶ 42λһλΪֻx-------------------------------------------------------------ʽȷfalseʽȷtrue]H^[1-9]\d{40}[\dx]$'  $'d'kiz----------------------------------------6 -У黧 -------------------------------------------------------------ʽȷfalseʽȷtrue`].^(\u519c\u6751)|(\u53bf\u9547)|(\u57ce\u5e02)$'  $'d'kiu-----------------------------------------7 Уѧʱ-------------------------------------------------------------ʽȷfalseʽȷtrue]h'^(((19)|(20))\d{2})((0[0-9])|(1[0-2]))$'  $'d'kpihq-----------------------------------------7 У-------------------------------------------------------------ʽȷfalseʽȷtrue  ,ΪDZ'd'kzk]^((19\d{2})|(2\d{3}))$'  $'d'kxipq-----------------------------------------7 У·-------------------------------------------------------------ʽȷfalseʽȷtrue0]^((0[0-9])|(1[0-2]))$'  $'dp'k`iXv-----------------------------------------9 Уѧ-------------------------------------------------------------ʽȷfalseʽȷtrue]8^\d{4}[0-7]\d{3}[0-3]\d{7}$'  $'dH 'k8 i0 v-----------------------------------------10 У绰-------------------------------------------------------------ʽȷfalseʽȷtrueP]^\b((1(([38]\d)|(4[57])|(5[0-35-9]))\d{8})|(0((10)|(2[\d]))-[2-9]\d*)|(0[3-9]\d{2}-[2-9]\d*))\b'  $'d 'k i v-----------------------------------------11 Уп-------------------------------------------------------------ʽȷfalseʽȷtrue]X ^[1-9]\d{14,20}$'  $'d 'k i -----------------------------------------checkXn Уѧ磨2012-2013-------------------------------------------------------------ʽȷfalseʽȷtruep ] ] 1^(20\d{2}-20\d{2})|(19\d{2}-19\d{2})|(1999-2000)$'  $ -$'$$ 'd8 'k( d 'k i -----------------------------------------checkOption У鱸ע磨Сvalue2-------------------------------------------------------------ȲС200false 򷵻true B'zk B  'd'ki------------------------------------------------------ȽϴС(Сڵڷtrue)----------------------------------------------------------------'value1value2false 򷵻true BX'B X' B  'Dd'Dki------------------------------------------------------ȽϴС(Сڵڷtrue)-dec---------------------------------------------------------------'value1value2false 򷵻trueH B$4'B $4' B  'd'kix}------------------------------------------------------У鳤--------------------------------------------------------------- ,$'' $/ΪDZ'kzxkp ,-±0ʼֵΪָάõ± $$4 $$4'zkd ˵У̶ $$4'zkkxip}------------------------------------------------------У---------------------------------------------------------------x ,$'' $/ΪDZ'kxzpkh $& Ϊz@ .e+Сz $4e% С0zk ,-±0ʼֵΪָάõ± $$4 $$4'zHk@d ˵У̶ $$4'zkki------------------------------------------------------УֵΧ--------------------------------------------------------------- ,$'' 'zk $) Ϊz $4e) С0z k $4$$4 $4$$4'zP kH i@ ------------------------------------------------------Уֳ(Number,ΪҲΪСС0)--------------------------------------------------------------- ,$'' $/ΪDZ'k zkֲɼӷ<^(([1-9][0-9]*)|(([0]\.\d{1,2}|[1-9][0-9]*\.\d{1,2}))|0{1})$'  $zk $% ΪzX $4 e$ С0z(k $'+󳤶$'.Сλ .''' "˵ûС $4' $$4'zPkHd С  . $'DԪֵλ  . $' $$4 $$4'zkkxip-----------------------------------------checkIsInt У鲻С0-------------------------------------------------------------ʽȷfalseʽȷtrue@] ^0|[1-9]\d*$'  $'dh'kXiP-----------------------------------------checkIsNumber УΪNumber-------------------------------------------------------------ʽȷfalseʽȷtrue' $'kXiP-----------------------------------------checkMoney У0-9999-------------------------------------------------------------ʽȷfalseʽȷtrueH]^(([1-9](\d{0,3})|0)|0)$'  $'d8'k(i -----------------------------------------checkMoneyTJ У0-9999Сһλ-------------------------------------------------------------ʽȷfalseʽȷtrue]P^([1-9]\d{0,7})$'  $'d'ki-----------------------------------------checkPersonNum У׶԰һ------------------------------------------------------------ʽȷfalseʽȷtrueh]^(([1-9]\d{0,3}))$'  $'d'ki-----------------------------------------checkIdNumLink У֤ԱͳûдǷһ------------------------------------------------------------ʽȷfalseʽȷtrue If colIndex = jhrIDColumn Then checkIdNumLink = True Exit Function End If]%Ա֤ǷӦ]$ں֤ǷӦ]ڵһγֵ±]"Ա,Ԫ֮ڵ]$ݺŽȡ](!,Ԫ֮ڵ]@"ݺŽȡ]Xp#]%·]] $' $'  (ڶλΪΪ N  r$\,VdڶλΪżΪŮŮ N  r$\,Vk $' $' $' -  -  N  r$\,V'ix------------------------------------------------------Уֳ(Number,ΪҲΪСС0)--------------------------------------------------------------- ,$'' $/ΪDZ checkLen0,1,33A@Z'k kzk $% Ϊz $4 e$ С0zk$'+󳤶$'.Сλ .''' "˵ûС $4' $$4 checkLen1,1,33A@Z'kzkd С  . $'DԪֵλ  . $' $$4 $$4 checkLen1,1,33A@Z'kzkkix-----------------------------------------3 УڸʽΪ2012-05-09δʱ(Ϊ)---------------------------------------]](]@]X^((19)|(20))\d{2}((((0[13578])|(1[02]))((0[1-9])|([12][0-9])|(3[01])))|(((0[469])|(11))((0[1-9])|([12][0-9])|(30)))|((02)((0[1-9])|([12][0-9]))))$' yyyymmdd$'   'z k  $'d 'k i -----------------------------------------2 У ҪΪĸ-------------------------------------------------------------ʽȷfalseʽȷtruep $F'z k ]^[a-jA-J]{1,10}$'  $' '   $ $' &   $ &$'  ''z k  & d 'k ix -----------------------------------------2 Уѧ ҪΪ-------------------------------------------------------------ʽȷfalseʽȷtrue  ,$'$'ΪDZ'z` kX iP H -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(vg@p@QTrim?"Q0DR7 Exit H}D MO_reà ^([\u2E80-\uFE4Fo]|[a-zA-Z]){1,20}$" 'ģԁAUƧփ[@2C*A"(, 9L{3{R=5G=|%9Bq>-B@BgB, fArgsd|8Arr6Split(, ","h"-a F6%C8l (0)07 'Ϊǣa :!e_U TTTT&oSO+_SH3$ak!Ϊ2012-05-09(:); -BirthdayfA?CoJ ;;' "^((19)|(20))\d{2}-(0?[13578] 1[02])&)-9a[12][03[0&1((46y11/'0 ?2s)))$?@ p[1 [| |(3e S /H 19|-2]|- ||` >-!\uer)\ckX!/3 #~]//o3n3o3o3c3Necessar3?K /-#-""+"*,O "'x"gzr2]w0;y (hRos4P֤<ϹCy8'ID% IsIDNumber(By W, pB)Boolea Const W'qP79058428163P'Ȩswc10X98765432CA31{& = _)ȥո!-sInteger, iT0%v= babyIDC A>aSC׶:,ͨA 1_hɰ! Len(<>8 18Îp N ot eric(Mid, 1 7)Q f5Like "*YAfX]_ For= 1 To 17CqTqWě]111sps( + ; i! * TNexts Mod 1Rightc, T3pcC@:> ~ -9 'ʽfalse*&tru$Function checkSFZJLX(val@ue) Dim reg  = "^[\u4e00-\ue863a-z|A-Z|0-9|()|]{1,18}$"9IfECdr(I, g Then%p5TR EaFo End If n|%5!-Уѧʶ 42λһλΪֻx9-˰chCodek1-9]\d{40}[\dx~]5e^e eV6dFamTyp`](\u519c\u6751)|3bf\u95477cee02)tdd=2G?2_Y$7 dȀѧʱ8_`RXDatr1NowNecessary#A%(((19020)) c2})((0[]12])2e)?22+$d2<811YeDar, fDArgsArr¾#""'| 0 'ΪDZƅ?a'))iH3diaExit EA "^QP|(23}'ysbz_Qsk'_sO"'''؏@ckMonthpO>O>ck%S @_91WppO(XJH,4}T7337O/A-@/#?10cn఺OPho`neNum?<\bD(([38l4[57m5`L35Pn8}050p2 n-[J2B*[3{2}g)\b22 x_11п2OBank 3[t14,20_2_2_2ck4oo:nIAѧ瀣2012-@3_pXn_Uxys20K/st019t99 00c_\2ASplit ,0 "-"],If years (1) -0) = 1 Then checkXntTruelEls`RFa 8End I>ft l2.Fu nctio'-3%TOp6У鱸עСvalue2&) ''(200f|'Ztb L(тA1, E)Ѓ""9u= ЅExit HgLen() >D)"A # όA2ӅaqȽ С(ol)G $CoŚ ՆompareׅpCIntf22HGsc x~7̃Jxſ--X5dec:35C 'y$Dec6 C(26?6(06 d6#6$_,1AA:.&, faArgsH+Arr"Split(, ","h@ (Eg v` ("0B 'ΪDZ22 2`UBound 2 ±0ʼֵΪάõ ! 7p&c=/1)X) A@B<s (2x8 oq^]1l '˵.̶A./" n [ϗ: @o@ &@@o Z@0.@@b++R@@ Not IsNum(erik)8JΪ>, InStrcp0.") <> OСoO 6`Wsm= 0 -p?P!8?P?P?PRkr@pM>o?f??P$?P|O$]?P?PI?P3P_2  ?P?PI1Pֵ>}PVale7"ntLqPt(functionArgs, ",") checkVal = FalsedIf valued"" Then6zTrux@Exit F?End If OoNot IsNu@meric(})y 'Ϊ 7jf-CDe!(<= 0+Сx0))^ 1> =  Arr(0)) AG1kN bbGh'-2f(pber,ΪҲСhB\)sF : E- B@, I]v fSpli` p  ΪDZG*Br: Ta4A-q'#;@ӷGreg"^(([@1-9][0*)|0]\.\d{1,2}|h))|0{1}x)$" # C끒;(,Ðf ?,U&0/bmaxIn0tLen@+E1) 'j8mK"Double2pλ"i"gthInStrEj".@ìdou4 1) _˵#+b" /s (E) _ ~n4=JPtEJ Mid31, 5 - EԪ֒Y#λ_ h+ppspmpq2p^ ]R!5qhet&k Is> stqC? 'ȷpfR5t? 3tC%4Diu`E˵ûГ r@`(%) <= B}).3p?2s?22 2123?/%->o*uE n'LB% - '%$!8.λߟ!%+J  S!Then AcheckNecessaryAuFalseExit FunctioEnd If-C#J(,6) 4 5Tru4E9K@M '-%2> У ҪΪ8ĸ& !ʽȷfCS'At=E.C;Sqly(i, anVPTrim)A" T0Um8oOmCsA^[a-jA-J]{1,10}Ez%xsLen4C i1 T(o snMid(LCaseD , i, 1 Bj i +  T mRjG W  m)(a 1 )) Next jbic[6E ZZQZѧZ֑U$Z ]ZBZSM#8, fArgsG9PArr-S`plit(,Oa Q(0ad0: 'DZ#0aB= gS%Hx@x8)[$*\Rffff*0P69249232`xAttribute VB_Name = "She@et6" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2rU@@@~~vK*   rU@@~~~~~~~~ ~~~2~ ~~~~ ~ ~~~<"Q ɎB8C>  aq 1 a q aq  A8apa"""#A###1q$A$q$$$!a Q !12A2q2223A3q3334A4q4444!5A5q555616a6666!7Q7778qa a q 1  VBAProject ThisWorkbookSheet1Sheet6ӡԤߺУ麯ShowFormSheet5 PrintFormFBC:\Program Files\Common Files\Microsoft Shared\VBA\VBA7.1\VBE7.DLLVBA A qPF9C:\Program Files\Microsoft Office\root\Office16\EXCEL.EXEExcel  p0FC:\Windows\System32\stdole2.tlbstdole 1aL-[DR checkTheSame ?C:\Program Files\Common Files\Microsoft Shared\OFFICE16\MSO.DLLOffice a.E .`M C:\WINDOWS\system32\FM20.DLLMSForms Q Q  _-uCJۻ5x2C:\Users\\AppData\Local\Temp\VBE\MSForms.exd Q  У򲢴ӡϢF|[5wE4_+F/FC%IDFWorkbookWorkbook_BeforeSave x .`/f&Tnx\OX[excel YOX[ pQVBE7.DLL1`  a , nx[ &|~\ۏLhg!h Y NOX[ pQ Sm ?1S (~ Oo` Nxh f , deleteRow setCellNumXQ JJ  8PhpxFF&mFUnprotect CellsClearContentsFGetRowOrColIndex&m 0]\Ohpev Ncknx N}ge!jgT QۏLdk!h 1qaz.PasswordProtectEnd&t  A65530 RangeRow IV5Fj~EJNMݶ/ FԔLeepDF WorksheetcallFunctionXQStart regCheckFunccheckTheSameXQNewcheckDMB:FF FAILUREcheckedRequiredStartwriteLog writeLogRedaddCommentXQStartclearCommentsXQStartgetCellValueCountXQbeginCheck_commentdeleteRowNoProsetCellValueXQ setDMBCode removeSpaceXQremoveSpecialCharacter A9:IV65536Font [SONameSize &HorizontalAlignment @ "NumberFormatLocal 4`nx[_YhgT hgǏ z-N RsQexcel &TRS[penc"N1Ybhg1Y%Tab )nc:yColorIndex "l gg~b0Rf[uOo` elۏL!h -NOo`Y N  value -1 *(~ : ; ,{ L Select Rvpency VX[(WyrkW[&{Y^ , ; ' <> " ? zzgLp3I(pg p%g\h8Z8h8hg{gg pgh8Z8h)4O` 8hgxdg( xkHdg5g6g7g89g8:g0g;g p<g(#kgz @h8Z8h=8hg p>g8\TgV?Ia (gV@Ia (g"qnPgFqmlqnlHgv @@Ia (g$gxK,gvAIa (g>qmlpqnl@,gjp @E800x0 08glx @ @h8Z8h8hg$ glgl @h8Z8h8hg~BxOCOODOpOEO`9 pggx @ @h8Z8hFG8hg9ggp@d gg g>p>gvAIa (g>qmlpqnlgjp @E800x0 08glx @ @h8Z8h8hg$ glgl @h8Z8h8hg~BxOCOODOpOEO`9 pggx @ @h8Z8hFG8hg9ggpgNg"qnPg$gxKgvAIa (g>qmlpqnlgjp @E800x0 08glx @ @h8Z8h8hg$ glgl @h8Z8h8hg~BxOCOODOpOEO`9 pggx @ @h8Z8hFG8hg9ggpgNggvAIa (g>qmlpqnlXNgjp @E800x0 08glx @ @h8Z8h8hg$ gl2gl @h8Z8h8hg~BxOCOODOpOEO`9 pggx @ @h8Z8hFG8hg9ggpXgggxx @ @h8Z8hH8hgD g66T65C7lgZBxOIO:OJOp`9pgg9g 00gg@7@gg0Hgx`Ag g>l0(lgxl0h8Zp8hKL8hg(g"l0g;ggxH gg2g`!gKg4@ dggNkp pgggg^pMONO( pgg!gLpOI(pgdh8Z8h128hgNh8Zp8hP8hv#gg pQg& gQ l"gLpRI(pgdh8Z8h128hgVSIpp( pp#ggLpTI(pgdh8Z8h128hgNh8Zp8hP8hggg\h8Z8h8hg\h8Z8h8hg\h8Z8h8hg{P$xR*`HX@pXx8@p(@0P`P 88hpHi@ aS S8a`brU@@@~x q0!!A)HiHiHi(Hi(Hix Hi0 Hi0Hi0HiHiHi8Hi HiHi8 (Hi Jgg^Zgv(x ZHHg0@&HHi (Hi Hi  a$h  "a "a *~  &o  &o  .  . $h   "a  0   &o  $h  *~ $h  *~ !*~ $ &o %"a$rU@@@P`OO@`P@1`P``1OOOOXq ` OOOX! ` aOOOhQ `OOOOOhA`OOOOOP`AaOO@1 `OX1 ` X1 ` aOOOPQ `1OO` `aaOOOOPq`1OO``aaOOOO`q!`aaOOOOXA#` aOOO@Q%`aObrU@@8@ a__SRP_6__SRP_7__SRP_8~__SRP_9 A0A q  7`   `ihggZ""p ""PxOOpOX@O(OOOOhPO8 O( $xpX(hP8g ?g gggg8pX(hP8x`$h $h XrU@@@xP`8!CbrU@@@@~x brU@@@%abrU@@@8 Aq__SRP_a__SRP_bj__SRP_c__SRP_dj`ADrU@@@ xbrU@@@8 !1qQ1`AD    !"#$%&')*+,-./0123456789:;<=>?@ABCEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijlmoprstuvwxyz{|}~rU@@@ xbrU@@@8`1q1`A__SRP_e __SRP_f jShowForm __SRP_10(DrU@@@xbLqnxME(SPSSS0{18DD977D-ABD2-48AE-AFD7-CAE519038535}{EEE611F0-C3C1-4307-B251-8C2E321A7868}8 8X < %%XX )[ " 0 8"HP Xh xȡ6' B@:*oHȷJX >' B@:oRAttribute VB_Name = "ShowForm"  Bas|0{18DD977D-ABD2-48AE-AFD7-CAE519038535}{EEE611F0-C3C1-4307-B251-8C2E321A7868} dGlobaBlSpacoFalse Cre atablPr@edeclaI"dTru BEx0pose0TemplateDerivCustomizD'ȡ` P Sub CancelButton_Click() notContinueBoolT Me.HidZEnd! 'ȷĶ ,onfՏ,9-Fl;/rU@@@@~x a&o "a $h "a  "a  "a   "a "a "a  "a  $h  "a  "a  "a "a  "a !$h $$h %$h ($h )$h ,$h -$h 0"a 1"a 4"a 5"a 8"a 9&o <$h ="a @$h  A$h$rU@@@X` OOO@`aOP1__SRP_11"D __SRP_12k__SRP_13!$nPrintFormq`aQOO@`aO@1 `aOP `a@1 `aO@`aO@1`aO@ `aOP1 `aOO@ `aO@1 `aO@ `aO@1`aO@`aOP1!`OOP"`OOPA%`OOP&`aQOOPA)`aQOOP*`aQOOPA-`aQOO@.`aO@11`aO@2`aO@15`aO@6`aOX19` aOOOP:`aQOO@A=`aOP>`a!OOPAA `aQOObrU@@@@~x aS4rU@@@8`b^LeʘxME(SPSSS0{67FB66B4-2BC9-41B3-B517-4B099180A65F}{7CEAF3BF-AE4D-4D7A-BBBE-59E6437C04A1}x8 0%h8%8p)[xAttribute VB_Name = "PrintForm" " Bas0{67FB66B4-2BC9-41B3-B517-4B099180A65F}{7CEAF3BF-AE4D-4D7A-BBBE-59E6437C04A1} dGlobalSpaco False Cr@eatablPredeclaDIdTru BE`xpose0TemplateDerivCus tomizDlzV zL#p|[5wE4_+F/FC%Ix/FC%I|[5wE4_+METhisWorkbook#%< _VBA_PROJECT{A$PROJECT,ShowForm)  PSLSS6"  -`othersMoneyColumnߥ`othersMoneySumH`(atLeaOneNullCount` (atLeaError~` (regCheckFuncE`reg`regEX*` CreateObject`Patterni` IgnoreCase0`Test4`(checkTheSameXQNew` sheetIndex2n`(rnaO`Range `xlUp`Row` ClearContents{`cardID1[?` (cardIDColumn-h`ja`cardID2\?` (hasTheSame`(GetRowOrColIndexf`keyWordF`kbn1`cZ`Findn`WhatC`LookInP`xlValueso`LookAtO`xlWhole`Columni`value1`flag`Trim@`rowData1`Count0v`rowNummR`(AreasheetIndexH` (deleteRow` Unprotect?`Password`RowsU`Deletex` (setCellNumXQ`(deleteRowNoPro`(setCellValueXQ` codeValue` (columnPlus`length1S`length2T`Replacef`(removeSpecialCharacter` i`(!ValueColumType` columnNamew`(sheetIndexValue1` (AreaSheetName`(readmeSheetName` (totalCount-`(rgold`(TargetF`(hasErrorInValidateU` (dataRowStart` (babyIDColumn` isNullRowNum8`(cna`(notContinueBoolt` (genderColumn~`(birthdayColumn0` У麯&` heckStuName~"` (checkNameO`(checkBirthdayNecessary`IDNumber4 `Wm`Tk` IsNumeric$*`Right ` (checkSchCode` (checkFamType` (checkRXDate*`regcheckNowNecessary2`(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%` (checkBZSM` ` rowDataNumn` typeValue`bsTypet` valEntity܏`val`typeRow` isNullRowArr/` sheetCountB`Protectf` Application*`ScreenUpdating! `sysDifficultyGradeNameFlag`indentifyDateFlag `xlToLeftWY`Size`HorizontalAlignmentS@`xlLeft9`NumberFormatLocal)`rowType` removeSpecialj`Locked ` totalMoneySumZ`pg`qh` (checkTheSameg`myDico`myKey`varData`idNumDick` idNumDicData`cardNum\`Exists]`Addr`Keysq`Resize@4`WorksheetFunction&` Transpose` ShowForm`CancelButton_Click`Hide9z`ConformButton_Clickwf`Flasep` Sheet5` PrintForm`Workbookk` Worksheet` BeforeSave` _B_var_Chr\;`_Defaultj`!_B_var_sysDifficultyGradeNameFlag_`_B_var_indentifyDateFlagE`_B_var_isNullRowNum;r`_B_var_i `_B_var_isValidateCount"`_B_var_j `_B_var_rowType`_B_var_m `_B_var_n` _B_var_value`_B_var_removeSpecial&>`_B_var_titleMsg`_B_var_totalMoneySumY`_B_var_p`_B_var_q`A  "$' C =?AK7m"@ `0(P7q YX J  11CE-9F68-00AA00574A4F} BaseClass=ShowForm Module=ӡԤ BaseClass=PrintForm Document=Sheet5/&H00000000 Document=Sheet6/&H00000000 HelpFile="" Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="FBF957742C782C78287C287C" DPB="CCCE60ABE061FD61FD9E0362FDB1DC63B3AA63175F2C26B7D38476468369C5CB551391D3CC7A" GC="9D9F319AD36AD46AD495" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=0, 0, 0, 0, C Sheet1=38, 38, 1671, 998, ߺ=76, 76, 1709, 1036, Z =0, 0, 0, 0, C У麯=0, 0, 0, 0, C =0, 0, 0, 0, C ShowForm=0, 0, 0, 0, C, 32, 32, 1628, 709, C ӡԤ=0, 0, 0, 0, C PrintForm=0, 0, 0, 0, C, 64, 64, 1660, 741, C Sheet5=0, 0, 0, 0, C Sheet6=0, 0, 0, 0, C  }t  Microsoft Forms 2.0 FormEmbedded Object9qf&o(*CompObj+aVBFrameVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} ShowForm Caption = "UserForm1" ClientHeight = 3180 ClientLeft = 45 ClientTop = 375 ClientWidth = 4710 StartUpPosition = 1 ' End  }t  Microsoft Forms 2.0 FormEmbedded Object9qPrintForm'1.  f&o-/CompObj0aVBFramePROJECTwmMsoDataStore3 ( CustomXmlParts_Item(1).4 ( VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} PrintForm Caption = "UserForm1" ClientHeight = 3180 ClientLeft = 45 ClientTop = 375 ClientWidth = 4710 StartUpPosition = 1 ' End ThisWorkbookThisWorkbookSheet1Sheet1ߺ]wQQpeXfУ麯!hQpe;N z^ShowFormShowFormӡԤSbpSȉPrintFormPrintFormSheet5Sheet5Sheet6Sheet6 Oh+'0HPXd x 5fy]͑n@&@ Microsoft Excel ՜.+,D՜.+,H(0 8@ 0t|ICVKSOProductBuildVer$D1AF2A188D354A7490C50CBE519BC43F_122052-12.1.0.22529