ࡱ; 6cfgh ZO\p sunjiaxin Ba= ThisWorkbook=HGx-8X@"10[SO10[SO10[SO10[SO10[SO10Arial1@0[SO10[SO10[SO10[SO10Arial10[SO10[SO1 0[SO10[SO10[SO10[SO1h>0[SO1,>0[SO1>0[SO1 0[SO100[SO10[SO10[SO10[SO10[SO1@0[SO10[SO1>0[SO1 0[SO10[SO1 0[SO10[SO10[SO10[SO140[SO1 0[SO10[SO1 0[SO140[SO1<0[SO1?0[SO1>0[SO10[SO1@[SO1[SO""#,##0;""\-#,##0""#,##0;[Red]""\-#,##0""#,##0.00;""\-#,##0.00#""#,##0.00;[Red]""\-#,##0.007*2_ ""* #,##0_ ;_ ""* \-#,##0_ ;_ ""* "-"_ ;_ @_ .))_ * #,##0_ ;_ * \-#,##0_ ;_ * "-"_ ;_ @_ ?,:_ ""* #,##0.00_ ;_ ""* \-#,##0.00_ ;_ ""* "-"??_ ;_ @_ 6+1_ * #,##0.00_ ;_ * \-#,##0.00_ ;_ * "-"??_ ;_ @_ \$#,##0_);\(\$#,##0\)\$#,##0_);[Red]\(\$#,##0\) \$#,##0.00_);\(\$#,##0.00\)% \$#,##0.00_);[Red]\(\$#,##0.00\)""#,##0;\-""#,##0""#,##0;[Red]\-""#,##0""#,##0.00;\-""#,##0.00#""#,##0.00;[Red]\-""#,##0.0050_-""* #,##0_-;\-""* #,##0_-;_-""* "-"_-;_-@_-,'_-* #,##0_-;\-* #,##0_-;_-* "-"_-;_-@_-=8_-""* #,##0.00_-;\-""* #,##0.00_-;_-""* "-"??_-;_-@_-4/_-* #,##0.00_-;\-* #,##0.00_-;_-* "-"??_-;_-@_-"Yes";"Yes";"No""True";"True";"False""On";"On";"Off"],[$ -2]\ #,##0.00_);[Red]\([$ -2]\ #,##0.00\)                                           P P    !    " #a , * $  %ff & ' (` + ) ) * +                 1 1  1@ @ 1 1 1  1@ @ ""@ @  @ @  @ @  !@ @  @ @  ""@ @  @ @ 1 17 1 1@  1@  1@  1 1 1@ @   @ @ 1  1@ @  1 1 1 1 1 1  1 1 1@  1@  1 1 1 1 1|@  1 1|@ @ 7  1<@ @ 1|7  1@ @ 1@  1 1d@  1|7  1<@ @  ,1 ,1 ,1 -87 .8 ||xY}(} 00_)}(} 00_)}(} 00_)}(} 00_)}(} 00_)}(} 00_)}<} 00_)ef\([$}<} 00_)ef \([$}(} 00_)}<} 00_)L\([$}(} 00_)}(} 00_)}<} 00_)L\([$}(} 00_)}(} 00_)}<} 00_)23\([$}(} 00_)}(} 00_)}<}  00_)23\([$}(}! 00_)}(}%?00_)}<}( 00_)\([$}(}) 00_)}(}* 00_)}<}, a00_)\([$}(}- 00_)}x}0 }00_)\([$#,##  }}1 00_)\([$???#,##??? ??? ???}(}2 00_)}(}3 00_)}<}4 }00_)\([$}<}7 e00_)\([$}x}8 ???00_)???\([$???#,## ??? ???}}9 ??v00_)̙\([$#,##  }(}: 00_)}<}; 00_)\([$}<}< 00_)\([$}(}= 00_)}<}> 00_)\([$}<}? 00_) \([$}x}@00_)\([$#,##  }(}A 00_)}(}B 00_)}(}D 00_)}(}E 00_)}(}F 00_)}(}O 00_)}(}Q 00_)}(}R 00_)}(}S 00_)}(}T 00_)}(}U 00_)}(}V 00_)}(}W 00_)}(}] 00_)}(}_ 00_)}(}` 00_)}(}j 00_)}(}p 00_)}(}q 00_)}(}t 00_)}(}u 00_)}(}v 00_)}(}w 00_) 20% - @wr 16 20% - @wr 1  20% - @wr 26" 20% - @wr 2  20% - @wr 36& 20% - @wr 3  20% - @wr 46* 20% - @wr 4  20% - @wr 5B. 20% - @wr 5 ef  20% - @wr 6B2 20% - @wr 6  ef  40% - @wr 16 40% - @wr 1  40% - @wr 2B# 40% - @wr 2 L渷  40% - @wr 36' 40% - @wr 3  40% - @wr 46+ 40% - @wr 4  40% - @wr 5B/ 40% - @wr 5 L  40% - @wr 663 40% - @wr 6  60% - @wr 16 60% - @wr 1  60% - @wr 2B$ 60% - @wr 2 23ږ  60% - @wr 36( 60% - @wr 3  60% - @wr 46, 60% - @wr 4  60% - @wr 5B0 60% - @wr 5 23 ! 60% - @wr 664 60% - @wr 6 "~vRk #hh $h 1h 1 %h 2,h 2? &h 3h 3 'h 4h 4(]0]  &8^ĉ )8^ĉ 12,8^ĉ 12  *8^ĉ 2*8^ĉ 2 + 8^ĉ_hQVL?e:SRNx,}Y0}Y  a -Gl;`&Gl;` .'^/ '^[0] 0{^{ } 1hgUSCQ@wr 56-@wr 5 K  ?@wr 661@wr 6  F  @lʑ^ lʑ  XTableStyleMedium2PivotStyleLight16`"G ؚ!h,gNyVf[u[{tthNxhOo`VV- KmՋ@b g!hĉRv^SbpSOo`f>f(| @jb(3 A@@    checkSfzjhcheckDiffName11xmsfzjhsysDifficultyGradeName indentifyDateindentifyReasonclassIdentifyReasongradeIdentifyReasonY T[V~+R Ty[e[SVs~[at^~[a checkGender 77u 7'`+R7u 7 checkDiffNameyr+RV 7V 7N,V 7 NV 7vQN 7 checkSqyyCodee 73ut1uxUSN 7d[?Q 7kuNOOpXP[sY 7QQgNO 7Vu 7V~p 7mQNN 7 checkSqyyName3ut1u Tyel T 7^S/f 7 Ty 7{|W 7 checkTerm 7%fc[f[g 7f[g 7yc[f[g 7 checkYesNo 7/f/f 7&T 7sY 7'`+RsY 7,TRku LN6eeQzfRkucheckDisableType 7ƉRkuku{|+R 7vQNkucheckFamilyIncomeType]D0VYё0%m40e4TvQNRR6eeQ[^6eeQegn{|W 7yOё0W,g{Qё0W,gu;m901YNOiё~b0cS`N0QybQ.U[^"N_v6eeQX[>kS)Ro` gN8RS~)R0hy0ZSi_6eeQ a{Q90b(vb){Q9 vQN^S_eQ[^v6eeQku 7NOO 7 checkYear 71 7Nt^~ 7t^~ 72 7Nt^~ 73 7 Nt^~ 74 7 Nt^~SN N 75 7Vt^~ 76 7Vt^~SN N 77 7Nt^~ 78 7Nt^~SN N 79 7mQt^~ 710 7mQt^~SN N 7. SkXQ[vVI{~  yr+RV  V  N,V  NV -NvvQ-NN*N _kXy+ 7  ؚ!h,gNyVf[u[{t 7 checkLen0,1,33  7 checkLen1,1,30  7& kXQ[SV Q[ NǏ30*NW[&{ OY [^NSOY RRR\ _kXy# 7*kXQs~[a Q[ NǏ33*NW[&{ OY [^`Qc^\[ ~N[ ^_kXy 7*kXQt^~[a Q[ NǏ33*NW[&{ OY [^`Qc^\[ ~N[ ^_kXy 7 kXQVI{~[veg  7FAILURE 7 isFundStatus 7/f&T;NR>e_DR 7 levelAffirms 7SkXQ /f b  &T ^_kXy Y NkXQR؞:N &T 0 7 41340108784 5v5r6 7e748%[9L:F;#<=_> @ A B DtsFccB`t]\IF ZO  \f  dMbP?_*+%z&ffffff?'ffffff?(?)?M.Microsoft Print to PDFP/ 4dXXA4GIS4DINU"$,?]{~SMTJ{084F01FA-E634-4D77-83EE-074817C03581}RESDLLUniresDLLPaperSizeA4OrientationPORTRAITResolutionResOption1ColorModeColor,V4DM p"O4wMH5L*@VDocumentUserPasswordDocumentOwnerPasswordDocumentCryptSecurity" dXX333333?333333?&<3cAU} v} w} 8v} Uv} v} v} u} u} v}  v}  v} K v} LL8v} MQ v} R8v mk_kDOkUkJO OmtO O BOz@ z@ [ ge \ ] fd ^_ ^^ ^^ p/`````````````````````````````````````````````````````````````````a`]R4T``````]]]]]]]]]]]]``]`]jY @hDAAAAApQQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAR4TAAAAAAAAAAAAAAAAAAAAAAAj o| ic d]RRRRqTTRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRSRRR4TRRRRRRRRRRRRRRRRRRRRRRRjDjDAAAAApQQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAR4TAAAAAAAAAAAAAAAAAAAAAAAj E jG E A A A A A pG F Oz F A A A A A p*WAAAAAAAAAVAAAAABAbh jbeAl P kf m{ P P P P P r G l~ n C\ Cc C` Ca Cb suuuuuuuu uuuuuuuudH ~~~(  ~  <FCC@C],@z9 $<_ Y h g<>@87 Sheet1ggDh4hk:SW2 ZO Qr|.  dMbP?_*+% &ffffff?'ffffff?(?)?" 333333?333333?&<3U} 8} q } 8} } } } QD 88888888 8 8 8 8 8888888888888888888 M' H( H) M* tLLLL  L+L? N, L-  L+L@ N. L-LLLL L/L? I0 L1 L/L L2 L2LLJL LL@ I3 L4 L L? I L LLLL LLJK L L? I K L L5@ I K LL6@ I K LL@ J K LLJKLLJKLLJK L LL L L LL? L L LL@ L L LDL@ L L LEL@ L L L L@ L L L!L@ L L L"L@ L L L#L @ L L LL"@ L L L$L$@ LLLLL L%L L L&DlF J<<<<<<<<<<<<<<<<<<<< 8!8"8#8$8%8&8'8(8)8*8+8,8-8.8/8081p2p3p4586878:8;8<8=8>8?8@8A8 L% L? L L& !L%!L@ !L !L& "L%"L@ "L "L& #L%#L@ #L #L& $L%$L@ $L $L& %L%%L@ %L! %L& &L%&L@ &L" &L& 'L%'L @ 'L# 'L& (L%(L"@ (L (L& )L%)L$@ )L$ )L&*LLLL +W8+L? +L9 +L: ,W8,L@ ,L5 ,L: -W8-L@ -L7 -L: .W8.L@ .L; .L:/LLLL 0L<0L? 0L= 0L> 1L<1L@ 1X? 1L> 2L<2L@ 2X@ 2L> 3L<3L@ 3XA 3L> 4L<4L@ 4X 4L> 5L<5L@ 5LB 5L> 6L<6L@ 6L6 6L> 7L<7L @ 7LC 7L> :LF :ZG :ZH :LI ;LF ;ZJ ;ZK ;LI <LF <ZL <ZM <LI =LF =ZN =ZO =LI >LF >ZP >ZQ >LI ?LF ?ZR ?ZS ?LI @LF @ZT @ZU @LI ALF AZV AZW ALID l<<<<<<<<<<<<<<<<<<<<<<8888888B8C8E8F8G8H8I8J8K8L8M8N8O8P8 BLF BZX BZY BLI CLF CZZ CZ[ CLI ELgEL? EIh EKi FLjFL@ FIk FKi GLlGL@ GJm GKi HLlHL@ HJn HKi ILlIL@ IJo IKi JLlJL@ JJp JKi KLlKL@ KJq KKi LLlLL @ LJr LKi MLjML"@ MJs MKi NLl NLt NJu NKi OLl OLv OJw OKi PLl PLx PJy PKi L88<<<<<<<<<88PH  0(   >@  7 Sheet2ggD ZO   dMbP?_*+% &ffffff?'ffffff?(?)?" 333333?333333?&<3UPH00(  >@7 Sheet3ggD   CfxRRME (@P06 <HPhB0 hRV`HZ@ʘ0BʀX @ʀ4 @ꀄD @^L @%Ϣ˵%ꀜV  @Z  @` \  @bHBdX@‎p@ʀd @x@fz@ʘBhH~ @DhB!lB#%BTBPHpHXpHʀ @$ @\8Hh @ꀖP @*T @ X  @ꀘ^ @0Bꀆ` @Rt@ꀞ| @0 BjpB"H 80pXpHpH 0XN$p88 [*\R1*#2a2$*\Rffff*0;69c15edf(*\Rffff*0;69c15edf\044    08  @ ` Dp 8 0 P0pD084P. ..(8(`>"$$@>`R^FX `*0$`   D^A-^0p@һṹҳ\]$Hi=Public Const sheetNameValueTJ As String = "2ʵͳ"]$Ϣ2Public Const IntroSheetName As String = "˵"]$H]$˵] p ¼ܵУ]$¼ͷ] 0"ִ һǿУ ĵԪĿ] 6ִ һǿУ ĵԪΪϹĿ] Xÿһкϼеֵ] "һǿУʱ¼Ԫ] Ϣ] %---ģУ¼ĸԪ] 8---ģУ¼ĵԪ]  Уʱ洢ַ] ¼ʱرհť]  ¼ܵУǷвϹ]  ¼ܵУǷظ] #¼ܵУǷظ] %/¼ЧǰǷдϢ ״̬]  #У鷽ķֵ]$)¼ʼк]$H)ѧѧſʼλ]D0¼ΪյĿ]X"/ǷΪЧ ͳ 5ֶΪյĸ] p"C¼ȥոִнȥ˿ո򷵻true򷵻false] PcellԭʼĵݣϵͳûнԶûĴ֮ǰcell] 7ϴдϢʱڵ,ӦĿʼʱʼֵһ] ] ] RڸݱʶòͬķʱжǷforѭ Cell_SelectionChangeҪõñ]$¼ʡصȼ¼ڵ]$+sheet±Ƿ]  ]$hH)е]$) Ա]$p+Attribute VB_Name = "" Public TypalueCo8lum8p 'c@nIndex As I@ntegerTø P'SngEndn _ 'һṹ0ҳ"Const sheet{V1 p1 '/ATJD2`ͳƀ m8sgS8 bϢ8 ro ˵ 3Area3Kdme0totalCountJu¼ܵУ  $startTitl7 ' ͷ atLeaOneNNulD 'ִ tǿA ĵԪĿ\Ϲ`J;Money;Varia>'ÿһкϼֵK Err or@ -ʱ/A>A{C/ e Ms>gAD rgoldRang@e '---AԀģЄ ĸFTargen Vqfuncti@onArgsh'0">@ַfisSaveButton}CAʱرťhas(}Boolean{'L0Щ7 TheSa@_ĮIdN\um]n idaै_Чǰ>\״̬checkMethodXQAA1A0ķRaRowSq0= `r+пʼx!xbabyID"J8= 3 'ѧɀѧλ Dim isay)i Ϊ%n%ArЂ>ΠЧ ! 5ֶc &removeSpaceFlal:ȥոy`ǀa$ˡ*tr@uefalse3e@ac2)!t`ûнԶûao?֮Csc ur @*)Long 'ϴxдF!8,ӦĿʼʱֵһF rna A',c1^isFO).ڸݱʶòͬ0)CA жϑ;forѭ C_Sele BFChMҪõW^,headIb'+ʡصȱ& SqsV9= 2 'q± "nottinueQ$AqJ1Plu"S6104 '!crge r6Ա s birthday= rU~| U   i 9YAX aQy )Ii )!9q `@ ) AYQq 9a  1a,)$  0li(]@+'t'':N 6t;:%p(%$  dp)p;:%p(%$  dp )p;:%p(%$  dp )p;:%p(%$  dp )p;p: %$  dpW )p5 { z" $   (` (P;p: %$  dpW )p5]%:%p(%$  dp>AUz)p6,M@(((t 6tU%'%:%$ ppa"z)p61:Ntt(((0 6 t0 ( u$L:%p(%$  dpA q )p5:!%l C"( %l C# q C:%p(%$  dpq)p%lC$:%%lC& qW  '''0:(Ntt:):*^6 t0;:%p(%$  dp)p=(%p(%$  dpW+C,)p5 u|+'t'':-N 6tz;:%p(%$  dp)pzRp(%$  dpW":.` //)p6 uh( uDhh (0 (1 (2 34 :35 (uz6z7(uDhtM(% @p(%$  dp A8h)p5z9h:3]@3::Nh ;X/53:<Nh ;d/5X5I& ,X5ILiTX5Iih4 IT @X:<N ;H/6(%H( (3 H(%H:=N ;8/6&85ILi$85Iih <$ @8q(l >-6E @ @p(%$  dp )p ?  D(% @p(%$  dp )pK:@:A:Bt0:C`46 t0z[% @ @p(%$  dp =DCE)p64 /5 $~A T~4h u9! H(%X:=N ;8/6&85ILi$85Iih! <$ @8q(l >-6E @ @p(%$  dp )p ?  D(% @p(%$  dp )pK:@:A:Bt0:C`46 t0z[% @ @p(%$  dp =DCE)p64 /5 $~t d5I}(%d( (3xH(%d:=N ;8/6&85ILi$85Iihx<$ @8q(l >-6E @ @p(%$  dp )p ? kD(% @p(%$  dp )pK:@:A:Bt0:C`46 t0z[% @ @p(%$  dp =DCE)p64 /5 $~ H(%X:=N ;8/6&85ILi$85Iihp<$ @8q(l >-6E @ @p(%$  dp )p ? D(% @p(%$  dp )pK:@:A:Bt0:C`46 t0z[% @ @p(%$  dp =DCE)p64 /5 $~pMf% @ @p(%$  dp CF)p5 ~t]"1(]<10/'{7:@:G5:Ht`46tz4 /5(`2`(]t[U " ( &v iPv ih0>Mv i%p: %$  dpIJ)p5 P~0v i"{ u6z ~(  (h "pz (]3zM@( K 6,kzD (t K 6t  ~ (]tG7'0't':L :M 6 t0u+'t'':NN 6t=(%p(%$  dpW+C,)p51p: %$  dpO)pNzP( Q6 uP=(%p(%$  dpW+C,)p51:RNtt(((0 6 t0+'t'':SN 6tL+'t'':TN 6t=(%p(%$  dpW+C,)p51p: %$  dpO)p;:%p(%$  dp)p;:%p(%$  dp)p;:%p(%$  dp)p|^*tD4p@0PTX$Pd `h`H8( 4 pt00   fK* rU~~~~~~~~~"~~~~~~~~~~ n:M$x a   a a )a  Aa 0 AaIy!Aq Ya  y Ai 1Yy ) A a y !9!a!!!!a a  VBAProject ThisWorkbookSheet1Sheet2Sheet3ߺУ麯FHC:\Program Files (x86)\Common Files\Microsoft Shared\VBA\VBA7.1\VBE7.DLLVBA  0F?C:\Program Files (x86)\Microsoft Office\root\Office16\EXCEL.EXEExcel RangeEnd  !@0FC:\Windows\SysWOW64\stdole2.tlbstdole aPL-[DREC:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE16\MSO.DLLOffice Ai`.E .`M C:\WINDOWS\SysWOW64\FM20.DLLMSForms qqpf5s7H@4C:\Users\SUNJIA~1\AppData\Local\Temp\VBE\MSForms.exd QqyУ򲢴ӡϢ checkTheSame F _I|FTYND3!DFWorkbookWorkbook_BeforeSave @ .`/f&Tnx\OX[excel YOX[ pQ nx[ , &|~\ۏLhg!h Y NOX[ pQ Sm ? Oo` Nxh f , 00 $4DHLPdVBE7.DLL q `  q S FFq F 0]\Ohpev Ncknx N}ge!jgT QۏLdk!h 1qazPasswordProtectUnprotect CellsClearContentsF A65530RowcheckedRequiredStartwriteLoggetCellValueCountXQ writeLogRedaddCommentXQStartclearCommentsXQStartbeginCheck_commentcallFunctionXQStart regCheckFunccheckTheSameXQNewGetRowOrColIndexcheckDMB deleteRowsetCellValueCountXQdeleteRowNoProsetCellValueXQ setDMBCode removeSpaceXQremoveSpecialCharacter IV5F0SODP Fm.x\1E%d=1DF WorksheetFF FAILURE A9:IV65536Font [SONameSize &HorizontalAlignment @ "NumberFormatLocal 4`nx[_YhgT hgǏ z-N RsQexcel &TRS[penc"N1Ybhg1Y% )nc:yTabColorIndex "l gg~b0Rf[uOo` elۏL!h -NOo`Y N value - : ; ,{ L Rvpency VX[(WyrkW[&{Y^ , ; ' <> " ? zz69c15ee09 Sheet2~0 Sheet30?69c15ee0; Sheet3gH]wQQpe0<69c15ee0<]wQQpe(`ljXf0;69c15edfNXfx!hQpe0@69c15ee1n!hQpeU;N z^0969c15eb7;N z^րx`_9`0Hx,$ŪeoAB~Ο&$LDFIJ~B4֫~4SLu/94WQ.s@L.LFfFJ$@_kN`DOcPLmNI܈8O!8compare Excel+` VBA`Win16~`Win32`Win64x`Mac`VBA6#`VBA7#` VBAProject`stdole``Officeu`MSFormsC` ThisWorkbook|` _Evaluate`Workbook_BeforeSave l`SaveAsUI`Cancel` (isSaveButtoná`MsgBoxR`ChrK~` vbOKCancelx?`vbOK%`(У򲢴ӡϢ` Sheet1` Sheet2` Sheet3` ߺ`(checkedRequiredStartR`rowIndex6d` columnIndexP` cellValue@` ActiveSheet%N`Cells`(writeLog{u`contentl`Sheets ` (msgSheetName'` (curMsgRow/`(getCellValueCountXQc` sheetIndex `colIndex` Worksheets`valueK` (writeLogRedm`nLene,` Charactersrg`FontU` ColorIndex`(addCommentXQStartS` errorInfo` AddComment`Interior;`Color2F`CommentHs`Visible`(clearCommentsXQStart7` ClearCommentsf`sheet2RecordNum`ffTotalNumColumn`xlNone`(beginCheck_comment;D` checkMethodHd`(errorMsg'|`(removeSpaceFlag` (cellContent`(callFunctionXQStart `typeVal#`isValidateCount8`titleMsgh` (startTitlel` (headIndex` (functionArgs8M` (checkMethodXQ` (checkRequiredb`(hasErrorf`(isFord` (removeSpaceXQ` (checkStuNamec`(checkLeng`functionArgsArr`Split)`(checkNumh`(checkValK`(checkInt`resZjlx0` (IsIDNumber-*` (checkSFZJLX*`(checkDMB` (setDMBCoded` (checkBankUw` (checkYear6`(checkXn` (checkMonth` (checkBirthday`(checkBirthdayNecessary` (checkPhoneNum` (checkOption,` (hasErrorIdNum`(atLeaOneNNullCount` (checkMoneyi` (totalMoney%`baojiaoMoneyColumns`baojiaoMoneySumk`huoshiMoneyColumn_`huoshiMoneySumr`zhusuMoneyColumn_` zhusuMoneySum>-`othersMoneyColumnߥ`othersMoneySumH`(atLeaOneNullCount` (atLeaError~` (regCheckFuncE`reg`regEX*` CreateObject`Patterni` IgnoreCase0`Test4`(checkTheSameXQNew` sheetIndex2n`(rnaO`Range `xlUp`Row` ClearContents{`i``babyID1` (babyIDColumn`ja`babyID2` (hasTheSame`(GetRowOrColIndexf`keyWordF`kbn1`cZ`Findn`WhatC`LookInP`xlValueso`LookAtO`xlWhole`Columni`value1`flag`Trim@`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`(TargetF`(hasErrorInValidateU` (dataRowStart` isNullRowNum8`(cna`(notContinueBoolt` (genderColumn~`(birthdayColumn0` У麯&`IDNumber4 `Wm`sj`Tk`Flasep` IsNumeric$*`Right ` (checkSchCode` (checkFamType` (checkRXDate*`(checkXJHF`years`value2` (compareDecN` maxIntLen1` maxDoubleLen` intLength`intValue`douValue` (checkIsIntR` (checkIsNumberG` (checkMoneyTJC`(checkPersonNum `(checkIdNumLinkUz`IdNum>` isGenderRight ` isBirthRight` genderValue` genderValue11` birthValue` birthValue1~`year6n`year1w`month`month1`day`day1;`arr u` ` rowDataNumn` typeValue`bsTypet` valEntity܏`val`typeRow` isNullRowArr/` sheetCountB`Protectf` Application*`ScreenUpdating! `sysDifficultyGradeNameFlag`indentifyDateFlag `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`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`O79=; o!@ p0(P7q YX HH   (IY9CfրxME6 LL L "L 4 `kPz`@h @X x@H @8 @@( @ ` ` ` ` ` %88p X8  Px hZ,PNR@ @ @ @0 @H @` @x @ @ @ t @p @` @P @@ <6f@*2@0 @d @ P"@ `x"@P '@`h'.0J@ @ @ @x P?@ x?`L@ @ @ (H@ht H@d @pT @D hP@4 P@$ @ V@ V@ @\P @ @P df@ j@ jx@( @@` P(x(@ `@ p  @` @8P @( @ @ @ 0 P ( ` ( x@h @  @ 2    [$*\Rffff*0969c15eb7*\R1*#408*\R1*#140*\R1*#134*\R0*#17$*\Rffff*0;69c15edf*\R1*#12f*\R1*#43$*\Rffff*0<69c15ee0$*\Rffff*0=69c15ee0*\R1*#13c*\R1*#2a2*\R0*#2*\R1*#12*\R0*#f*\R0*#1 h"hp:x.6" "H.p )  :+ ;8@;H;h;>;" : "P, `$ >;,],( @ ~X$UP1 Pp >L   "C  "8 ` h W ;0 8@.=H  x,+; **R( Xp%0 %D % %  %0  % @ %,` %&   #6M $J $"X (,3 (P3 (` (,L,` 4JI <( <? ( D6H8 D0&p HB< HE " G0 H @ M4DH NK N&N8[0N h ,xI D @,  ,0 48H40&8 <H8Eh "GH M4DNKN&N8[N  ,I( 4 008)"@<(h <<0 H6HH0&PB<(PEp "GH M4DNKN&N8[N  ,I0 H 8<@("H,8Hp,0&0 <0E "G@H PM4DXNKN&N8[@N x ,I , ($$M  < "H(L7`(&( ( )$ ( >0,p, (,&40M, ,,( 0 8H(Px *+$,  `7p x4+=1 4  $8=`P1x+4+= 18H P ;X ;x ; x" 8@P2`$@6 8*H :x   ,@HP `a--------------------------------------------ʼУ-----------------------------------------]@]X+ijһ͵ıʶкź͸ʽ3:1;2]p ʶ(ĬϱʶԶʶ)](ijһ͵ıʶ飨кź͸ʽ] ijһͱʶľֵ]Զʶ]%Ѽ¼ΪյкŷŽ] Z!,'"ȡĿ 0ĿȷģٽдУA@,1qaz6$ZB@|k1qaz6$ZB@41qaz6$ZB@41qaz6$ZB@4 P$N!HB@-$ÿοʼʱѴϢsheet,'RϢ¼ʼ'.ôУУ¼Ƿд֣׶ϢУ ('#Ĭ϶ѼδͨУ'Ĭ϶δͨУ P$N!HB@-$ÿοʼʱѴϢsheet, A65530$Z%%!' A@< ȡxcna = Worksheets(1).Range("1:1").Find(What:="*", After:=[a1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Column IV5 6%%!"'fFAILUREA@@&+ȡǷУɹ־Ԫ񣬲ֵʼΪ0'dռ¼ʼΪ0 * 2" ʱִ A9:IV65536$Z%!d1ͺ9 9q A9:IV65536$Z% 9(@9#ıʽqd ʼУ鰴ť¼ʱִ.ȷʼ Уرexcel $.ܵݶʧʧ 0ܰʾ$, 2d1qaz6$ZB@|kk.$Z!b(f)ҳǩΪɫ   "ûвҵѧϢ޷У飡A@,'*1qaz6$ZB@|k'ôУУ¼Ƿд$Z!дϢ£A@J     '<"ִ һǿУ ĵԪĿ';6ִ һǿУ ĵԪΪϹĿ'''5"һǿУʱ¼Ԫ'9ǷΪЧ¼ '`C¼УǰǷд';¼ԱǷд  f $Z%H!\'Oһбʶֵ'2=жforѭǷcallFunctionXQStart ûִĬϷ <ʶΪ -$'Gʽ14-3:25 :$'H6ʽ3:25ȡıʶвֳ֣кź͹ DJҪּϵҪУ飨ĬУ͵ԶУ   Y&+1ΪеһԪΪĬУ $:$'V*ȡıʶвֳ֣кź͹$'SԶʶ  $;$'cԶʶ͵ľֵ   gԱʶб $   A@}ݱʶֵöӦķ  $Z%H'\Hȥַķ \$L'   $Z%H'{ȡбͷ   е Fַ^ , ; ' <> " ? ո س뷨Ϊȫͣ飡''^УʱдϢ  $Z%H!n(p ӻɫ A@JN%isValidateCount = isValidateCount + 1kPHk@  $;$'Pȡıʶв   WԱʶб $   A@  $Z%H'\Hȥַķ \$L'   $Z%H'{ȡбͷ   е Fַ^ , ; ' <> " ? ո س뷨Ϊȫͣ飡''^УʱдϢ  $Z%H!n(p ӻɫ A@JN%isValidateCount = isValidateCount + 1kk eJ ʽ3:25$'QԶʶ  Pʶеڵǰ$;$'eԶʶ͵ľֵ   kԱʶб $   A@ݱʶֵöӦķ  $Z%H'\Hȥַķ \$L'   $Z%H'{ȡбͷ   е Fַ^ , ; ' <> " ? ո س뷨Ϊȫͣ飡''^УʱдϢ  $Z%H!n(p ӻɫ A@JN%isValidateCount = isValidateCount + 1k k d-ֻĬУʽ14$;$'Hȡıʶв   OԱʶб $   A@  $Z%H'\Hȥַķ \$L'   $Z%H'{ȡбͷ   е Fַ^ , ; ' <> " ? ո س뷨Ϊȫͣ飡''^УʱдϢ  $Z%H!n(p ӻɫ A@JN%isValidateCount = isValidateCount + 1k@ 8 k0 k(  $Z%H(  6ִ һǿУ ĵԪΪϹĿ     е һдȷ''8УʱдϢ A@J  'd   'Tÿһкϼеֵk  <,һؼֶȫ򽫸ɾ  d+ d 'd,"ϢеĸдϢɾ  R  R R  P$N%8B@:r Ѹɾ  R  'R `'k k  d 6 ɾЧ $'  A@2B Ѹɾd@   A@2H Ѹɾk  d ˴Уɾ d:Чݣ֤жУʧܼΪЧݣA@,k *дϢ鿴ϢA@,$Z!b(f P$NB@Hd' A@ '%ִУظݷ,ûظǷҪɾЧ.$Z!b(fSUCCESSA@@2+ȡǷУɹ־Ԫ񣬲ֵʼΪ0 Уͨ!A@,d*ظݣ鿴ϢA@,$Z!b(f P$NB@Hkk1qaz6$ZB@1qaz6$ZB@1qaz6$ZB@o@q-------------------------------------------------ظijһ------------------------------------------------ ]`x] A65535 F%%!'2Scripting.Dictionary$.O8O  F%!\'>ȡѧ  %"ѧ໤֤ݽб   %-֤Ų  B@&#addһΪkeyڶΪvaluek@k80 !'Sheet2$ZG:G7B@  !%  !,G17,q.o*Attribute 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^, bm4(Dc71: 1 F`#(Whatb*", After:=[a1], S@IchOrdAxlBy@bsDirj7:=xlPreviousPolum'dyB)1.IV5ToLeftki`@8, "FAILURE"cAL<ɹ־Ԫ񣬲ֵʼΪ0 0F4T @} isSaveButtonvbOK“ ʱִ% With :9:IV!;6A-rͺţ.a["!h.Siz11c' h@.Horiz@alAlignm e xlA3 IberFormatLoc$al @"ZĜQts DFЀť¼Yca("ȷAM ̡Hرexcel" & Chr(1Po& "ܵݶʧ0ʧܠ0Can'ܰʾ")06!$ E b{!ohohjh3 hKTabwlorIpOx -4142!}ҳǩ'Ϊpɫ PIstartTitle +p`yt`3 "ûвҵѧQ^޷Ay:?vQl6:8?|?|k|49!hlïll writeLong|@<&p£?!H> )8 i2 Tog  p&QZ ' A/#= S@t(+o-o'c14-3:25  $rowType = Split(tValue, ":") 'ʽȡıʶв кź͹'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 errorMsgM`'isValidateCount#k+ 1:En@d If 3)N8ext&ElseIf UBDd(rowType) <> 0 Then 'ʽ3:2,52#tRow^(0) 'Զʶp{@Ci(+A(еڵǰ;jvalSplitcs , ";"N%ֵ) yF}nLA0) ToC' б+callFunctionXQStart `(n), 1, Ay'$4öӦ𷽷+|ue %v__#'@!8ַ? (removeSpeciBPCharac`()#?m+m (tiXtle5sLTaa 'ȡбͷ)%"" & i`"A jA0A& & "E ^ , ; '!["" ? ո سΪȫU飡"_ _ ahasE{P Tr1'ЀʱS_8_ ߍ 'ֻĬq)Í140pPsp.szbs1ezB1Dħr//xxxvv% ?bc::// rrKk= rr rrrrrrsgtrrrr_ rr5Ϣ JWorksheets(1).Cells(i, j).Interior.Color = 65535 'ӻ@ɫMwriteLog errorMsgM`'isValidateCounFtk+ 1:End If +)Next! ׆LockedO`False_*3 j 'ִ һǿУ ĵԪϹIf atLeaOneNull~<> 0 Ah= ThenEa@I" " & i",EA?Ё?ȷ"has = True ')ʱ繀д_? sjn+ 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ݣ֤Brܼ:Ϊwvn?p 2 y鿴EQ`+TabӻIndezx016MMS}(c%0SP0/#checkdXQNew Not (0n ظA,asD0,Ҫrf -4142setԐQueXQ 2,!8, "SUCCESS" `'ȡA ɹ־cֵʼΪ0 #Aͨ!! Oq'E'''''6Protect Password:="1qaz2).3 Sub '-!.ijһ[-, Sub checkTheSame() Dim myDic As O@bject, Key VariantPH&, v@arData 'rna = ActiveSheet.Range("A65535").End(xlUp).Row '@b Set idNum= Create("Scripting.tionaryz"b I@O8", "O" & R).value 'ȡѧ ӀFGFor Eac h carK IFnO4'ԁ໤@֤ б$ If"<> h"" nNo~.Exists(<) '3 GA.AddE, Null 'addһ ΪkeyCh,IN$exƒ Cmy=.sWith WorksAsp2GmG:G@ClearConten.t41@Re size(B.C ount)AppPlica.FFunon.Transpos '?D4'*= eah@ @ !Cf(xME(6 LLx >` @ I@ `}\IB E`D J` iL T` 8 IV XI@ xIX  ^`   iL h` 8  IV XI@ xIB Ij  vX`   'IV I@ 8IB  8`  2IV I I@ IB I  ` x GI IV I@ IB I  ` X I xI\ `  `  I + ` P IV pI i`  `  I\ (I$ HI& @* 2 `  4IV I.  < ` k@ :IV  `I@ IX I\@  >@ ` AIV  I.  @ `k EIV  I@  IX  I\    ` @ JI\ ` IV  I@  IX @* @B @D  ` H cIV h I@  IX `$`F`H L` 0  sI\ @  8 X@ < %` @<l  Z@Hh @0X @`H @D @x4 @$ @ @ `X`x@@l `Z@h @X @H @D @(4 @@$ @ @  h [$*\Rffff*0<69c15ee0*\R1*#408*\R1*#140*\R1*#134} 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   f @ `x>&  Xhp h * Hhxj& (8@` `h   H(xX H( H(p Hp( P &X  n 0@X ` 8x( Hh( ` &h  b 8 Xh&( P ,` f ( HXp x 8( 8p( H &P x f  (8  `  Tp  &  !! $ ! &H!$|p!$&!$ "$(" 8"@" H" X"$t`"$&"$ # # $# # (#H# ^P# #"##@#&8$ `$p$ x$$$$ ^$(% @%`%@h%&% %% %&&0& b8& &&& t& &P' x' ''' b'  ( @(X(h(p(&( ) 0)8)@)`) ^h) ) )**X *&x* **** ^* @+ `+p++X+&+ , , ,(,H, ^P, , ,,,T-&X- - ---- n- 8. X.p."..&8/ `/ p/x/// j/ 0 80X0"h00&1 @1P1X1x1 P11112&2 2 2222 R3X3p33X3&3 4  4(404P4 bX4 4$45@5&H5 p55$5555 ^5 @6&X6 6@6&6 67&70787X7 Z`7 7&78@8&H8 p88&8888 f8 H9,h99@9&9 ::, :P:X:x: |: ;$;@;(H;@p;&; ; ;";< <@< |H< < <=@=&H= p== ==== |= X>$p>>@>&> ??$ ?H?P?p? dx? ? ?@@&X@ @@2@@ x@ PA6pA.AAA( A2B( B1 B( 0B2@B( PB1`BpBxBJBBBCCC fCB  C C<CC CD$(D$PDxDD D \0E B  E,E 0E@F"PF ^xF 6FG(GHGhG0GDGH H(H0H8H@H HH "H I .0IB  `I hI$xIBI I I J J J 0J8J@J HJ J J K 0KB  HK"PK xKKK KKK K8KL2LPL hL LL LL LL FL(M0M 8M @M *PMM M (N @NB  XN`N*N 4NN NB O<O JOO O pP PB  P*PP PB pQ<xQ JQQ QB  pR xR "R R8R2SHS `SS SS S SS"S0T 0T(PTxTT&TT TT TB  `UhUVUU 8V 8V XV:hV4V$VW" WHWPWXW `WB  WW6X8XHXPXXX`XhX xX-----------------------------------------УУдϢʾ ע----------------------------------------------------------- Ԫ] @ B F%H'D D'>d('>ki--------------------------------------------д־ ¼ϢʾһϢ-------------------------------------------- L R P$N,H R 'RiX------------------------------------------------------ ȡָcellֵ------------------------------------------------------------- @ X V$Z%H!\'Ti--------------------------------------------д־ ¼ϢúɫʾϢ-------------------------------------------- L'` L R P$N,H ` R P$N%H%b!d(f R 'Rii--------------------------------------------עʼУ飩-------------------------------------errorInfoע 1Worksheets(sheetIndex).Unprotect Password:="1qaz" j @ B V$Z%HB@l @ B V$Z%H!n(pW ӻɫ @ B V$Z%H!r(tii--------------------------------------------ɾעʼУ飩-------------------------------------1Worksheets(sheetIndex).Unprotect Password:="1qaz" @ B V$Z%HB@x @ z B | @ B V$Z%H!n(fd ~ @ B V$Z%H!n(fkpihr---------------------------------------------ʼУ Ƿӻɾעõķ----------------------------X  Уʧ @ B V$Z%H!rd жעΪ V @ B A@hV עd"Ϊգȥǰע V @ BA@vN ע V @ B A@hk1 MsgBox "" & rowIndex & "" & errorMsgd :УɹжǷעУʧʱעȥ V @ BA@v ,#ȥո,ʾ @У BУַ"$. "$."а˿ոϵͳԶΪA@Jd`kXkPiH----------------------------------------------------------------------------------------------------------------------------------y--------------------------------------------ݱʶöӦķ(ʼУ)-----------------------------------------------------------------------------------------------------------------------------------------------------------------------ѴϢдб8 @ B V$Z%H'\  B V$Z%H'Iȡбͷ Ϊϲеıͷ  B V$Z%H' @ e  B V$Z%H'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'k _=================================1 ִеķǿУ==========================================ѴϢдб checkNullKT V @ B$'  @ е Ϊգ'')УʱдϢ A@JRMsgBox "" & rgold.Row & "е" & Chr(10) & titleMsg & "Ϊգ"k V  @ B A@'a=================================2 ִѧУ========================================== checkNameKT V @ BA@@ȥոķ @ B V$Z%H!\'\ \$'  @ е ;дȷΪ֣ȴ1ܳ20ַ''%УʱдϢ A@J  'k V  @ B A@'Z================================= ִеijУ==========================================checkLenKT \ $'  ,$'$ ` ΪDZΪ̶ȶ @ е .дȷΪաд򳤶ȱΪ$ λ'$ ed ΪDZΪȷΧ @ е 4дȷΪաд򳤶ȱڵ$ λҲ$ λ'$ ed ΪDZΪ̶ȶ @ е &дȷΪգҳȱΪ$ λ'$ ed ΪDZΪȷΧ @ е ,дȷΪգҳȱڵ$ λҲ$ λ'k '0УʱдϢ A@Jkh V  @ B A@'h================================= ִеijУ飨Numberͣ==========================================checkNumKT \ $'  ,$'$@ ΪDZΪ̶ȶ @ е GдȷΪգдΪ֣0λȲ$λСλ$ λ'$ ed ΪDZΪ̶ȶ @ е ?дȷΪգұΪ֣0λȲ$λСλ$ λ'k'0УʱдϢ A@JkX V  @ B A@'[=================================ִֵΧУ==========================================ѴϢдбcheckValKT \ $'  ,$' @ е $дȷΪ֣ڵ$ Ҳ$''-УʱдϢ A@J& isValidateCount = isValidateCount + 1kh V  @ B A@'_=================================ִеΪֵУ==========================================ѴϢдбcheckIntKT \ $'  ,$'$@ ΪDZΪ̶ȶ @ е 8дȷΪգдΪڵ$ҳȲ$ λ'$eD ΪDZΪ̶ȶ @ е 0дȷΪգұΪڵ$ҳȲ$ λ'k'0УʱдϢ A@Jkp V  @ B A@'`================================= ִе֤У========================================== checkSfzjhKT V @$T'S ȡд  @ е &дȷ֤Ϊգ''0УʱдϢ A@Jd  ֤ \ B$'O ֤У :֤У @ е MдȷΪѧ֤ţһλΪĸXıд''4УʱдϢ A@J  'kd \$'  @ е EдȷΪգҳȱڵ1λҲ18λ''4УʱдϢ A@Jk"k"k" V  @ B A@'X================================= ִ֤У================================== checkZjlxKT checkZjlx \1$'  @ е дȷ''(УʱдϢ A@Jd! checkZjlx V @ BA@k`! V  @ B A@'W=================================ִ꼶У========================================== checkYearKT checkYear \$'  @ е дȷ''(УʱдϢ A@Jd checkYear V @ BA@k V  @ B A@'\================================= ִѧŵУ==========================================checkXJHKT \1, 1, 50$'  @ е EдȷΪգҳȱڵ1λҲ50λ''0УʱдϢ A@Jkp V  @ B A@'[=================================ִпУ==========================================ѴϢдб checkBankKT \$'  @ е $дȷΪ֣ڵ$ Ҳ$''-УʱдϢ A@Jk V  @ B A@'W=================================ִУ==========================================ѴϢдб checkYearKT \ $'  @ е *дȷʽ20122002ȣ''-УʱдϢ A@JkH V  @ B A@'W=================================ִѧУ==========================================ѴϢдбcheckXnKT \$'  @ е )дȷʽ2012-2013ȣ''-УʱдϢ A@Jk V  @ B A@'W=================================ִ·У==========================================ѴϢдб checkMonthKT \$'  @ е &дȷʽ0112ȣ''-УʱдϢ A@Jk` V  @ B A@'g=================================3 ִеУ(DZ)==========================================ѴϢдб checkDateKT \$' 2Уʧ @ е дȷдʽΪ"$. xxxx-xx-xx"$. 2013-02-21''-УʱдϢ A@Jk V  @ B A@'c=================================ִеУ飨==========================================ѴϢдбcheckDateNecessaryKT& \$' 2Уʧ @ е дȷдʽΪ"$.xxxxxxxx"$. 20131221''-УʱдϢ A@Jk V  @ B A@'J=================================10 У绰====================== checkPhoneKT \$'  @ е дȷдʽΪ"$.-̶绰 ֻ"$. ''%УʱдϢ A@Jk( V  @ B A@'L=================================checkOption У鱸ע ====================== checkOptionKT \B$'  @ е )дȷȲܳ200ַ''%УʱдϢ A@Jk V  @ B A@'\================================= ִ϶ѼУ================================== checkDiffNameKT checkDiffName \ $'  @ е дȷ''(УʱдϢ A@Jdx checkDiffName V @ BA@kH V  @ B A@'X================================= ִ֤У==================================checkIDCardTypeKTcheckIDCardType \ $'  @ е дȷ''(УʱдϢ A@JdcheckIDCardType V @ BA@k V  @ B A@'T================================= ִвмУ==================================checkDisableTypeKTcheckDisableType \ $'  @ е дȷ''(УʱдϢ A@Jdx checkDisableType V @ BA@kH V  @ B A@'`================================= ִмͥԴУ==================================checkFamilyIncomeTypeKTcheckFamilyIncomeType \ $'  @ е дȷ''(УʱдϢ A@Jd checkFamilyIncomeType V @ BA@k V  @ B A@'v=================================14 checkGender ִǷΪСŮУ--================================== checkGenderKT checkGender \1$' '-ԱдУ֤Ŷ @ е дȷ''(УʱдϢ A@Jd checkGender V @ BA@k V  @ B A@'u=================================14 checkYesNo ִǷΪǡУ--================================== checkYesNoKT checkYesNo \ $'  @ е дȷ''(УʱдϢ A@Jdx checkYesNo V @ BA@kP V  @ B A@'u=================================14 checkYesNo ִǷΪǡУ--================================== checkSqyyNameKT checkSqyyName \ $'  @ е дȷ''(УʱдϢ A@Jd checkSqyyName V @ BA@k V  @ B A@']=================================checkTerm ִѧУ--================================== checkTermKT checkTerm \ $ @ е дȷ''(УʱдϢ A@Jkh V checkTerm \ $ @ B A@'r=================================checkAtLeastOneNNull ִһΪǿ--==================================checkAtLeastOneNNullKT  'A"ִ һǿУ ĵԪĿ \$ \=Ϲ  \ ' B KTF  \ ' KTF  \ ' KTF  \ ' KTF  \ 'ndϹ  'F6ִ һǿУ ĵԪΪϹĿ    'k'ni_--------------------------------------------ʽ-------------------------------------]VBSCRIPT.REGEXP$.7RegExΪʽ (4 ȫֿvba\ת  (.ʽ (5ǷִСд \ %'3 ִ.ix-----------------------------------------------------------° Уظ˵Ѿûиʽ------------------------------------------------------------V-----------------------------------------------------------1ѧ׶ڱڲ(sheetѧ׶ A65535 $N%%!'*cna = getTotalColumnCount(sheetIndexValue) P$N!HB@1&ÿУظʱʱѴϢsheet,'RϢ¼ʼX==============================ѧ׶ڱڲ==================================0ðÿԪغ֮ǰнбȽ      $N%H'      $N%H'   .ѧͬ˵ظݶ  еݺ͵ ظ!!!!' A@J*ѴϢ' kCCCiC-----------------------------------------------------------һ ֵȡֵ------------------------------------------------------------ֵҵֵڵлkeyWord ҵĹؼ'kbn л ֵΪ rowrow']the find result object    A1:A65535 V$Z%%.  row !'dA !"'kAkAiA------------------------------------------------------ ִڹУ(Ϊ)-------------------------------------------------------------value value1 cellУ鲻ȷfalseУȷtrue &0˵ΪDZ $$('z`@kX@kP@]h',ijһļ¼ A65535 0$N%%!'.B' 0 \row$'*=ȡ  * .  0$N%H \ , ',d`?yX?kP?   * * ,   0$N%HX $X LжϹǷcell'y>k> #ʱcountĿΪùеĿix>------------------------------------------------------ ִɾijһвexcelܱģ-------------------------------------------------------------sheetIndex rowNum к1qaz6 V$ZB@4 . V$Z%8B@:/ Ѹɾ- Worksheets(sheetIndex).Protect Password:=123i=------------------------------------------------------ ָcellֵ-------------------------------------------------------------1qaz6 V$ZB@4 \ @ X V$Z%H(\i0<------------------------------------------------------ ִɾijһвexcelûб-------------------------------------------------------------sheetIndex rowNum к . V$Z%8B@:/ Ѹɾi ;------------------------------------------------------ ָcellֵ-------------------------------------------------------------@ 1qaz6 V$ZB@4 \ @ X V$Z%H(\i@:------------------------------------------------------ ݴеֵǰʱѾͨУ飩------------------------------------------------------------- ]   @ X V$N%H!\X 'D',ijһļ¼ A65535 0$N%%!'.F 0 \row$'*Aȡ  * .  0$N%H \ , ',dh8y`8kX8   * * ,   0$N%H!\X '$ $ DX 1жϹǷcell  0$N%H!\'B BX @ X D V$N%H(\y7dx7 @ X D V$N%H(\kH7 i07------------------------------------------------------ ȥcellеĿո------------------------------------------------------------- ] Ԫ]  3Blength1ʾcellԭijȣlength2ʾִȥոַ'ĬΪûȥո2 Worksheets(sheetIndex).Unprotect Password:="1qaz" @ X V$Z%H!\'$ $'F FGzj*"ԪΪգȥո $ 'H%length2Ϊոһγֵλ Hַո $ $J'$ $X @ X V$Z%H(\'k4i4------------------------------------------------------ ȥַ------------------------------------------------------------- ]P -[\uFF00-\uFF06][\uFF09-\uFFFF]|[\s,;'<> "?^]+'  \$'Ld3'Lk3i33Attribute 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/.Visid3"@"" &Ǝ"xtitleдȷ"ΪաB"`ΪA<1)λ0+El4seuO2]OA+dΧOexA6OAOڵBgPҲг1-2?-%,q?-= 1T`jT?-TTTĚT &S "SeS&SS &&&R`'R?,%IE IfGhasE 'aʱдϢ writpeLog*WbeginC?|}?z }Numberͣ{}]v} }}F a}}|UP#}}j}oQ{o>h& {{1{{֣>0޻qSf(v}?Сi?VsQ?VD//i0cW7MWWWW  dW____ԧWR}Կڄulд0бXtValXWWWWgWBWWW] ߎ̿g387߷g5G& "NP? 33^д writeLog er@rorMsg' isValidateCountD ="+ 1E nd IfbeginCheck@_commeYsheetIndex, cMethodXQ, rowolumn isForUTrue '=ִеֵУ0дб{Case "mInt" ~b(value, functionArg s)"] NotR Then E IArRSplit(, ","3If ,(0 )@50" 'DZΪ̶ȟ+Ń@"" &"Ax title@ȷ"Ϊ@գCڵF K(1)AA/, 2 λ7 ElseS1))& ))))(gsD((hHBhasEJ! 'aʱ CVf _Fck>k è़ߨ  }ASfzjhcr@esZjlx 5g@etCelluqcXQ(iˇ p'ȡ!|;o ""m;9hh*"i$_,_,߃|_,(KO<? sIsID@Number%scg) ') = tqtk #.OM!)djjj#Uѧ Ctһλ!vΪĸXдgO _$_$_$/$$/V?++? =SFZJLX'On?&XQF$$Q&Oz"Î10vP18w $$$O$$o _<??_5_~ ?? N,_~[}sR~sFh_~=={}a{}b ]0DMB(SԒ, d"155V5555/z\ /1/1/1\a0سeLog errorMsg aElsehsetDMBCode "checkZjlx", sheetInde@x, rowc`olumnE nd IfbeginCc_co`mment e}MethodXQt,isFor = Truy'=ִУoCasYear"x iK(, value, 1)"If Not %ThenE"" &p"titleдȷ06hasE\ 'Rʱд@Ϣ*writV:_쭱 XрŵY)] 3ZXJHX?QB=SLen(Y"1Z, 50"Z?A*?[ /?\?\Ϊգȱڵ1λ50bcc&dF7ny\ck \T==a\п\k\'!%дaЄ_Bank_^A^?] {!1\9_.sg|\R.Q-Ϊ֣-_functionArgsArr(0)G/?r(130! >0ObOb O0y'/0/0///, x/E //+.!/p. ../ .quE^#/o^XQ //u!*OO@/ʽ20122002ύ++++ߺV))))))O&)ѧ)))nX))Xԇ(P((((a*(-(3(((((([oT*******'*oT?_***Month*** G**  errorMsg = "" & rowIndex("6titleZ& "дȷʽ0112ȣ`" hasETrue 'ʱд ϢIwriteLog /'End IfbeginCheck_comment sheDet, c MethodXQ, olumnAOisFor  '=3 ִ(DZ̜)@Xдб?Case "8Date" O B4Birthday(valu e)OWʼnIf NotKS Then 'E;ʧ[!M7ΪC@hr(34)Ax-xx  2013-02-21E,a.yacka$8ga\+aa a"'laNecessaryb!bFccc?c߿Σc!duc12?ce??c ?e ???k?_X!10 绰\G68,Phon6ezX=Num*D[XQ[>/(W/(Z-̶ ?)Z$ b''X_(TWW_(O%b~Option(ע /x(((c(, 660(`((((Ȳܳ200ַg%%%9%%%%t%%%%%%!?#϶ѼqO .x'DiffNam/PR ''DMB(԰, , funcA0Args_)BORORV))))?Nl(((L(( Else[ysetPCodvǗiez'o|.....6U_*.81~.==.heckIDCardType"  cMethodXQ = d 0Z ' Ϲ &Btotal @|+CgSelect tޘ%"baojiao5C:1 Sum-, huoshic _ Bzhusu?L?# others H   E 2Oc*?%| '23 =pG>6>>>Ϊѐ@KEŎ+ ֓+ " JbXC Ft-Ԁʽo-  regB(})8DimaEX A`s ObjISet= Create("VBSCRIPT.REGEXP")a'RegExΪpG EX.GlobalpF"n'ȫֿ''vba\תPatter.n RʽIgnoreB8= FaǷִСд<3TestgGB.hing #$O ° 4ظѾ(ptᾣ 1ѧ׶ڱڲ -B}0S XQNew(W2) 'w(TnaS!s:.Range("A65535").P(xlUp).HRow'cgxetT1wMVh6msg).Cells.ClearCont@s 'ÿʱqذ5AB ,cuq P 1 '¼ʼ/ocJ'ðÿԪغ֮ǰнбȽϧi0 startT + 2 To0 rnag4babyID1I2(i,a3YOdAjO@i - 1oq2exj$`N If bab@yID1 =H2 Then 'ѧͬظ  errorMsg"" & j"еp(iS !"\writ eLog e'Ѵ :haBsSameTrueEnd If Next Functi@on '-7һ ֵȡֵи+-K)ҵ*лЀkeyWord Ĺؼցbn ֵΪ row$ @ GetRowOrColIndex(ByVal sheet, CD@As Str ing) Integer[@o-1GbDim c Object 'the fi@qresult o# Set = %=k&s(().Range("A1:A65535").F@(What:=.LookIn:=xl8ues, AAxlWhole)GNoIs }h9G@ k@B= "U" Cc.@]ElsP5umW eM`]U ִУ(Ϊ)?]8Vvalue 1 cellP'Aȷfa%et[checkDM$B( , 1, flag<7I`S"0c7 'DZB=Trim# 1>)U>`Exit 2598f!LDataCount 0 ' һa(¼C(Num`Szs(pAreagf (xlUp@jow `'E HF/ -Ul $0,#e) '>C`For i % To @7C`Fs(i, 3b>r'+ (p=#5o2a i'j.5 + c V-i DC(jp, 3)M,)r 'жaq2Ƿq35)^j'ʱc(ĿΪqӰB P ._w/B-bHɾ.вexܱoG1` ' кňsdeleteP\h,*Ejv).UnprotaoPassw`|:="1qazO$obs().D p6!'rA}).P123_ ָc'ֵ?(setΣǀʱ1Ѿͨ)?Code%bW8i<, c 2QL2p|?y,HC=  S]__"A65535").End(xlUp).Row '  rowData = GetOrColIndex(Area sheet, value, "d") 'Ѐ`For iS]To Num"PIf S`s k).Cells(i0, 1)Fy Then ?CCount#+ 1 "ElseExi t Rnd If Next i;jj5j+ ]?-?Q_1QStr(xj, 3).)<"U%cV) 'жǷ́code('2'WtǎsNĒ"c + umnPlusDJF%PBA.qB}AD89'""O?j  Functio@'-2 ȥCrĿո&  removeSpaceXQ(G",u#l50DimÁ1 As Zing 'ԪP$@lengthInteger, Mc2d 'ʾ#ԭijȣִ"!ַ<JFa C 'Ĭ0ûF' PWork!s!).Unprotect Password:="1qazhAst`Njd Len( /;'0CaM '1Ϊգ%$c r2 In! ἤγֵ`λÇf2p <> 3A5'q ReplQ"E+,AbX  ETru%|?zs- 2a$?8zecialCharacterq!9regp"[\uFF00-)b6]9FF]|[\s,;'""?^]+s/`CheckAE(#i `Fz "" "4" (# 0#8# @#H# P# # #B $$ $8$H$P$X$`$h$ p$ %  %B 8%@% H% X%`%h% p% &  &B 8&@& H&h&x&&&&& & 8' X'B p'x'''''''' ' h( (B (((((((() ) ) )B ) &) $ * H* h*&x***"*$* +(@+h++++++ + 2,H,"h,,,  ,,,8-8-@-P------------------------------------------1 ,дϢʾ Ϣsheet--------------------------------------- ʱ0 Ϊʱ1 Ԫ] @ B V$Z%H'D D'd'ki-----------------------------------------2 Уѧ ҪΪ-------------------------------------------------------------ʽȷfalseʽȷtrue]%^([\u2E80-\uFE4Fo]|[a-zA-Z]){1,20}$'3޸ģУƧ  \$'d'ki|-----------------------------------------3 УڸʽΪ2012-05-09(Ϊ)---------------------------------------0 \$('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]))))$'  \$'d'kix|-----------------------------------------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]))))$'  \$'d 'kih-----------------------------------------4 У֤---------------------------------------Ϲ򷵻trueϹ򷵻false ]790584216379058420Ȩ] 10X987654320У p$('p ȥո] X  p6)׶֤Ϊ,ΪͨУ x'zpkh pGzj p$$zGzj p*[0-9X]Gzj  r $'v vG 'vj t p $ v 't t 'v p$|  v $G'jiz-----------------------------------------У֤ -------------------------------------------------------------ʽȷfalseʽȷtrue]x,^[\u4e00-\ue863a-z|A-Z|0-9|()|]{1,18}$'  \$'d`'kPiH----------------------------------------5 -УѧУѧУʶ 42λһλΪֻx-------------------------------------------------------------ʽȷfalseʽȷtrue]^[1-9]\d{40}[\dx]$'  \$'~d'~kiz----------------------------------------6 -У黧 -------------------------------------------------------------ʽȷfalseʽȷtrue]h.^(\u519c\u6751)|(\u53bf\u9547)|(\u57ce\u5e02)$'  \$'d'kiu-----------------------------------------7 Уѧʱ-------------------------------------------------------------ʽȷfalseʽȷtrue]'^(((19)|(20))\d{2})((0[0-9])|(1[0-2]))$'  \$'d'kiq-----------------------------------------7 У-------------------------------------------------------------ʽȷfalseʽȷtrue \ ,ΪDZ'kzk]x^((19\d{2})|(2\d{3}))$'  \$'dH'k8i0q-----------------------------------------7 У·-------------------------------------------------------------ʽȷfalseʽȷtrue]^((0[0-9])|(1[0-2]))$'  \$'d0'k iv-----------------------------------------9 Уѧ-------------------------------------------------------------ʽȷfalseʽȷtrue]h^\d{4}[0-7]\d{3}[0-3]\d{7}$'  \$'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'  \$'d 'kiv-----------------------------------------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)$'  \$ \-$'$$ 'dx 'kh d` 'kP iH -----------------------------------------checkOption У鱸ע磨Сvalue2-------------------------------------------------------------ȲС200false 򷵻true $'zP kH $  'd( 'k i ------------------------------------------------------ȽϴС(Сڵڷtrue)----------------------------------------------------------------'value1value2false 򷵻true $X'$ X' $  'Dd 'Dki------------------------------------------------------ȽϴС(Сڵڷtrue)-dec---------------------------------------------------------------'value1value2false 򷵻true $$4'$ $4' $  'd'ki}------------------------------------------------------У鳤--------------------------------------------------------------- ,$'' \$/ΪDZ'kzk ,-±0ʼֵΪָάõ± \$$4 \$$4'z kd ˵У̶ \$$4'zkki}------------------------------------------------------У--------------------------------------------------------------- ,$'' \$/ΪDZ'kzk \$z& Ϊz \.e+СzP \$4e% С0z k ,-±0ʼֵΪָάõ± \$$4 \$$4'zkd ˵У̶ \$$4'z0k(k i------------------------------------------------------УֵΧ--------------------------------------------------------------- ,$'' \'zHk@ \$z) Ϊz \$4e) С0zk \$4$$4 \$4$$4'zki------------------------------------------------------Уֳ(Number,ΪҲΪСС0)--------------------------------------------------------------- ֲɼӷ<^(([1-9][0-9]*)|(([0]\.\d{1,2}|[1-9][0-9]*\.\d{1,2}))|0{1})$'  \$z@k8 ,$'' \$/ΪDZ'k z k \$z% Ϊz \$4e% С0zh k` $'+󳤶$'.Сλ \.''' "˵ûС \$4' $$4'zkd С \ \. $'DԪֵλ \ \. $' $$4 $$4'zkki-----------------------------------------checkIsInt У鲻С0-------------------------------------------------------------ʽȷfalseʽȷtrue ] ^0|[1-9]\d*$'  \$'d'ki-----------------------------------------checkIsNumber УΪNumber-------------------------------------------------------------ʽȷfalseʽȷtrue ' \$z'ki-----------------------------------------checkMoney У0-9999-------------------------------------------------------------ʽȷfalseʽȷtrueX ] ^(([1-9](\d{0,3})|0)|0)$'  \$'dx'khi`-----------------------------------------checkMoneyTJ У0-9999Сһλ-------------------------------------------------------------ʽȷfalseʽȷtrue ]0 ^([1-9]\d{0,7})$'  \$'dH'k8i0-----------------------------------------checkPersonNum У׶԰һ------------------------------------------------------------ʽȷfalseʽȷtrueH ] ^(([1-9]\d{0,3}))$'  \$'d'ki-----------------------------------------checkIdNumLink У֤ԱͳûдǷһ------------------------------------------------------------ʽȷfalseʽȷtrue  If colIndex = jhrIDColumn Then checkIdNumLink = True Exit Function End If]`%Ա֤ǷӦ]x$ں֤ǷӦ]ڵһγֵ±]"Ա,Ԫ֮ڵ]$ݺŽȡ]!,Ԫ֮ڵ]"ݺŽȡ] #]8P%·]h] $' $'  (ڶλΪΪ @ j T$N,HdڶλΪżΪŮŮ @ j T$N,HkH $' $' $' -  -  @ l T$N,H'iEAttribute 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}$" '޸ģԁ9ƸYhC (, j`D&_i si3iQΪ2012-05-09(4)mjBirthday*/@$Trimd.X ##Exit =/AVWa <'`1 ^((19)|(20))\d{2}-(0?[13578] 1[02])&)-9a[12][0c3[0&1 (( 469"11Y 0?2 )))$ ;[1[Oh?]!aW9?PH>]R$](8]'u]Necessar^Ӎ QP;`Lr5P;g;2_; )%:?k=  hW/h4' Y֤0af#e'IgG IsIDNumber(4ByP ǀ, /)Boolea|Con0st W'K7905842163h'ȨCPc10X98765X432C'fS& = Z) oȥո,sInteger, iTBv= b@abyIDCr Ala` '׶9,րΪͨ 7A Flnac 8c Len(<> 18/  Not eric(Mid, 1 7)3 f5Like "*f,X]_ For= 1 To 17CTq~Wt0 1 1spPs + ; i! * TNexts Mod 1pRigh t)c, T3 S}O; "?@1QSFZJLXj`4e0e863|A-Z||()|]18ueSrwqYkVoXlX53- ѧP0ʶ 42λһxckSchCode x@40}[\dx]OgoC_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СoKv 6`CQCr= a0-p?Ps?P?P?PRkr@pX??Pg1?Pd?P|O$$?P?PI?P?P3Ps:_2 > ?PK1PֵΧ}PVal$IL0PP'=A`#JeJJoQ2E KE/# )L?@3@0tB/2Ey_ 5q)Ss/ֱ(fber,2Ҳaa)1P11H['oɼӷ7reg0"^(([1-9][0@*)|0]\.\d{10,2}|F))|0{1})$"T-@C!ǁ(- Exit Function  End If <$fArgsArr = Split( ., ",")fcheckNumXFalse2If value"" TCau! (, l= _C 3s.?.e% ber.Ϊ8*_.0s.#. = 8ly G{+?/Money 0-9E__+_cNk ++((+(\d{0,3})|0!_,k_,*H_,,V,_,g_TJ=#tһλ?TJDD7})??+`j__'0_--Pe0rson <԰һ˿ooo`v O101ck=] Id!Link֤ԱͳûдǷһ?ooo` (, rowIndex, col'pfxjhrIDC`olumnt' F0`!voisGe rRight As Boole0an 'CEaӦ B0irthͣ/+len@2)eg|'qһγ@±[gb ` ingS ,tڵHݟer1J Žȡom bqe?1 Dim birthValue1 As String 'ݺŽȡ year,  hVariant ' ZmonthL,  ^ /dpay,  + arrgender= Mid(IdNum, 17)) F8If 2Mod 2 = 1 Then 'ڶλΪΪ "SheePts(sI]x]).CellsP(row ,9C@olumn)6""'ElseI<ż<Ů<łInd IfF"$G@,bZ@c, 4d 5, 2 Q kI &V$V++ "-"| +C 5checkBLink$True E@DFunction Root Entry@DWorkbook" _VBA_PROJECT_CUR"#PROJECT!VBAdir __SRP_bB__SRP_c__SRP_d #B__SRP_e%XfC__SRP_a*Sheet2 /~Sheet1 A~__SRP_fSBThisWorkbookU Sheet3 ~__SRP_2Pj__SRP_3__SRP_4l__SRP_5y__SRP_11__SRP_10f__SRP_0^__SRP_1M_VBA_PROJECTiB!;N z^zQ__SRP_6J__SRP_7__SRP_8l__SRP_9 ]wQQpe u!hQpe kPROJECTwmCompObjiSummaryInformation($ DocumentSummaryInformation8$ID="{368FCB90-90B4-4A5F-95A1-D8BD20684A8C}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Document=Sheet2/&H00000000 Document=Sheet3/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} Module=ߺ Module= Module=У麯 Module= Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="3735C5593DA9BFADBFADBFADBFAD" DPB="B5B747D7BB54BC54BC54" GC="3331C15D3E5E3E5EC1" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=22, 22, 709, 654, C Sheet1=0, 0, 0, 0, C Sheet2=0, 0, 0, 0, C Sheet3=0, 0, 0, 0, C ߺ=88, 88, 1078, 720, Z =198, 198, 885, 830, У麯=220, 220, 907, 852, =248, 207, 935, 839, ڳ0JHH "Hd VBAP@rojectD@& = r  [ J < 9stdole>stdole( h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\SysWOW64\e2.tlb#OLE Automation0AEOfficEODficE E2DF8D04C-5BFA-101B-BHDE5EAAC4 2Egram Files (x86)\Common \Microsoft Shared\OFFICE16\MSO.DLL#P 16.0 Ob LibraryNMSForms>SFrms3D452EE1-E08F1A-8-02608C4D0BB4TINDOWSaTFM20L'B @a&/;"1lrAr00}t#0r# 504 AFE359B66-3773-48ED-BCAA-ACD4ECDF40BFIhUserUNJIA~1\AppData\Local\Tem`p\VBEc7.xexdd<@".E .`M "CfThisWorkbookGTi@lWnkbok* 2 HB1&"E,(""+BsSheetT1G Se@at1 A~2  *2 2 2 2S A~ 3 35 3 3 )g *ߺ G]wQQpeMe2joljo)(!6e7 Gb69c15ee04xAttribute VB_Name = "She@et2" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2<jxCf#<0SODP Fm.x\1E%d=1xm.x\1E%d=10SODPME(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%H` %6 %`h8@xx0 [$*\Rffff*0=69c15ee04xAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2rU @nt6D Cf(#< _I|FTYND3!xTYND3! _I|ME(SLSS6"  <,<0<4<8<<<N0{00020819-0000-0000-C000-000000000046}` $`k@| i& `}\i( dd% %  %`@.0,*24@l @\ @0L @x< @H, @` @ @ @ @ @ @8 @ @  @P @| @hl @\ @L @< @, @ @ @( @@ @ @ @| [$*\Rffff*0:69c15edf*\R0*#f*\R0*#1*\R0*#17$*\Rffff*0;69c15edf*\R0*#2$*\Rffff*0969c15eb74 "      b)ǷȷϽҪexcel籣棬"$.ȷ"$., $.&ϵͳҪмУ飬粻棬"$.ȡ"$.? 0$,'* * 2A@4dP'(k@o80ܱAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomi6zD2P Sub _BeforeSave(@ByVal AsUI As Boolean, _ Can(cel) isButtonkMsgBox("ǷȷϽҪ@ex " & Chr(34)"ȷ ,10ϵͳмУA?", 0vbOKC63If L4 ThenBDAӡΠϢ E‰gPP= fE nd If Ai <jxCfg#<֯_1Ix F|\JAթ˶x|\JAթ˶֯_1IxME(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%H` %: %`h8@xx0 [$*\Rffff*0?69c15ee04xAttribute VB_Name = "She@et3" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2rU $`$`nrU  ) 1 Q   A i 74 a  ` x"l "   " "\ ''' :\lL:<, :::|l\L:<,^z6$lL, l\L, u  $^ TlL, l\L, 4XrU @,`|#nrU 0` ///(`/(`/(`/,!`1(I`/(q`/(`/(`/, `//( `/(9 `/(a `/( `/(`/,`a//,`a//,)`a//,Q`)//,y`)//,`)//,`)//( `/(1`/(Y`/(`/(`/0` Q1///nrU~|      arU~~{       SaveAsUICancelrowIndex columnIndexcontent sheetIndexcolIndex errorInfo checkMethoderrorMsgtypeValisValidateCountregvalue sheetIndex2keyWordkbnvalue1flagrowNum  IDNumberfunctionArgsArrvalue2 functionArgsIdNumrU~| prU $ nrU~|   9 0  0   0   0   0   0   0 X  0 8  0   0   0 $  0   0   <:4%DX%h$ h dD)hDJ$%DX%h$ h dDC)hD5Cx(^lhD0   <:4%DX%h$ h dD)hDJ$%DX%h$ h dDC)hD5e1x(^lhD0   0    0        rU ,`//(`00` 1///(`08!`Q////0I` ///<q`q/////<`/////,`//( `/0 ` 9Q09 ` ay///,a `//8 `1////,`//8`1////8`1////0)` 1///(Q`/nThisWorkbookThisWorkbookSheet1Sheet1Sheet2Sheet2Sheet3Sheet3ߺ]wQQpeXfУ麯!hQpe;N z^ FMicrosoft Excel 2003 Biff8Excel.Sheet.89q Oh+'0@HTd | Rey Microsoft Excel@"B^@7|} ՜.+,0 PXl t|  sinosoft Уרѧ϶ Ϣ   !"$&'()+,-.0123456789:;<=>?@BCDEFGHIJKLMNOPQRTVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABDEFGHIJKLMNOQRSTUVWXYZ[\]_`abcdefghjklmnopqrstuvwxy{|}~      !"#$%&'()*+,-./012345789:;<=>?ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abdegh