ࡱ> 87  !"#$%&'()*+,-./0123456A[:;<=>?@RZCDEFGHJKLMNOPQBSTUVWXY\]a}_`bcwefghijklmopqrstuv^xyz{|~Root Entry FwPh9@Workbooki_VBA_PROJECT_CUR"0fPhVBA k`˷  \p Ba= ThisWorkbook==Kx-8X@"1x[SO1x[SO1x[SO1x[SO1x[SO1x[SO1@x[SO1x[SO1x[SO1x[SO1x[SO1x[SO1x[SO1 x[SO1h8x[SO1,8x[SO18x[SO18x[SO1x[SO1x[SO1x[SO14x[SO1 x[SO1x[SO1 x[SO14x[SO1<x[SO1?x[SO1>x[SO1x[SO1x[SO1 x[SO+""#,##0;""\-#,##05""#,##0;[Red]""\-#,##07""#,##0.00;""\-#,##0.00A""#,##0.00;[Red]""\-#,##0.00i*2_ ""* #,##0_ ;_ ""* \-#,##0_ ;_ ""* "-"_ ;_ @_ .))_ * #,##0_ ;_ * \-#,##0_ ;_ * "-"_ ;_ @_ y,:_ ""* #,##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;\-""#,##05""#,##0;[Red]\-""#,##07""#,##0.00;\-""#,##0.00A""#,##0.00;[Red]\-""#,##0.00e0_-""* #,##0_-;\-""* #,##0_-;_-""* "-"_-;_-@_-,'_-* #,##0_-;\-* #,##0_-;_-* "-"_-;_-@_-u8_-""* #,##0.00_-;\-""* #,##0.00_-;_-""* "-"??_-;_-@_-4/_-* #,##0.00_-;\-* #,##0.00_-;_-* "-"??_-;_-@_- 0.00_ 0_);[Red]\(0\)                                                               P P       a>  ,  *   ff   `  +  )                  1|@ @   1|@ @ 7  |@ @ 7  |@ @   |@ @ 7 1|@ @  1|@ @  1 |@ @  |@ @  |@ @  |@ @   |@ @   1|@ @   p@ @   p@ @    x@ @  "x@ @   x@ @  1 |@ @   |@ @   1|@ @  |@ @   |@ @   x@ @   0@ @   |@ @  8@ @   1|@ @   |@ @ 7  1|@ @ 7 1(|@ @   8@ @   8@ @      @ @   8@ @   8@ @   8@ @   8@ @  !20% - :_eW[r 1!20% - :_eW[r 2!20% - :_eW[r 3!20% - :_eW[r 4!20% - :_eW[r 5!20% - :_eW[r 6!40% - :_eW[r 1!40% - :_eW[r 2!40% - :_eW[r 3!40% - :_eW[r 4!40% - :_eW[r 5!40% - :_eW[r 6!60% - :_eW[r 1!60% - :_eW[r 2!60% - :_eW[r 3!60% - :_eW[r 4! 60% - :_eW[r 5!!60% - :_eW[r 6" #h $h 1 %h 2 &h 3 'h 4(]) 8^ĉ_Sheet1*}Y +Gl;`,- .{/hgUSCQlʑ`F+Vu[eQ\Sheet2fSheet3VV checkData"f^S AA@A@  WsM[_w+Vu^3u`Qf~h 7f[u,gNW,g`Q 7[^Oo` 7f[u@b(W0WaNGbWSl?eOo` 7f[!h~ROo` 7^R 7f[uY T 7NSx 7Qut^g 7'`+R 7?elb 7eQf[MR7bS 7le 7[^NSpe 7kNf[!h 7*NNyr 7d[k 7USN 7pXP[sY 7+VI{~NN 7f[SB\!k 7f[us~[^7bM|:SS 7+V{|Wb| Ty 7[^~0W@W 7?ex 7T|5u݋ 7 l?e~0W@Wl?e蕮?exl?eT|5u݋~RN 7~RUSMO Ty320902198701190070 7320902198701190074 7sN umQ NgV RN 320902198701190071 7320902198701190072 7g]N WGQQgQQg Ile/f/f &T N,V VyrkV {:g^(u :ghꁨRS:ghꁨRS ,{Nf[MO ,gy,gy Nt^~  Nt^~ Vt^~ Nt^~Nt^~  [_wT^Sl:SV~pV ,gNku pXP[sY NOO7b ͑u7b {:g| q_T[^~NmrQOo` eQf[t^^ 7eQf[gN 7f[6R 7 q_T[^~NmrQ gsQOo` t^~ R >2m9#RI+ cc||j}-} 00_ ;_ *}-} 00_ ;_ *}-} 00_ ;_ *}-} 00_ ;_ *}-} 00_ ;_ *}-} 00_ ;_ *}-} 00_ ;_ *}-} 00_ ;_ *}-} 00_ ;_ *}-}  00_ ;_ *}-}  00_ ;_ *}-}  00_ ;_ *}-}  00_ ;_ *}-}  00_ ;_ *}-} 00_ ;_ *}-} 00_ ;_ *}A} 00_ ;_ *ef-#,#}A} 00_ ;_ *ef-#,#}A} 00_ ;_ *ef-#,#}A} 00_ ;_ *ef-#,#}A} 00_ ;_ *ef-#,#}A} 00_ ;_ *ef -#,#}A} 00_ ;_ *L-#,#}A} 00_ ;_ *L-#,#}A} 00_ ;_ *L-#,#}A} 00_ ;_ *L-#,#}A} 00_ ;_ *L-#,#}A} 00_ ;_ *L -#,#}A} 00_ ;_ *23-#,#}A} 00_ ;_ *23-#,#}A} 00_ ;_ *23-#,#}A} 00_ ;_ *23-#,#}A}  00_ ;_ *23-#,#}A}! 00_ ;_ *23 -#,#}-}" 00_ ;_ *}-}# 00_ ;_ *}A}$ 00_ ;_ *-#,#}A}% 00_ ;_ *?-#,#}A}& 00_ ;_ *23-#,#}-}' 00_ ;_ *}A}( 00_ ;_ *-#,#}A}* a00_ ;_ *-#,#}U}+ 00_ ;_ *-#,# ;_ }-}, 00_ ;_ *}-}- 00_ ;_ *}}. }00_ ;_ *-#,# ;_ -"?? _ }}/ 00_ ;_ *-#,#??? ;_ ???-"?? ???_ ???}-}0 00_ ;_ *}-}1 00_ ;_ *}A}2 }00_ ;_ *-#,#}-}3 00_ ;_ *}-}4 00_ ;_ *}A}5 00_ ;_ *-#,#}A}6 00_ ;_ *-#,#}A}7 00_ ;_ *-#,#}A}8 00_ ;_ *-#,#}A}9 00_ ;_ *-#,#}A}: 00_ ;_ * -#,#}A}; e00_ ;_ *-#,#}}< ???00_ ;_ *-#,#??? ;_ ???-"?? ???_ ???}}= ??v00_ ;_ *̙-#,# ;_ -"?? _ }}> 00_ ;_ *-#,# ;_ -"?? _ }-}? 00_ ;_ *}(}@00_ ;_ *}(}A00_ ;_ *}(}B00_ ;_ *}(}C00_ ;_ *}(}D00_ ;_ *}(}E 00_ ;_ *}<}F 00_ ;_ *-#}<}G 00_ ;_ *-#}(}H 00_ ;_ *}<}I 00_ ;_ *-#}(}J 00_ ;_ *}(}K00_ ;_ *}(}L00_ ;_ *}A}M 00_ ;_ *-#,#}-}N 00_ ;_ *}<}O 00_ ;_ *-#}(}P 00_ ;_ *}(}Q 00_ ;_ *}(}R 00_ ;_ *}(}U 00_ ;_ *}(}V 00_ ;_ *}-}W 00_ ;_ *}<}X 00_ ;_ *-#}(}Y 00_ ;_ *}-}Z 00_ ;_ *}(}[ 00_ ;_ *}-}\ 00_ ;_ *}(}]00_ ;_ *}(}^00_ ;_ *}(}_00_ ;_ *}<}` 00_ ;_ *-#}-}d 00_ ;_ *}-}e 00_ ;_ *O20% - :_eW[r 1 ef %O"20% - :_eW[r 2 ef %O&20% - :_eW[r 3 ef %O*20% - :_eW[r 4 ef %O.20% - :_eW[r 5 ef %O220% - :_eW[r 6  ef %O40% - :_eW[r 1 L %O#40% - :_eW[r 2 L湸 %O'40% - :_eW[r 3 L %O+40% - :_eW[r 4 L %O/40% - :_eW[r 5 L %O340% - :_eW[r 6  Lմ %O 60% - :_eW[r 1 23 %O$60% - :_eW[r 2 23ٗ %O(60% - :_eW[r 3 23֚ %O,60% - :_eW[r 4 23 %O060% - :_eW[r 5 23 %O460% - :_eW[r 6  23 %~vRk+h I}%=h 1 I}%O=h 2 I}%?=h 3 I}%23/h 4 I}%5]  %+8^ĉ %5}Y  a%GGl;` %OO'^ '^[0]o{  }% uhgUSCQ@* ! leeQcknxeQle (W NbFh-N NX[(Wvle bvQNIle? fe}veO[e^ge^Oegee\ePe_feNaNeOere&O%feOWee)nKQeؚq\eNlOeT<\eT(KQekTeVeWeofeNeg\KQ\[eb\yes]ePPeΞenekWSe]eSeׂeNlOe~e`enfs|eedberue4leTX TKQeTXTX\eW[eWedOe~>T\eLN\[+RKQe!/Oevte]_eՈVeυeXevQN [^NSpecknxeQNSpeb123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960I cknxeQpencSeQ/fb&T /f&T4 G penceQSeQ/fb&T /f&T ] +VI{~ cknxeQ+VI{~/ N,VVyrkV1G '`+R vMR'`+RS g7ubsY ~7usYVc ?elbeQ cknxeQ?elbs ZQXTVXTOYZQXTW  eQf[MR7bSeQ cknxeQeQf[MR7bS ZQQgWGe f[SB\!keQ cknxeQf[SB\!kS,gyNy(ؚL),{Nf[MO t^~eQcknxeQt^~9SNt^~Nt^~ Nt^~Vt^~Nt^~mQt^~Nt^~1c eQf[gNeQ cknxeQeQf[gN^1234567891011128 eQf[t^^eQ cknxeQeQf[t^^C^@20022003200420052006200720082009201020112012201320148N f[6ReQcknxeQf[6Rf[ 12345675 +V{|W cknxeQ+V{|W]f[-d[?QpXP[sYe6eeQ͑u7bNOO7bS N\~Q7bNO6eeQV~pVYP[sY,gNku1> t^~eQcknxeQt^~f[d Sheet1ggD&<3   `^e  dMbP?_*+%&ffffff?'ffffff?(?)?Mn/ dLetterwidm" d333333?333333?U%%%%%%~ P@ Q$ R" QQQ Q+ U.~ V,@ VV V1 S V0 N3 W5 W8 W;N N@ WA NF N@ NN~ N^@NNNNNN N@!NNNN$~ P@ Q% R( QQQ Q+ U.~ V@  VV  V/ S  V1 N3 W7 W: W<N N@ WB NF N@ NN~ N^@NNNNNN  N@!NNNN$~ P@ Q& R) QQQ Q- U.~ V@  VV  V/ S  V0 W2 N6 N9 W=N N@ WC NF N@ NN~ N^@NNNNNN  N@!NNNN$~ P@ Q' R# QQQ Q, U.~ V@  VV  V1 S  V1 W4 W5 W8 W?N N@ WD NF N@ NN~ N^@NNNNNN  N@!NNNN$~ P @ N* R# NNN N, N.~ N@  NN  V/ N  V1 W4 W5 W: N>N N@ WE NF N@ NN~ N^@NNNNNN  N@!NNNN$XPdddd>@ Sheet2ggD&<3J   h  dMbP?_*+%&ffffff?'ffffff?(?)?Mn/ dLetterwidm" d333333?333333?U>@ Sheet3ggD&<3 ThisWorkbookSheet1Sheet2  Sheet30 !"#$%&'()*+,-./123456789:;<=>?ACEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz|~z#xME (SLSS<N0{00020819-0000-0000-C000-000000000046}8(%HxAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2z#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}8(%HxAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2zZ#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}8(%HxAttribute VB_Name = "She@et2" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2z(#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}8(%HxAttribute VB_Name = "She@et3" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2!jWW1I__SRP_2 @T__SRP_3Bg!jWW2D ells(I, 13) End IfEnd IfʿŮ  $$$B , , $>$<.,d $>.,kkƶȼ $$$B , , $>$<.,d( $>.,kkרҵ $$$B , , $>$<.,d $>.,kkxѧ $$$B , , $>$<.,d $>.,kk꼶 $$$B , , $>$<.,d $>.,kpkh ͥ $$$B , , $>$<.,d $>.,kkƶ $$$B , , $>$<.,dx $>.,kXkPԺϵ $$$B , , $>$<.,d $>.,kkͥϸͨѶַ $$$B , , $>$<.,d` $>.,k@k8ͥ˾ $$$B , , $>$<.,d $>.,kkϸͨѶַ  $$$B , , !$>$<.,d8 !$>.,kk , H ,!D(F (X $@.,F.&d J (!D(F.,F.&k ִн!A@:k`oXP%Attribute VB_Name = "ģ1" Sub checkData() Dim I%, ii As Byte, arr1(), dic1*Object, rngRangL:pq[b1].Resize([a65536].End(3).Row, 37).ValDue6Setk= Createp("scripting.tionary"'54ells(4WMsgBox ("ִпʼ!For IQ4 To UBouJZz( (I, 2)) + 1]If Not( IshX T8hen$> 1 8C C#E GSUnZ(@V, CVA3)H ElspE isidcard(CStrS) <> True=0$ If ^0?/Rnd-2+jJ$1`X:Jw49E l'рGIsEmptyH1ak<`qAd@SF 12f#'ѧǰڽ 6 % 77 7 .D'ͥ˿~ a?AXe 9o  9 ²16aDQ?i=iu g_1000  uAA[P'g'@ d'@yA_ZZpkngWw3 7\A'nAʿŮ 1 ouD4/1^4?1>0nƶȼo b ooo4 boj5oo;g5oo!רҵ/) ///' /*huA/ 16//-ѧoiorooqojr@o1o 1r$l10ے r//D/*x // 18  |υ q20AA{  ƶ If IsEmpty(arr1(I, 20)) ThenNot rngj hiV fSeX= Union(p, Cellsh1))cElse M BAAnd IfE 'ԺϵNc2?2ͥϸͨѶxַC@)Cq \3C3C˾CV5ȂB C6?C61CC3Cc"C3CD+ @;#Next#@ `.Interior.Color = vb8Red` isidcard(CStr<> pTrueng$:"Idic1 d 1Whit h MsgBox ("ִн!"$RE,Sub '|z7xME(<*6 < <@ `P `"$x `& (% ,%0%0N$*\Rffff*09502fa362"&(0$X .  .0`  @ HP X p     (0HP Xh   8@X` hx   " (( 4P  (    (HPhp x   (8X`x     8Hhp     ( 8  P `           ( 0 8 P  h x         ( 0 H P X x             0 H  P  ` x     ]@Xp 2%!4% .%0!6'$scripting.dictionary$8.&Set rng = Cells(4, 3) ִпʼ!A@:  $ $$$& $$+& ,11 $$$& ys $$$& $$+&D $$$& be , $>$<.,ldX $$X $@un , $>$<.,Kkkd $$X $@ , $>$<.,kkd $>., ,.( $$X $@ , $>$<.,k8k0ѧ $$$B , , $>$<.,d $>.,kk ѧǰ $$$B , , $>$<.,dH $>.,k(k  ͥ˿ $$$B , ,  $>$<.,d  $>.,kk²  $$$B , ,  $>$<.,d8  $>.,kkIf IsEmpty(arr1(I, 12)) Then" If Not rng Is Nothing Then. Set rng = Union(rng, Cells(I, 13)) Else" Set rng = CrU~| krU $`n z"xME(6 << <X @`@ 99iN Px R`T`V` PLH% 0N$*\Rffff*0:502fa4369B  L( Jx(8HXhx(8HXhx. (08.X 2* ( 8] `]E strJiaoYan = ("1", "0", "X", "9", "8", "7", "6", "5", "4", "3", "2")C intQuan = (7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2, 1) $1+P0+PX+P9+P8+P7+P6+P5+P4+P3 +P2 +P+R +R< +R+RX +Rn+R$+RK+R+R +R +R +R +R +R+R+R+R+R]]] N N$19 N$'T Ne N$'Td'@zk  T V T  $ $R 'Vp V 'V,getCheckCode = strTemp & strJiaoYan(intTemp) N V$P N$X'@zk'@iAttribute VB_Name = "ģ2" Public Function isidcard(sfID As S@ng) Dim strJiaoYan(0 To 10)NLintQuF7#Integer$'H("1", "0X98765J432"' lG7, 9,, 5, 8, 4, 2, 6, 3, om)&Jh 1 0 2 X 3 9 4 8 5 7 6 6 5 8493tAA8r 7CB9قA10 @5B?8>4<2m;1B:6937M2212131Q313131 4DTempTօ  I JIf Leny815 pThen#"X = Mi~e) &` "19"7dElse 8 Left )3@nFa` 'Ex itEnd IfcFor I'"tr) |- CdX W"+,`+ 1H) *(INext =a Mod 1 'getCheckCoda@b&ID;D o(Ah <@> 龱()-'<'True *F rU~| krU (`a0nrU~| __SRP_4 {T__SRP_5}p!jWW3d__SRP_6 RxrU (`y0(`y0(`y0(`&(!`y 0(I`y0n@b `d__SRP_7V{|1nf_VBA_PROJECTDdir㹫ʽ '(a[i]*W) Mod 11 (i=2,3,4,...,18)=2^(i-1 ú:15΀18λ7뾭9Ϊċ Public Function ID_W18(cID As Sng) On Error GoToDim tmpD@IX_17 IInteger =7= Ipf In@ , "") <> 0 ThenA ,v0ExitF5EnVd@AF.I 12 /17Not IsNum@y c(MidI,p 1))%:]ǰ17λз!M # $NextA!<"11,12,13,14,15,21,22,23,31 ,34,35,36,37,4@1,42,44,45,46,50,51,52,53,54,61,62,63,65,71,82", Left5F928=SV9ʡ|E-B .CValue+7, 4) + "-"'. 2T3,@D?`XthDw  X:b.8еijKJgkrȡkmăC:tԶtrb'i r7+Trima"f;n@15-f?, 6 ,19A0RighB, 9c'Y@T4Le 8ob 17?]Fdgk.λԀ!@hge%.!g*뵝E+qaSuma(A(! kM 28A A( 0 Then% H0Exit EnPd IfF]I1 _17 "f Not IsNumeric(MidJtB&#bTKQR0m8BC(-Excel+`VBA`Win16~`Win32`Mac`VBA6#` VBAProject`stdole``Officeu` ThisWorkbook|` _Evaluate`Sheet1`Sheet2`Sheet3`ģ1c` checkDatae`I``ii]`arr1|D`dic1Ic`rng1M`Range `rngU`b1\`Resize@4`a655369`Row`ValueK` CreateObject`MsgBoxR`Union`Cells`isidcardH`IsEmpty `Interior;`Color2F`vbRedG/`vbWhite^K`ģ2c`sfIDm` strJiaoYanxB`intQuanB`strTempM`intTemp?`Right `ģ3c`ID_W18Y`cIDb~`Erro`tmpDate`cID_17`ID_W17Y` IsNumeric$*` DateValue/`ID_W18thJ`Trim@`Sum`AX`Val`Wi_`ne`IDDateg`IDSex?W`nSexQ`cSex`IIfz`1ur`  M [  0* pHd VBAProject4@j = r 0N J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\syst em32\e2.tlb#OLE Automation`EOffDicEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files\CommonMicrosoft Shared\OFFICE11\MSO.0DLL#M 1q Ob Li`braryKzThisWorkbookGTisWArkboU 2 HB1Bx%,B,!*"B+BB|Sheet1GS@#e@Xt1H2N2J222Z33323(ģ S!jWWR2TO4Ml7!*6E (% oA'' q&- "3 @&% %% `%otN'+ S`$`{|;!$D2UA/ I/ /(h$bK*yrU~~~~~~~~i __SRP_0__SRP_1PROJECTwmPROJECT@@_K    ) A pY !q AYqQai VBAProject ThisWorkbookSheet1Sheet2Sheet3ģ1ģ2ģ31F /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  A0F4C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXEExcel I@0FC:\WINDOWS\system32\stdole2.tlbstdole  QPL-[DR?C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLLOffice q` checkData isidcardID_W18ID_W17ID_W18thWiIDDateIDSex&rU   sfIDcIDnmThisWorkbookThisWorkbookSheet1Sheet1Sheet2Sheet2Sheet3Sheet3ģ1!jWW1ģ2!jWW2ģ3!jWW31{|1ID="{49958607-E6D9-4350-93C4-9C79A30E151B}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Document=Sheet2/&H00000000 Document=Sheet3/&H00000000 Module=ģ1 Module=ģ2 Module=ģ3 Class=1 Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="4644F7B37BBFC5C3C5C3C5C3C5C3" DPB="8C8E3D79C5BEC6BEC6BE" GC="D2D063C7A8C8A8C857" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=154, 203, 1247, 729, C Sheet1=88, 116, 1181, 642, C Sheet2=110, 145, 1203, 671, C Sheet3=132, 174, 1225, 700, C ģ1=22, 29, 1115, 555, C ģ2=44, 58, 1137, 584, C ģ3=66, 87, 1159, 613, C 1=132, 174, 1225, 700, C SummaryInformation(DocumentSummaryInformation8CompObjjOh+'0@HT` x Microsoft Excel@&@U՜.+,0 PXd lt| '  ƶSheet2Sheet3  FMicrosoft Office Excel Biff8Excel.Sheet.89q