ࡱ; _ T8\pYQ(u7b Ba= ThisWorkbook=ZKx-8X@"1[SO1[SO1[SO1[SO1[SO1[SO1[SO1Arial1[SO1[SO1h>[SO1,>[SO1>[SO1@[SO1[SO1[SO1[SO1[SO1Arial1Q[SO10[SO1[SO1[SO1[SO1[SO1 [SO1 [SO1 [SO1[SO1@[SO1[SO1[SO1 [SO10[SO1 [SO1[SO1@[SO10[SO10[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[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\)0_);[Red]\(0\)0.00_);[Red]\(0.00\)0_  0.0_                 , , , , , , , , , , , , - - - - - -      P +P      . ,  , , , ,     / 0 1a   2  3ff 4 5 6`   7 8 9  : - - - - - -    @ @  @ @  ""@ @ @ @ @ @ @ @ !@ @ ""@ @   x@ @  1 1 1 1 1@ @ 1 1 1 x7 1@  1@  1@ @  1|7 1 @ @ ,1 1 1@  1 1@ @  ,1 ,1 ,1@  ,1 1|7 1 @ @ 1@ @  1@ @ 1  1 1@ @ x )1 #1 $1|@  1 1 %1|@ @ 7 1<@ @ 1@ @ &1@  (1@  *1@  1 ;1 ;1 <1@ @ =87 >8 ?87 @8 A87 B8 ||ǹq}(} 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_)}(}, 00_)}(}- 00_)}(}. 00_)}(}2  00_)}<}3 a00_)\([$}(}4 00_)}x}7 }00_)\([$#,##  }}8 00_)\([$???#,##??? ??? ???}(}9 00_)}(}: 00_)}<}; }00_)\([$}<}> e00_)\([$}x}? ???00_)???\([$???#,## ??? ???}}@ ??v00_)̙\([$#,##  }(}A  00_)}(}B 00_)}<}C 00_)\([$}<}D 00_)\([$}(}E 00_)}<}F 00_)\([$}<}G 00_) \([$}x}H00_)\([$#,##  }(}J 00_)}(}L 00_)}(}S 00_)}(}T 00_)}(}U 00_)}(}V 00_)}(}W 00_)}(}\ 00_)}(}] 00_)}(}_ 00_)}(}a 00_)}(}c 00_)}(}e 00_)}(}f 00_)}(}h 00_)}(}i 00_)}(}j 00_)}(}k 00_)}(}l 00_)}(}m 00_)}(}o 00_)}(}r 00_)}(}| 00_)}(}} 00_)}(} 00_)}(} 00_)}(} 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 2.8^ĉ 2 2 ,8^ĉ 2 3.8^ĉ 2 3 -8^ĉ 2 4.8^ĉ 2 4  .8^ĉ 3*8^ĉ 3  /8^ĉ 408^ĉ 4 21 8^ĉ_hQVL?e:SRNx2(c  3}Y0}Y  a 4Gl;`&Gl;` 5'^6 '^[0] 7{^{ } 8hgUSCQ-N2-N  e ?Q^Q ???????????? ??? @eQjeQ ̙ ??v A 0 ]vc   B@wr 1*@wr 1  C@wr 26!@wr 2 PM  D@wr 36%@wr 3 Y  E@wr 4*)@wr 4  F@wr 56-@wr 5 K  G@wr 661@wr 6  F  Hlʑ^ lʑ  XTableStyleMedium9PivotStyleLight1683ffff̙̙3f3fff3f3f33333f33333\` N ؚ!h,gNyV[Rf[ё TUSqNxhɄOo`VV!  =- KmՋ@b g!hĉRv^SbpSOo`fnfX8FE@NF|MOS AA@A@  |1 7sfzjh 7 checkDiffNameV[V~+R TycheckIDCardTypeNN{|W7usYE\lNel T^S/f Ty{|W checkYesNo/f&T checkGender'`+RsY'`+R7uN,V NVQ[XuQeLr^yO /nyr:Sbgq/Nf oyr:Sbgq/Nf S~nE\leg_'YFLXY8lENE\OOAbgqB7bSvQN1 7Y T 7C 7applyListEntry checkSfzjh 71 71yr+RV 7f[gDRhQ 7zzbz 7 checkTerm%fc[f[gyc[f[g^Sё 7yfje 7[Sё 7sfje 7S>eeg createDate 7 sqlym 7 checkSQLY 7xm 7 checkNum1,6,0 73ut1u 7A 7B 7D 7E 7F 7G 7H 7sqly 7Ylf 7 bzsm 7P kXQDRDёvS>eeg eKNMRveS+TS_e lV[Rf[ё cgS>e S>eekXQ:N,gf[gёS>e[e0_kXyM! 7checkDateNecessary 7[^mS6q~p[ [^mSzSaYNN[^bXTVku t^ȏ RRR1_`Q [^1\f[P[sYY[^bXT1YN[^ k:P kXQ^Sё Y 3000 _kXy 7 kXQ[Sё Y 3000 _kXy 7 checkZjlx 7NN{|W 7 checkZjlx 7E\lN 7 checkZjlxQ[ 7XuQ 7eLr^ 7yO 7 /nyr:Sbgq/Nf 7 oyr:Sbgq/Nf 7 S~nE\leg_'YFL 7XY8lENE\OO 7A 7bgq 7B 77bS 7Z 7vQN 7zjlx 7NNS 7I 7^chzaS[^ 7J 7NOO 73ut1u 75 kXQ3ut1u,wQSOSgqNxh-NvNy OY A SkXQW[k('Y\QGWS),SY , NS͑ YeQ _kXy2 7*  ؚ!h,gNyV[Rf[ё TUS "' 7laRte!jgv 7 checkName 7FAILURE 7* 4134011306 4134013338 4134010878> y?? @#@ A7ABbCyDEFGH J MccB~-z4nA_)k:~yw T8  l  dMbP?_*+%{&ffffff?'ffffff?(?)?M.Microsoft Print to PDFP/ 4dXXA4GIS4DINU"$,?]{~SMTJ{084F01FA-E634-4D77-83EE-074817C03581}RESDLLUniresDLLPaperSizeA4OrientationPORTRAITResolutionResOption1ColorModeColor,V4DM p"O4wMH5L*@VDocumentUserPasswordDocumentOwnerPasswordDocumentCryptSecurity" d333333?333333?&<3cAU} `} } } @} @} @} }  } } } 3 } 4k } ll } mp } qq} ru } v }   vmYV JV_ V VrW YmD[{@ w yQ a' is t f: wG N8 No ulUz eej ff m {` l gl| eej ff W# | W V( f) f) k) V f f ]9} ] c- h2 h4 m6 tC vE t ihdlX qo7 ^$ ~R be ^, b1 b3 n5 ^; ^D x Zu r Zv Zn ZO ZP sF Zk Zpl\(:(ryZ(   Lq N=X?  ]4L9@ 狦FC ClEcs5 <kXQf[uvY T<~~  <0DCC@],@2c9 $< _Yhg<~~  <p@CC@],@9 $<_ Y h g< ~~ i <DCC@F],5@9 $<_ Y h g<L9admin>@dinjn7 Sheet1ggDh8hb:SW2_1 T8 5D}Ѓ  dMbP?_*+%&ffffff?'ffffff?(?)?MFoxit Reader PDF Printer_ 4dXXA4" dXX333333?333333?&<3U} @K} I} I} !I}  J}  J}  J}  J5@ ,,,,,,, , , , , ,,,,,,,,,,,,,,, R M M R S J&LLLL Tx NP?O? N J{ NP@P NLPPL NP@ O N NP? O NPLPPQ N P? O* Q N P@ P Q N P@ P Q N P@ P Q LPPQ NP? O Q NP@ P Q NP@ P Q NP@ P Q NP@ P Q NP@ P Q NP@ P Q NP @ P Q NP"@ P Q N P P Q N P P! Q N P% P" QLPPQ N.N? d/ N+ N.N@ d0 N+NPNN p8 j N< pH p8 j N= pIDlP N@<< <<<<<<<<<<<<<888<<8 !"#$%&T'(,T),*,+,,,-,.,/,0,1,2,3,4, p8 j N% pJ !p8 !j !N> !pK!r "p8 "j "N? "pL #p8 #j #N@ #pM $p8 $j $NA $pN %p8 %j %NB %p" &p8 &j &Nf &Ng 'p8 'j 'Nh 'Ni(pqNN )NS)N? )OT )Q *NU*N@ *OV *Q +NU+N@ +PW +Q ,NU,N@ ,PX ,Q -NU-N@ -PY -Q .NU.N@ .PZ .Q /NU/N@ /P[ /Q 0NU0N @ 0P\ 0Q 1NS1N"@ 1P] 1Q 2NU 2N^ 2P_ 2Q 3NU 3N` 3Pa 3Q 4NU 4Nb 4Pc 4Q.D8B888888<<<<<<<<<88PH  0(   >@$$$ 7 Sheet5ggD T8    dMbP?_*+%&ffffff?'ffffff?(?)?"333333?333333?&<3U LLLLLLLLL PH00(  >@ 7 Sheet6ggD K*   rU@@~~~~~~~~~2~ ~~~~~ ~ ~~ ~~F"QdC 4ͣi^  aA0aa aa /aa Q1q1aAq A !aQ a !2A2q2223A3q3334A4q4445!5Q5q555616a6666!7Q7778A8qaa  1 a Q!  VBAProject ThisWorkbookSheet1Sheet6ӡԤߺУ麯ShowFormSheet5 PrintFormF6C:\Program Files\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLLVBA A qPF  D:\office2013\Office15\EXCEL.EXEExcel 1p0FC:\Windows\System32\stdole2.tlbstdole aL-[DR?C:\Program Files\Common Files\Microsoft Shared\OFFICE15\MSO.DLLOfficeMSForms A.E .`M C:\Windows\system32\FM20.DLL 4/jJ|ۘ /C:\Users\yxq\AppData\Local\Temp\VBE\MSForms.exd  У򲢴ӡϢ checkTheSame FF &m F&m  0]\Ohpev Ncknx N}ge!jgT QۏLdk!hVBE7.DLLUnprotectS @(~ 1qaz. PasswordProtect Oo` Nxh f , JJ  8Phpx CellsClearContentsF&t ! A65530 RangeEndRow IV5F\ȕ&ZMnQ FB,K{L3aDF Worksheet x:FF @ FAILUREcheckedRequiredStartwriteLog writeLogRedaddCommentXQStartclearCommentsXQStartgetCellValueCountXQbeginCheck_commentcallFunctionXQStart regCheckFunccheckTheSameXQNewGetRowOrColIndexcheckDMB deleteRow setCellNumXQdeleteRowNoProsetCellValueXQ setDMBCode removeSpaceXQremoveSpecialCharacter A9:IV65536Font [SONameSize &HorizontalAlignment "NumberFormatLocal 4`nx[_YhgT hgǏ z-N RsQexcel ` $ Delete dk!k!h-N RdNDF a &TRS[penc"N1Ybhg1Y% )nc:yTabColorIndex "l gg~b0Rf[uOo` elۏL!h -NOo`Y N  value - ( -N\ gN*NkXQcknxhg(~ : ; ,{ L Rvpency VX[(WyrkW[&{Y^ , ; ' <> " ? zz{=@<9}YT@ƔAάAÝP Browse_PrintF|ۅN29~\F̂LAEr WorkbookWorkbook_BeforeSave .`/f&Tnx\OX[excel YOX[ pQ nx[ , &|~\ۏLhg!h Y NOX[ pQ Sm ? checkRequired checkStuName checkName checkBirthdaycheckBirthdayNecessary IsIDNumber checkSFZJLX checkSchCode checkFamType checkRXDate checkYear checkMonthcheckXJH checkPhoneNum checkBankcheckXn checkOptioncompare compareDeccheckLencheckIntcheckValcheckNum checkIsInt checkIsNumber checkMoney checkMoneyTJcheckPersonNumcheckIdNumLink checkNLencheckNowNecessary checkSqly checkBZSMr  &xRRME(@n06 <nhP0hpt0Hx`@ʀ @8 @ꀎh @| x @%Ϣ%ꀨ  @  @ꀤ @ꘂB @@ꀐp @`@ꀆ@ʘBꀈ0 !@ꘊ`B#˵%hBrB^HpHvxHʘBʀ @ʀP @z8ph @ꀢP @0 @*  @~  @ꘀ B$PB‘@ʀ @@ꀚ @N@B bphB"ꘌB$PP00p @x`@H` p8lP%`x:)[*\R1*#278$*\Rffff*0=5c7c053a(*\Rffff*0=5c7c053a\066    08  @ ` Dp 8 0 P0pD084P. ..(8(`>"$$(@h>R^ F `*X$    0^^0p@һṹҳ]$H=Public Const sheetNameValueTJ As String = "2ʵͳ"]$Ϣ2Public Const IntroSheetName As String = "˵"]$H]$˵0] x ¼ܵУ]$`¼ͷ] "ִ һǿУ ĵԪĿ] 6ִ һǿУ ĵԪΪϹĿ] ÿһкϼеֵ] "һǿУʱ¼Ԫ] Ϣ] %---ģУ¼ĸԪ] 8---ģУ¼ĵԪ]   Уʱ洢ַ] P¼ʱرհť]  ¼ܵУǷвϹ]  ¼ܵУǷظ] #¼ܵУǷظ] %/¼ЧǰǷдϢ ״̬] #У鷽ķֵ]$)¼ʼк]$ )ѧѧſʼλ]$)ѧ֤ſʼλ]DP¼ΪյĿ]@"/ǷΪЧ ͳ 5ֶΪյĸ] "C¼ȥոִнȥ˿ո򷵻true򷵻false] pPcellԭʼĵݣϵͳûнԶûĴ֮ǰcell] 7ϴдϢʱڵ,ӦĿʼʱʼֵһ] ] ] RڸݱʶòͬķʱжǷforѭ Cell_SelectionChangeҪõñ]$¼ʡصȼ¼ڵ]$+sheet±Ƿ] @]$h0)е]$p) Ա]$`+յAttribute VB_Name = "" Public TypalueCo8lum8p 'c@nIndex As I@ntegerTø P'SngEndn _ 'һṹ0ҳ"Const sheet{V1 p1 '/ATJD2`ͳƀ m8sgS8 bϢ8 ro ˵ 3Area3Kdme0totalCountJu¼ܵУ  $startTitl7 ' ͷ atLeaOneNNulD 'ִ tǿA ĵԪĿ\Ϲ`J;Money;Varia>'ÿһкϼֵK Err or@ -ʱ/A>A{C/ e Ms>gAD rgoldRang@e '---AԀģЄ ĸFTargen Vqfuncti@onArgsh'0">@ַfisSaveButton}CAʱرťhas(}Boolean{'L0Щ7 TheSa@_ĮIdN\um]n idaै_Чǰ>\״̬checkMethodXQAA1A0ķRaRowSq0= `r+пʼx!xbabyID"J8= 2 'ѧɀѧ0λæccard3 ֤)Dim isA1(Ϊev%.AFΠЧ! a 5ֶc fremoveSpaceFlatEBȥո@πa$ˡ2tr@uefalse ceࡌ2!2a@|ûнԶûwG֮AKsc ur`@*)Long 'ϴxдO!a@,ӦĿʼʱsֵһ&rna%'`g`cQbisF0SI2ڸݱʶòͬP-CE жϱ?forѭ C_Sele bJChQҪõwb)headdI= 0(/ʀصȱ& Susv9r0v±0 nottinu~eQ$Aq0NӑP luBW:104 @'gHwge rC:Ա w birthd$ay= @ڵ rU@@@@~xUa Q"!'AQ%Q1!. 1Q@ !1!a!!!%Q"!%%%&q&&P &'a)))))!**1+a++'+a##,,-A-q--`&$ggD08Z8`0l@8g@\gLpI(pg\h8Z8h8hg{gg\h8Z8h8hg\h8Z8h8hg\h8Z8h8hg^h8Zp8h8hgg pg4p 8Z888gPg8g^h8Zp8h8hgh8Z8h8hg8 Z! 8V"hh#8hgV$Ipp( pgg%?gg|&h8Z8h'H8hg()g *ggn&h8Z8hH8hg+g,-gg .Ipp/O0O(? pgg\h8Z8h8hg{gggdh8Z8h128hgx>gLp3I(pg p%g\h8Z8h8hg{gg pgh8Z8h)4O` 8hgxdg( xkHdg5g6g7g89g8:g0g;g p<g(#kgz @h8Z8h=8hg p>g8\TgV?Ia (gV@Ia (g"qnPgFqmlqnlHgv @@Ia (g$gxK,gvAIa (g>qmlpqnl@,gjp @E800x0 08glx @ @h8Z8h8hg$ glgl @h8Z8h8hg~BxOCOODOpOEO`9 pggx @ @h8Z8hFG8hg9ggp@d gg g>p>gvAIa (g>qmlpqnlgjp @E800x0 08glx @ @h8Z8h8hg$ glgl @h8Z8h8hg~BxOCOODOpOEO`9 pggx @ @h8Z8hFG8hg9ggpgNg"qnPg$gxKgvAIa (g>qmlpqnlgjp @E800x0 08glx @ @h8Z8h8hg$ glgl @h8Z8h8hg~BxOCOODOpOEO`9 pggx @ @h8Z8hFG8hg9ggpgNggvAIa (g>qmlpqnlXNgjp @E800x0 08glx @ @h8Z8h8hg$ gl2gl @h8Z8h8hg~BxOCOODOpOEO`9 pggx @ @h8Z8hFG8hg9ggpXgggxx @ @h8Z8hH8hgD g66T65C7lgZBxOIO:OJOp`9pgg9g 00gg@7@gg0Hgx`Ag g>l0(lgxl0h8Zp8hKL8hg(g"l0g;ggxH gg2g`!gKg4@ dggNkp pgggg^pMONO( pgg!gLpOI(pgdh8Z8h128hgNh8Zp8hP8hv#gg pQg& gQ l"gLpRI(pgdh8Z8h128hgVSIpp( pp#ggLpTI(pgdh8Z8h128hgNh8Zp8hP8hggg\h8Z8h8hg\h8Z8h8hg\h8Z8h8hg{P$xR*`HX@pXx8@p(@0P`P 88hpHi@ aS Sa *\G{000204EF-0000-0000-C000-000000000046}#4.2#9#C:\Program Files\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.8#0#D:\office2013\Office15\EXCEL.EXE#Microsoft Excel 15.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\System32\stdole2.tlb#OLE Automation(*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.7#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE15\MSO.DLL#Microsoft Office 15.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\Windows\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{34FC7FC0-6A2F-4A08-B602-807CF6FDDB98}#2.0#0#C:\Users\yxq\AppData\Local\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M )[   ThisWorkbook0C5c7c0744'ThisWorkbookzLx\ Sheet10>5c7c053a= Sheet1H Sheet60A5c7c053a? Sheet60SbpSȉ0B5c7c055b@SbpSȉH]wQQpe0?5c7c053aJ]wQQpe`Xf0=5c7c053alXf&x!hQpe0D5c7c0747!hQpe~m;N z^0<5c7c04eb;N z^Ux`9ShowForm095c7c04eb7ShowFormnw Sheet50@5c7c053aA Sheet5hPrintForm0;5c7c04ebCPrintFormʘH0`xeJ"Lь{RV  Lsg?pD]1{kw5bcJth K HbqgVnB oZLw72F\/Ȗ32lDqĔW'L*Q^L@Z6Y<.%sc1Ly >z50]!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` Sheet6` ӡԤX` (Browse_Prints` Worksheets`Visible` PrintPreview` ߺ`(checkedRequiredStartR`rowIndex6d` columnIndexP` cellValue@` ActiveSheet%N`Cells`(writeLog{u`contentl`Sheets ` (msgSheetName'` (curMsgRow/` (writeLogRedm`nLene,` Charactersrg`FontU` ColorIndex`(addCommentXQStartS` sheetIndex ` errorInfo` AddComment`Interior;`Color2F`CommentHs`(clearCommentsXQStart7` ClearCommentsf`sheet2RecordNum`ffTotalNumColumn`xlNone`(getCellValueCountXQc`colIndex`valueK`(beginCheck_comment;D` checkMethodHd`(errorMsg'|`(removeSpaceFlag` (cellContent`(callFunctionXQStart `typeVal#`isValidateCount8`(isFord`titleMsgh` (startTitlel` (headIndex` (functionArgs8M` (checkMethodXQ` (checkRequiredb`(hasErrorf` (removeSpaceXQ` (checkStuNamec`(checkLeng`functionArgsArr`Split)`(checkNumh` (checkNLen`(checkValK`(checkInt`resZjlx0` (IsIDNumber-*` (checkSFZJLX*`(checkDMB` (setDMBCoded` (checkBankUw` (checkYear6`(checkXn` (checkMonth` (checkBirthday`(checkNowNecessary` (checkPhoneNum` (checkOption,` (hasErrorIdNum` (checkSqly`aX`resultur`sj`md`i``ne`LCase:`a1k\`A2l\`(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{`cardID1[?` (cardIDColumn-h`ja`cardID2\?` (hasTheSame`(GetRowOrColIndexf`keyWordF`kbn1`cZ`Findn`WhatC`LookInP`xlValueso`LookAtO`xlWhole`Columni`value1`flag`Trim@`rowData1`Count0v`rowNummR`(AreasheetIndexH` (deleteRow` Unprotect?`Password`RowsU`Deletex` (setCellNumXQ`(deleteRowNoPro`(setCellValueXQ` codeValue` (columnPlus`length1S`length2T`Replacef`(removeSpecialCharacter` i`(!ValueColumType` columnNamew`(sheetIndexValue1` (AreaSheetName`(readmeSheetName` (totalCount-`(rgold`(TargetF`(hasErrorInValidateU` (dataRowStart` (babyIDColumn` isNullRowNum8`(cna`(notContinueBoolt` (genderColumn~`(birthdayColumn0` У麯&` heckStuName~"` (checkNameO`(checkBirthdayNecessary`IDNumber4 `Wm`Tk` IsNumeric$*`Right ` (checkSchCode` (checkFamType` (checkRXDate*`regcheckNowNecessary2`(checkXJHF`years`value2` (compareDecN` maxIntLen1` maxDoubleLen` intLength`intValue`douValue` (checkIsIntR` (checkIsNumberG` (checkMoneyTJC`(checkPersonNum `(checkIdNumLinkUz`IdNum>` isGenderRight ` isBirthRight` genderValue` genderValue11` birthValue` birthValue1~`year6n`year1w`month`month1`day`day1;`arr u`st(_`timeNowy` timePrint`Now%` (checkBZSM` ` rowDataNumn` typeValue`bsTypet` valEntity܏`val`typeRow` isNullRowArr/` sheetCountB`Protectf` Application*`ScreenUpdating! `sysDifficultyGradeNameFlag`indentifyDateFlag `xlToLeftWY`Size`HorizontalAlignmentS@`xlLeft9`NumberFormatLocal)`rowType` removeSpecialj`Locked ` totalMoneySumZ`pg`qh` (checkTheSameg`myDico`myKey`varData`idNumDick` idNumDicData`cardNum\`Exists]`Addr`Keysq`Resize@4`WorksheetFunction&` Transpose` ShowForm`CancelButton_Click`Hide9z`ConformButton_Clickwf`Flasep` Sheet5` PrintForm`Workbookk` Worksheet`_Defaultj`!_B_var_sysDifficultyGradeNameFlag_`_B_var_indentifyDateFlagE`_B_var_isNullRowNum;r` _B_var_Chr\;`_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` BeforeSave`A  "$' C =?AK7m"@ `0(P7q YX J   (9UxME6 LL L"L ` :@`@kP@ @ @ @ @X ` @@ ` ` `  `2 `" @8%x@ ( px``@(x@ D2^\`@8 @0 @X @p @ @ @ @ @0 @`p @h @P @(8 @ <^08 @H @ @ "@`"@ '@`'H46X@ @ @x @` >@(H @>0~jP@0 @& @P h(G@ PG@ @ @ O@ (O@p @8X PU@@ 8U@8 @0 @ @ @ 8ce@  8i@X H ip w@ X~@ ~@p @X X   p P@@ @x( @  X @  @ @ @ 0   *@)[$*\Rffff*0<5c7c04eb*\R1*#3c7*\R1*#12d*\R1*#121*\R0*#17$*\Rffff*0=5c7c053a*\R1*#11c*\R1*#42$*\Rffff*0>5c7c053a*\R1*#129*\R1*#278$*\Rffff*0?5c7c053a*\R0*#2*\R1*#11*\R0*#f*\R0*#1 h"hp:x.6" "H.p D  :L \8@\H\h\>^":  4P,`$>^, ( ~@$PV 8X x >|   "n   "@h   p  \  (.d0 `,Lx \ * *@(X%0p%D%%%0%( %,H %& x  ( #6z $J $"@ (,Vh (PV (`" (,LFH 4Jv <($ <?  D6v D0>X HBj Hl " G$ H( M4l0 N~h N& N8N P ,`I D@,  ,0 48v40>8 j08lP "pG$HM4lN~N&pN8N  ,I 40 )"((<($P <<0xH6vH0>PBjPlX "xG$HM4lN~N&xN8N  ,I H <((" 0,8vX,0>0 j0l "G$(H8M4l@N~xN&N8(N ` ,pI ,($$x  < 60(LZH(&( (   )$  >,X, h (x,>40x, ,",   0(28` p*4 +$N  `^X `4LhdN   &4 $ LHd`PVx 4LdN 0 8 \@ \` \ x" (82H$@6 *0 :`   ,(08 Ha--------------------------------------------ʼУ-----------------------------------------]X]p+ijһ͵ıʶкź͸ʽ3:1;2] ʶ(ĬϱʶԶʶ)](ijһ͵ıʶ飨кź͸ʽ] ijһͱʶľֵ]Զʶ]%Ѽ¼ΪյкŷŽ]( D!J'"ȡĿ 0ĿȷģٽдУA@21qazT$DB@|k1qazT$DB@R1qazT$DB@R1qazT$DB@R ^$\!VB@ -$ÿοʼʱѴϢsheet,'`Ϣ¼ʼ'.ôУУ¼Ƿд֣׶ϢУ ('#Ĭ϶ѼδͨУ'Ĭ϶δͨУ ^$\!VB@ -$ÿοʼʱѴϢsheet, A65530$D%%!' ȡxcna = Worksheets(1).Range("1:1").Find(What:="*", After:=[a1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Column IV5 <%%!@'FAILUREA@^&+ȡǷУɹ־Ԫ񣬲ֵʼΪ0'ռ¼ʼΪ0 0 8" ʱִd ʼУ鰴ť¼ʱִ A9:IV65536$D%!h5ͺ9 9q A9:IV65536$D% 9 ,@9'ıʽq.ȷʼ Уرexcel $4ܵݶʧʧ 6ܰʾ$2 8d1qazT$DB@|kk.$D!b(j)ҳǩΪɫ   "ûвҵѧϢ޷У飡A@2'01qazT$DB@|(k 'ôУУ¼Ƿд$D!дϢ£A@X      '<"ִ һǿУ ĵԪĿ';6ִ һǿУ ĵԪΪϹĿ'''5"һǿУʱ¼Ԫ'9ǷΪЧ¼ '~C¼УǰǷд';¼ԱǷд &  &$D%V!'Oһбʶֵ'2=жforѭǷcallFunctionXQStart ûִĬϷ <ʶΪ -$'Gʽ14-3:25 :$'H6ʽ3:25ȡıʶвֳ֣кź͹ DJҪּϵҪУ飨ĬУ͵ԶУ   Y&+1ΪеһԪΪĬУ $:$'V*ȡıʶвֳ֣кź͹$'SԶʶ  $;$'cԶʶ͵ľֵ   gԱʶб $  & A@}ݱʶֵöӦķ  &$D%V'Hȥַķ $j'   &$D%V'{ȡбͷ  & е Fַ^ , ; ' <> " ? ո س뷨Ϊȫͣ飡''^УʱдϢ  &$D%V!t(v ӻɫ A@XN%isValidateCount = isValidateCount + 1kh`kX  $;$'Pȡıʶв   WԱʶб $  & A@  &$D%V'Hȥַķ $j'   &$D%V'{ȡбͷ  & е Fַ^ , ; ' <> " ? ո س뷨Ϊȫͣ飡''^УʱдϢ  &$D%V!t(v ӻɫ A@XN%isValidateCount = isValidateCount + 1kk eJ ʽ3:25$'QԶʶ  Pʶеڵǰ$;$'eԶʶ͵ľֵ   kԱʶб $  & A@ݱʶֵöӦķ  &$D%V'Hȥַķ $j'   &$D%V'{ȡбͷ  & е Fַ^ , ; ' <> " ? ո س뷨Ϊȫͣ飡''^УʱдϢ  &$D%V!t(v ӻɫ A@XN%isValidateCount = isValidateCount + 1k  k d-ֻĬУʽ14$;$'Hȡıʶв   OԱʶб $  & A@  &$D%V'Hȥַķ $j'   &$D%V'{ȡбͷ  & е Fַ^ , ; ' <> " ? ո س뷨Ϊȫͣ飡''^УʱдϢ  &$D%V!t(v ӻɫ A@XN%isValidateCount = isValidateCount + 1kX P kH k@  &$D%V( & 6ִ һǿУ ĵԪΪϹĿ     е һдȷ''8УʱдϢ A@X  'd   'Tÿһкϼеֵk  <,һؼֶȫ򽫸ɾ  +  ',"ϢеĸдϢɾ  `  ` `  ^$\%VB@Xr Ѹɾ  `  '` ~'k k   6 ɾЧ $'  A@PB ѸɾdX   A@PH Ѹɾk(   ˴Уɾ :Чݣ֤У鶼ʧܼΪЧݣA@2k *дϢ鿴ϢA@2$D!b(j ^$\B@Hd0'*A@ *'%ִУظݷ,ûظǷҪɾЧ Уͨ!A@2.$D!b(jSUCCESSA@^:+ȡǷУɹ־Ԫ񣬲ֵʼΪ0d0*ظݣ鿴ϢA@2$D!b(j ^$\B@Hkk1qazT$DB@1qazT$DB@1qazT$DB@oXq-------------------------------------------------ظijһ------------------------------------------------@]] A65535 T%%!'2Scripting.Dictionary$ .$O8O  T%!'&>ȡѧ ( &%"ѧ໤֤ݽб ( ( $%*-֤Ų ( $B@,&#addһΪkeyڶΪvaluekXkPH !.' Sheet2$DG:G7B@   !2%4 !JG17,0q.oAttribute VB_Name = "" '-( У&l Sub :򲢴ӡϢ() Dim rowDataNum%typeValue 'ijһıʶкʽ3:1;2?bsT '(Ĭ0CvalEntity8?: 7,@ֵhR0ow '>_isNullArr(500) As Integer 'Ѽ¼ յā0ÁP sheetCountWorks. 'ʈĿ If H <> 3 Thenm MsgBox "GȷԀٽдˁ@"(1).Protect Password:="1qaz DExit #End IfKUnpH 2).h 3_ Sas(m sgB).Cell]learCotnts 'ؼʱɂ` ,C7cur]= 1 'G A hasError=Fals`hôB/У Ƿ!֣׶r hApplication.ScreenUdpdng sysDifficultyGradeFla0b o϶Ѽδͨ!!cindeofy eOM?,?,-, rnaHRange("A65530").N(xlUp)..@1h/DcW 1:1F(What ]*", After:=[a1], S`DchOrBdAxlBy` s1Dir e2:=xlPreviousKolumtb$1.$IV5ToLeftks T®XQ 2,A8, "FAILURE"aG!7ɹԪֵʼΪ0 ƙ +AP `x isSaveButtonvbOK ฀ʱִEEZ^`Ӱťp¼)ith s:9:IV:61@r ׀ͺ' .["B嬓.Siz161gW  .Horiz@alAlignmgxl:k berForma@tLocal! @"ıu 3Y1ca("ȷQAM ̑Hرexcel" & Chr(1@o& "@ʧ3!Can0*ܰʾ") # 1# r!_h_h[h=3 hKTaBbwlorI`OxA -4142}ǩ'Ϊɫ PIstartTitle >+``|yt`3 "ûв@ѧA^`޷1ya> 6 i2 Toqg :eaOnefNa#= `UQ һǿձ YO`_΀?totalMoneyw&e!P. "? "miijspsieHr@Ч15/InE ' ǰQC0??9dsydԱQ}-j 1,g=9(1, j).һ֞յ_is = $жforѭ! olFuncXQSV S5Zw <> p&QZ ' 1/#= S0t(+o-o'S14-3:25 $rowType = Split(t0Value, ":") 'ʽ3ȡıʶв кź͹'If UBound(bs) <> 0 Then 'ҪּϵУ飨Ĭ x͵Զr 'HFPor mLa+ 1 Tol'+1ΪеԪa@valE`ntityrT(|m)roRow"%(0e3;{@i)E,'@>kGA1b;BľֵRnR)Q'gx? callFunctionXQStart `(n`1, Pi, jsidateCt#ֵöӦķ #uWorksheets(1).Cells()_ _ #'!ȥַ? (removeSpecial@>Character(_$f+g ,`leMsg5sKTitl@jAбͷ9A)error"" & i`("AjA F& "څ@^ , ; '"" ? ո س뷨Ϊa뀼飡"_ hasE `Tr1'!sʱxϢoT8.InP+ior.Colv= 65535 'ɫwriteLog uO'iLO= p_End If /Next5 _ m ss= False2ooV4T0_S~~~ }}} RkBzzz;s= zzozʕzȡzzzzzzzzz zzд Ϣ JWorksheets(1).Cells(i, j).Interior.Color = 65535 'ӻɫMwriteLog er@rorMsgM`'isValidateCountk+ 1:End If 3)Next&Els@eIf UBDd(rowType) <> 0 Then '3:252#tRow^(0) 'ԶԸ{@Ci(C+A(еڵǎ;jval`Splitcs, ";"N%ľֵ) yjF}nLA) ToC' б+callFunctionXQStart `(n), 1, Ay'$4öӦķx+u>e %v__#' !ȥ? (removeSpeciBPCharac`()#m+m (title5sLTaa 'ȡбͷ)%"" &D i`"AjAA& & "E ^ , ; '!["" ? س뷀ΪȫU"_ _ 0hasE{P Tr1'УʱS_8_ ߍ 'ֻĬBq)Í140pPp.9szbs1ez!1Dħr//xxxvv% ?bc::// rrKk= rr rrrOrrrsgtrrrr_ ?rr2@Ϣ JWorksheets(1).Cells(i, j).Interior.Color = 65535 'ӻ MwriteLog errorMsgM`'isValidateCount#k+ 1:En@d If +)Next! ׆@LockedOF0alse_*3 j 'ִ һǿУ ĵԪΪϹĿIf atLeaOneNull~<> 0 Ah = ThenEa@I"" & i"Ё,MEA?Ё?дȷ`"has = True ')ʱд_?% sKn+ 5EMtotalMoneySLum1+  'ÿһкϼ@4ֵicO> 1 II '!2ؼֶȫɾ&_isAWRo wArr(Num) !i r E ) `'yeO-%Vi FpcFua  - -.To  fSCmsg"Name$).s(x). Deletpܸ_9/p" =OhEInu3 )?; rq 0 i/@!1 '%Ч  rowData,/4q)@?T_cd"A,1,)'#oROs- q qURtK!zw ; Box "˴AnRRwJ& xݣ֤ʧܼҴ:Ϊwvnp 2 y鿴"EQ`+TabӻIndex016MMS(c%0SP0/#checkdXQNew Not 3(0n ظ,asûD0,Ƿrf`ͨ! -4142csetTu@eXQ 2,!8, "SUCCESS" '! ɹ־ֵʼ໯Ϊ0 g(o(o(o(o(o(^7Protect Password:="1qaz2).3 Sub 8 '-!/cijһ-, Sub checkTheSame() Dim myDic As Ob ject, Key VariantPH, va rData 'rna = ActiveSheet.Range("A65535").End(xlUp).Row ' b Set idNum= Create("Scripting.tionary"=b I@O8", "O" & R).value 'ȡӀF݃GFor Each carK In#O4'ԁ ֤ @б$  If"<> "4" nNo~.Exists (<) 'ԆGA.AddE, Null 'addһΐkey?Ch,INexƒ Cmyj=.sWith WorksAsp2GmG:G@ClearContent41@Resize(B.Count)Appl(ica.FFunon.Transpos 'D4'*= a2h@ @ 0m~xME(6 <<< `X In xIN IP `R ``( I @ ` I I @ `h I @ 0`  I @ +@` ii`H`2H``` `  I @ ``(  I @ `  I @  `H I @ 0 ` I I @  ` I @ P ` I @  ` I @ p `8  I @  ` I @ @  `p IB  I  DH `  IB ( I   `  IB  I  x `8 I X I   ` I  I   `h I  I  @` //I  I  `  I @ H`(  I  `  I @ h`0  I @ `  I @ `P ##I pIN I ` ` `f````@ ` @ ` @ ` @ `X --I xI  p` I ```@  ` I I @  `x I I ` p P` @H  x p 0@ h0H%@ !! 2)[$*\Rffff*0D5c7c0747G  B       (  B     Hp  x B  &H( 08@HP XB     Dx B 0@HPX` nh  B  , $H p  H       " H h   "   4 ( 0   B   4 0 @ H P X ` h  0 B H P X x      0 PB hp6x | h B 0 x  B    (08Xhpx x  (B @HPp | ( HB `h$p | P pB f (0 |8  B (08@H P  B  (:0p     B       ( 0 .B    08@HP X .B (0@ P`hpx B 0 8&HpxD4  (Hhpx B  8 @&Px  ( "  D(4p      ( B         ! ! "(!P! X! <`!!! !! !B p"  x"" "&"""""  "D#X# p#x# # #"# ## $# "$ 0$ @$ H$ P$p$$$$$ $>$ %40% h% p%x% %% % & 8&B P&X&`&x&&&&&& & @' `'B x'' ' ''' ' @( `(B x(( ((((((( ( x) )B )))))))** * * *B ***+ +(+0+8+@+ H+ + ,B 0, &8, $`, , ,&,*,"-$8-`-(----.. . 8. 2P.."...  ./(/8@/x// /B 80@0X0 `0&p00$000000 0 1" 1 H1P1 $X1 "1 1 1 1 1112$(2P2X2`2h2 p2>2 242 3$03 X3 `3 h3p3 x33 3B  4(40484@4H44 55 5(505@5H5P5X5`5 h5 5 6B (606 H6 P6X6`6h666 66666 7(70787@7 H7 X7h7p7x77 7 8 08B H8P8&h8 8 8888-----------------------------------------1 ,дϢʾ Ϣsheet--------------------------------------- ʱ0 Ϊʱ1 Ԫ] N P n$D%V'R R'd'ki-----------------------------------------2 Уѧ ҪΪ-------------------------------------------------------------ʽȷfalseʽȷtrue $F'zk]H%^([\u2E80-\uFE4Fo]|[a-zA-Z]){1,20}$'3޸ģУƧֹ%^([\u2E80-\uFE4Fo]|[a-zA-Z]){1,20}$'3޸ģУƧ  $'d'ki-----------------------------------------2 Уѧ ҪΪ-------------------------------------------------------------ʽȷfalseʽȷtrue` ,$''$/ΪDZ'zk]  $'d'ki|-----------------------------------------3 УڸʽΪ2012-05-09(Ϊ)--------------------------------------- $F'z8k0]reg = "^((19)|(20))\d{2}-((((0?[13578])|(1[02]))-((0?[1-9])|([12][0-9])|(3[01])))|(((0?[469])|(11))-((0?[1-9])|([12][0-9])|(30)))|((0?2)-((0?[1-9])|([12][0-9]))))$"reg = "^((19)|(20))\d{2}-((((0[13578])|(1[02]))-((0[1-9])|([12][0-9])|(3[01])))|(((0[469])|(11))-((0[1-9])|([12][0-9])|(30)))|((02)-((0[1-9])|([12][0-9]))))$";^(19|20)\d{2}-(1[0-2]|0?[1-9])-(0?[1-9]|[1-2][0-9]|3[0-1])$'  $'dh'kXiP|-----------------------------------------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]))))$'  $'d8'k(i h-----------------------------------------4 У֤---------------------------------------Ϲ򷵻trueϹ򷵻false0]790584216379058420Ȩ] 10X987654320У $F' ȥո](   6)׶֤Ϊ,ΪͨУ'zk Gzj $$Gzj *[0-9X]Gzj   $' G 'j   $  '  ' $ 2  $G'jiXz-----------------------------------------У֤ -------------------------------------------------------------ʽȷfalseʽȷtrue@],^[\u4e00-\ue863a-z|A-Z|0-9|()|]{1,18}$'  $'d8'k(i ----------------------------------------5 -УѧУѧУʶ 42λһλΪֻx-------------------------------------------------------------ʽȷfalseʽȷtrue]H^[1-9]\d{40}[\dx]$'  $'d'kiz----------------------------------------6 -У黧 -------------------------------------------------------------ʽȷfalseʽȷtrue`].^(\u519c\u6751)|(\u53bf\u9547)|(\u57ce\u5e02)$'  $'d'kiu-----------------------------------------7 Уѧʱ-------------------------------------------------------------ʽȷfalseʽȷtrue]h'^(((19)|(20))\d{2})((0[0-9])|(1[0-2]))$'  $'d'kiq-----------------------------------------7 У-------------------------------------------------------------ʽȷfalseʽȷtrue  ,ΪDZ'd'kzk]^((19\d{2})|(2\d{3}))$'  $'d'kixq-----------------------------------------7 У·-------------------------------------------------------------ʽȷfalseʽȷtrue0]^((0[0-9])|(1[0-2]))$'  $'dx 'kh i` v-----------------------------------------9 Уѧ-------------------------------------------------------------ʽȷfalseʽȷtrue]8^\d{4}[0-7]\d{3}[0-3]\d{7}$'  $'dP 'k@ i8 v-----------------------------------------10 У绰-------------------------------------------------------------ʽȷfalseʽȷtrueP]^\b((1(([38]\d)|(4[57])|(5[0-35-9]))\d{8})|(0((10)|(2[\d]))-[2-9]\d*)|(0[3-9]\d{2}-[2-9]\d*))\b'  $'d 'k i v-----------------------------------------11 Уп-------------------------------------------------------------ʽȷfalseʽȷtrue]X ^[1-9]\d{14,20}$'  $'d 'k i -----------------------------------------checkXn Уѧ磨2012-2013-------------------------------------------------------------ʽȷfalseʽȷtruep ] ] 1^(20\d{2}-20\d{2})|(19\d{2}-19\d{2})|(1999-2000)$'  $ -$'$$ 'd@'k0d('ki-----------------------------------------checkOption У鱸ע磨Сvalue2-------------------------------------------------------------ȲС200false 򷵻true B'zk B  'd'ki------------------------------------------------------ȽϴС(Сڵڷtrue)----------------------------------------------------------------'value1value2false 򷵻true BX'B X' B  'Dd'Dki------------------------------------------------------ȽϴС(Сڵڷtrue)-dec---------------------------------------------------------------'value1value2false 򷵻trueH B$4'B $4' B  'd'ki}------------------------------------------------------У鳤--------------------------------------------------------------- ,$'' $/ΪDZ'kzkx ,-±0ʼֵΪָάõ± $$4 $$4'zkd ˵У̶ $$4'zkkix}------------------------------------------------------У---------------------------------------------------------------x ,$'' $/ΪDZ'kzxkp $& ΪzH .e+Сz $4e% С0zk ,-±0ʼֵΪָάõ± $$4 $$4'zPkHd ˵У̶ $$4'z k k i ------------------------------------------------------УֵΧ--------------------------------------------------------------- ,$'' 'z k $) Ϊz $4e) С0zk $4$$4 $4$$4'zXkPiH------------------------------------------------------Уֳ(Number,ΪҲΪСС0)--------------------------------------------------------------- ,$'' $/ΪDZ'k(z kֲɼӷ<^(([1-9][0-9]*)|(([0]\.\d{1,2}|[1-9][0-9]*\.\d{1,2}))|0{1})$'  $zk $% Ϊz` $4 e$ С0z0k($'+󳤶$'.Сλ .''' "˵ûС $4' $$4'zXkPd С  . $'DԪֵλ  . $' $$4 $$4'zkkix-----------------------------------------checkIsInt У鲻С0-------------------------------------------------------------ʽȷfalseʽȷtrue@] ^0|[1-9]\d*$'  $'dp'k`iX-----------------------------------------checkIsNumber УΪNumber-------------------------------------------------------------ʽȷfalseʽȷtrue' $'k`iX-----------------------------------------checkMoney У0-9999-------------------------------------------------------------ʽȷfalseʽȷtrueH]^(([1-9](\d{0,3})|0)|0)$'  $'d@'k0i(-----------------------------------------checkMoneyTJ У0-9999Сһλ-------------------------------------------------------------ʽȷfalseʽȷtrue]P^([1-9]\d{0,7})$'  $'d'ki-----------------------------------------checkPersonNum У׶԰һ------------------------------------------------------------ʽȷfalseʽȷtrueh]^(([1-9]\d{0,3}))$'  $'d'ki-----------------------------------------checkIdNumLink У֤ԱͳûдǷһ------------------------------------------------------------ʽȷfalseʽȷtrue If colIndex = jhrIDColumn Then checkIdNumLink = True Exit Function End If]%Ա֤ǷӦ]$ں֤ǷӦ]ڵһγֵ±]"Ա,Ԫ֮ڵ]$ݺŽȡ](!,Ԫ֮ڵ]@"ݺŽȡ]Xp#]%·]] $' $'  (ڶλΪΪ N  r$\,VdڶλΪżΪŮŮ N  r$\,Vk $' $' $' -  -  N  r$\,V'i------------------------------------------------------Уֳ(Number,ΪҲΪСС0)--------------------------------------------------------------- ,$'' $/ΪDZ checkLen0,1,33A@Z'k(k zk $% Ϊz $4 e$ С0zk$'+󳤶$'.Сλ .''' "˵ûС $4' $$4 checkLen1,1,33A@Z'kzkd С  . $'DԪֵλ  . $' $$4 $$4 checkLen1,1,33A@Z'k z k k i -----------------------------------------3 УڸʽΪ2012-05-09δʱ(Ϊ)---------------------------------------]](]@]X^((19)|(20))\d{2}((((0[13578])|(1[02]))((0[1-9])|([12][0-9])|(3[01])))|(((0[469])|(11))((0[1-9])|([12][0-9])|(30)))|((02)((0[1-9])|([12][0-9]))))$' yyyymmdd$'   'z k  $'d 'k i -----------------------------------------2 У ҪΪĸ-------------------------------------------------------------ʽȷfalseʽȷtruep $F'z k ]^[a-jA-J]{1,10}$'  $' '   $ $' &   $ &$'  ''z k  & d 'k i -----------------------------------------2 Уѧ ҪΪ-------------------------------------------------------------ʽȷfalseʽȷtrue  ,$'$'ΪDZ'zhk`iXH -Attribute VB_Name = "У麯" '-%1 ,дϢ ʾ sh`eet$ʱ0! Ϊ1 Function checkRequired(bIndex, row coluDmn ) 'ԪDim cellValu@e As Sng= Work5s8).C s(;If2" Then0K gFalseE{Trund If E-2"ѧ ҪΪ8& !ʽȷuf7'At1wStu(vg@p@QTrim?"Q0DR7 Exit H}D MO_reà ^([\u2E80-\uFE4Fo]|[a-zA-Z]){1,20}$" 'ģԁAUƧփ[@2C*A"(, 9L{3{R=5G=|%9Bq>-B@BgB, fArgsd|8Arr6Split(, ","h"-a F6%C8l (0)07 'Ϊǣa :!e_U TTTT&oSO+_SH3$ak!Ϊ2012-05-09(:); -BirthdayfA?CoJ ;;' "^((19)|(20))\d{2}-(0?[13578] 1[02])&)-9a[12][03[0&1((46y11/'0 ?2s)))$?@ p[1 [| |(3e S /H 19|-2]|- ||` >-!\uer)\ckX!/3 #~]//o3n3o3o3c3Necessar3?K /-#-""+"*,O "'x"gzr2]w0;y (hRos4P֤<ϹCy8'ID% IsIDNumber(By W, pB)Boolea Const W'qP79058428163P'Ȩswc10X98765432CA31{& = _)ȥո!-sInteger, iT0%v= babyIDC A>aSC׶:,ͨA 1_hɰ! Len(<>8 18Îp N ot eric(Mid, 1 7)Q f5Like "*YAfX]_ For= 1 To 17CqTqWě]111sps( + ; i! * TNexts Mod 1Rightc, T3pcC@:> ~ -9 'ʽfalse*&tru$Function checkSFZJLX(val@ue) Dim reg  = "^[\u4e00-\ue863a-z|A-Z|0-9|()|]{1,18}$"9IfECdr(I, g Then%p5TR EaFo End If n|%5!-Уѧʶ 42λһλΪֻx9-˰chCodek1-9]\d{40}[\dx~]5e^e eV6dFamTyp`](\u519c\u6751)|3bf\u95477cee02)tdd=2G?2_Y$7 dȀѧʱ8_`RXDatr1NowNecessary#A%(((19020)) c2})((0[]12])2e)?22+$d2<811YeDar, fDArgsArr¾#""'| 0 'ΪDZƅ?a'))iH3diaExit EA "^QP|(23}'ysbz_Qsk'_sO"'''؏@ckMonthpO>O>ck%S @_91WppO(XJH,4}T7337O/A-@/#?10cn఺OPho`neNum?<\bD(([38l4[57m5`L35Pn8}050p2 n-[J2B*[3{2}g)\b22 x_11п2OBank 3[t14,20_2_2_2ck4oo:nIAѧ瀣2012-@3_pXn_Uxys20K/st019t99 00c_\2ASplit ,0 "-"],If years (1) -0) = 1 Then checkXntTruelEls`RFa 8End I>ft l2.Fu nctio'-3%TOp6У鱸עСvalue2&) ''(200f|'Ztb L(тA1, E)Ѓ""9u= ЅExit HgLen() >D)"A # όA2ӅaqȽ С(ol)G $CoŚ ՆompareׅpCIntf22HGsc x~7̃Jxſ--X5dec:35C 'y$Dec6 C(26?6(06 d6#6$_,1AA:.&, faArgsH+Arr"Split(, ","h@ (Eg v` ("0B 'ΪDZ22 2`UBound 2 ±0ʼֵΪάõ ! 7p&c=/1)X) A@B<s (2x8 oq^]1l '˵.̶A./" n [ϗ: @o@ &@@o Z@0.@@b++R@@ Not IsNum(erik)8JΪ>, InStrcp0.") <> OСoO 6`Wsm= 0 -p?P!8?P?P?PRkr@pM>o?f??P$?P|O$]?P?PI?P3P_2  ?P?PI1Pֵ>}PVale7"ntLqPt(functionArgs, ",") checkVal = FalsedIf valued"" Then6zTrux@Exit F?End If OoNot IsNu@meric(})y 'Ϊ 7jf-CDe!(<= 0+Сx0))^ 1> =  Arr(0)) AG1kN bbGh'-2f(pber,ΪҲСhB\)sF : E- B@, I]v fSpli` p  ΪDZG*Br: Ta4A-q'#;@ӷGreg"^(([@1-9][0*)|0]\.\d{1,2}|h))|0{1}x)$" # C끒;(,Ðf ?,U&0/bmaxIn0tLen@+E1) 'j8mK"Double2pλ"i"gthInStrEj".@ìdou4 1) _˵#+b" /s (E) _ ~n4=JPtEJ Mid31, 5 - EԪ֒Y#λ_ h+ppspmpq2p^ ]R!5qhet&k Is> stqC? 'ȷpfR5t? 3tC%4Diu`E˵ûГ r@`(%) <= B}).3p?2s?22 2123?/%->o*uE n'LB% - '%$!8.λߟ!%+J  S!Then AcheckNecessaryAuFalseExit FunctioEnd If-C#J(,6) 4 5Tru4E9K@M '-%2> У ҪΪ8ĸ& !ʽȷfCS'At=E.C;Sqly(i, anVPTrim)A" T0Um8oOmCsA^[a-jA-J]{1,10}Ez%xsLen4C i1 T(o snMid(LCaseD , i, 1 Bj i +  T mRjG W  m)(a 1 )) Next jbic[6E ZZQZѧZ֑U$Z ]ZBZSM#8, fArgsG9PArr-S`plit(,Oa Q(0ad0: 'DZ#0aB= gS&  X( h *0 `j& 0@PXx `   H((xp H(0 H(p H( h &p  n HXp x 8( 8( x &  n Xp  8( 8(  &  b h &X  ,    f X! x!!! ! 8!(! 8"(" x# &# #### f# P$(h$ $ T$ &$ %0%8% $P% &x%$|%$& &$ H&$X& h&p& x& &$t&$&'$ 0' @' $H'P' X'x' ^' '"' (@((&h( (( (((( b( `)p)) t) &* 8* H*P*p* bx* * ++(+0+&+ + ++, , ^(, , ,,,X,&8- `-p-x-- ^- .  .0.@.XH.&. . .../ ^/ p/ ///T/&0 @0 P0X0`00 n0 0 101"@1h1&1 2 0282@2`2 jh2 2 23"(3P3&3 4(404P4 nX4 4 45"5@5&5 5 66(6 P066666&@7 h7 x7777 R78 888X@8&8 8 8889 b9 p9$99@9&9 :0:$8:`:h:: ^: :";0;@8;&x; ;;";;;< ^< p<&< <@<&< =0=&8=`=h== |= >$(>P>(X>@>&> > >"?(?0?P? |X? ? ?@@@&X@ @@ @@@@  j@ XApAA AFAA@A0B&8B `BpB0xBBBB pBHC(`C CCCCC CC C DD(D@DHDXDpDDDTD&D E 0E8EXE t`E E$EF@ F&`F FF$FFFF NFHG.`GGGGG GG&pH H HHHH dH HI `I@I&I II2J8J x@J J6J.K@KPK( XK2hK( xK1K( K2K( K1KKKJKHL`LhLpLxL fLB L L<L8M XMpM$M$MMM M \N B N,O 0HO@xO"O ^O 6@PxPPPP0PH QhQQQQQQ Q "PR xR .RB R R$RBS PS `S pS S S SSS S HT `T xT TB T"T TTU UUU U8@UxU2UU U UV VV V(V FHVVV V V *VV V W WB WW*W 4XPX pXXB XX XY Y Y YB Y*Y Z (ZB Z^Z vZ [ [B [ [ "[ \8 \2X\\ \\ \\ \ \]" ]0H] x](]]]&]] ^^ ^B ^^V^(_ 8H_ _ _:_4_$(`P`"h```` `B 8a@a6Haaaaaaaa-----------------------------------------УУдϢʾ ע----------------------------------------------------------- Ԫ] N P T%V'R R'Ld('Lki--------------------------------------------д־ ¼ϢʾһϢ-------------------------------------------- Z ` ^$\,V ` '`iX--------------------------------------------д־ ¼ϢúɫʾϢ--------------------------------------------( Z'd Z ` ^$\,V d ` ^$\%V%f!h(j ` '`ipi--------------------------------------------עʼУ飩-------------------------------------errorInfoע 1Worksheets(sheetIndex).Unprotect Password:="1qaz" p N P n$D%VB@r N P n$D%V!t(vW ӻɫ N P n$D%V!x(Fii--------------------------------------------ɾעʼУ飩-------------------------------------x1Worksheets(sheetIndex).Unprotect Password:="1qaz" N P n$D%VB@| N ~ P  N P n$D%V!t(jd`  N P n$D%V!t(jk0i(------------------------------------------------------ ȡָcellֵ-------------------------------------------------------------0 N  n$D%V!'ihr---------------------------------------------ʼУ Ƿӻɾעõķ----------------------------  Уʧ N P n$D%V!xd жעΪ n N P A@lV עd"Ϊգȥǰע n N PA@zN ע n N P A@lk1 MsgBox "" & rowIndex & "" & errorMsgd :УɹжǷעУʧʱעȥ n N PA@z ,#ȥո,ʾ NУ PУַ"$4 "$4"а˿ոϵͳԶΪA@Xd`kXkPiH----------------------------------------------------------------------------------------------------------------------------------y--------------------------------------------ݱʶöӦķ(ʼУ)-----------------------------------------------------------------------------------------------------------------------------------------------------------------------ѴϢдб N P n$D%V''  P n$D%V'Iȡбͷ Ϊϲеıͷ  P n$D%V' N e  P n$D%V'k0'  checkLen*)ΪУ  $'checkLen'  checkNum*e-ΪNumberУ  $'checkNum'  checkNLen*e.ΪNumberУ  $' checkNLen'  checkVal*e-ΪֵУ  $'checkVal'  checkInt*e-ΪֵУ  $'checkInt'  checkTerm1e-"ǡ"Ϊ1' checkTerm'  checkYesNo1e/"ǡ"Ϊ1' checkYesNo' checkDiffName1e2ѼΪ1' checkDiffName' checkDiffCode1e2ѼΪ1' checkDiffCode'  checkSQLYe-Ϊ1' checkSQLY' checkIDCardType1e4֤Ϊ1'checkIDCardType' checkSqyyName1e2ԭΪ1' checkSqyyName'  checkYear1e. У1' checkYear'  checkXXSHZT1e0ѧУ״̬У1' checkXXSHZT'k _=================================1 ִеķǿУ==========================================ѴϢдб checkNullKT n N P$'  N е Ϊգ'')УʱдϢ A@XRMsgBox "" & rgold.Row & "е" & Chr(10) & titleMsg & "Ϊգ"kx n  N P A@'a=================================2 ִѧУ========================================== checkNameKT n N PA@@ȥոķ N P n$D%V!' $'  N е ;дȷΪ֣ȴ1ܳ20ַ''%УʱдϢ A@X  'k n  N P A@'Z================================= ִеijУ==========================================checkLenKT  $'  ,$'$ ` ΪDZΪ̶ȹ N е .дȷΪաд򳤶ȱΪ$ λ'$ ed ΪDZΪȷΧ N е 4дȷΪաд򳤶ȱڵ$ λҲ$ λ'$ ed ΪDZΪ̶ȹ N е &дȷΪգҳȱΪ$ λ'$ ed ΪDZΪȷΧ N е ,дȷΪգҳȱڵ$ λҲ$ λ'k '0УʱдϢ A@XkP n  N P A@'h================================= ִеijУ飨Numberͣ==========================================checkNumKT  $'  ,$'$@ ΪDZΪ̶ȹ N е KдȷΪգдΪ֣ڵ0λȲ$λСλ$ λ'$eD ΪDZΪ̶ȹ N е CдȷΪգұΪ֣ڵ0λȲ$λСλ$ λ'k'0УʱдϢ A@Xk@ n  N P A@'h================================= ִеijУ飨Numberͣ========================================== checkNLenKT  $'  ,$'$@ ΪDZΪ̶ȹ N е KдȷΪգдΪ֣ڵ0λȲ$λСλ$ λ'$eD ΪDZΪ̶ȹ N е CдȷΪգұΪ֣ڵ0λȲ$λСλ$ λ'kh'0УʱдϢ A@Xk( n  N P A@'[=================================ִֵΧУ==========================================ѴϢдбcheckValKT  $'  ,$' N е $дȷΪ֣ڵ$ Ҳ$''-УʱдϢ A@X& isValidateCount = isValidateCount + 1k8 n  N P A@'_=================================ִеΪֵУ==========================================ѴϢдбcheckIntKT  $'  ,$'$@ ΪDZΪ̶ȹ N е 8дȷΪգдΪڵ$ҳȲ$ λ'$eD ΪDZΪ̶ȹ N е 0дȷΪգұΪڵ$ҳȲ$ λ'k"'0УʱдϢ A@Xk@" n  N P A@'`================================= ִе֤У========================================== checkSfzjhKT n N$'S ȡд  N е &дȷ֤Ϊգ''0УʱдϢ A@Xd  ֤  P$'O ֤У :֤У N е MдȷΪѧ֤ţһλΪĸXıд''4УʱдϢ A@X  'kd $'  N е EдȷΪգҳȱڵ1λҲ18λ''4УʱдϢ A@Xkkk n  N P A@'X================================= ִ֤У================================== checkZjlxKT checkZjlx 1$'  N е дȷ''(УʱдϢ A@XdX checkZjlx n N PA@k0 n  N P A@'\================================= ִѧŵУ==========================================checkXJHKT 1, 1, 50$'  N е EдȷΪգҳȱڵ1λҲ50λ''0УʱдϢ A@Xk n  N P A@'[=================================ִпУ==========================================ѴϢдб checkBankKT $'  N е $дȷΪ֣ڵ$ Ҳ$''-УʱдϢ A@Xk n  N P A@'W=================================ִУ==========================================ѴϢдб checkYearKT  $'  N е *дȷʽ20122002ȣ''-УʱдϢ A@Xk n  N P A@'W=================================ִѧУ==========================================ѴϢдбcheckXnKT $'  N е )дȷʽ2012-2013ȣ''-УʱдϢ A@Xk n  N P A@'W=================================ִ·У==========================================ѴϢдб checkMonthKT $'  N е &дȷʽ0112ȣ''-УʱдϢ A@Xk n  N P A@'g=================================3 ִеУ(DZ)==========================================ѴϢдб checkDateKT $' 2Уʧ N е дȷдʽΪ"$4 xxxx-xx-xx"$4 2013-02-21''-УʱдϢ A@Xk n  N P A@'c=================================ִеУ飨==========================================ѴϢдбcheckDateNecessaryKT& $' 2Уʧ N е дȷдʽΪ"$4xxxxxxxx"$4- 20131221ֻϵͳʱ֮ǰ''-УʱдϢ A@Xk n  N P A@'g=================================ִеijУ飨==========================================ѴϢдб checkBirthdayKT! $' 2Уʧ N е дȷдʽΪ"$4xxxxxxxx"$4 20131221''-УʱдϢ A@Xk n  N P A@'J=================================10 У绰====================== checkPhoneKT $'  N е дȷдʽΪ"$4-̶绰 ֻ"$4 ''%УʱдϢ A@Xkx n  N P A@'L=================================checkOption У鱸ע ====================== checkOptionKT B$'  N е )дȷȲܳ200ַ''%УʱдϢ A@Xk n  N P A@'\================================= ִ϶ѼУ================================== checkDiffNameKT checkDiffName  $'  N е дȷ''(УʱдϢ A@Xd checkDiffName n N PA@k n  N P A@'X================================= ִѧУ״̬У================================== checkXXSHZTKT checkXXSHZT  $'  N е дȷ''(УʱдϢ A@XdH checkXXSHZT n N PA@k n  N P A@'X================================= ִ֤У==================================checkIDCardTypeKTcheckIDCardType  $'  N е дȷ''(УʱдϢ A@XdcheckIDCardType n N PA@k n  N P A@'v=================================14 checkGender ִǷΪСŮУ--================================== checkGenderKT checkGender 1$' '-ԱдУ֤Ź N е дȷ''(УʱдϢ A@Xd checkGender n N PA@k n  N P A@'u=================================14 checkYesNo ִǷΪǡУ--================================== checkYesNoKT checkYesNo  $'  N е дȷ''(УʱдϢ A@Xdh checkYesNo n N PA@k@ n  N P A@'d=================================14 checkSQLY ɵУ--================================== checkSQLYKT  $'   N е дظ¼룡'd N е дȷ'k'(УʱдϢ A@Xd checkSQLY n N PA@R У'kP n  N P A@'i=================================15 checkSqyyName ִбע˵У--================================== checkBZSMKT n N$'L ȡд ''   $ $' h'k  1,1,100'  $'d0,1,100'  $' N n$\,Vkh  N е &дȷ,ַΪ100λ''(УʱдϢ A@Xk n  N P A@'n=================================14 checkSqyyName ִУ--================================== checkSqyyNameKT checkSqyyName  $'  N е дȷ''(УʱдϢ A@Xd`E checkSqyyName n N PA@k0E n  N P A@'G=================================У====================== checkSqyyDescKT N P n$D%V! 1, 1, 60$'dHD 0, 1, 60$'k D  N е VдȷΪʱдȲܳ60ַ''%УʱдϢ A@XkHC n  N P A@']=================================checkTerm ִѧУ--================================== checkTermKT checkTerm  $ N е дȷ''(УʱдϢ A@XkB n checkTerm  $ N P A@'r=================================checkAtLeastOneNNull ִһΪǿ--==================================checkAtLeastOneNNullKT  'A"ִ һǿУ ĵԪĿ $ =Ϲ   ' P KTF   ' KTF   ' KTF   ' KTF   'n @dϹ  'F6ִ һǿУ ĵԪΪϹĿ    'k?'n?i?_--------------------------------------------ʽ-------------------------------------]pVBSCRIPT.REGEXP$ . 7RegExΪʽ (4 ȫֿvba\ת  (.ʽ (5ǷִСд  %'3 ִ. i>-----------------------------------------------------------° Уظ˵Ѿûиʽ------------------------------------------------------------V-----------------------------------------------------------1ѧ׶ڱڲ(sheetѧ׶ A65535 $\%%!'*cna = getTotalColumnCount(sheetIndexValue) ^$\!VB@ 1&ÿУظʱʱѴϢsheet,'`Ϣ¼ʼX==============================ѧ׶ڱڲ==================================0ðÿԪغ֮ǰнбȽ     $ $\%V'" &   & $ $\%V'( " (.ѧͬ˵ظݹ & еݺ͵ ֤ظ!!!!' A@X*ѴϢ'*kh:`:X:iP:-----------------------------------------------------------һ ֵȡֵ------------------------------------------------------------ֵҵֵڵлkeyWord ҵĹؼ'kbn л ֵΪ rowrow',]the find result object .6 :8 >< A1:A65535 n$D%%4.2 2 0row 2!',dx8 2!@',k`8kX8iP8------------------------------------------------------ ִڹУ(Ϊ)-------------------------------------------------------------value value1 cellУ鲻ȷfalseУȷtrue D0˵ΪDZ B$F'z6k6k6]'Jijһļ¼ A65535 N$\%%!'LB' N row$,'H=ȡ  H L  N$\%V  J 'Jd5y5k5  & H H J  & N$\%VX BX LжϹǷcell'y`5kX5 &#ʱcountĿΪùеĿi5------------------------------------------------------ ִɾijһвexcelܱģ-------------------------------------------------------------sheetIndex rowNum к1qazT n$DB@R L n$D%VB@X/ Ѹɾ- Worksheets(sheetIndex).Protect Password:=123i3j--------------------------------------------------------------------------Уʽ˵--------------------8 1qazT n$DB@R  N  n$D%V(i2------------------------------------------------------ ִɾijһвexcelûб-------------------------------------------------------------sheetIndex rowNum к L n$D%VB@X/ Ѹɾi1------------------------------------------------------ ָcellֵ------------------------------------------------------------- 1qazT n$DB@R  N  n$D%V(i0------------------------------------------------------ ݴеֵǰʱѾͨУ飩------------------------------------------------------------- ]X p  N  n$\%V!X 'R'Jijһļ¼ A65535 N$\%%!'LF N row$,'HAȡ  H L  N$\%V  J 'Jd /y/k/  & H H J  & N$\%V!X 'B B RX 1жϹǷcell & N$\%V!'` `X N  b n$\%V(y8.d0. N  b n$\%V(k. &i------------------------------------------------------- ȥcellеĿո------------------------------------------------------------- ]X Ԫ]p  3Blength1ʾcellԭijȣlength2ʾִȥոַ'ĬΪûȥո2 Worksheets(sheetIndex).Unprotect Password:="1qaz" N  n$D%V!'B B'd dGzj*"ԪΪգȥո B 'f%length2Ϊոһγֵλ fַո B $h'B BX N  n$D%V('k`+iX+------------------------------------------------------ ȥַ------------------------------------------------------------- ]-[\uFF00-\uFF06][\uFF09-\uFFFF]|[\s,;'<> "?^]+'  $'jd`*'jkP*iH*@*|Attribute VB_Name = "ߺ"  '-%УдϢʾ &( Function checkedRequiredStart(rowIndex, c olumn )  { 'Ԫ@Dim cellValue As rSng= A;veShePet.Cs6If-" Then*F_Fal4seETrund If < E)[д־ ooһkqmwriteLog(content]iX`s(msgB)[curMsgRow, 1)JCK + 1?D DúɫCE ERedVFnLen7@LZ.Characters(1, ).F7.Colorl=31*SS  ʼG` errafoaddCHommQXQ#s|", ,  0t'Work s().Unprotect Password:="1qazOey.A N( ..Itrior#=<65535 '1૱>%  d/.VisiblĠ_?ɾElearsCk΅"BB ?+0+ 5`&[!*2Recp)Nu8m A:HtffTotal`?um u\4&UE15l lqXOO .ExlNondu(u?%- ȡָȨAֵ?*getBBCountXQXHLKQs.v}w^ Y^ Ƿ2Gu=õpob eginCQ_c^zMetho~d_r _ `NotÜR1 'iʧ ,%+H Is hing!$жOΪܿ/Tn 'j| _AOA9ȥqס$ cWt_ Z '_ aw/ !uA<' "Box "" &V& "B{'tt$ɹf!0гQѕ&ʱߑ rԇq+remo0рpaceFla(!/Q,ʾ:%)j@УַChr(34)KVCt& w"а ϵͳԶΪa%< A ]!q?Lb- '`%0ݱʶöӦķ(ʼУ)",%+'BѴϢдб Functio@n callXQStart(typeVal, sheetIndex, row@columnisidateCount) value = Work$s(').Cells.(*"' isFor,True titlPeMsgs;T  , 5) ' ȡKͷ@GIf "" Then 'Ϊϲıͷ Da/% - 1 &GE8lse"P@:headBe#!eEnd IfBfArgs!"0"J Like "chec kLen*MȁG MidG9& dX%'c(Num, bernm {&N&k310?'ckL'ֵ:aF&& IntAM?9eM- '7M Term1`"ǡ"Ϊ`"1 _ YesNo  2 ? DiffNameѼA?%I ?} xBCod / !O ff kSQLY%/ / \- R %^IDCar dTP`֤ a o(Sqyy&ԭ&"G_ _ ] e? ? kYearZ~/Vf _ _ _ R:ar  kXXSHZT6 ѧУɀ״̬  :6= ̈Select CaseU4'=(1 ִAǿQ ??3 N8ull URMethodXQ`Required2} No r~~~O  d| |$||?+}?z }Numberͣ =}}f } }}F B_FX|U3}}]j}{{@> oQϵϵaw!zĵ{`{{A>0λSg?С_@5 VsQR___ ooooϦyT}rUAOL OVOVOVOV  dOVOVOVOVOVQOVOVA# Case "checkNLepn" 0MethodXQ = f(value, functionArgs)If Not|NThen2 aArrSplit( , ","~K '(0)(0 E 'ΪDZΪW5errorMsg."" & rowIndex"е@ title& "дȷEΪգ Ϊڵ0λTL- x1) ΀С  2 X=Else}Y1YYYȻ܃YҿWWM:End IfahasEATrue '̀УʱH\дϢ writeLog -W@beginC!_comment sheet"c, ,FfolumnäisFoAa '=ִֵΧġ$ E)дaбk$HValh D o*lwF C 1p@a=B?g?gc#f' is >idateCou c=.x+ 1o nckEy?7?763!6Ϊjֵ66`L66Int65 7@7x777`5X>&>"?r(Ì?Oe@(/,s򢏌> 6ϣsT WW dSS[_T P cT֤oRSfzjhRe rresZjlx?getCell`ku3kXQ(5,, 8'ȡ*ݟ)LG""r?4?4?4=4E"._,_,_,_,_,KO # If resZjlx = "֤" Then checkMethodXQIsIDNumber(value, columnIndex) 'У Not  d 'RP0Ter@rorMsgz" & rowQ"еʀ title& "дȷΪmһλSΪX첄"VhasEXVTrue 'xʱ0дϢ#(writ`eLog A isValidateCount#M+ 1End Else_M@SFZJLX)֘IΪգ ҳڀ1λ18@?H!$e>{/?  @beginCa_ comme]sheetB`,f,k isFoBrz '= ִ㌼X́=Case "BetDMB((, d"1"4mk߇>$ ۙset +Cod2, INjLXY_[|-/_c?bO-*B-ѧŵ---XJH-F #-@Len%"1, 50_-6O.߇߇C݇?c?c50?c 1O2o--.j4..O.*[|paBдб//Bank/O/@/<?\ߠ.\om"???;֣-qfunctionArgsArpr(0)12?r(13 000 b/.j'/0//}//?t///+!//]..HYear...E^#ϋ///^/^/^/^ʽ20122002>ύ++óд Ϣ writeLog errorMsg@End If>beginCheck_comment sheetIndex, cMethodXQ , rowolumn ~isFor = Tru e '=ִѧУ,хдбwCase "iXn"uY(value)If Not Then4"" &"е@t0itle@xдȷʽ2012-3ȣ8-phasEA h '^ʱ =F'FdZMonthUWaUU6UUU0112UeUߦc ߦeUδߪckߪߪ3 ځV(DZ)+߬%ȬDate" 'VBirthday?Y5Y 'ʧk Chr(34)x-xx@M  a-01q0[oL0o)[?0o0o_ 0,00v_0\0NecessarVyO1& =N|ow1/XQ"11 1g111o1B3122@1ֻͳʱǰ2 222 22t00000/0O,0R111 1e^0b Cbb00p0>б.00& xcas0a~ ....?[Ov0000000,10 !绰xH-Phone?]Num\  If Not checkMethodXQ T`hen $errorMsg = "" & rowIndex"еʀ6 titleZ& "д ȷʽΪ%Chr(34)@-̶ @ ' "hasETrue 'УʱϢ writeLo,g y' End If beginC_comment sheet, , `olumnFisForw '=|Option Fע  2Case "o_Bƒ=6(value, 66)GȲܳ200#KaL ִ϶3MS==CNDiffName4O0DMB(V, !dQfunc`ArgsR?Sjtr {ߜQ? ElsevBset,Cod(-ɜet AٟrX]ѧУ״̬]k]XXSHZT\\d\3O.O.Xπq~ɀO.lO.||LO.O O.yN.v/.ex/./.'/.ev/.I1,ϋ/.+-".֤/.\6IDCardTyp\s \?pg..\3 F00t0000000* 00!00*_0_0_0G_0_0_07_0_0O,14P)GeP6rqǷΪСŮ2--o`t3o`P KðR 11"1"///GU)IdNumsԱC744444 444*4go 6q6F555 G beginCheck_comment sheetIndex, cdMethodXQ, rowA`olumnerrorMsg  isFor = TrueBd'=14>zYesNo ִǷΪǡР--R= @Case "1" 8aDMB( , value, functionArgs)(If Not ThenB?"" &"е titleŁ дȷ shasEqj 'WʱдϢ*wri@teLog [ElsBsetрXCodKh, R&End If; <%SQLYɵľ! _XQB_Sqly(^a\kg\ca@ 1a'-b bظ¼b [Uss Xww wcwBwBLwx '!Z'u?yv15 #Sqy`yName'ٱע˵wڇ!BZSMֹ@resultdgetCellVaCountXQ(gT8) 'xȡAcv sPLen(#@SPm" Ai0 ?o snpMid(L, i, 1_ "h"Ea (Next iO QNE? ja1p"1,00YmAuZ_MVA20IgA2o&S%sh)).1+s()9)q3h !]ȷ,ַΪ100λfYO\OOlO\o )qQ3ϒU(I{A˒/V}d 0Z ' Ϲ a atotal @|+CgSelect tݛ%"baojiaoC:?cSum- huoshi H   zhusu G  others H  ?Oc*?% '23 =pG>6>>>ΪA@OKE%+ F+ " Jb`XoFt-Fo-  reg(}DimaEX As ObjISet= Create("VBSCRIPT.REGEXP")a'RegExઽG EX.GlobalpFn'ȫֿ''vba\תPatte\rn RʽIgnoreB8= Fa`ǷִСx3T8estgGB.hing #$O ° 4ظ˵ѾPûptA 1ѧ׶ڱ -B}pSameXQNew2) 'Sw(naS2).Range("A65535").P(xlUpIow'cgxetT1wM(Vah6msgNP 4.Clea rConts 'ÿ ѕB ,cuRowP 1 'ʼ/ocJ'ðÿԪغ֮ǰнбȽ  For i = startTitle + 2 To rnaL\cardID1`Sheets(s Index2).Cells(i, &ColuXmn)Etjtip - 10~S2zj=$IfPc+Then 'ѧͬظ`L)errorMsgN"" & jA"е  i ֤Ł+@!"0writeLog 4'ѴϢDhas7Same@'True End IfpNextGC Function  '-7һ ֵȡֵ-% ҵ@лЀkeyWord Ĺؼցbn Ϊ row @ GetR0owOrB(B yVal , CD@As String) Integer[ @o-Dim c Object 'the fi8result FoG7Set= kbw).Range("A1:A65535").F (What:=FLook@In:=xl`uPes, !A@xlWhole}mDNoIs h] lgqk !=t "*"!c..K Els[r'I`Eb]?U- ִڹ(Ϊ)8V@value 1 c `'Aȷpfa%et[checkDHMB( , 1, flag<@<`S"0c7 'ΪDZ K,Trim# 1)U>`Exit 798GHfLDatCount 0 '@ijһa(ļ¼c 1Num`DArJ# U}|owP A `|X|2O9 s+Y{_8oMI1e i _p C@T( 3)&,)r 'жaq2Ƿ́q3a 5)^j'ʱc(ĿΪ1;Q ._w/BcHɾ.вexܱģoG1 14кňsdeleteP\h, Ej2@UnprotaoPassw`|:="1qaz$obs(.D p!'r).P123__-ZʽT- 0 set XQ"pol/A)//sp).Nr?ou--û1--o--n -No"Oo-dow)>)/@  ָlֵ>?,etl((U?S2̴1ր̣`ʱ0Ѿͨ~>)?Oon setDMBCode(value, sheetIndex, row$col!$) DimBData, cVcellV& = CStr(Ss(mH).C7s(s.zCountI0 'ijһļ`¼uJN um'lArea pRange("A65535").End(xlUp).Row 'p 'u'GDetOrC(,, X, "@") 'ȡQRFor i).To[cIf bi0, 1)#< Txhen!+ 1Else `Exit ) nd IfNext iA5jN58t+ -(/1 mC'E$ex""GlGj F@unctioW'-0 ȥ#9Ŀո 8  removeSpace=6 B1=pecialCharacter!9regp"[\uFF00R-b6]9FF]|[\s,;'""?^]+s/`CheckAE(#i8 IZ[ "stdole h%^*\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  »ThisWorkbookGU T@ikWmkbok 2 HB1\B,!zL"B+qSheet1*G Se_tn1 u2 S@ H 6 6e 6 6  ӡ@ԤGSbpSȉۢe2jo `m8!(e) @ߺc ]wQQpec ec eo m k G;Xf6"a2fo  o &У!heeo mo ~k !LGbQ;N z^b2o 9o BU2ShowaxG`6\owF3e2row@4nO( l5^5^5^5^)zh^ Pr(intCr0inj2oad>ʘxME(6 <<< B` @%``X)[$*\Rffff*0B5c7c055b"  ( HhxѧϢӡģ$D(FѧϢӡģ$DB@HѧϢӡģ$D(FoAttribute VB_Name = "Ԥ" Sub Browse_Print () Worksheets("ѧϢlģ").VisiblaTrue"d^P@review2cEnd LqnxME(SPSSS0{34237871-91FE-43B1-BA26-A7E935B3A6E9}{2F2A8D88-DE8C-4F59-9FF6-98A10ECBF356}8 8X < %%XX )[ " 0 8"HP Xh xȡ' B@:oHȷX >' B@:^oRAttribute VB_Name = "ShowForm"  Bas|0{34237871-91FE-43B1-BA26-A7E935B3A6E9}{2F2A8D88-DE8C-4F59-9FF6-98A10ECBF356} dGlobaBlSpacoFalse Cre atablPr@edeclaI"dTru BEx0pose0TemplateDerivCustomizD'ȡ` P Sub CancelButton_Click() notContinueBoolT Me.HidZEnd! 'ȷĶ ,onfՏ,9-Fl;/lzV zL#p|ۅN29~\F̂LAEr x̂LAEr |ۅN29~\MEPSLSS6"  `1OOPAA `aOObrU@@@8`brU@@@ xbrU@@@8 ..`AqDZH#p\ȕ&ZMnQ FB,K{L3axB,K{L3a\ȕ&ZMnQME(SLSS6"N0{00020820-0000-0000-C000-000000000046} 0%@p%<%Hx@x8)[$*\Rffff*0>5c7c053a`xAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2rU@@@ xbrU@@@@~xHi aS4Zh#pc5VNKq F>{=@<9}x>{=@<9}c5VNKqME(SLSS6"N0{00020820-0000-0000-C000-000000000046} 0%@p%@%Hx@x8)[$*\Rffff*0@5c7c053a`xAttribute VB_Name = "She@et5" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2Z#pYT@Ɣ FAάAÝPxAάAÝPYT@ƔME(SLSS6"N0{00020820-0000-0000-C000-000000000046} 0.%@p%>%Hx@x8)[$*\Rffff*0A5c7c053a`xAttribute VB_Name = "She@et6" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2rU@@@8 PQ..`AqDID="{00000000-0000-0000-0000-000000000000}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Module=ߺ Module= Module=У麯 Module= Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=ShowForm Module=ӡԤ BaseClass=PrintForm Document=Sheet5/&H00000000 Document=Sheet6/&H00000000 HelpFile="" Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="ADAF01F603A707A707A30BA30B" DPB="5A58F6A9BEC6BEC6413ABFC66E87DEE637ACA4109FF704E04B0B0D16305082D8AA1C7A5121" GC="0705AB1CF564A365A3655C" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=0, 0, 0, 0, C Sheet1=0, 0, 0, 0, C ߺ=104, 104, 1006, 635, =0, 0, 0, 0, C У麯=130, 130, 1032, 661, Z =0, 0, 0, 0, C ShowForm=0, 0, 0, 0, C, 26, 26, 1226, 584, C ӡԤ=78, 78, 980, 609, PrintForm=0, 0, 0, 0, C, 52, 52, 1252, 610, C Sheet5=0, 0, 0, 0, C Sheet6=0, 0, 0, 0, C ThisWorkbookThisWorkbookSheet1Sheet1ߺ]wQQpeXfУ麯!hQpe;N z^ShowFormShowFormӡԤSbpSȉPrintFormPrintFormSheet5Sheet5Sheet6Sheet6 }t  Microsoft Forms 2.0 Embedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} ShowForm Caption = "UserForm1" ClientHeight = 3180 ClientLeft = 45 ClientTop = 375 ClientWidth = 4710 StartUpPosition = 1 ' End ՜.+,0HP X`hp x  Уרƹѧ Ϣ Oh+'0@HT` x yxqMicrosoft Excel@&@=>  !"#$%&'()*+,-./02346789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./013456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXZ[]_`abcdfghijklmnopqrstuvwy{|}  !"#$%&'()*+,-./0123456789:;<=>?@ABCEFGHIJKLMNOPQRSUVWXYZ[\]^_`acdefghijklmnopqrstuvwyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^`abcdefghijkmnopqrstuvwxyz{|}~