ࡱ; H T8\pyxq Ba= ThisWorkbook=KGx-8X@"1[SO1[SO1[SO1[SO1[SO1Arial1@[SO1[SO1[SO1[SO1Arial1[SO1[SO1 [SO1[SO1[SO1[SO1h>[SO1,>[SO1>[SO1 [SO10[SO1[SO1[SO1[SO1[SO1@[SO1[SO1>[SO1 [SO1[SO1*[SO1[SO1[SO1[SO14[SO1*[SO1[SO1 [SO14[SO1<[SO1?[SO1>[SO1[SO1@[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""#,##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 1|@ @ 7 1<@ @ 1|7 1@ @ 1@  ,1 ,1 ,1 -87 .8 /87 08 187 28 387 48 587 68 ||tQE}(}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_)\([$#,##  }}100_)\([$???#,##??? ??? ???}(}200_)}(}300_)}<}4}00_)\([$}<}7e00_)\([$}x}8???00_)???\([$???#,## ??? ???}}9??v00_)̙\([$#,##  }(}:00_)}<};00_)\([$}<}<00_)\([$}(}=00_)}<}>00_)\([$}<}?00_) \([$}x}@00_)\([$#,##  }(}A00_)}(}B00_)}(}D00_)}(}E00_)}(}F00_)}(}O00_)}(}Q00_)}(}R00_)}(}S00_)}(}T00_)}(}U00_)}(}V00_)}(}W00_)}(}]00_)}(}_00_)}(}`00_)}(}j00_)}(}k00_)}(}q00_)}(}r00_)}(}s00_) 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[{tjNxhOo`VV- KmՋ@b g!hĉRv^SbpSOo`ffd@jb(3 A@@   checkSfzjhcheckDiffName11xmsfzjhsysDifficultyGradeNameindentifyDateindentifyReasonclassIdentifyReasongradeIdentifyReasonYT[V~+RTy[e[SVs~[at^~[a checkGender 77u 7'`+R7u 7checkDiffNameyr+RV 7V 7N,V 7NV 7vQN 7checkSqyyCodee 73ut1uxUSN 7d[?Q 7kuNOOpXP[sY 7QQgNO 7Vu 7V~p 7mQNN 7checkSqyyName3ut1uTyelT 7^S/f 7Ty 7{|W 7 checkTerm 7%fc[f[g 7f[g 7yc[f[g 7 checkYesNo 7/f/f 7&T 7sY 7'`+RsY 7 levelAffirm 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 7sysDifficultyGradeCode 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 7kXQVI{~[veg  7FAILURE 7b" 4144010566 4144011845 4144010560H5 5v,6 77ep84a9% ::;<~=^? LA %B HC LDFxccB~-z4nA_)k:~yw T8  sh dMbP?_*+%{&ffffff?'ffffff?(?)?M.Microsoft Print to PDFP/ 4dXXA4GIS4DINU"$,?]{~SMTJ{084F01FA-E634-4D77-83EE-074817C03581}RESDLLUniresDLLPaperSizeA4OrientationPORTRAITResolutionResOption1ColorModeColor,V4DM p"O4wMH5L*@VDocumentUserPasswordDocumentOwnerPasswordDocumentCryptSecurity" dXX333333?333333?&<3cAU} r} s} @r} `r} r} q} q} q} r}  r}  r} K r} LL@r} MS r} T r mk_kJOkUkJOOmOOBO{@ {@ [ gg \ ] ff ^a ^` ^``````````````````````````````````````````````````````````````````a`]R4T``````]]]]]]]]]]]]``]`]jY @hDAAAAAQQQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAR4TAAAAAAAAAAAAAAAAAAAAAAAj p~ ic d^RRRRTTTRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRSRRR4TRRRRRRRRRRRRRRRRRRRRRRRjDjDAAAAAQQQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAR4TAAAAAAAAAAAAAAAAAAAAAAAj E jH E A A A A A Fk F A A A A A *WAAAAAAAAAVAAAAABAbh iO|jb ke_lA P lh n} P P P P P G m o C] Ce Cb Cc Cdqqqqqqqq qqqqqqqq:: ppp(  ~  < ICC@C],@n9$<_ Y h g<>@7 Sheet1ggDh4hk:SW2 T8 Qt~% dMbP?_*+%&ffffff?'ffffff?(?)?"333333?333333?&<3U} @}  } @} } Q, ,   , ,,,,,,, M' H( H) M* 5LLLL  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 LL5@ I K LL6@ I K LL@ J K LLJKLLJKLLJK L LL L L LL? L L LL@ L L LEL@ L L LFL@ 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<<<<<<<<<<<<<<<<<<<< !"#$%&'()*+,-./01:2:3:4W567:;<=>?@A 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 +W9+L? +L: +L; ,W9,L@ ,L6 ,L; -W9-L@ -L8 -L; .W9.L@ .L< .L;/LLLL 0L=0L? 0L> 0L? 1L=1L@ 1X@ 1L? 2L=2L@ 2XA 2L? 3L=3L@ 3XB 3L? 4L=4L@ 4X 4L? 5L=5L@ 5LC 5L? 6L=6L@ 6L7 6L? 7L=7L @ 7LD 7L? :LG :ZH :ZI :LJ ;LG ;ZK ;ZL ;LJ <LG <ZM <ZN <LJ =LG =ZO =ZP =LJ >LG >ZQ >ZR >LJ ?LG ?ZS ?ZT ?LJ @LG @ZU @ZV @LJ ALG AZW AZX ALJD l<<<<<<<<<<<<<<<<<<<<<<8888888BCE,F,G,H,I,J,K,L,M,N,O,P, BLG BZY BZZ BLJ CLG CZ[ CZ\ CLJ ELiEL? EIj EKk FLlFL@ FIm FKk GLnGL@ GJo GKk HLnHL@ HJp HKk ILnIL@ IJq IKk JLnJL@ JJr JKk KLnKL@ KJs KKk LLnLL @ LJt LKk MLlML"@ MJu MKk NLn NLv NJw NKk OLn OLx OJy OKk PLn PLz PJ{ PKk L88<<<<<<<<<88PH  0(   >*@4447 Sheet2ggD T8  dMbP?_*+%&ffffff?'ffffff?(?)?"333333?333333?&<3UPH00(  >@7 Sheet3ggD  > CfxRRME(@V06 <`VhH0hX\H`H@ʀx @8 @ꀊh @dx @%Ϣ%ꀢh  @  @ꀞ @ B—(@ʀX @@ꀤ @6BJhB!rB#˵%ZBVHpH^xHʘBʀ @ʀP @b8ph @ꀜ8@0 @  @f @h BjP@ꀌ @X@l@ʘBn@ @ppB"H8h(XPpx x8@HT$p(8H [*\R1*#278$*\Rffff*0;5c7c0e46(*\Rffff*0;5c7c0e46\044    08  @ ` Dp 8 0 P0pD084P. ..(8(`>"$$@>`R^FX `*0$`   ^^0p@һṹҳ]$H=Public Const sheetNameValueTJ As String = "2ʵͳ"]$Ϣ2Public Const IntroSheetName As String = "˵"]$H]$˵] x ¼ܵУ]$H¼ͷ] "ִ һǿУ ĵԪĿ] x6ִ һǿУ ĵԪΪϹĿ] ÿһкϼеֵ] "һǿУʱ¼Ԫ] Ϣ] %---ģУ¼ĸԪ] 8---ģУ¼ĵԪ]  Уʱ洢ַ] 8¼ʱرհť]  ¼ܵУǷвϹ] h ¼ܵУǷظ] #¼ܵУǷظ] %/¼ЧǰǷдϢ ״̬] #У鷽ķֵ]$)¼ʼк]$ )ѧѧſʼλ]D¼ΪյĿ]P"/ǷΪЧ ͳ 5ֶΪյĸ] ("C¼ȥոִнȥ˿ո򷵻true򷵻false] PcellԭʼĵݣϵͳûнԶûĴ֮ǰcell] X7ϴдϢʱڵ,ӦĿʼʱʼֵһ] ] ] RڸݱʶòͬķʱжǷforѭ Cell_SelectionChangeҪõñ]$¼ʡصȼ¼ڵ]$+sheet±Ƿ] ]$h@)е]$) Ա]$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 '!crger6Աsbirthday= rU@@@@~xVa"q(AQ%Q10Aq4Q 0 #$0Q$$$%1%a%%'!&&A'a''(0`Q(@<q((****+,,!-Q---!.Q...Q//8Q++0&$ggD08Z8`0l@8g@\gLpI(pg\h8Z8h8hg{gg\h8Z8h8hg\h8Z8h8hg\h8Z8h8hg^h8Zp8h8hgg pg4p 8Z888gPg8g^h8Zp8h8hgh8Z8h8hgJ@p(pg8 !Z" 8V#hh$8hgV%Ipp( pgg&?g|'h8Z8h(H8hg)*g +ggn'h8Z8hH8hg,g-.ggg /Ipp0O1O(? pbgg\h8Z8h8hg{gggdh8Z8h238hgx> gLp4I(pg p&g\h8Z8h8hg{gg pgh8Z8h*5O`  8hgxg( xkHg6g7g8g9:g9;g0g<g p=g($k2gz @h8Z8h>8hg p?g9\gV@Ia (gVAIa (g"qnP.gFqmlqnlgv @AIa (g$gxKvgvBIa (g>qmlpqnl@vgjp @E800x0 08glx @ @h8Z8h8hg$ glZgl @h8Z8h8hg~CxODOOEOpOFO`: pggx @ @h8Z8hGH8hg: ggp@ggF g?p>"gvBIa (g>qmlpqnl"gjp @E800x0 08glx @ @h8Z8h8hg$ glgl @h8Z8h8hg~CxODOOEOpOFO`: pggx @ @h8Z8hGH8hg: ggpZgg"qnPg$gxK gvBIa (g>qmlpqnl gjp @E800x0 08glx @ @h8Z8h8hg$ glgl @h8Z8h8hg~CxODOOEOpOFO`: pggx @ @h8Z8hGH8hg: ggpBgggvBIa (g>qmlpqnlXgjp @E800x0 08glx @ @h8Z8h8hg$ gl|gl @h8Z8h8hg~CxODOOEOpOFO`: pggx @ @h8Z8hGH8hg: ggpXgggxx @ @h8Z8hI8hg g67T76C7lgZCxOJO;OKOp`:pgg: g 004gg@8@gg0gx`Ag g>l0(lbgxl0h8Zp8hLM8hg(g"l0g<ggxH gg2g`!gKZg4@ggNkppgggF g^pNOOO( pgg`!gLpPI(pgdh8Z8h238hgNh8Zp8hQ8h#gg pRg&gR "gdh8Z8h238hgVSIpp( pgLpTI(p#ggLpUI(pgdh8Z8h238hgNh8Zp8hQ8hggg\h8Z8h8hg\h8Z8h8hg\h8Z8h8hg{P$xR*`HX@pXx8@p(@0P`P 88hpHi@ aS SK* rU@@~~~~~~~~ ~~~2~~~ ~~ ~ ~~L"Q|L bF) a A a a a a Aq!a1q A q a A  pq1112A2q222313a333++43A4q444515a5555!6aa Q a VBAProject ThisWorkbookSheet1Sheet2Sheet3ߺУ麯F6C:\Program Files\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLLVBA  aPF  D:\office2013\Office15\EXCEL.EXEExcel Ap0FC:\Windows\System32\stdole2.tlbstdole QL-[DR?C:\Program Files\Common Files\Microsoft Shared\OFFICE15\MSO.DLLOffice AMSForms.E.`M C:\Windows\system32\FM20.DLL A4/jJ|ۘ /C:\Users\yxq\AppData\Local\Temp\VBE\MSForms.exd ! Q У򲢴ӡϢ checkTheSameFߝ~4@;}+=yF$+A( zeDFWorkbookWorkbook_BeforeSavex .`/f&Tnx\OX[excel YOX[ pQVBE7.DLLA`  a nx[ , &|~\ۏLhg!h YNOX[ pQ Sm ?AS (~ Oo` Nxh f,JJ  8PhpxFFsetCellValueXQq&mF&m 0]\OhpevNcknx N}ge!jgT QۏLdk!h 1qazdeleteRowNoPro @.PasswordProtectUnprotect CellsClearContentsFcheckTheSameXQNewGetRowOrColIndexcheckDMB deleteRowsetCellValueCountXQ&t  A65530 RangeEndRowcheckedRequiredStartwriteLoggetCellValueCountXQ writeLogRedaddCommentXQStartclearCommentsXQStartbeginCheck_commentcallFunctionXQStart regCheckFunc setDMBCoderemoveSpaceXQremoveSpecialCharacter IV5F*bQD FsuԲE%XDF Worksheet: FF 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 -A A)p(~ : ; ,{ L Rvpency SUCCESS !hǏ! checkBankcheckXn VX[(WyrkW[&{Y^ , ; ' <> " ? zz5c7c0e47? Sheet2~0 Sheet30?5c7c0e47A Sheet3gH]wQQpe0<5c7c0e47B]wQQpe(`Xf0;5c7c0e46TXfx!hQpe0@5c7c0e49t!hQpevX;N z^095c7c0dfb;N z^րx`9H`0جVTA:z<v_J̤Gk E%:B?\PZ}K)ke͢P0@f]X{Лق=NGb(^>|K}aAxt|eKzpUN8X!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` BeforeSave` _B_var_Chr\;`_Defaultj`!_B_var_sysDifficultyGradeNameFlag_`_B_var_indentifyDateFlagE` Worksheet`_B_var_isNullRowNum;r`_B_var_i `_B_var_isValidateCount"`_B_var_j `_B_var_rowType`_B_var_m`_B_var_n` _B_var_value`_B_var_removeSpecial&>`_B_var_titleMsg`_B_var_totalMoneySumY`_B_var_p`_B_var_q`=?ACU "u $' @ p0(P7q YX HH  (9CfրxME6 LL L "L` :@`@kP@ @ @ @ @X ` @@ ` ` ` ` ` @8%x@ ( px``@(x0 `2VTX@8 @0 @X @p @ @ @ @ @0 @`p @h @P @(8 @ B<lF08@H @j @ "@`"@ '@`'H46P@ @ @x @` ?@(H @?0fR@0 @ @P h(H@ PH@ @ @ P@ (P@p @8X PV@@ 8V@8 @0 @b @ @ 8df@  8j@X H jp x@ X@ @p @X X   p P@@ @x( @  X @  @ @ @ H  8 @ [$*\Rffff*095c7c0dfb*\R1*#3c7*\R1*#12d*\R1*#121*\R0*#17$*\Rffff*0;5c7c0e46*\R1*#11c*\R1*#42$*\Rffff*0<5c7c0e47$*\Rffff*0=5c7c0e47*\R1*#129*\R1*#278*\R0*#2*\R1*#11*\R0*#f*\R0*#1 h"hp:x.6" "H.p D  :L \8@\H\h\>^":  4P,`$>^,J( @ ~X$PV Pp >|  "n  "8`  h   \0 8@.dH x,L \ * *(X(p%0%D% % %0 %@ %,` %&  ( #6z $J  $"X (,V (PV (`" (,LF` 4Jv <($ <? ( D6v8 D0>p HBj Hl "G$0H@M4lHN~N&N80N h ,xI D@,  ,0 48v40>8 jH8lh "G$HM4lN~N&N8N  ,I( 4008)"(@<($h <<0H6vH0>PBj(Plp "G$HM4lN~N&N8N  ,I0 H8<@(" H,8vp,0>0 j0l "G$@HPM4lXN~N&N8@N x ,I ,($$x  < 6H(LZ`(&( (   )$ ( >0,p,  (,>40x, ,",( 0 8H(2Px *4 +$N  `^p x4LdN   &4 $8d`PVxL 4Ld N8H P \X \x \ x"8@P2`$@6 8*H :x   ,@HP `a--------------------------------------------ʼУ-----------------------------------------]X]p+ijһ͵ıʶкź͸ʽ3:1;2] ʶ(ĬϱʶԶʶ)](ijһ͵ıʶ飨кź͸ʽ] ijһͱʶľֵ]Զʶ]%Ѽ¼ΪյкŷŽ]( `!2'"ȡĿ 0ĿȷģٽдУA@21qaz<$`B@|k1qaz<$`B@:1qaz<$`B@:1qaz<$`B@: V$T!NB@-$ÿοʼʱѴϢsheet,'XϢ¼ʼ'.ôУУ¼Ƿд֣׶ϢУ ('#Ĭ϶ѼδͨУ'Ĭ϶δͨУ V$T!NB@-$ÿοʼʱѴϢsheet, A65530$`%%!' A@B ȡxcna = Worksheets(1).Range("1:1").Find(What:="*", After:=[a1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Column IV5 <%%!('lFAILUREA@F&+ȡǷУɹ־Ԫ񣬲ֵʼΪ0'jռ¼ʼΪ0 0 8" ʱִ A9:IV65536$`%!j1ͺ9 9q A9:IV65536$`% 9(@9#ıʽqd ʼУ鰴ť¼ʱִ.ȷʼ Уرexcel $4ܵݶʧʧ 6ܰʾ$2 8d1qaz<$`B@|kk.$`!b(l)ҳǩΪɫ   "ûвҵѧϢ޷У飡A@2'01qaz<$`B@|k'ôУУ¼Ƿд$`!дϢ£A@P      '<"ִ һǿУ ĵԪĿ';6ִ һǿУ ĵԪΪϹĿ'''5"һǿУʱ¼Ԫ'9ǷΪЧ¼ 'fC¼УǰǷд';¼ԱǷд  l $`%N!b'Oһбʶֵ'2=жforѭǷcallFunctionXQStart ûִĬϷ <ʶΪ -$'Gʽ14-3:25 :$'H6ʽ3:25ȡıʶвֳ֣кź͹ DJҪּϵҪУ飨ĬУ͵ԶУ   Y&+1ΪеһԪΪĬУ $:$'V*ȡıʶвֳ֣кź͹$'SԶʶ  $;$'cԶʶ͵ľֵ   gԱʶб $   A@}ݱʶֵöӦķ  $`%N'bHȥַķ b$R'   $`%N'{ȡбͷ   е Fַ^ , ; ' <> " ? ո س뷨Ϊȫͣ飡''^УʱдϢ  $`%N!t(v ӻɫ A@PN%isValidateCount = isValidateCount + 1kPHk@  $;$'Pȡıʶв   WԱʶб $   A@  $`%N'bHȥַķ b$R'   $`%N'{ȡбͷ   е Fַ^ , ; ' <> " ? ո س뷨Ϊȫͣ飡''^УʱдϢ  $`%N!t(v ӻɫ A@PN%isValidateCount = isValidateCount + 1kk eJ ʽ3:25$'QԶʶ  Pʶеڵǰ$;$'eԶʶ͵ľֵ   kԱʶб $   A@ݱʶֵöӦķ  $`%N'bHȥַķ b$R'   $`%N'{ȡбͷ   е Fַ^ , ; ' <> " ? ո س뷨Ϊȫͣ飡''^УʱдϢ  $`%N!t(v ӻɫ A@PN%isValidateCount = isValidateCount + 1k  k d-ֻĬУʽ14$;$'Hȡıʶв   OԱʶб $   A@  $`%N'bHȥַķ b$R'   $`%N'{ȡбͷ   е Fַ^ , ; ' <> " ? ո س뷨Ϊȫͣ飡''^УʱдϢ  $`%N!t(v ӻɫ A@PN%isValidateCount = isValidateCount + 1k@ 8 k0 k(  $`%N(  6ִ һǿУ ĵԪΪϹĿ     е һдȷ''8УʱдϢ A@P  'd   'Tÿһкϼеֵk  <,һؼֶȫ򽫸ɾ  j+ j 'j,"ϢеĸдϢɾ  X  X X  V$T%>B@@r Ѹɾ  X  'X f'k k  j 6 ɾЧ $'  A@8B Ѹɾd@   A@8H Ѹɾk  j ˴Уɾ j:Чݣ֤жУʧܼΪЧݣA@2k *дϢ鿴ϢA@2$`!b(l V$TB@Hd'A@ '%ִУظݷ,ûظǷҪɾЧ.$`!b(lSUCCESSA@F2+ȡǷУɹ־Ԫ񣬲ֵʼΪ0 Уͨ!A@2d*ظݣ鿴ϢA@2$`!b(l V$TB@Hkk1qaz<$`B@1qaz<$`B@1qaz<$`B@o@q-------------------------------------------------ظijһ------------------------------------------------@]] A65535 L%%!'2Scripting.Dictionary$.O8O  L%!b'>ȡѧ  %"ѧ໤֤ݽб   %-֤Ų  B@&#addһΪkeyڶΪvaluek@k80 ! 'Sheet2$`G:G7B@  !% !2G17, 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: 1F`#(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{PTr1'Ѐʱ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 LLH D` X IF xIH `J P(`  iR Z`  I\ IF I^  dX` 8  iR n0`   I\ IF IH Ip  |`   'I\ IF IH  ` @ 2I\ `I IF IH I  ` 8 GI XI\ xIF IH I  ` 0 I PIb `  `  I + ` X I\ xI i`  ` ( Ib HI* hI, @0 88 `  4I\  I4  B `Hk :I\  IF  I^  Ib (  D ` h AI\  I4  F `Hk EI\  IF @ I^ ` Ib (   ` JIb  I\  IF 8 I^ @0 @H @J ` cI\ IF 8I^ `*`L`N R`  sIb @   0(  8 XB% x@B `@ @ @0 @ @H @`x @` @H @ ` 0(0hH@F X0`@ @ @ @ @ @x @` @H 0 [$*\Rffff*0<5c7c0e47*\R1*#3c7*\R1*#12d*\R1*#121} 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 x0 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 vO O O pP PB P*PP PB pQ^xQ vQ Q 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-----------------------------------------УУдϢʾ ע----------------------------------------------------------- Ԫ] F H L%N'J J'Dd('Dki--------------------------------------------д־ ¼ϢʾһϢ-------------------------------------------- R X V$T,N X 'XiX------------------------------------------------------ ȡָcellֵ-------------------------------------------------------------( F ^ \$`%N!b'Zi--------------------------------------------д־ ¼ϢúɫʾϢ-------------------------------------------- R'f R X V$T,N f X V$T%N%h!j(l X 'Xii--------------------------------------------עʼУ飩-------------------------------------errorInfoעX 1Worksheets(sheetIndex).Unprotect Password:="1qaz" p F H \$`%NB@r F H \$`%N!t(vW ӻɫ F H \$`%N!x(zii--------------------------------------------ɾעʼУ飩-------------------------------------01Worksheets(sheetIndex).Unprotect Password:="1qaz" F H \$`%NB@~ F  H  F H \$`%N!t(ld  F H \$`%N!t(lkpihr---------------------------------------------ʼУ Ƿӻɾעõķ----------------------------  Уʧ F H \$`%N!xd жעΪ \ F H A@nV עd"Ϊգȥǰע \ F HA@|N ע \ F H A@nk1 MsgBox "" & rowIndex & "" & errorMsgd:УɹжǷעУʧʱעȥ \ F HA@| ,#ȥո,ʾ FУ HУַ"$4 "$4"а˿ոϵͳԶΪA@Pd`kXkPiH----------------------------------------------------------------------------------------------------------------------------------y--------------------------------------------ݱʶöӦķ(ʼУ)-----------------------------------------------------------------------------------------------------------------------------------------------------------------------ѴϢдб F H \$`%N'b  H \$`%N'Iȡбͷ Ϊϲеıͷ  H \$`%N' F e  H \$`%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'k _=================================1 ִеķǿУ==========================================ѴϢдб checkNullKT \ F H$'  F е Ϊգ'')УʱдϢ A@PRMsgBox "" & rgold.Row & "е" & Chr(10) & titleMsg & "Ϊգ"k \  F H A@'a=================================2 ִѧУ========================================== checkNameKT \ F HA@@ȥոķ F H \$`%N!b'b b$'  F е ;дȷΪ֣ȴ1ܳ20ַ''%УʱдϢ A@P  'k \  F H A@'Z================================= ִеijУ==========================================checkLenKT b $'  ,$'$ ` ΪDZΪ̶ȹ F е .дȷΪաд򳤶ȱΪ$ λ'$ ed ΪDZΪȷΧ F е 4дȷΪաд򳤶ȱڵ$ λҲ$ λ'$ ed ΪDZΪ̶ȹ F е &дȷΪգҳȱΪ$ λ'$ ed ΪDZΪȷΧ F е ,дȷΪգҳȱڵ$ λҲ$ λ'k '0УʱдϢ A@Pkh \  F H A@'h================================= ִеijУ飨Numberͣ==========================================checkNumKT b $'  ,$'$@ ΪDZΪ̶ȹ F е GдȷΪգдΪ֣0λȲ$λСλ$ λ'$ ed ΪDZΪ̶ȹ F е ?дȷΪգұΪ֣0λȲ$λСλ$ λ'k'0УʱдϢ A@PkX \  F H A@'[=================================ִֵΧУ==========================================ѴϢдбcheckValKT b $'  ,$' F е $дȷΪ֣ڵ$ Ҳ$''-УʱдϢ A@P& isValidateCount = isValidateCount + 1kh \  F H A@'_=================================ִеΪֵУ==========================================ѴϢдбcheckIntKT b $'  ,$'$@ ΪDZΪ̶ȹ F е 8дȷΪգдΪڵ$ҳȲ$ λ'$eD ΪDZΪ̶ȹ F е 0дȷΪգұΪڵ$ҳȲ$ λ'k'0УʱдϢ A@Pkp \  F H A@'`================================= ִе֤У========================================== checkSfzjhKT \ F$Z'S ȡд  F е &дȷ֤Ϊգ''0УʱдϢ A@Pd  ֤ b H$'O ֤У :֤У F е MдȷΪѧ֤ţһλΪĸXıд''4УʱдϢ A@P  'kd b$'  F е EдȷΪգҳȱڵ1λҲ18λ''4УʱдϢ A@Pk"k"k" \  F H A@'X================================= ִ֤У================================== checkZjlxKT checkZjlx b1$'  F е дȷ''(УʱдϢ A@Pd! checkZjlx \ F HA@k`! \  F H A@'W=================================ִ꼶У========================================== checkYearKT checkYear b$'  F е дȷ''(УʱдϢ A@Pd checkYear \ F HA@k \  F H A@'\================================= ִѧŵУ==========================================checkXJHKT b1, 1, 50$'  F е EдȷΪգҳȱڵ1λҲ50λ''0УʱдϢ A@Pkp \  F H A@'[=================================ִпУ==========================================ѴϢдб checkBankKT b$'  F е $дȷΪ֣ڵ$ Ҳ$''-УʱдϢ A@Pk \  F H A@'W=================================ִУ==========================================ѴϢдб checkYearKT b $'  F е *дȷʽ20122002ȣ''-УʱдϢ A@PkH \  F H A@'W=================================ִѧУ==========================================ѴϢдбcheckXnKT b$'  F е )дȷʽ2012-2013ȣ''-УʱдϢ A@Pk \  F H A@'W=================================ִ·У==========================================ѴϢдб checkMonthKT b$'  F е &дȷʽ0112ȣ''-УʱдϢ A@Pk` \  F H A@'g=================================3 ִеУ(DZ)==========================================ѴϢдб checkDateKT b$' 2Уʧ F е дȷдʽΪ"$4 xxxx-xx-xx"$4 2013-02-21''-УʱдϢ A@Pk \  F H A@'c=================================ִеУ飨==========================================ѴϢдбcheckDateNecessaryKT& b$' 2Уʧ F е дȷдʽΪ"$4xxxxxxxx"$4 20131221''-УʱдϢ A@Pk \  F H A@'J=================================10 У绰====================== checkPhoneKT b$'  F е дȷдʽΪ"$4-̶绰 ֻ"$4 ''%УʱдϢ A@Pk( \  F H A@'L=================================checkOption У鱸ע ====================== checkOptionKT bB$'  F е )дȷȲܳ200ַ''%УʱдϢ A@Pk \  F H A@'\================================= ִ϶ѼУ==================================checkDiffNameKTcheckDiffName b $'  F е дȷ''(УʱдϢ A@PdxcheckDiffName \ F HA@kH \  F H A@'X================================= ִ֤У==================================checkIDCardTypeKTcheckIDCardType b $'  F е дȷ''(УʱдϢ A@PdcheckIDCardType \ F HA@k \  F H A@'T================================= ִвмУ==================================checkDisableTypeKTcheckDisableType b $'  F е дȷ''(УʱдϢ A@PdxcheckDisableType \ F HA@kH \  F H A@'`================================= ִмͥԴУ==================================checkFamilyIncomeTypeKTcheckFamilyIncomeType b $'  F е дȷ''(УʱдϢ A@Pd checkFamilyIncomeType \ F HA@k \  F H A@'v=================================14 checkGender ִǷΪСŮУ--================================== checkGenderKT checkGender b1$' '-ԱдУ֤Ź F е дȷ''(УʱдϢ A@Pd checkGender \ F HA@k \  F H A@'u=================================14 checkYesNo ִǷΪǡУ--================================== checkYesNoKT checkYesNo b $'  F е дȷ''(УʱдϢ A@Pdx checkYesNo \ F HA@kP \  F H A@'u=================================14 checkYesNo ִǷΪǡУ--==================================checkSqyyNameKTcheckSqyyName b $'  F е дȷ''(УʱдϢ A@PdcheckSqyyName \ F HA@k \  F H A@']=================================checkTerm ִѧУ--================================== checkTermKT checkTerm b $ F е дȷ''(УʱдϢ A@Pkh \ checkTerm b $ F H A@'r=================================checkAtLeastOneNNull ִһΪǿ--==================================checkAtLeastOneNNullKT  'A"ִ һǿУ ĵԪĿ b$ b=Ϲ  b ' H KTF  b ' KTF  b ' KTF  b ' KTF  b 'ndϹ  'F6ִ һǿУ ĵԪΪϹĿ    'k'ni_--------------------------------------------ʽ-------------------------------------]pVBSCRIPT.REGEXP$.7RegExΪʽ (4 ȫֿvba\ת  (.ʽ (5ǷִСд b %'3 ִ.ix-----------------------------------------------------------° Уظ˵Ѿûиʽ------------------------------------------------------------V-----------------------------------------------------------1ѧ׶ڱڲ(sheetѧ׶ A65535 $T%%!'*cna = getTotalColumnCount(sheetIndexValue) V$T!NB@1&ÿУظʱʱѴϢsheet,'XϢ¼ʼX==============================ѧ׶ڱڲ==================================0ðÿԪغ֮ǰнбȽ      $T%N'       $T%N'  .ѧͬ˵ظݹ  еݺ͵ ظ!!!!' A@P*ѴϢ'kCCCiC-----------------------------------------------------------һ ֵȡֵ------------------------------------------------------------ֵҵֵڵлkeyWord ҵĹؼ'kbn л ֵΪ rowrow']the find result object  "  &$ A1:A65535 \$`%%.  row !'dA !('kAkAiA------------------------------------------------------ ִڹУ(Ϊ)-------------------------------------------------------------value value1 cellУ鲻ȷfalseУȷtrue ,0˵ΪDZ *$.'z`@kX@kP@]'2ijһļ¼ A65535 6$T%%!'4B' 6 brow$'0=ȡ  0 4  6$T%N b 2 '2d`?yX?kP?   0 0 2   6$T%NX *X LжϹǷcell'y>k> #ʱcountĿΪùеĿix>------------------------------------------------------ ִɾijһвexcelܱģ-------------------------------------------------------------sheetIndex rowNum к1qaz< \$`B@: 4 \$`%>B@@/ Ѹɾ- Worksheets(sheetIndex).Protect Password:=123i=------------------------------------------------------ ָcellֵ-------------------------------------------------------------8 1qaz< \$`B@: b F ^ \$`%N(bi0<------------------------------------------------------ ִɾijһвexcelûб-------------------------------------------------------------sheetIndex rowNum к 4 \$`%>B@@/ Ѹɾi ;------------------------------------------------------ ָcellֵ------------------------------------------------------------- 1qaz< \$`B@: b F ^ \$`%N(bi@:------------------------------------------------------ ݴеֵǰʱѾͨУ飩------------------------------------------------------------- ]X p  F ^ \$T%N!bX 'J'2ijһļ¼ A65535 6$T%%!'4F 6 brow$'0Aȡ  0 4  6$T%N b 2 '2dh8y`8kX8   0 0 2   6$T%N!bX '* * JX 1жϹǷcell  6$T%N!b'H HX F ^ J \$T%N(by7dx7 F ^ J \$T%N(bkH7 i07------------------------------------------------------ ȥcellеĿո------------------------------------------------------------- ]XԪ]p3Blength1ʾcellԭijȣlength2ʾִȥոַ'ĬΪûȥո2 Worksheets(sheetIndex).Unprotect Password:="1qaz" F ^ \$`%N!b'* *'L LGzj*"ԪΪգȥո * 'N%length2Ϊոһγֵλ Nַո * $P'* *X F ^ \$`%N(b'k4i4------------------------------------------------------ ȥַ-------------------------------------------------------------]-[\uFF00-\uFF06][\uFF09-\uFFFF]|[\s,;'<> "?^]+'  b$'Rd3'Rk3i33Attribute 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 P1 '¼ʼ/ocJ'ðÿԪغ֮ǰнбȽϧi0 startT + 2 To0 rnag4babyID1I2(i,a3YOdAjO@i - 1oq2exj$`N If bab@yID1 =H2 Then 'ѧͬظ  errorMsg"" & j"еp(iS !"\writ eLog e'Ѵ :haBsSameTrueEnd IfNext Functi@on '-7һ ֵȡֵи+-K)ҵ*лЀkeyWord Ĺؼցbn ֵΪ row$ @ GetRowOrColIndex(ByVal sheet, CD@As Str ing) Integer[@o-1GbDim cObject '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 + cV-iDC(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 r2In! ἤγֵ`λÇf2p <> 3A5'qàReplQ"E+,AbX  ETru%|?zs- 2a$?8zecialCharacterq!9regp"[\uFF00-)b6]9FF]|[\s,;'""?^]+s/`CheckAE(#i `Fz "H" "4" " "" "# # # #B ####$$$$ $ ($ $ $B $$ % %% % (% % %B %% & &0&8&@&H&P& X& & 'B ('0'8'P'`'h'p'x'' '  ( @(B X(`(h((((((( ( p) )B ) &) $) *  *&0**X*"*$**(* +@+`++++ + 2+," ,H,h,  p,,,8,,,P------------------------------------------1 ,дϢʾ Ϣsheet--------------------------------------- ʱ0Ϊʱ1 Ԫ] F H \$`%N'J J'd'ki-----------------------------------------2 Уѧ ҪΪ-------------------------------------------------------------ʽȷfalseʽȷtrue]H  b$'d@'k0i(|-----------------------------------------3 УڸʽΪ2012-05-09(Ϊ)---------------------------------------` b$.'zpkh]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]))))$'  b$'d'ki|-----------------------------------------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]))))$'  b$'d'kih-----------------------------------------4 У֤---------------------------------------Ϲ򷵻trueϹ򷵻false]790584216379058420Ȩ] 10X9876543200У v$.'v ȥո]H`x ^  v6)׶֤Ϊ,ΪͨУ ~'z0k( vGzj v$$Gzj v*[0-9X]Gzj  x $'| |G '|j z v $ | 'zP z '| v$  | $G'jiz-----------------------------------------У֤ -------------------------------------------------------------ʽȷfalseʽȷtrue],^[\u4e00-\ue863a-z|A-Z|0-9|()|]{1,18}$'  b$'d'ki----------------------------------------5 -УѧУѧУʶ 42λһλΪֻx-------------------------------------------------------------ʽȷfalseʽȷtrue ]^[1-9]\d{40}[\dx]$'  b$'d'kiz----------------------------------------6 -У黧 -------------------------------------------------------------ʽȷfalseʽȷtrue](.^(\u519c\u6751)|(\u53bf\u9547)|(\u57ce\u5e02)$'  b$'d`'kPiHu-----------------------------------------7 Уѧʱ-------------------------------------------------------------ʽȷfalseʽȷtrue@]'^(((19)|(20))\d{2})((0[0-9])|(1[0-2]))$'  b$'d0'k iq-----------------------------------------7 У-------------------------------------------------------------ʽȷfalseʽȷtrue b ,ΪDZ'k zk]h^((19\d{2})|(2\d{3}))$'  b$'d'kiq-----------------------------------------7 У·-------------------------------------------------------------ʽȷfalseʽȷtrue]^((0[0-9])|(1[0-2]))$'  b$'d0'k iv-----------------------------------------9 Уѧ-------------------------------------------------------------ʽȷfalseʽȷtrue]^\d{4}[0-7]\d{3}[0-3]\d{7}$'  b$'d'kiv-----------------------------------------10 У绰-------------------------------------------------------------ʽȷfalseʽȷtrue]^\b((1(([38]\d)|(4[57])|(5[0-35-9]))\d{8})|(0((10)|(2[\d]))-[2-9]\d*)|(0[3-9]\d{2}-[2-9]\d*))\b'  b$'d'kiv-----------------------------------------11 Уп-------------------------------------------------------------ʽȷfalseʽȷtrue0]^[1-9]\d{14,20}$'  b$'d 'kx ip -----------------------------------------checkXn Уѧ磨2012-2013-------------------------------------------------------------ʽȷfalseʽȷtrue]8 ]P 1^(20\d{2}-20\d{2})|(19\d{2}-19\d{2})|(1999-2000)$'  b$ b-$'$$ 'd 'k d 'k i -----------------------------------------checkOption У鱸ע磨Сvalue2-------------------------------------------------------------ȲС200false 򷵻trueh *'z k *  'd 'k i ------------------------------------------------------ȽϴС(Сڵڷtrue)----------------------------------------------------------------'value1value2false 򷵻true *X'* X' *  'Dd'Dkpih------------------------------------------------------ȽϴС(Сڵڷtrue)-dec---------------------------------------------------------------'value1value2false 򷵻true *$4'* $4' *  'dP'k@i8}------------------------------------------------------У鳤---------------------------------------------------------------0 ,$'' b$/ΪDZ'k@z8k0 ,-±0ʼֵΪָάõ± b$$4 b$$4'zkd˵У̶ b$$4'zHk@k8i0}------------------------------------------------------У--------------------------------------------------------------- ,$'' b$/ΪDZ'k8z0k( b$& Ϊz b.e+Сz b$4e% С0zk ,-±0ʼֵΪָάõ± b$$4 b$$4'zkd˵У̶ b$$4'zkki------------------------------------------------------УֵΧ---------------------------------------------------------------` ,$'' b'zk b$) Ϊz b$4e) С0zhk` b$4$$4 b$4$$4'zki------------------------------------------------------Уֳ(Number,ΪҲΪСС0)--------------------------------------------------------------- ֲɼӷ<^(([1-9][0-9]*)|(([0]\.\d{1,2}|[1-9][0-9]*\.\d{1,2}))|0{1})$'  b$z k ,$'' b$/ΪDZ'kP zH k@ b$% Ϊz b$4e% С0zk$'+󳤶$'.Сλ b.''' "˵ûС b$4' $$4'zkd С b b. $'DԪֵλ b b. $' $$4 $$4'zHk@k8i0-----------------------------------------checkIsInt У鲻С0-------------------------------------------------------------ʽȷfalseʽȷtrue] ^0|[1-9]\d*$'  b$'d('ki-----------------------------------------checkIsNumber УΪNumber-------------------------------------------------------------ʽȷfalseʽȷtrue ' b$'ki-----------------------------------------checkMoney У0-9999-------------------------------------------------------------ʽȷfalseʽȷtrue]^(([1-9](\d{0,3})|0)|0)$'  b$'d'ki-----------------------------------------checkMoneyTJ У0-9999Сһλ-------------------------------------------------------------ʽȷfalseʽȷtrue(]^([1-9]\d{0,7})$'  b$'d'ki-----------------------------------------checkPersonNum У׶԰һ------------------------------------------------------------ʽȷfalseʽȷtrue]0^(([1-9]\d{0,3}))$'  b$'d'kix-----------------------------------------checkIdNumLink У֤ԱͳûдǷһ------------------------------------------------------------ʽȷfalseʽȷtrueH If colIndex = jhrIDColumn Then checkIdNumLink = True Exit Function End If]%Ա֤ǷӦ]$ں֤ǷӦ]0ڵһγֵ±]H"Ա,Ԫ֮ڵ]`$ݺŽȡ]x!,Ԫ֮ڵ]"ݺŽȡ]#]%·] ]8 $' $' (ڶλΪΪ F p Z$T,NdڶλΪżΪŮŮ F p Z$T,Nk $' $' $' -  -  F r Z$T,N'i8%^([\u2E80-\uFE4Fo]|[a-zA-Z]){1,20}$'3޸ģУƧ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}$" '޸ģԁ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"11Y0?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λһxckSchCodex@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(hx2 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.#. = 8lyG{+?/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 EntryRZWorkbook"_VBA_PROJECT_CUR"#PROJECT!VBAdir __SRP_bj__SRP_c__SRP_d %j__SRP_e'XfD__SRP_a.Sheet25Sheet1 H__SRP_f[jThisWorkbook]< Sheet3 __SRP_2R+__SRP_3__SRP_4__SRP_5__SRP_11 __SRP_10__SRP_0hM__SRP_1_VBA_PROJECTw ;N z^7R__SRP_6~__SRP_7 __SRP_8  __SRP_9 ?]wQQpe K!hQpe PnPROJECTwm\CompObj_hSummaryInformation($aDocumentSummaryInformation8e$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="3F3DCD1033707674767476747674" DPB="7E7C8C51F4AF32B032B032" GC="BDBF4F8EB1CCB2CCB233" [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, ų0* pHd VBAProject4@j = r  [ J< rstdole>stdoleh%^*\G{00020430-C 0046}#2.0#0#C:\Windows\Syst em32\e2.tlb#OLE Automation`EOffDicEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files\CommonMicrosoft Shared\OFFICE15\MSO.0DLL#M 1@5.0 Ob LibraryKMSForms>SFrms3D452EE1-E08F`A-8-02608C@4D0BB4SsaSFM20L'B _&/;"1jIqAHq00}t#0Bq# 504 A34FC7FC0-6A2F-4A08-B602-807CF6FDDB986Users\yxq\AppData\Local\Temp\VBEaB6.exdbU;!.E.@`M Cf»ThisWorkbookGU T@ikWmkbok 2 HB1\B,!("B+qSheet1*GSe_tn1 u2S@22e22~3333)g*ߺG]wQQpee2j!om)(!6e7Gb%Hx@x8 [$*\Rffff*0>5c7c0e47`xAttribute VB_Name = "She@et2" Bast0{00020820- C$0046}|Global!SpacFalse dCreatablPre declaIdTruBExposeTemplateDeriv$Bustom izD2ZCf#p*bQD FsuԲE%XxsuԲE%X*bQDME(SLSS6"N0{00020820-0000-0000-C000-000000000046} 0%@p%<%Hx@x8 [$*\Rffff*0=5c7c0e47`xAttribute VB_Name = "She@et1" Bast0{00020820- C$0046}|Global!SpacFalse dCreatablPre declaIdTruBExposeTemplateDeriv$Bustom izD2rU@@@xblzV Cf(#pߝ~4@;}+=yF$+A( zex$+A( zeߝ~4@;}+=yMEPSLSS6"  ?@ABCDEFGIJKLMNOPQRSTUVWXYZ\^_`abcdefghijklmnopqrstuvwxyz{|}~   !"#$%&'()*+,-./0123456789:;<=>@ABCDEFGHIJKLMNOPQRSTUVWXYZ[]^`bcdfghi  !"#$%&'()*+,-./0123456789:;<=>?@ABCEFGHIJKLMNOPQSTUVWXYZ[\]^_`abcdefgijklmnopqrstuvxyz{|}~     !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGIJKLMNOPQSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~