ࡱ> ~:BC  !"#$%&'()*+,-./0123456789:;<=>?@ATEFGHIJKLMNOPQRSUWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~Root Entry FMb+@,Workbook8*tETExtDataB_VBA_PROJECT_CUR"6*,@,  !"#$%&'()*+,-.0123456789:;<=>?@ACDEFGHIJKLMNOPQRSTUVWXYZ[\]^_abcdefghijklmnopqrtuvwxyz{|}~ Y1~ A.  A.  A. [SO1[SO1 [SO1[SO1>[SO1 [SO1h>[SO1[SO1,>[SO1>[SO1?[SO14[SO1 [SO1Arial14[SO1[SO1[SO1<[SO1 [SO1[SO1[SO1[SO1[SO1[SO""#,##0;""\-#,##0""#,##0;[Red]""\-#,##0""#,##0.00;""\-#,##0.00#""#,##0.00;[Red]""\-#,##0.007*2_ ""* #,##0_ ;_ ""* \-#,##0_ ;_ ""* "-"_ ;_ @_ .))_ * #,##0_ ;_ * \-#,##0_ ;_ * "-"_ ;_ @_ ?,:_ ""* #,##0.00_ ;_ ""* \-#,##0.00_ ;_ ""* "-"??_ ;_ @_ 6+1_ * #,##0.00_ ;_ * \-#,##0.00_ ;_ * "-"??_ ;_ @_ \$#,##0_);\(\$#,##0\)\$#,##0_);[Red]\(\$#,##0\) \$#,##0.00_);\(\$#,##0.00\)% \$#,##0.00_);[Red]\(\$#,##0.00\),'_-* #,##0_-;\-* #,##0_-;_-* "-"_-;_-@_-50_-""* #,##0_-;\-""* #,##0_-;_-""* "-"_-;_-@_-=8_-""* #,##0.00_-;\-""* #,##0.00_-;_-""* "-"??_-;_-@_-4/_-* #,##0.00_-;\-* #,##0.00_-;_-* "-"??_-;_-@_-                   -  *  .    /          ,  /  1      $  1  4    P P    -       "* !a       ff7    `     #+   /   1    9  6  1  5     @ @  ""@ @ ""@ @  @ @  @ @  !@ @ 1@ @ @ @ 1 1@   1  1 1 1 (1 1 1@ @ 1 1@ @ (1@ @  1  1 (1 1@  1|@  1@  (1@  1 1 1 1  x@ @ 7 1|@ @ 7  1|7  x@ @ ,  x,  1@ @  1<@ @ )1@ @ 1 (1 (1 1@ @  @ @ , 1 1 1@ @ 1 1d@  1  1  ,  1@ @ 1  1<@ @ 1 (1 1 14@ @  1  20% - @wr 1* 20% - @wr 1 20% - @wr 2*" 20% - @wr 2 20% - @wr 3*& 20% - @wr 3 20% - @wr 4** 20% - @wr 4 20% - @wr 5*. 20% - @wr 5 20% - @wr 6*2 20% - @wr 6 40% - @wr 1* 40% - @wr 1 40% - @wr 2*# 40% - @wr 2 40% - @wr 3*' 40% - @wr 3 40% - @wr 4*+ 40% - @wr 4 40% - @wr 5*/ 40% - @wr 5 40% - @wr 6*3 40% - @wr 6 60% - @wr 1* 60% - @wr 1 60% - @wr 2*$ 60% - @wr 2 60% - @wr 3*( 60% - @wr 3 60% - @wr 4*, 60% - @wr 4 60% - @wr 5*0 60% - @wr 5! 60% - @wr 6*4 60% - @wr 6"~vRk #hh $h 1h 1 %h 2h 2 &h 3h 3 'h 4h 4(]]8^ĉ)8^ĉ 12 *8^ĉ 2+ 8^ĉ_hQVL?e:SRNx,c-}Y}Y .Gl;`Gl;`/'^0 '^[0] 1{{2hgUSCQ@wr 3%@wr 3 ?@wr 4)@wr 4 @@wr 5-@wr 5 A@wr 61@wr 6 Blʑ lʑXTableStyleMedium9PivotStyleLight16`E ؚ!h[^~NmOo`U_eQ2^NxhrOo`VV!  =-KmՋ@b g!hĉRv^SbpSOo`4f^fH( @~v0%MOwS A@@  v checkName checkZjlx checkSfzjh checkYesNocheckDisableType checkNum0,6,2checkFamilyIncomeTypecheckLen0,1,100checkSpLen0,1,60 checkInt0,2,0checkSpLen0,1,100checkLen0,1,40 checkDiffNamecheckIdentityDatecheckIdentityReasoncheckLen0,1,33laRte!jgv$1SkXQ /f  &T ^_kXy f[!h*g8h[nZi gsQ`Qe N؞kXQ &T ^:Nzz

SkX ƉRku 0 ,TRku 0 zfRku 0 vQNku -NvNy0^_kXy0 ,gN/f&Tku ykX /f Ry:N_kX00kXQ /f  &T ^_kXy f[!h*g8h[nZi gsQ`Qe N؞kXQ &T ^:Nzz

k ^_kXy" kXQf[u[^NSpe 'YN0 NNSpe NǏ99 OY 6 ^_kXy  % kXQf[u[^RRRNSpe 'YN0 NNSpe NǏ99 OY 2 ^_kXy " kXQf[u[^NSpe 'YN0 NNSpe NǏ99 OY 2 ^_kXy  $kXQf[u[^a{QNSpe 'YN0 NNSpe NǏ99 OY 2 ^_kXy&kXQvQ[NNq_T͑'YFO*g(WRv[^~NmOo` ^ NǏ100*NW[&{0^_kXy(kXQQQgyrVO{Q0QQgNOO7b0^chzaSvsQOo` Q[ NǏ40*NW[&{0^_kXykXQ[^mSu`wQSO`Qc Q[ NǏ40*NW[&{0^_kXyTyYgkXQ R [e 0 [SV _N_{ TekXQN TeǏ!h0kXQ[vVI{~ S/f yr+RV  V  N,V  NV -NvvQ-NN*N ^_kXyDyYgkXQ R [V~+R Ty 0 [SV _N_{ TekXQN TeǏ!h0kXQVI{~[veg kS)Ro` gN8RS~)R0hy0ZSi_6eeQ~FU0RSNSNNy iN0{QkN0R]Ncbd_b,gTv6eeQ a{Q90b(vb){Q9 LN6eeQ vQN^S_eQ[^v6eeQ checkZjlxE\lNQ[XuQeLr^yO /nyr:Sbgq/Nf oyr:Sbgq/Nf S~nE\leg_'YFLXY8lENE\OOAbgqB7bSZ /f&T/eQWV[^f[u '7 /f&TvQNNO6eeQ[^f[u '7 isZcjZckn '7 isZcjQtdsr '7FAILURE '7 4137010433]" "#.8$$jI%%f5&&s>''(3)*- 0444/4|556^477ccC PK![Content_Types].xmlN0EH-J@%ǎǢ|ș$زULTB l,3;rØJB+$G]7O٭V^{SsAXk$týKW|OHw9?dc|"PǏL*@3Y6f}KG|×|_=ڍ&?@G ^~O_~_?>qw8!nal1xNb!bIt;Tedouv{(>{`:LG72Fww:pLܝ󙉻б.Jg)p'qF2D N761X~=$gwx8]2$#+B$]B-vum$LD1x$]*(\F<0q}!!L.k&Ї;tH.ԥ1f"{lڍPD&B"I3DCP6}64MZ$2X^,nuL3;mwNgCìX-QC{^7=//XZ-^kcB@)>z.{Ш۱4G5 7HxOJa^󕒉UO2Fԭt0ujj@r^mcZJډ(ٷ16baDhTNkp=wbEaՊ`ZX!y:lšS":2ie@5 XDl];<5,i#l#gt  q01C p4QtUM˪ٰ- e? f@ gJ gK gL gM gA hB  x\  h  h  gC  hD gF gG gE gH gI gN gO gP gQ gR gS gT gU gV gW gX gY gZ  p[ !p] "g^ #g_ $y` %ya &yb 'yc (yd ie jf kg ih im im im ih ii  ih  zh  zh  ih  ii ih il ij ik ik ik in io ik ip ik iq ir is it iu iv iw  ix !iy "zk #zz $i{ %i| &i} 'i~ (i2{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{qqqqqqqqqqqqqqqqqoqqqqqtHvqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqQ Q !QQQ#R`xN(>"T!v<(   vj  |p)Ԕ5%Ԕ5%((?Comment 13942 ]4v6`  <kXQf[uvY T<%  VЫ) 9CCButton 19],@yp9 $< _Yhg< !v \Ю) 9CCButton 15905U!],!>@u9 $<_ Y h g<&v6admin>@<indjn'7 Sheet1ggDh4hh:SW2 ZO BP_g2qr  dMbP?_*+%&ffffff?'ffffff?(?)?" dXX333333?333333?&<3U} C} C} #C} !C}  D}  D}  DB@,,, , , , , ,,, E F F E G D D CC? H C CC C CI IJ C C? H J` C  C5@ H J` C  C6@ H J` C  C@ I J` IJ IJ IJ IJ C CC C C CC? C C CC@ C C CC@ C C CC@ C C CNC@ C C CC@ C C CC@ C C CC @ C C C]C"@ C C CC$@ C CC C C CC? C C CC@ C C CC@ C C@DF<< <<<<<<<<<<<<<<<<<< !"#$%&()*+, @-.:/:0:1:2Y@346,7,8,9,:,;,<,=,>,?, C C@ C C !C!C@ !CN !C "C"C@ "C "C #C#C@ #C #C $C$C @ $C $C %C%C"@ %C] %C &C&C$@ &C &C (K(C? (C (CG )K)C@ )C )CG *K*C@ *C *CG +K+C"@ +C +CG -C-C? -C -C .C.C@ .L .C /C/C@ /L /C 0C0C@ 0L 0C 1C1C@ 1L 1C 2C2C@ 2C 2C 3C3C@ 3C 3C 4C4C @ 4C 4C 6C6C? 6H 6J? 7C7C@ 7H 7J? 8C8C@ 8I 8J? 9C9C@ 9I 9J? :C:C@ :I :J? ;C;C@ ;I ;J? <C<C@ <I <J? =C=C @ =I =J? >C>C"@ >I >J? ?C ?C ?I ?J?@ D<<<<<<<<<<<<<<<<<<<<<<<<<<<<@,A, @C @C @I @J? AC AC AI] AJ?8>'@<d111'7 Sheet5ggD ZO s  dMbP?_*+%&ffffff?'ffffff?(?)?"333333?333333?&<3U>@<d  '7 Sheet6ggD " master=""/> ]0VJH PH VBAPr@ojectT@  = +r )[ J< 9stdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\System32\VBA ,0,XfDsdir a;N z^VR f &xRRME(@h0B6 < hhZ0hjnHr@ʀ @ 8 @ꀘPh @@x @%Ϣ%ꀰ  @  @ꀬ@ @ pB•@ʀ @@ꀲ0 @H`B\hB!ꘂB#ʘ B% '@˵%hl`BhHpHpxHʘBʀ @ʀP @t8ph @ꀪ @0 @&  @v  @x BzP@ꀚ @j@|@ʘB~@ @ꘀpB"ʘB$ʘ!B&(@0 H x`pPp`8 P@0@fx)0 P @P)[*\R1*#2a0$*\Rffff*1L66c0bb5e(*\Rffff*1L66c0bb5e\0::    08  @ ` Dp 8 0 P0pD084P. ..(8(`>"$ B(`>R^@F `*x$   ($H p ^^xte^tude^0p@һṹҳ]$H0=Public Const sheetNameValueTJ As String = "2ʵͳ"]$Ϣ`2Public Const IntroSheetName As String = "˵"]$H]$˵] x ¼ܵУ]$¼ͷ] "ִ һǿУ ĵԪĿ] 6ִ һǿУ ĵԪΪϹĿ] ÿһкϼеֵ]  "һǿУʱ¼Ԫ] Ϣ] P%---ģУ¼ĸԪ] 8---ģУ¼ĵԪ]  Уʱ洢ַ] ¼ʱرհť]  ¼ܵУǷвϹ]  ¼ܵУǷظ] #¼ܵУǷظ] %/¼ЧǰǷдϢ ״̬] #У鷽ķֵ]$@)¼ʼк<Public Const babyIDColumn As Integer = 2 'ѧѧſʼλ]$ )ѧ֤ſʼλ]Dp¼ΪյĿ]P"/ǷΪЧ ͳ 5ֶΪյĸ] "C¼ȥոִнȥ˿ո򷵻true򷵻false] PcellԭʼĵݣϵͳûнԶûĴ֮ǰcell] 7ϴдϢʱڵ,ӦĿʼʱʼֵһ] ] ] RڸݱʶòͬķʱжǷforѭ Cell_SelectionChangeҪõñ]$0¼ʡصȼ¼ڵ]$+sheet±Ƿ] `]$h@)е]$) Ա]$p+]$,϶]$ #϶ʱ]$!%϶ԭ] -Oʶ϶ǷͨУ 0-δͨУ 1-ͨУֵΪ 2-ͨУֵΪ]  $Oʶ϶ʱǷͨУ 0-δͨУ 1-ͨУֵΪ 2-ͨУֵΪ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!babyIDBj8= 2 'ѧɀѧ0λcard3 ֤)Dim isa1(ΪՅvE.AҔFΠЧA 5ֶc fremoveSpaceFlateBȥո `πa$ˡ2tr@uefalse ce!2A2ā`|ûнԶûwG֮aKsc ur@*)Long 'ϴxд%OAA,ӦĿʼʱsֵһ&rna%%'`w`cabisF@SY2ڸݱʶòͬ`-CE ж?forѭ C_Sele rJChRҪõb)headdI= 0(/ʀصȱ& Sus9r0"v±@ nottinu~eQ$Aq@NP luRW:104 @'gH.wge r := Ա w birthday= 5 ' ڿєysDifficultyGrade31 '@϶oi ntifyDStE1ʱO@6ReasonTQԭ\sO b%=+Q' ͨU 0-δ 1B-ֵaC 2:QV*_.Q_%__Se2.tlb#OLE Automation0E OfficEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files\CommonMicrosoft Shared\OFFICE16\MSO.DLL#M 16.0 Ob LibraryKMSForms>SFrms3D452EE1-E08F0A-8-02608C4D0BB4 SINDOWS\sSFM20L'B _&/;"~1jIqAHq00}#0Bq# ў50 A29BA7102-932D-496fE90-EA10376EE5A86Users\\AppData\Local\Temp\VBEb7.exdc^":  4P, `$ >^,J( @$X ~PV Pp >|  8nH"Px   \( 08.d@ p,L \ * * P(h%0%D%% %0 %8 %,X %&  ( #6z $J $"P (,Vx (PV (`" (,LFX 4Jv <($ <?  D6v0 D0>h HBj Hl " G$( H8 M4l@ N~x N&N8(N ` ,pI D@,  ,0 48v40>8 j@8l` "G$HM4lN~N&N8N  ,I  4(00)"(8<($` <<0H6vH0>PBj Plh "G$HM4lN~N&N8N  ,I( H0<8(" @,8vh,0>0 j0l "G$8HHM4lPN~N&N88N p ,I ,($$x  < 6@(LZX(&( (   )$   >(,h, x (,>40x, ,",  ( 0@(2Hp *4 +$N  `^h p4LxdN   &4 $0LXdpPV,J  4L(d`Nx  \ \ \ x"x2$@6@ x* :    8,P a--------------------------------------------ʼУ-----------------------------------------]X]p+ijһ͵ıʶкź͸ʽ3:1;2] ʶ(ĬϱʶԶʶ)](ijһ͵ıʶ飨кź͸ʽ] ijһͱʶľֵ]Զʶ]%Ѽ¼ΪյкŷŽ]( N!D'"ȡĿ 0ĿȷģٽдУA@21qazN$NB@|k1qazN$NB@L1qazN$NB@L1qazN$NB@L h$f!`B@-$ÿοʼʱѴϢsheet,'jϢ¼ʼ'.ôУУ¼Ƿд֣׶ϢУ ('#Ĭ϶ѼδͨУ'Ĭ϶δͨУ h$f!`B@-$ÿοʼʱѴϢsheet, A65530$N%B%!' A@T ȡ IV5 <%B%!<'|xcna = Worksheets(1).Range("1:1").Find(What:="*", After:=[a1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).ColumnFAILUREA@X&+ȡǷУɹ־Ԫ񣬲ֵʼΪ0'zռ¼ʼΪ0 0 8" ʱִd ʼУ鰴ť¼ʱִ A9:IV65536$N%B!z2ͺ9 9q A9:IV65536$N%B, 9@9"ıʽq.ȷʼ Уرexcel $4ܵݶʧʧ 6ܰʾ$2 8d1qazN$NB@|kk.$N!b(|)ҳǩΪɫ   "ûвҵѧϢ޷У飡A@2'01qazN$NB@|k'ôУУ¼Ƿд$N!дϢ£A@b      '<"ִ һǿУ ĵԪĿ';6ִ һǿУ ĵԪΪϹĿ'''5"һǿУʱ¼Ԫ'9ǷΪЧ¼ 'vC¼УǰǷд';¼ԱǷд " | "$N%`!r'Oһбʶֵ'2=жforѭǷcallFunctionXQStart ûִĬϷ <ʶΪ -$'Gʽ14-3:25 :$'H6ʽ3:25ȡıʶвֳ֣кź͹ DJҪּϵҪУ飨ĬУ͵ԶУ   Y&+1ΪеһԪΪĬУ $:$'V*ȡıʶвֳ֣кź͹$'SԶʶ  $;$'cԶʶ͵ľֵ   gԱʶб $  " A@}ݱʶֵöӦķ  "$N%`'rHȥַķ r$d'   "$N%`'{ȡбͷ  " е Fַ^ , ; ' <> " ? ո س뷨Ϊȫͣ飡''^УʱдϢ  "$N%`!( ӻɫ A@bN%isValidateCount = isValidateCount + 1kXPkH  $;$'Pȡıʶв   WԱʶб $  " A@  "$N%`'rHȥַķ r$d'   "$N%`'{ȡбͷ  " е Fַ^ , ; ' <> " ? ո س뷨Ϊȫͣ飡''^УʱдϢ  "$N%`!( ӻɫ A@bN%isValidateCount = isValidateCount + 1kk eJ ʽ3:25$'QԶʶ  Pʶеڵǰ$;$'eԶʶ͵ľֵ   kԱʶб $  " A@ݱʶֵöӦķ  "$N%`'rHȥַķ r$d'   "$N%`'{ȡбͷ  " е Fַ^ , ; ' <> " ? ո س뷨Ϊȫͣ飡''^УʱдϢ  "$N%`!( ӻɫ A@bN%isValidateCount = isValidateCount + 1k  k d-ֻĬУʽ14$;$'Hȡıʶв   OԱʶб $  " A@  "$N%`'rHȥַķ r$d'   "$N%`'{ȡбͷ  " е Fַ^ , ; ' <> " ? ո س뷨Ϊȫͣ飡''^УʱдϢ  "$N%`!( ӻɫ A@bN%isValidateCount = isValidateCount + 1kH @ k8 k0  "$N%`( " 6ִ һǿУ ĵԪΪϹĿ     е һдȷ''8УʱдϢ A@b  'd   'Tÿһкϼеֵk  <,һؼֶȫ򽫸ɾ  z+ z 'z,"ϢеĸдϢɾ  j  j j  h$f%PB@Rr Ѹɾ  j  'j v'k k  z 6 ɾЧ $'  A@JB ѸɾdH   A@JH Ѹɾk  z ˴Уɾ z:Чݣ֤У鶼ʧܼΪЧݣA@2k *дϢ鿴ϢA@2$N!b(| h$fB@Hd '&A@ &'%ִУظݷ,ûظǷҪɾЧ Уͨ!A@2.$N!b(|SUCCESSA@X:+ȡǷУɹ־Ԫ񣬲ֵʼΪ0 A65530$N%B%!' A@Td*ظݣ鿴ϢA@2$N!b(| h$fB@Hkpkh1qazN$NB@1qazN$NB@1qazN$NB@oq-------------------------------------------------ظijһ------------------------------------------------@]] A65535 ^%B%!'2Scripting.Dictionary$.O8O  ^%B!r'>ȡѧ  %"ѧ໤֤ݽб   %-֤Ų  B@&#addһΪkeyڶΪvaluekk ! 'Sheet2$NG:G7BB@  !$%& !DG17B,"qx.oh`3Attribute 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).@1 s n;"jXQ 1, 2^, bm4h$c"1".D IV5 ToLeft`Golum$p'1:1`F*(Whath*", After:=[a1], SOchOrBdAxlBys1Dirp`>:=xlPrevio|us@8, "FAILU8RE"aL!<־Ԫ񣬲ֵʼ໯Ϊ0 ƞ 0FU `} isSaveB uttonvbOK ལʱִEE_c`ذť¼) With S>9:IV>6A* v ͺa._A".Siz11cAo&3k .Horiz alA`lignmP5 xlA$hPberFormatLoc$alQ @"uc> Xb`("ȷL QGرexcel" & Chr(1n& "ܵݶʧ0ʧ,1Canp&ܰʾ")`  q  [ggb g3 gKTabvlorI Nx -4142!|ҳǩq$Ϊpɫ PHstartTitle + _ ِ5 i2 To1f 9eaOneN!= QM һ@ǿձ VgO \Ϊrϱ?totalMoney&eP.} "? u"@iі1fais~ieHnΪϧ1s5/InE R'ȰQC0?;?9du$}-j ~1,'=9r(j).Aߵһ֞гu_is = $жforѭ! nlFuncqXQSV S5/Zw <> p&QZ ' /#= St(+o-o'14-3:25 rowType = Split(t0Value, ":") 'ʽ3:25ȡıʶЀв֣ кź  If UBound(bs) <> 0 Then 'ҪּϵУ飨Ĭ x͵Զr'HcFPor mLa+ 1 Tol'+1ΪеԪa@valE`ntity(|m)oRow"%(0e3;{@i)E,'@>kGA1b;Bľֵn@)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 u''iLO= p_End If /Next5 _ mss= False2ooV4T0_S~~~ }}} RkBzz?z;s= zzozʕzȡzzzzzzzzz zzz BWorksheets(1).Cells(i, j).Interior.Color = 65535 'ɫ CEwriteLog err orMsgM`'isValidateCountk+ 1:End If 3)NextfElse If UBDd(rowType) <> 0 Then 'ʽ3:252#tRow^(0) 'ʶ{@Ci(+!A(еڵǰG;jvalS0plitc, ";"Jľpֵ) yF5}nLA) ToC' б+callFunctionXQStart `(n), 1, Ay'$4Ӧķ<+ue %v__#'!ȥַ? (removeSpeciBPCharac`()#m+m (title5sLTaa 'ȡбͷ)%"" & i`"AjA F& "E ^ , ; '!["" ? ո س뷨@ΪȫU|"_ _ hasE{P Tr1'У ʱSϢo_8_ ߍ 'ֻĬq)Í14?)pPsp.szbs1ezB1Dħr//xxxvv% ?bc::// rrKk= rr rrrrrrsgtrrrr_ rrrL ;Worksheets(1).Cells(i, j).Interior.Color = 65535 'ɫ < >writeLog err orMsgM`'isValidateCountk+ 1:End If +)Nex>tb ׆LockedOFalLse_*3 j 'ִ һǿУ ԪΪϹ@ĿIf atLeaO@neNull~<`> 0 Ah=Ç ThenEa@I"" &D i",`EA?Ё?дȷ숲"ghas = True ')ʱдϢ Es%n+ 5 ?EMItotalMoneySu&m1+  'ÿһкȼ@4ֵicO> 1 I$ '!2ؼȫɾ_isAWRowArr(Num) !i r E ) `'eO<-%+i Fpcu#a  - -.To^  fSCmsg"Name).s(x).DeletpѸ_9/p" =OhE|Inu3 ~ )?; q9 0 i/@!1 '%Ч  rowData,/4q)@?T_cd"A,1,)'#oROs- q ~ qURtK!zw; Box "P˴AnRfRwJ& xݣրʧܼ:Ϊwvn?p 2 y鿴EQ`+TabӻIndezx016MMS}(c%0SP0/#checkdXQNew Not (0n ظA,asD0,Ҫ}rfͰ! -41421setTue XQ 2,!8, "SUCCESS" 'ȡ! ɹ־ֵʼ0Ϊ0f rnap Range("AA0").-(xlUpmI R pK Kna%FW2_2_2z_2_2_2NAProtect Password:="1qaz '2).ect Password:="1qaz" Worksheets(3).ProtEnd S@ub '--ظijһ-? x checkTheSame()Dim myDic As (Obj,KeyVariant( , va rDatarna = ActiveS.Range("A655 35").(xlUp).Row '1 Set idNumH= C reateJ("Scripting.tionary"bI@O8", "O" & R).value 'ѧ@ӀF݃GFor Ea@ch car% In''໤퀷֤Bб!C IfF<> "" anNoG?.Exis )B 'G@AA.AddE, Null 'addһΪkeyCAIfINexIƒ Cmy=5.sWith H"B2GmG:G@ClearConten.t41@Re size(B.C ount)AppPlica.FFunon.Transpos '?D4'*= eah@  63]wQQpe  SbpSȉ /!hQpe  %~Sheet1BixME(6 LLH V` X IX xIZ `\ b(`  id l`  In IX Ip  tX` 8  id ~0`   In IX IZ I  `   'In IX IZ  ` @ 2In `I IX IZ I  ` 8 GI XIn xIX IZ I  ` 0 EI PIr `  `  SI +( ` X jIn xI* i,`.  ` ( {Ir HI> hI@ @B J8 `  In  IF  T `Hk In  IX  Ip  Ir (  V ` h In  IF  X `Hk In  IX @ Ip ` Ir (   ` Ir  In  IX 8 Ip @B @Z @\  ` In  IX 8 Ip `>`^`` d`  Ir @   0(  8 XT% x@T N@ @ @0 @ @H @`x @` @H @ ` 0(0hH@X X0N@ @ @ @ @ @x @` @H  0)[$*\Rffff*1M66c0bb5f*\R1*#405*\R1*#13f*\R1*#133 B       B  B h p B ( 0@2` p  B 8 8@ $x 8 " pB x 8  $ $  HP xXB 4(0*X$ 8BP0h!  ( 0 8 @  B   4 $H  "p   "   .  0 0@ p  *   .  8 .H  x  0   6  0@6X 8 6 P`(x  0(0  f8  >&8 ` Xp h `*x j&P x ` (8P X Hp(x H0(x H(p` H(  &  `    H( H( H( H(  &  n `p  8( H(  &  b h       &X! ! ,!!!! f! X" x""" " 8"(" 6#(# p$ &x$ $$$$ f$ H%(`% % T% &% &(&0& $H& &p&$|&$&'$ @'$P' `'h' p' '$t'$&($ (( 8( $@(H( P(p( ^x( ("()@ )&`) )) )))) b) X*h*x* t* &* + 0+8+X+ f`+ +++ t+ &h, , ,,, b, 8- X-p---&. 8. H.P.X.x. ^.. ./@ /&`/ // //// ^/ P0 p000X0&0 1 (10181X1 ^`1 1 112T2&h2 2 2222 n2 H3 h33"33&H4 p4 4444 j4 (5 H5h5"x55&06 X6h6p66 n6 7 (7H7"X77&8 88 H8P8p8 Px88888&9 9 9999 R9P:h::X:&: ; ; ;(;H; bP; ;$;;@<&@<h< p<<$<,<<<<<==(= j0= =="==&> >>>H> ?L? h?p? x? & @ H@ P@ `@h@p@x@@ Z@ AA0A@8A&xA AAAAAB jB "xBBBB dB &8C `CpCbxC hC ,HD xD &E 8E HEPE XE &F @F PFXF`FhFF ^F F&G0G@8G&xG GG&GGGH ZH pH&HH@H&H I0I&8I`IhII ZI I,J@J@HJ&J JJ,JJK K |(K K$KK(K@L&XL L L"LLLL |L pM MM@M&M N(N 0NPNXNxN |N O$O@O@HO&O OO$OOOP d P P P@P&Q (Q8Q2@QxQ xQ Q6R.PRRR( R2R( R1R( R2R( R1SS SJ8SSSSSS fSB (T 0T<8TxT TT$T$T U(U 0U \U B 8V,XV 0V@V"V ^ W 6WWWWX00XH`XXXXXXX X "Y Y .YB Z Z$ ZBHZ Z Z Z Z Z ZZZ Z [ [ [ [B ["[  \8\@\ H\P\X\ `\8\\2\\ ] 0]@] H]P] X]h] F]]] ] ] *](^ 0^ ^ ^B __*(_ 4X__ _B (`^0` vP` p` x` a 0aB Ha*Paa aB b^ b v@b `b hbB c  c "8c `c8c2cc d(d 8d@d Hd Pd`d"d0d d(d e(e0e L@ee&eee ee eB xffVff 8g Pg pg:g4g$g h"8h`hhhph xhB ii 6i HiXi`ihipixii-----------------------------------------УУдϢʾ ע----------------------------------------------------------- Ԫ] X Z ^%`'\ \'Vd('Vki--------------------------------------------д־ ¼ϢʾһϢ-------------------------------------------- d j h$f,` j 'jiX------------------------------------------------------ ȡָcellֵ-------------------------------------------------------------( X p n$N%`!r'li--------------------------------------------д־ ¼ϢúɫʾϢ-------------------------------------------- d'v d j h$f,` v j h$f%`%x!z(| j 'jii--------------------------------------------עʼУ飩-------------------------------------errorInfoעX 1Worksheets(sheetIndex).Unprotect Password:="1qaz"  X Z n$N%`B@ X Z n$N%`!(W ӻɫ X Z n$N%`!(Pii--------------------------------------------ɾעʼУ飩-------------------------------------01Worksheets(sheetIndex).Unprotect Password:="1qaz" X Z n$N%`B@ X  Z  X Z n$N%`!(|d  X Z n$N%`!(|kpihr---------------------------------------------ʼУ Ƿӻɾעõķ----------------------------  Уʧ X Z n$N%`!d жעΪ n X Z A@~V עd"Ϊգȥǰע n X ZA@N ע n X Z A@~k1 MsgBox "" & rowIndex & "" & errorMsgd :УɹжǷעУʧʱעȥ n X ZA@ ,#ȥո,ʾ XУ ZУַ"$4 "$4"а˿ոϵͳԶΪA@bd`kXkPiH----------------------------------------------------------------------------------------------------------------------------------y--------------------------------------------ݱʶöӦķ(ʼУ)-----------------------------------------------------------------------------------------------------------------------------------------------------------------------ѴϢдб X Z n$N%`'r  Z n$N%`'Iȡбͷ Ϊϲеıͷ  Z n$N%`' X e  Z n$N%`'k0'  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'  checkSpLen*e0ΪУ  $' checkSpLen'kP _=================================1 ִеķǿУ==========================================ѴϢдб checkNullKT n X Z$'  X е Ϊգ'')УʱдϢ A@bRMsgBox "" & rgold.Row & "е" & Chr(10) & titleMsg & "Ϊգ"k0 n  X Z A@'a=================================2 ִѧУ========================================== checkNameKT n X ZA@@ȥոķ X Z n$N%`!r'r r$'  X е ;дȷΪ֣ȴ1ܳ20ַ''%УʱдϢ A@b  'k` n  X Z A@'Z================================= ִеijУ==========================================checkLenKT r $'  ,$'$ ` ΪDZΪ̶ȹ X е .дȷΪաд򳤶ȱΪ$ λ'$ ed ΪDZΪȷΧ X е 4дȷΪաд򳤶ȱڵ$ λҲ$ λ'$ ed ΪDZΪ̶ȹ X е &дȷΪգҳȱΪ$ λ'$ ed ΪDZΪȷΧ X е ,дȷΪգҳȱڵ$ λҲ$ λ'kH '0УʱдϢ A@bk n  X Z A@'Z================================= ִеijУ========================================== checkSpLenKT r $'  ,$'$ ` ΪDZΪ̶ȹ X е .дȷΪաд򳤶ȱΪ$&λֻΪַ֣'$ ed ΪDZΪȷΧ X е 4дȷΪաд򳤶ȱڵ$ λҲ$&λֻΪַ֣'$ ed ΪDZΪ̶ȹ X е &дȷΪգҳȱΪ$&λֻΪַ֣'$ ed ΪDZΪȷΧ X е ,дȷΪգҳȱڵ$ λҲ$&λֻΪַ֣'kx'0УʱдϢ A@bk8 n  X Z A@'h================================= ִеijУ飨Numberͣ==========================================checkNumKT r $'  ,$'$@ ΪDZΪ̶ȹ X е GдȷΪգдΪ֣0λȲ$λСλ$ λ'$ ed ΪDZΪ̶ȹ X е ?дȷΪգұΪ֣0λȲ$λСλ$ λ'kh'0УʱдϢ A@bk( n  X Z A@'[=================================ִֵΧУ==========================================ѴϢдбcheckValKT r $'  ,$' X е $дȷΪ֣ڵ$ Ҳ$''-УʱдϢ A@b& isValidateCount = isValidateCount + 1k8 n  X Z A@'_=================================ִеΪֵУ==========================================ѴϢдбcheckIntKT r $'  ,$'$@ ΪDZΪ̶ȹ X е 4дȷΪգдΪ$ҳȲ$ λ'$eEΪΪ̶ X е 0дȷΪգұΪڵ$ҳȲ$ λ'k!'0УʱдϢ A@bkH! n  X Z A@'`================================= ִе֤У========================================== checkSfzjhKT n X$l'S ȡд  X е &дȷ֤Ϊգ''0УʱдϢ A@bd  ֤ r Z$'O ֤У :֤У X е MдȷΪѧ֤ţһλΪĸXıд''4УʱдϢ A@b  'kd r$'  X е EдȷΪգҳȱڵ1λҲ18λ''4УʱдϢ A@bkkk n  X Z A@'X================================= ִ֤У================================== checkZjlxKT checkZjlx r1$'  X е дȷ''(УʱдϢ A@bd` checkZjlx n X ZA@k8 n  X Z A@'\================================= ִѧŵУ==========================================checkXJHKT r$'  X е EдȷΪգҳȱڵ1λҲ50λ''0УʱдϢ A@bk n  X Z A@'`================================= ִѧϢIDУ==========================================checkXJHKT r$'  X е EдȷΪգҳȱڵ1λҲ50λ''0УʱдϢ A@bkX n  X Z A@'[=================================ִпУ==========================================ѴϢдб checkBankKT r$'  X е $дȷΪ֣ڵ$ Ҳ$''-УʱдϢ A@bk n  X Z A@'W=================================ִ꼶У========================================== checkYearKT checkYear r$'  X е дȷ''(УʱдϢ A@bd` checkYear n X ZA@k8 n  X Z A@'W=================================ִѧУ==========================================ѴϢдбcheckXnKT r$'  X е )дȷʽ2012-2013ȣ''-УʱдϢ A@bk n  X Z A@'W=================================ִ·У==========================================ѴϢдб checkMonthKT r$'  X е &дȷʽ0112ȣ''-УʱдϢ A@bkP n  X Z A@'g=================================3 ִеУ(DZ)==========================================ѴϢдб checkDateKT r$' 2Уʧ X е дȷдʽΪ"$4 xxxx-xx-xx"$4 2013-02-21''-УʱдϢ A@bkp n  X Z A@'c=================================ִеУ飨==========================================ѴϢдбcheckDateNecessaryKT& r$' 2Уʧ X е дȷдʽΪ"$4 xxxx-xx-xx"$4 2013-12-21''-УʱдϢ A@bk n  X Z A@'g=================================ִеijУ飨==========================================ѴϢдб checkBirthdayKT! r$' 2Уʧ X е дȷдʽΪ"$4 xxxx-xx-xx"$4 2013-12-21''-УʱдϢ A@bk n  X Z A@'J=================================10 У绰====================== checkPhoneKT r$'  X е дȷдʽΪ"$4-̶绰 ֻ"$4 ''%УʱдϢ A@bk0 n  X Z A@'L=================================checkOption У鱸ע ====================== checkOptionKT rB$'  X е )дȷȲܳ200ַ''%УʱдϢ A@bk n  X Z A@'\================================= ִ϶ѼУ================================== checkDiffNameKT checkDiffName r $'  X е дȷ''(УʱдϢ' A@bdx checkDiffName n X ZA@ r$1ͨУֵΪ'd 'k k n  X Z A@'d================================= ִ϶У(DZ)==========================================checkIdentityDateKT% r$' 2Уʧ X е дȷдʽΪ"$4xxxxxxxx"$4 20130221''-УʱдϢ A@b'd8  r$X$϶ȼΪգ϶Ϊլ'  r$e](϶ȼƲΪգ϶ڲΪ'd X е vдȷ롰Ѽ϶ơͬʱΪգͬʱΪͬʱͨУ飬顰Ѽ϶ơǷͨУ''0УʱдϢ' A@b'kk n  X Z A@'T================================= ִУ==================================checkMZKTcheckMZ r$'  X е дȷ''(УʱдϢ A@bdHcheckMZ n X ZA@k  n  X Z A@'d================================= ִ϶ԭУ(DZ)==========================================checkIdentityReasonKT'0,1,30' r $'  X е 5дȷȱڵ1λҲ30λ''0УʱдϢ A@bd   r$r1϶ȼΪգ϶Ϊ,϶ԭΪ   r$ew8϶ȼƲΪգ϶ڲΪգ϶ԭΪ   r$e X е dдȷ롰Ѽ϶ơ϶ʱ䡱ͬʱΪգͬʱΪͬʱͨУ飬''0УʱдϢ A@b'd X е дȷ롰Ѽ϶ơ϶ʱ䡱ͬʱΪգͬʱΪͬʱͨУ飬顰Ѽ϶ơ϶ʱ䡱ǷͨУ''0УʱдϢ A@b'kEkE n  X Z A@'X================================= ִ֤У==================================checkIDCardTypeKTcheckIDCardType r $'  X е дȷ''(УʱдϢ A@bdHDcheckIDCardType n X ZA@kD n  X Z A@'T================================= ִвмУ==================================checkDisableTypeKTcheckDisableType r $'  X е дȷ''(УʱдϢ A@bdBcheckDisableType n X ZA@kB n  X Z A@'T================================= ִвмУ==================================checkFamilyIncomeTypeKTcheckFamilyIncomeType r $'  X е дȷ''(УʱдϢ A@bd8AcheckFamilyIncomeType n X ZA@kA n  X Z A@'v=================================14 checkGender ִǷΪСŮУ--================================== checkGenderKT checkGender r1$' '-ԱдУ֤Ź X е дȷ''(УʱдϢ A@bdh? checkGender n X ZA@k8? n  X Z A@'u=================================14 checkYesNo ִǷΪǡУ--================================== checkYesNoKT checkYesNo r $'  X е дȷ''(УʱдϢ A@bd= checkYesNo n X ZA@k= n  X Z A@'u=================================14 checkYesNo ִǷΪǡУ--================================== checkSqyyNameKT checkSqyyName r $'  X е дȷ''(УʱдϢ A@bd8< checkSqyyName n X ZA@k< n  X Z A@']=================================checkTerm ִѧУ--================================== checkTermKT checkTerm r $ X е дȷ''(УʱдϢ A@bk: n checkTerm r $ X Z A@'r=================================checkAtLeastOneNNull ִһΪǿ--==================================checkAtLeastOneNNullKT  'A"ִ һǿУ ĵԪĿ r$ r=Ϲ  r ' Z KTF  r ' KTF  r ' KTF  r ' KTF  r 'n8dϹ  'F6ִ һǿУ ĵԪΪϹĿ    'kX8'nH8i@8_--------------------------------------------ʽ-------------------------------------]pVBSCRIPT.REGEXP$.7RegExΪʽ (4 ȫֿvba\ת  ( .ʽ ( 5ǷִСд r %'3 ִ.i6-----------------------------------------------------------° Уظ˵Ѿûиʽ------------------------------------------------------------V-----------------------------------------------------------1ѧ׶ڱڲ(sheetѧ׶ A65535 $f%B%!'*cna = getTotalColumnCount(sheetIndexValue) h$f!`B@1&ÿУظʱʱѴϢsheet,'jϢ¼ʼX==============================ѧ׶ڱڲ==================================0ðÿԪغ֮ǰнбȽ      $f%`' "   "  $f%`'$  $.ѧͬ˵ظݹ " еݺ͵ ֤ظ!!!!' A@b*ѴϢ'&k(3 33i3-----------------------------------------------------------һ ֵȡֵ------------------------------------------------------------ֵҵֵڵлkeyWord ҵĹؼ'kbn л ֵΪ rowrow'(]the find result object *2 64 :8 A1:A65535 n$N%B%0.. . ,row .!'(d81 .!<'(k 1k1i1------------------------------------------------------ ִڹУ(Ϊ)-------------------------------------------------------------value value1 cellУ鲻ȷfalseУȷtrue @0˵ΪDZ >$'z/k/k/]'Dijһļ¼ A65535 H$f%B%!'FB' H rrow$('B=ȡ  B F  H$f%` r D 'Dd.y.k.  " B B D  " H$f%`X >X LжϹǷcell'y .k. "#ʱcountĿΪùеĿi------------------------------------------------------- ִɾijһвexcelܱģ-------------------------------------------------------------sheetIndex rowNum к1qazN n$NB@L F n$N%PB@R/ Ѹɾ- Worksheets(sheetIndex).Protect Password:=123ih,------------------------------------------------------ ָcellֵ-------------------------------------------------------------8 1qazN n$NB@L r X p n$N%`(ri+------------------------------------------------------ ִɾijһвexcelûб-------------------------------------------------------------sheetIndex rowNum к F n$N%PB@R/ Ѹɾix*------------------------------------------------------ ָcellֵ------------------------------------------------------------- 1qazN n$NB@L r X p n$N%`(ri)------------------------------------------------------ ݴеֵǰʱѾͨУ飩------------------------------------------------------------- ]X p  X p n$f%`!rX '\'Dijһļ¼ A65535 H$f%B%!'FF H rrow$('BAȡ  B F  H$f%` r D 'Dd'y'k'  " B B D  " H$f%`!rX '> > \X 1жϹǷcell " H$f%`!r'Z ZX X p \ n$f%`(ry&d& >ESheets(sheetIndex).Cells(rowIndex, colIndex + columnPlus).value = "0"dh& X p \ n$f%`(rk8&k0& "i&------------------------------------------------------ ȥcellеĿո------------------------------------------------------------- ]X Ԫ]p  3Blength1ʾcellԭijȣlength2ʾִȥոַ'ĬΪûȥո2 Worksheets(sheetIndex).Unprotect Password:="1qaz" X p n$N%`!r'> >'^ ^Gzj*"ԪΪգȥո > '`%length2Ϊոһγֵλ `ַո > $b'> >X X p n$N%`(r'k#i#~------------------------------------------------------ ȥַ------------------------------------------------------------- ]-[\uFF00-\uFF06][\uFF09-\uFFFF]|[\s,;'<> "?^]+'  r$'dd"'dk"i"x"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 ȡ AֵLJpHDgetBCountXQ(sADʴ A?WorksHEQy.vA`%2GúɫCG3 GRedVHnLen EKzKRcR.Characters(1, ).F].Color73?VJxx&!ʼs+#` errafoåaddCommwXQCVUů,  0™'TUnprotect Password:="1qa>z e\N.A ( I0rior#=<65 535 '1ɫ>% d/.Visi1 6K YesNo -k2 ? DiffNameѼa?%D~ CodslA! 'HBIDC0ardTpM֤ xo(/  kSqyyԭ _ _ "] e? ? kYearZ?MA_ _ ]  :iSpiiBE\ V11j BLvSelect Case =Q)1 ִǿ1?OC 3~N8ulldxMethodXQ7Required Nod3"@"" &Ǝ"xtitleдȷ"ΪաB"`ΪA<1)λ0+El4seuO2]OA+ΧOex!'''ڵ3v(Ҳ謹1-2?-%,?-= 1T`jT?-TTTT &S "SeS&SSf{F{&R`'R?,IiahasE!@ 'BaʱдPOρ d͏| || c| }w~|~Ih~Sp~9 ~ B~~Pb~~ P 3sΪlֵ6666Int657p17Ep7XQnX77]`2p$??_w>& ?!"_r(?ߐ?ov }sBY?ȟ?a='/TgB Qooo_ I?W?W?Wߊ dSSSSo~rߊ?P֤>/)RSfzjhR r@esZjlx0EgetCellValueCountXQ(sheetIndex , rowH2) 'ȡд  If resZjlx = "" ThenbLerrorMsg3" & "е title-& "ȷ֤Ϊգ"hasEBATrue 'УʱдϢ&write0Log lEl se*vcheckMethodXQrIsIDNumber(vA, column}|C,@' @'NoLt  'O`σ8Ϊѧ6λ)Ϊ ĸX дhA+Al Eis@idatG{M+ 1`End ;WO@SFZJLXO)?vL_A!!I‹ ҳȃE1λ18e?H ?H>G{/? $  beginCa_comment N ڈ,ߴ isF orha '= ִ =Case "B!J@DMB((, d"1"4m5`b{ f@"o{o{o{`{1)/1yy\o0!LsetCodz,*'8&,U--|-R|-O-*B-ѧŵ---XJH-f -@Sc,,,_b&> _b_bVb50_b 000o1o1,\/-/-/-/-+o-)d-ID---O =-----_a/Y֯---OO -----------bo-)Qп= 'ѴϢ,б Case "checkBpank" :P4MethodXQ = T(valu e)0\If N ot0@Then2;errorMsgk"" & rowIndex "еAtitle& "дȷΪ֣ ڵӂ'functionArgsArr(0),ҲX+1zahasEcaTrue 'Уʱ writeLXog 'E nd IfbeginCA_comment sheet\,o,columnD 'isForBִ>K 5Ye arhҳDMB(B, ¶, 1H@B?O?OßN]ElseI set*Codd+KE{IS W _XckE_X X Y==YѧOY\ ]XnO]\Xn"[cʽ2012-3ȣ^"__C__JUU8/W&*·ݟ**І*Month**Ј߲*l? ?\X?& ?7*0112*}*PJ*K *V*U?R *O'3 !+A+(DZ)+++Date"> CPo,Airthday,v'/එ, 'ʧYOO/H .Ϊ!Chr(34rx-xx  ᭁ[-0\10 000 j0000000g?,00ѩ_00 0NecessaryO1r CO1H1&1(11@1 _V__$1113-1 11;д writeLog er@rorMsg^E nd If>beginCheck_comment sheetIn@dex, cMethodXQ, rowolu mn ~isFor = True '=ִеijУN4хб큋Case "qBirthday" ' jNecessary(value)#If Not Then 'A ?ʧ%^#"" &i"ASOtitleд ȷʽΪA ChrP(34) x-,xx  2013-12-21"+hasE+ 'y~?&@10 %绰Sb'(\Phone3ZNumvYvX,TTT-̶# ֻ$VTS}vP??nd?LEOptionBQע P&CQ㣣P, 66Ъ_Q⤆_Q_QȲܳ200ַK% %OO%> %, c % " a϶ѼqOGODiffNam/PSoP DMB( , }, funcA0Args_)sB)XQ~ORC |x|||?Nt(_x/LsysaicultyGradeFlag 0??,?,8Els E}setCod p  Tri uoQ"ͨa(ֵΪi 1ߏY2/@ A /B/B/B/B?Foh>&Bu(ǁ)o'{BId`ityDatexOC@CĿAAComsgQE;"q1Q02?> GGsG DDyiPntifJ-808i> A/EQnȼnAգ϶ indentifyDateFlag = 1lElseIf sysDifficultyGradeNamB2 And Trim(value) <> "" Then 'ȼƲ  32_,errorMs"" & rowIx"еʀ title& "дȷ롰`Ѽzxͬ2|zͨУт!PǷ"ihasEA5@xTrue 'ʱdдϢcheckMet hodXQ@Fa@ writeLog W Q0 2EIfbeginCA6_comm sheet}, <,`olumnD W6isForD_ '= ִÀj^ =kCase z"Z4DDHMB(, Bx, 1)S*Not#"}!$k kBcX__^_^ VGc7set*Cod(2,KI \XwXY+UY!aԭY(DZ)Z% [ItyReason" '3&A4functio nArgsO0,01,30GrcLenc, tccrdУgڵ@1λv304/5_d_d5&5f`{?812dފ=ϊŊ,-(?  d =  aC`: ? 4 (` 00 OrO 0)/% _4ϜϜϜʱ䯝SﯝH O7O7O7nO7O7Pߞ  m?ocQ:OO/ /_, oo[ /"֤>,iDCardType; wIyL paA  errorMsg = "" & rowIndex("6titleZ& "дȷ"  hasEifTrue 'УдDwriteLog *ElseEsetDMBCode "checkIDCardType", sheet,, column ,End If beginC4_comment2AMethodXQ:,yisFor '= ִвм`a^ =6CasODisableO@J8@)`(_ , value, functionArgs)If Not KThen  l-]Rz]]]S9]Y]_ ]FamilyIn@y^zo^_>_+D_߼߼߼߼ ߼_ʼP.__c ĵԪ=\"\Money(Z) A:B <> 0Z 'aG Ϲ GPtotanl Q+CgSelect tޘ m"baojiaoC:1 Sum-, huoshic _ Bzhusu?L# others?l# _ E@d'TsJ| '23 =pG>6>>>Ϊe@Kc + h+ " Jb~3  Ft '-ʽo-  regB(E})8DimaEX As Obj#ISet= @Create("VBSCRIPT.REGEXP")q'RegExΪG EX.GloxbalpF~'ȫ''vba\תPatptern !RʽIgnoreB8= FaǷִд3TestgGB.hin#$O ° 4ظ˵ѾPûpt 1ѧ׶ڱ -B}SameXQNew(W2) 'w(naS!s:.Range("A65535").P(xlU@p).Row'cgetT1wsMVah6m sg).Cells.Clea rCont@s 'ÿʱAB ,cu! P 1 '¼ʼ/oc'ðԪغ֮нбȽϧi0 startT + 2 To rnag4cardID1WIA2(i, c3YOdAjO@i - 1oq32exj$iv eQӨ+ͬ䣬q:1;Qԏ e_j!׺ͣiC֤Ų@!_p  writeLog errorMsg 'ѴϢ`  hasTheSame = TrueTEnd If6pNext +Function  '-7һ ֵȡֵ8W-K) ҵ*@лkeyWord Ĺؼ bn A Ϊ row  GetRowOrColIndex(ByVal sheety, 84As String) Integer +@o-1Gb Dim c Object 'the fi@qres`ult o Set = =k&s(().Range("A1:A65535").F@(What:=.LookIn:=xl8ues, AAxlW hole)GIfH NoIsh9 ɩ@ k@B= "U" Cc.@]A ElsPkumL" ִڹУ(ʀΪ)yA]value 0͠X1 cell `Aȷfam%'et[checkDMB( , , fl`Exit 2@e%7ifLDataACount 0 'ijһa(ļ¼FCNum`Szs(Areagf (xlUp@jow 'E HF/ -Ul $0,#e) '>CFor i % To @1C`Fs(i|, 3b>r'+ (p#5o2ia i'j.5 + c -i DC(j, 3)M B#Y) ' (dǷf'&A eSbS)Aj 'ʱcAQĿΪЃwQ ._wODB-bHɾ.вexܱģoF1 A' кňsd`eleteP\h,*Ejv).UnprotaoPassw`|:="1qxaz"obsb().Dq!'rA}).P123_ ָc'ֵ?(setΣǰʱ1Ѿͨ˱)?Code?%bW8T<, c 2QL2p|y,HC=  S]___@a[B=? {9Q~aheetIndex).Cells(i, 1) = value T@hen C0ount+ B1 DElsehExit For V nd IfNe0xt i0 jjrowData To  + .- 1Str(Ss(Areasj, 34).)<yIf%cV) 'жϹȏ'+codne#QO2O& !n, col +umnPlus,JF%PB?A.qB}AIP"\" '2"<0"JSE?Q "Ej Functio '-2 ȥâĿո  removeSpaceXQ(gN,asMIDimeiAs ring 'ԪAh'7len gth1 Integer, c2h '#ԭȣ0ִ"!ַO cFa`[ 'ĬΪ F' Work!s!).Unprotect Password:="1qazDFtxd Len( /p'0yM '1Ϊգ%$c 2 Ina , " ")12һγπֵλÇf2 <> 3A5'%g ReplQ"E+礏L ETru%|?zs- za#8pyecialCharac8terq8reg2B"[\@uFF00-b6 ]9FF]|@[\s,;'`""?^]+/~DgCheckE(,sAuSA '] "<!VxME(6 <<< L`J%``X)[$*\Rffff*1J66c0ba93"  ( HhxѧϢӡģ$N(PѧϢӡģ$NB@RѧϢӡģ$N(PoAttribute VB_Name = "Ԥ" Sub Browse_Print () Worksheets("ѧϢlģ").VisiblaTrue"d^P@review2cEnd "8esH#p᫓eXGY{Of F?O[qq˹ux?O[qq˹u᫓eXGY{OfME(      !"#$%&'()*+,-./012457O89;u<M>?@ABCDEFGHIJKLNghQRSTUVWXYZ[\]^_`abcdefinjklmo{pqrstvwxyz|}d~xME(6 <<<@ `X In xIX IZ `\ ``(  Ir @ ` Ir @ `H  Ir @ +` iip`H`.H```  `  Ir @ `x  Ir @ @`  Ir @ `  Ir @  `( Ir HI @  ` Ir @  `h Ir @ 0 ` Ir @  ` Ir @ h ` Ir @ @  ` I>  I  D `X  I> x I  0 `  I>  I   ` Ir  I  ` ` Ir @ I   ` Ir  I   `P --Ir p I @ @` &&Ir  I  `  Ir @ H`(  Ir  `  Ir @ h`0  Ir @ `  Ir @ `P ""I pIX Ip ` ` ``````@ ` @ ` @ ` @ `X ""Ir xI @ `  Ir @ h   h  0 H` @ `@ 00% /@)[$*\Rffff*1Q66c0bb5f  B       (  B H@PX`hp xB    (08 @ B PX` (0 n8  B ,$@`Hx   " 8Ph"4   B   4     ( 0 8   B   ( H X ` h p x   B 8 @ 6H       | 8 X B p x 0       x ` B   (08@H xP  B 0@HPX` |h  B  ($0Xhpx |  0B HPfX | x B    B :0@X x   P pB        .B      .B   (08@ HB  &08@HDP4 (08@H PB  &8@HP X x( D48 @HPp B @H` hx  "  <08 @H PB     ( &8 ` h p x  0          !"! 8!@! $H! "p! ! ! ! !!!"""  ">8" x"4" " "" "" "B ### #&#$$$$ $ @$"H$ p$x$ $$ "$ $ $ $ $% %@%H%P% X%>p% %4% & &&  &(& 0& & &B &&''('0'8'@'H' P' ' (B ( ( (( 8(@(H( P( ( )B ) ) ()H)X)`)h)p)x) ) * 8*B P*X*`*x****** * H+ h+B +++++++++ + , ,B , &, $- (- H-&X-*-"-$-.( .H.h..... . 2.(/"H/p//  ///8/0 0 (0B 000&01 1&1@1H1P1X1D`14111122 22 2@2`2p2x2222222 2 83 X3B p3x333333333-----------------------------------------1 ,дϢʾ Ϣsheet--------------------------------------- ʱ0 Ϊʱ1 Ԫ] X Z n$N%`'\ \'d'ki-----------------------------------------2 Уѧ ҪΪ-------------------------------------------------------------ʽȷfalseʽȷtrue]H%^([\u2E80-\uFE4Fo]|[a-zA-Z]){1,20}$'4޸ģУƧ  r$'d'ki|-----------------------------------------3 УڸʽΪ2012-05-09(Ϊ)---------------------------------------` r$'zk]reg = "^((19)|(20))\d{2}-((((0?[13578])|(1[02]))-((0?[1-9])|([12][0-9])|(3[01])))|(((0?[469])|(11))-((0?[1-9])|([12][0-9])|(30)))|((0?2)-((0?[1-9])|([12][0-9]))))$"^((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]))))$'  r$'d'kix|-----------------------------------------3 УڸʽΪ2012-05-09(Ϊ)---------------------------------------]h^((19)|(20))\d{2}-((((0[13578])|(1[02]))-((0[1-9])|([12][0-9])|(3[01])))|(((0[469])|(11))-((0[1-9])|([12][0-9])|(30)))|((02)-((0[1-9])|([12][0-9]))))$'  r$'d 'kih-----------------------------------------4 У֤---------------------------------------Ϲ򷵻trueϹ򷵻false]790584216379058420Ȩ] 10X9876543200У $' ȥո]H`x p  6)׶֤Ϊ,ΪͨУ'zpkh Gzj $$Gzj *[0-9X]Gzj   $' G 'j   $  '  ' $ .  $G'jiz-----------------------------------------У֤ -------------------------------------------------------------ʽȷfalseʽȷtrue],^[\u4e00-\ue863a-z|A-Z|0-9|()|]{1,18}$'  r$'d`'kPiH----------------------------------------5 -УѧУѧУʶ 42λһλΪֻx-------------------------------------------------------------ʽȷfalseʽȷtrue ]^[1-9]\d{40}[\dx]$'  r$'d'kiz----------------------------------------6 -У黧 -------------------------------------------------------------ʽȷfalseʽȷtrue](.^(\u519c\u6751)|(\u53bf\u9547)|(\u57ce\u5e02)$'  r$'d'kiu-----------------------------------------7 Уѧʱ-------------------------------------------------------------ʽȷfalseʽȷtrue@]'^(((19)|(20))\d{2})((0[0-9])|(1[0-2]))$'  r$'d'kiq-----------------------------------------7 У-------------------------------------------------------------ʽȷfalseʽȷtrue r ,ΪDZ'kzk]h^((19\d{2})|(2\d{3}))$'  r$'dH'k8i0q-----------------------------------------7 У·-------------------------------------------------------------ʽȷfalseʽȷtrue]^((0[0-9])|(1[0-2]))$'  r$'d0'k iv-----------------------------------------9 Уѧ-------------------------------------------------------------ʽȷfalseʽȷtrue]^\d{4}[0-7]\d{3}[0-3]\d{7}$'  r$'d'kxipv-----------------------------------------10 У绰-------------------------------------------------------------ʽȷfalseʽȷtrue]^\b((1(([38]\d)|(4[57])|(5[0-35-9]))\d{8})|(0((10)|(2[\d]))-[2-9]\d*)|(0[3-9]\d{2}-[2-9]\d*))\b'  r$'d 'kiv-----------------------------------------11 Уп-------------------------------------------------------------ʽȷfalseʽȷtrue0]^[1-9]\d{14,20}$'  r$'d 'k i -----------------------------------------checkXn Уѧ磨2012-2013-------------------------------------------------------------ʽȷfalseʽȷtrue]8 ]P 1^(20\d{2}-20\d{2})|(19\d{2}-19\d{2})|(1999-2000)$'  r$ r-$'$$ 'dx 'kh d` 'kP iH -----------------------------------------checkOption У鱸ע磨Сvalue2-------------------------------------------------------------ȲС200false 򷵻trueh >'zP kH >  'd( 'k i ------------------------------------------------------ȽϴС(Сڵڷtrue)----------------------------------------------------------------'value1value2false 򷵻true >X'> X' >  'Dd 'Dki------------------------------------------------------ȽϴС(Сڵڷtrue)-dec---------------------------------------------------------------'value1value2false 򷵻true >$4'> $4' >  'd'ki}------------------------------------------------------У鳤---------------------------------------------------------------0 ,$'' r$/ΪDZ'kzk ,-±0ʼֵΪָάõ± r$$4 r$$4'z kd ˵У̶ r$$4'zkki}------------------------------------------------------У--------------------------------------------------------------- ,$'' r$/ΪDZ'kzk r$& Ϊz r.e+СzPkH ,-±0ʼֵΪָάõ± r$$4 r$$4'zkd ˵У̶ r$$4'z`kXkPiH------------------------------------------------------УֵΧ---------------------------------------------------------------` ,$'' r'zxkp r$) ΪzH r$4e) С0zk r$4$$4 r$4$$4'zki------------------------------------------------------Уֳ(Number,ΪҲΪСС0)--------------------------------------------------------------- ,$'' r$/ΪDZ'kzk] ^[0-9.]{1,9}$'޸ģУƧ  r$d0'z k r$% Ϊz r$4e% С0z k $'+󳤶$'.Сλ r.''' "˵ûС r$4' $$4'zkd С r r. $'DԪֵλ r r. $' $$4 $$4'z kki------------------------------------------------------Уֳ(Number,ΪС0)--------------------------------------------------------------- ,$'' r$/ΪDZ'kzk r$% Ϊz r$4e% С0zk$'+󳤶$'.Сλ r.''' "˵ûС r$4' $$4'zkd С r r. $'DԪֵλ r r. $' $$4 $$4'zkki-----------------------------------------checkIsInt У鲻С0-------------------------------------------------------------ʽȷfalseʽȷtrue@] ^0|[1-9]\d*$'  r$'d'ki-----------------------------------------checkIsNumber УΪNumber-------------------------------------------------------------ʽȷfalseʽȷtrue' r$'ki-----------------------------------------checkMoney У0-9999-------------------------------------------------------------ʽȷfalseʽȷtrueH]^(([1-9](\d{0,3})|0)|0)$'  r$'d'ki-----------------------------------------checkMoneyTJ У0-9999Сһλ-------------------------------------------------------------ʽȷfalseʽȷtrue]P^([1-9]\d{0,7})$'  r$'dh'kXiP-----------------------------------------checkPersonNum У׶԰һ------------------------------------------------------------ʽȷfalseʽȷtrueh]^(([1-9]\d{0,3}))$'  r$'d0'k i-----------------------------------------checkIdNumLink У֤ԱͳûдǷһ------------------------------------------------------------ʽȷfalseʽȷtrue If colIndex = jhrIDColumn Then checkIdNumLink = True Exit Function End If]%Ա֤ǷӦ]$ں֤ǷӦ]ڵһγֵ±]"Ա,Ԫ֮ڵ]$ݺŽȡ](!,Ԫ֮ڵ]@"ݺŽȡ]Xp#]%·]] $' $'  (ڶλΪΪ X  l$f,`dڶλΪżΪŮŮ X  l$f,`kh $' $' $' -  -  X  l$f,`'i}------------------------------------------------------У鳤--------------------------------------------------------------- ,$']^[\u4e00-\ue863]{1,200}$'' r$/ΪDZ'kzk ,-±0ʼֵΪָάõ± r$$4 r$$4  r$'d'kzkd ˵У̶ r$$4  r$'d'kpzhk`kXiP-----------------------------------------У鿼šѧšѧ -------------------------------------------------------------ʽȷfalseʽȷtrue](^[a-z|A-Z|0-9]{1,40}$'  r$'d@'k0i( EAttribute 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(vgDplreh @@"^([\u2E80-\uFE4Fo]|[a-zA-Z]){1,20}$" '޸ģ 9pƧCY@hCA!(, jB`& `j t 18 /  Not eric(MDid, 1 7n)3 f%L@ike "*fX]_ For= 1 To l17CTqWt0 ]1 1sps( + ; i! * TNexts Mod 1pRight)c, Tw3 w}?; "p@!QSFZxJLXZJ`4e0e863|A-Z||()|]p18p dueSwqYkV_X\X[53-P0ʶ 42λһΰx ckSchCodeE{Rs040}[\dx]Og_C_qloooQ--6R " - 'ȷfalse#TLtruHFunction checkFamType(valu e) Di`m reg = "^(\u519c\u6751)|3bf\ u95477ce#e02)$"i;IfGCgu( K, i Then%r nTE  &Fr End If p7 Уѧʱ/ RXDat((1920))\d{2})((0[0-9]12])5a `F `FP`QU!_Year, fDArgsArrDG""_A @ 0 'ΪDZǿ" IiaExit _j{s {II|(23}G, 0xG>$dG|Gz G`Montht*D-?-"9Jaѧŏ8--XJH-Y4}7]BZ 3!7})Q[.C-&$10绰__-ckPhoneNu&m?l\bi(([38h4[5j7Ai55jk8*}00p2[D\dj-[2\d*[3mg)\boNoRq*I Ap'11п2O`Bank=[1c14,20_2Т_^4oo Xn@I瀣2012-@3_pXn_Uxy sc20J2}p r019t9900o_L2Split , "-"4q30R(1) - 0)01= ۊholkp= "" OpR9ע#СR2_#P#200yٷVck 122 1@4h gELe-@">c2!VL ?#Q5  qg`OȽ С()s &B  !omparq!alue2) v1 = `CInt(h x2 x zIf >2 TheǹcompareFalse E .Tru -nd If EFu nctiol'-2Ƚϴ(СڵȀڷt7`)-dec) 'ڂ 2/f~ 6 d Dec,9lC m_У鳤#]heckLDen], fDArgsVArrESplit(, "," cQ@""T ((0) 0 'ΪO݁H eemaiajxit lDp`UBound #Á '±0ʼֵΪάõ qF4) > Mm(`1)) A H(< E3'. '@˵\X̶\s! H!? * FGJRy#% c&b+@ v,Z onj5((Not IsNumerikB)8JΪ>,InStrY".") <> OСoK.) KsKKKNk @p:Kg1K_=K|KKIKsK5- > K/GqKֵΧKValϋϋвdD@GϋϋpKK'=A`#/Fe/F,FoQ2+C R7IF0=/'#,?@3@0mq/2Ey_ 5qz)s/(0bber,ΪQ| Ҳ\)1P111 11110Ͻ'ϽK?6fp Exit Function   End If<$Dim r eg@ = "^[0-9.]{1,9}$" '޸ģУ ƧjIfAECheck}(E, value`) The3EXlse c?NumFa.J@Not Is)eric(H 'Ϊ> dC4H)CDe$<= 0o'С0 i$Z;maxIntLe nfArgsArr(1) '󳤶 4@Double2СBλiBgthInStrK, ".":) VAv@ ;douTMIM˵ûC&D ^ ?( ) h SͥȣTru Tz? ACAMi"dEg1, Nk - EԪ$[āGλo&6H + 3 ?/#Y) A42)4#,55@26aG'-0!4zB(ber,B!6)S : % %1eHicH}Lf}Split(,Ƀf ,@s¯ ""le2`(0)iΪDZSQIvq:!Bʿe@ H)f )q_eon_e_e3_e_eKXp>_e_e 5[KIfpE_e Y`J%JJI*?_)- oe ߁xoeJoeoe xoeÅ oeW= }B1boeoe ?_o!uqe e^ Is` ecc?@ʽȷf'Q5t2ffe0|[1-9]\d*$"o*uH= '_07/J?q?t{BΪ_???ck瀄j = 8?J) ?Money !999Q___p ++((+(\d{0,3})|0!_,{H_,6End If End Functi@on '-%checkMoneyTJ У0-9Сһλ&(ʽȷfalsetru  (val@ue) Dim reg  = "^([1-9]\d{0, 7})$"If-Cq+(, % The( = TE ET Fc PersonNum׶԰һ˹öa% bHb3})bGBc cFWzIdbLinkc֤ԱͳûдǷһ.¿ip(", rowIndex, col"dh V'`hjhrIDColumnlc~'[a")3Exita ed !yisGe@rRight As Bool`ean ',.A+ӦC{aBirth3]length2Integer ':γֵ± gV!String,Ԫ֮ڵh61Žȡb |B;y`ear, Variant 'amon0th, day, i %arr-1UMid\17, 1[ g= H= 8%Ū Mohd 2` 1b@XڶλpΪ[Sheets(sBoB71).Cells(GsC#o) "A E,ż%Ů?xCAŮm w! q, 4"!, 5, 2x _|, Y18 " 0 + "-" +*ppw NKq?^! SpLDeny, fArgsiArrSplit(y, ","81V`"^[\u4e00-\ue863]{1,200}# `z7Ҙ"\g4| (0a20C9'ΪDZw q:)il UBound@ 2 Ad0ʼրΪָPάӀõfqpv) >= CDec=(1)) A;<s (22 2\N$ ?.?~bY'˵=̶Q= {ap:/f^jqZFS!š ѧsO/ןckS4R^[a-z|A-Zh|0-9]{1,40}$" If regCheckFunc(0, value) ThencS = True,Els @Fa.End 0If tioRPSLSS0B6"<0<8<N0{00020820-0000-0000-C000-000000000046}X >` X )@x%i.  % %<H %x)[*\R1*#2a0$*\Rffff*1N66c0bb5f`  " &  HX`p xڵԪʱf Continue? DHi$2 Fo1A@2rok 123A@4poxAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2'ڵԪʱ P$( Sub Works_BeforeDoueClicka(ByVal Target As Range, @CancelBoolean)  If MsgBox("Continue?", vbYesNo, "Hi") Then3  " End If CDec23n@48CSheet5 `Sheet6s__SRP_0=H__SRP_1Zh#pG}A"UD F~Z%C˙ex~Z%C˙eG}A"UDME(SLSS6"N0{00020820-0000-0000-C000-000000000046} 0t\%@pod%2%Hx@x8)[$*\Rffff*1O66c0bb5f` xAttribute VB_Name = "She@et5" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2 Z#pPVAyTˀv FRz;:Kc VZRxRz;:Kc VZRPVAyTˀvME(SLSS6"N0{00020820-0000-0000-C000-000000000046} 00#0#%@porms%H%Hx@x8)[$*\Rffff*1P66c0bb5f`xAttribute VB_Name = "She@et6" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2rU@@@~~~rK*   rU@@~~~~~~~~~ ~~~6~~ ~~~ ~ ~~B"Q YA)vB|F  a a a #a  @ a 1q!a A q !A!q!!aPQ 3A3q333/'4A4q444515'a55556A6q666717a77787qa a 1  VBAProject ThisWorkbookSheet1Sheet6ӡԤߺУ麯ShowFormSheet5 PrintFormFBC:\Program Files\Common Files\Microsoft Shared\VBA\VBA7.1\VBE7.DLLVBA A qPF9C:\Program Files\Microsoft Office\root\Office16\EXCEL.EXEExcel  p0FC:\Windows\System32\stdole2.tlbstdole 1aL-[DR checkTheSame ?C:\Program Files\Common Files\Microsoft Shared\OFFICE16\MSO.DLLOffice a.E .`M C:\WINDOWS\system32\FM20.DLLMSForms Q Q  q)-kI7n2C:\Users\\AppData\Local\Temp\VBE\MSForms.exd Q  У򲢴ӡϢ Browse_PrintFZ!?M%7AF+nHyDFWorkbookWorkbook_BeforeSave x .`/f&Tnx\OX[excel YOX[ pQVBE7.DLLa`  Oo` Nxh f ,Row a nx[ , &|~\ۏLhg!h Y NOX[ pQ Sm ?aS *~ JJ  8PhpxFF&mFUnprotect CellsClearContentsFGetRowOrColIndex&m 0]\Ohpev Ncknx N}ge!jgT QۏLdk!h 1qaz.PasswordProtectEnd&t  A65530 RangecheckedRequiredStartwriteLoggetCellValueCountXQ writeLogRedaddCommentXQStartclearCommentsXQStartbeginCheck_commentcallFunctionXQStart regCheckFunccheckTheSameXQNewcheckDMB deleteRowsetCellValueCountXQdeleteRowNoProsetCellValueXQ setDMBCode removeSpaceXQremoveSpecialCharacter IV5F᫓eXGY{Of F?O[qq˹uDF Worksheet 'Worksheet_BeforeDoubleClickaaaaaaaaaaaaFF "NumberFormatLocalTab:! FAILURE A9:IV65536Font [SONameSize &HorizontalAlignment @ checkSchCodecheckXn 4`nx[_YhgT hgǏ z-N RsQexcel &TRS[penc"N1Ybhg1Y% )nc:yColorIndex "l gg~b0Rf[uOo` elۏL!h -NOo`Y N  value -a , -N\ gN*NkXQcknxhgRows Delete dk!k!h-N RdN(~ : ; ,{ L Rvpency VX[(WyrkW[&{Y^ , ; ' <> " ? zzgg|)h8Z8h*H8hg+,g -ggn)h8Z8hH8hg.g/0gg 81Ipp2O3O(? p8Rgg\h8Z8h8hg{gggdh8Z8h458hg!x>gLp6I(pg p(g\h8Z8h8hg{gg pgh8Z8h,7O`  8hg!xg( !kxg8g9g:g;<g;=g`g>g p?g(H&k"gzH @h8Z8h@8hg pAg;\gVBIa (gVCIa (g"qnPgFqmlqnlgv @CIa (g$gKfgvDIa (g>qmlqnlpfgj @Eh``H` 0hgl @H @h8Z8hH8hg$H 0g0lJglH @h8Z8h8hg~EOFOHOGOpO8HO`< p8gg @H @h8Z8hIJ8hg< ggp gg6 gAp>gvDIa (g>qmlqnlgj @Eh``H` 0hgl @H @h8Z8hH8hg$H 0g0lglH @h8Z8h8hg~EOFOHOGOpO8HO`< p8gg @H @h8Z8hIJ8hg< ggJgg"qnPg$gKgvDIa (g>qmlqnlgj @Eh``H` 0hgl @H @h8Z8hH8hg$H 0g0lglH @h8Z8h8hg~EOFOHOGOpO8HO`< p8gg @H @h8Z8hIJ8hg< gg2gggvDIa (g>qmlqnlgj @Eh``H` 0hgl @H @h8Z8hH8hg$H 0g0llglH @h8Z8h8hg~EOFOHOGOpO8HO`< p8gg @H @h8Z8hIJ8hg< gggggx @H @h8Z8hK8hgH~ g69T98C7lgZEOLO=OMOp`<pgg< g ``$ggp:pgg`g `Ag   g>l`Xl(Rgxl`h8Zp8hNO8hgX(g"l`g>ggx gg2 g`!gKJg4@ ggNkp pggg 6 g^8pP OQO( p8ggP!gLpRI(pgdh8Z8h458hgNh8Zp8hS8h$gg pTg&gT #gLpUI(pgdh8Z8h458hgVVIpp8( p8gh8Z8h !8hgJ!@p(p$ggLpWI(pgdh8Z8h458hgNh8Zp8hS8hggg\h8Z8h8hg\h8Z8h8hg\h8Z8h8hg{ %lF(x0p@(H@HX0p` `P h8hp8Hi@ aS S8a`brU@@@@~x aS4rU@@@8`b__SRP_6 __SRP_7__SRP_8~__SRP_9rU@@8p 1 !Qq`q A 7` 1  `ihggZ""p ""PxOOpOX@O(OOOOhPO8 O( $xpX(hP8g ?g gggg8pX(hP8x`$h $h XrU@@@xP`8!CbrU@@@@~x brU@@@)brU@@@~x   q!2!!1*HiHiHi( __SRP_a __SRP_b__SRP_cd__SRP_dHiHiX(Hi0 Hi0Hi0HiHiHi8Hi HiJgg^Zgv(x ZHHg0@&HHi Jgg^Zgv(x ZHHg0@&HHi (Hi Hi  a $h  "a  &o  "a  *~  &o  .  .  $h   "a   0   &o   $h   *~  $h  *~ ! *~ $ &o % "a$rU@@@ P `AqOO@ `PX1 `       !"#$%&(*+,-./0123456789:;<=>?@ABCDFGHIJKLNPQRSTUVWXYZ[\]^_`abcdefghjklmnopqrstuvwxyz{|}~AOOO@ `P`1 `Aq!OOOOX ` AqOOOhQ `QAqOOOOOhA `AqOOOOOP `!OO@1 `AOX1 ` qX1 ` !OOOPQ `OO` `A!OOOOPq `OO` `A!OOOO`q! `!AOOOOXA# ` AOOO@Q% `!ObrU@@@8 @"A"q"!`"" Hi $hrU@@@ xX `!QCbrU@@@8__SRP_e$__SRP_f'jShowForm!#)__SRP_10EQ2A"2!`""DrU@@@xbLqnxME(SPSSS0{D77E9330-16A1-4FA9-AC3B-7EC5B1D737B8}{82969A69-C47E-47E2-8B5D-174C4AB10931}8 *X . %%XX )[ " 0 8"HP Xh xȡ'~ B@,oHȷX 0'~ B@,oQAttribute VB_Name = "ShowForm"  Bas|0{D77E9330-16A1-4FA9-AC3B-7EC5B1D737B8}{82969A69-C47E-2-8B5D-174C4AB10931} dGlobalSpacoFalse CreatablPredeclaIdTru BExpo se0TemplateDerivCustomizD'ȡ P Sub CancelButton_Click() notContinueBoolT Me.HDidZEnd! 'ȷq ,onfՏ,-Fl;/rU@@@8`2A"2!`""DrU@@@xbrU@@@~x__SRP_11"&Mj__SRP_12Ow__SRP_13%(iPrintForm a&o "a "a "a  "a   "a  "a "a "a  $h  "a  "a  "a  "a "a  $h !$h $$h %$h ($h )$h ,$h -$h 0"a 1"a 4"a 5"a 8"a 9&o <$h ="a&rU@@@X` AqOOO@`!O@1`!O@`!OP1 `@ `!O@1 `!O@`!O@1`!OP `!OO@A `!O@ `!O@1 `!O@ `!O@1`!OP`OOPA!`OOP"`OOPA%`!1OOP&`!1OOPA)`!1OOP*`!1OOPA-`!1OO@.`!O@11`!O@2`!O@15`!O@6`!OX19` aAOOOP:`!1OO@A=`!Ob^LeʘxME(SPSSS0{D048D898-402C-481B-A56A-4B1A1A2A2FAF}{2C86834C-A761-41F5-B6EA-80CE45CD8957}x8 0t\%h8is%8p)[xAttribute VB_Name = "PrintForm" " Bas0{D048D898-402C-481B-A56A-4B1A1A2A2FAF}{2C86834C-A761-41F5-B6EA-80 CE45C57} dGlobal!SpacoFalse CreatablPre declaIdTru BExpose0TemplateDerivCustomizDThisWorkbook')e _VBA_PROJECT$PROJECT0ShowForm-0,0,lzz zL#pZ!?M%7AF+nHyx+nHyZ!?M%7AMEPSLSS6"  -`othersMoneyColumnߥ`othersMoneySumH`(atLeaOneNullCount` (atLeaError~` (regCheckFuncE`reg`regEX*` CreateObject`Patterni` IgnoreCase0`Test4`(checkTheSameXQNew` sheetIndex2n`(rnaO`xlUp`Row` ClearContents{`i``cardID1[?` (cardIDColumn-h`ja`cardID2\?` (hasTheSame`(GetRowOrColIndexf`keyWordF`kbn1`cZ`Findn`WhatC`LookInP`xlValueso`LookAtO`xlWhole`Columni`value1`flag`rowData1`Count0v`rowNummR`(AreasheetIndexH` (deleteRow` Unprotect?`Password`RowsU`Deletex`(setCellValueCountXQ]`(deleteRowNoPro`(setCellValueXQ` codeValue` (columnPlus`length1S`length2T`Replacef`(removeSpecialCharacter` i`(!ValueColumType` columnNamew`(sheetIndexValue1` (AreaSheetName`(readmeSheetName` (totalCount-`(rgold`(hasErrorInValidateU` (dataRowStart` isNullRowNum8`(cna`(notContinueBoolt` (genderColumn~`(birthdayColumn0`(sysDifficultyGradeNameColr`(indentifyDateCol&`(indentifyReasonCol*9` У麯&`IDNumber4 `Wm`sj`Tk` babyIDColumn` IsNumeric$*`Right ` (checkSchCode` (checkFamType` (checkRXDate*` (checkYear6`(checkXJHF`years`value2` (compareDecN`(checkInt` 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` ` rowDataNumn` typeValue`bsTypet` valEntity܏`val`typeRow` isNullRowArr/` sheetCountB`Protectf` Application*`ScreenUpdating! `xlToLeftWY`Size`HorizontalAlignmentS@`xlLeft9`NumberFormatLocal)`rowType`md`ne` 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`BeforeDoubleClickaaaaaaaaaaaa\`_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` "$'=IK )Ug3 5 "@ p0(P7q`YX HH  rsionCompatible32="393222000" CMG="6361CFB389B789B78DBB8DBB" DPB="21238DD2AAD2AA2D56D3AA026BB2C21B70884CBB33202C2FDFE9FAD44C5EDC8618A6554D" GC="DFDD73378F4B4C4C4C4CB3" [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, 38, 38, 1834, 900, C ӡԤ=0, 0, 0, 0, C PrintForm=0, 0, 0, 0, C, 76, 76, 1872, 938, 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 f&o,.CompObj/aVBFrame ClientWidth = 4710 StartUpPosition = 1 ' End  }t  Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} PrintForm Caption = "UserForm1" ClientHeight = 3180 ClientLeft = 45 ClientTop = 375 PrintForm+520,0,f&o13CompObj4aVBFramePROJECTwmSummaryInformation(7DocumentSummaryInformation8 ClientWidth = 4710 StartUpPosition = 1 ' End ThisWorkbookThisWorkbookSheet1Sheet1ߺ]wQQpeXfУ麯!hQpe;N z^ShowFormShowFormӡԤSbpSȉPrintFormPrintFormSheet5Sheet5Sheet6Sheet6 Oh+'0@HTl AdministratorMicrosoft Excel@&@, ՜.+,D՜.+,HP X`hp x  УͥϢ¼ Ϣ (S[wKSOProductBuildVerICV2052-11.1.0.12980$4797DADAAE1642CBA5673EE70491F5A0 FMicrosoft Excel 2003 Biff8Excel.Sheet.89qCompObjh