ࡱ; } T8\pYQ(u7b Ba= ThisWorkbook= L}8X@"1[SO1[SO1[SO1[SO1[SO1[SO1[SO1Arial1[SO1[SO1h>[SO1,>[SO1>[SO1@[SO1[SO1[SO1[SO1[SO1Arial1Q[SO1[SO1[SO1[SO1[SO1@[SO1 [SO1[SO1 [SO1 [SO1[SO1[SO1[SO1[SO1 [SO1 [SO10[SO1 [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[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 1 2a   3  4ff 5 6 7`   8 9 :  ; . . . . . .    @ @  @ @  ""@ @ @ @ @ @ @ @ !@ @ ""@ @   1 1 1 1@ @ 1 1|7 1|7 1 1@ @ 1 1 1  @ @ @ @ 0@   #1 1 1@ @ $8@ 1 &1|7 1@ @  )1 #1 !1|@  1 1 (1|@ @ 7 1<@ @ *1@  1 ,1@ @ 1 1 1 1 <87 =8 >87 ?8 @87 A8 ||u8x}(} 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}2 }00_)\([$#,##  }}3 00_)\([$???#,##??? ??? ???}(}4 00_)}(}5 00_)}<}6 }00_)\([$}<}9 e00_)\([$}x}: ???00_)???\([$???#,## ??? ???}}; ??v00_)̙\([$#,##  }(}<  00_)}(}= 00_)}<}> 00_)\([$}<}? 00_)\([$}(}@ 00_)}<}A 00_)\([$}<}B 00_) \([$}x}C00_)\([$#,##  }(}E 00_)}(}G 00_)}(}N 00_)}(}O 00_)}(}P 00_)}(}Q 00_)}(}W 00_)}(}Y 00_)}(}Z 00_)}(}^ 00_)}(}_ 00_)}(}a 00_)}(}d 00_)}(}f 00_)}(}j 00_)}(}k 00_)}(}o 00_)}(}q 00_)}(}r 00_)}(}s 00_)}(}t 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^ĉ 4, 8^ĉ_hQVL?e:SRNx-(c  .}Y0}Y  a /Gl;`&Gl;` 0'^1 '^[0] 2{^{ } 3hgUSCQ@wr 26!@wr 2 PM  ?@wr 36%@wr 3 Y  @@wr 4*)@wr 4  A@wr 56-@wr 5 K  B@wr 661@wr 6  F  Clʑ^ lʑ  XTableStyleMedium9PivotStyleLight1683ffff̙̙3f3fff3f3f33333f33333\`K V[VYf[ёDRNR TUSmNxhVOo`VV!  =dc:- KmՋ@b g!hĉRv^SbpSOo`ff87@NF|MOS AA@A@  w1 7 checkDiffNameV[V~+R Ty checkSqyyCode3ut1uxkuNOO checkSqyyName3ut1u Tyf[uY T 77usYel T^S/f Ty{|W checkGender'`+RsY'`+R7u^8^VN,V NVvQNeUSNd[?QpXP[sYQQgNOVuV~pmQNNS>eeg 7sfzjh 7_OSeeg eKNMRveS+TS_e _kXy. 7bzsm 7 pmTotalCount 7b~c T;`Npeb~c T T!k 7checkDateNecessary 7Yl 7$ kXQf[ub~c T;`Npe Y 100 0 300 NSkXQtepe _kXy!% 7. kXQf[ub~c T T!k Y 1 0 3 NSkXQtepe v^N T!kc T(W;`Npev30%KNQ _kXy+% 7# kXQf[u@b z-Nv_Ob~S 7FAILURE 7 4134011306 4134013338 4134010878z9 M:{::-A;o\<{=`>?UA;Di EB 7Fe G H&ccB~-z4nA_)k:~yw T8  uh  dMbP?_*+%{&ffffff?'ffffff?(?)?M.Microsoft Print to PDFP/ 4dXXA4GIS4DINU"$,?]{~SMTJ{084F01FA-E634-4D77-83EE-074817C03581}RESDLLUniresDLLPaperSizeA4OrientationPORTRAITResolutionResOption1ColorModeColor,V4DM p"O4wMH5L*@VDocumentUserPasswordDocumentOwnerPasswordDocumentCryptSecurity" d333333?333333?&<3cAU} s} t} `s} s} s} s} s}  s} M s} Nu s} v s}  s v PJPv_P PrQ R T{@ pk gN fM q1 ql Wh qm qn o6 qo q9 rp PD`"@h nf i^ c:^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^uj Q jO P Y Y Y Y Y  Y  Y  P  P [/k Q! dA d) Q@ Z+ Z*  Z-  Z,  Q7  Z. iQdjZlP nZPo pQ>qa U lP Ve VB eC VE V" V# V$  V&  V%  V'  U Sq mj Sr SF SG SL SH SI X(  SJ  SK  Sg  S?s ryZ(   vj N@AX?]4v6@ E@ķQ> <kXQf[uvY T<~~  <GCC@],@}9 $< _Yhg<~~  <`NCC@],@}9 $<_ Y h g< ~~ i <SCC@->],5@9 $<_ Y h g<v6admin>@dinjn7 Sheet1ggDh4h]:SW2 T8 7_ya  dMbP?_*+%&ffffff?'ffffff?(?)?MFoxit Reader PDF Printer_ 4dXXA4" dXX333333?333333?&<3U} @F} D} D} !D}  E}  E} E}  E7@ ,,,,,,, , , , , ,,  M H H MN O8GGGG Os I0K? ]2 \3 Ev I0K ]5 \4GKKG IK@ J I IK? J IKGKKL I K? J L I K@ K L I K@ K L I K@ K L GKKLGKKL I II I I II? I I II@ I I II@ I I II@ I I II@ I I II@ I I II@ I I II @ I I II"@ I I II$@ I II I I II? I I II@ I I II@ I I II@ I I I I@ I I D, lP J<<< <<<<<<<<<<<<<<<<<<<<!"#$%)*+,,,-,.,/,0,1,2,3,4,5,6, !I!I@ !I !I "I"I@ "I "I #I#I @ #I #I $I$I"@ $I $I %I%I$@ %I %I )I;)I )b< )I=*IIII +IR+I? +JS +LT ,IU,I@ ,JV ,LT -IU-I@ -KW -LT .IU.I@ .KX .LT /IU/I@ /KY /LT 0IU0I@ 0KZ 0LT 1IU1I@ 1K[ 1LT 2IU2I @ 2K\ 2LT 3IQ3I"@ 3K] 3LT 4IU 4I^ 4K_ 4LT 5IU 5I` 5Ka 5LT 6IU 6Ib 6Kc 6LT*h<<<<<<<<<<<<<<<88PH  0(   >!@+++ 7 Sheet5ggD T8   dMbP?_*+%&ffffff?'ffffff?(?)?"333333?333333?&<3U     GGGGGGGGG G G G G GGGGGGGGGGGGGGGG>f0 PH00(  >@ 7 Sheet6ggD K*   rU@@~~~~~~~~~ ~~~2~~ ~~~ ~ ~~F"QUk%4ߞL;R  aA  a A aA aa @ a a pa"""#A###1a$Q$$$!aPQ a 12A2q2223A3q3334A4q4/444!5Q55556A6q666717q7qaa  1 aA 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  Browse_PrintFlowC@%0tFA ʒE^$ffDFWorkbookWorkbook_BeforeSave x .`/f&Tnx\OX[excel YOX[ pQVBE7.DLL`  a nx[ , &|~\ۏLhg!h Y NOX[ pQ Sm ?S Q(~ Oo` Nxh f , deleteRowdeleteRowNoProsetCellValueXQ JJ  8PhpxFF&mFUnprotect CellsClearContentsFsetCellValueCountXQ&m 0]\Ohpev Ncknx N}ge!jgT QۏLdk!h 1qaz.PasswordProtectEnd&t  A65530 Rangerow IV5Frdc)A\Z( F:JD #9pDF Worksheet regCheckFunccheckTheSameXQNewGetRowOrColIndexcheckDMB:FF FAILUREcheckedRequiredStartwriteLog writeLogRedaddCommentXQStartclearCommentsXQStartbeginCheck_commentcallFunctionXQStartgetCellValueCountXQ setDMBCode removeSpaceXQremoveSpecialCharacter A9:IV65536Font [SONameSize &HorizontalAlignment @ "NumberFormatLocal 4`nx[_YhgT hgǏ z-N RsQexcel &TRS[penc"N1Ybhg1Y% )nc:yTabColorIndex "l gg~b0Rf[uOo` elۏL!h -NOo`Y N  value - *(~ : ; ,{ L Rvpency VX[(WyrkW[&{Y^ , ; ' <> " ? zz &xRRME(@f06 <`fhP0hhlHpH@ʀx @8 @ꀈh @tx @%Ϣ%ꀢh  @  @ꀞ @B‒(@ʀX @ @ꀤ @LBZhB!ꘂB#˵%jB^HpHnxHʘBʀ @ʀP @r8ph @ꀜ8 @0 @   @v  @x BzP@ꀊ @`@|@ʘB~@ @ꘀpB"H8h(XPpx x8@Hd$p(8H۾[*\R1*#278$*\Rffff*0?5c7c0c24(*\Rffff*0?5c7c0c24\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 '!crge r6Ա s birthday= rU@@@@~xVq A 1 ) Q% Q A  0!Q!QdQ0 !!"`$A%q%%%&a&&'&q'(1(q((`) pl1)a)Q+q++++,,!-Q---!.Q...Q//h0A00&$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 /Ipp0O1O(? pgg\h8Z8h8hg{gggdh8Z8h238hgx>gLp4I(pg p&g\h8Z8h8hg{gg pgh8Z8h*5O` 8hgxdg( xkHdg6g7g8g9:g9;g0g<g p=g($kgz @h8Z8h>8hg p?g9\TgV@Ia (gVAIa (g"qnPgFqmlqnlHgv @AIa (g$gxK,gvBIa (g>qmlpqnl@,gjp @E800x0 08glx @ @h8Z8h8hg$ glgl @h8Z8h8hg~CxODOOEOpOFO`: pggx @ @h8Z8hGH8hg:ggp@d gg g?p>gvBIa (g>qmlpqnlgjp @E800x0 08glx @ @h8Z8h8hg$ glgl @h8Z8h8hg~CxODOOEOpOFO`: pggx @ @h8Z8hGH8hg:ggpgNg"qnPg$gxKgvBIa (g>qmlpqnlgjp @E800x0 08glx @ @h8Z8h8hg$ glgl @h8Z8h8hg~CxODOOEOpOFO`: pggx @ @h8Z8hGH8hg:ggpgNggvBIa (g>qmlpqnlXNgjp @E800x0 08glx @ @h8Z8h8hg$ gl2gl @h8Z8h8hg~CxODOOEOpOFO`: pggx @ @h8Z8hGH8hg:ggpXgggxx @ @h8Z8hI8hgD g67T76C7lgZCxOJO;OKOp`:pgg:g 00gg@8@gg0Hgx`Ag g>l0(lgxl0h8Zp8hLM8hg(g"l0g<ggxH gg2g`!gKg4@ dggNkp pgggg^pNOOO( pgg!gLpPI(pgdh8Z8h238hgNh8Zp8hQ8h#gg pRg& gR "gLpSI(pgdh8Z8h238hgVTIpp( pgJ@p(p#ggLpUI(pgdh8Z8h238hgNh8Zp8hQ8hggg\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 ۾[   ThisWorkbook0>5c7c0c24'ThisWorkbookzLxP Sheet10@5c7c0c25= Sheet1H Sheet60C5c7c0c25? Sheet60SbpSȉ0=5c7c0bd0@SbpSȉH]wQQpe0A5c7c0c25J]wQQpe`AXf0?5c7c0c24dXf&x!hQpe0D5c7c0c27!hQpe~f;N z^0<5c7c0bcb;N z^Ux`9ShowForm095c7c0bcb-ShowFormnw Sheet50B5c7c0c255 Sheet5hPrintForm0;5c7c0bcb7PrintFormʘ`xH0pJN%&DV4NITEw-GB0zm-Q3BQ&yCk~ڤFDg?0yր LFe%5?`cKNRI#:nGBoM䪖ɃGK{?#{ȓE.2 /*\!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`(beginCheck_comment;D` checkMethodHd`(errorMsg'|`(removeSpaceFlag` (cellContent`(callFunctionXQStart `typeVal#`isValidateCount8`valueK`titleMsgh` (startTitlel` (headIndex` (functionArgs8M` (checkMethodXQ` (checkRequiredb`(hasErrorf`(isFord` (removeSpaceXQ` (checkStuNamec`(checkLeng`functionArgsArr`Split)`(checkNumh` (checkNum1%`resultur`(getCellValueCountXQc`val`result1`a1k\`a2l\` (setDMBCoded`(checkValK`(checkInt`resZjlx0` (IsIDNumber-*` (checkSFZJLX*` (checkBankUw` (checkYear6`(checkXn` (checkMonth` (checkBirthday`(checkNowNecessary` (checkPhoneNum` (checkOption,`(checkDMB` (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`(setCellValueCountXQ]`colIndex` Unprotect?`Password`value1`flag`Trim@`rowData1`Count0v`rowNummR`(AreasheetIndexH` (deleteRow`RowsU`Deletex`(deleteRowNoPro`(setCellValueXQ` codeValue` (columnPlus`length1S`length2T`Replacef`(removeSpecialCharacter` i`(!ValueColumType` columnNamew`(sheetIndexValue1` (AreaSheetName`(readmeSheetName` (totalCount-`(rgold`(TargetF`(hasErrorInValidateU` (dataRowStart` isNullRowNum8`(cna`(notContinueBoolt` (genderColumn~`(birthdayColumn0` У麯&`(checkBirthdayNecessary`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`st(_`timeNowy` timePrint`Now%` (checkStuName1` ` rowDataNumn` typeValue`bsTypet` valEntity܏`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` ShowForm`CancelButton_Click`Hide9z`ConformButton_Clickwf` Sheet5` PrintForm`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` "$'=?AK-e5 7 "@ p0(P7q YX!HH   (9UxME6 LL L"L ` :@`@kP@ @ @ @ @X ` @@ ` ` ` `( ` @8%x@ ( px``@(x@ D2^\`@8 @0 @X @p @ @ @ @ @0 @`p @h @P @(8 @  <|V08@H @z @ "@`"@ '@`'H46X@ @ @x @` =@(H @=0vbN@0 @ @P h(F@ PF@ @ @ N@ (N@p @8X PT@@ 8T@8 @0 @ @ @ 8bd@  8h@X H hp v@ X}@ }@p @X X   p P@ @ @x( @  X @  @ @ @ 0    8@۾[$*\Rffff*0<5c7c0bcb*\R1*#3c7*\R1*#12d*\R1*#121*\R0*#17$*\Rffff*0?5c7c0c24*\R1*#11c*\R1*#42$*\Rffff*0@5c7c0c25*\R1*#129*\R1*#278$*\Rffff*0A5c7c0c25*\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`PVxJ 4Ld N8H P \X \x \ x"8@P2`$@6 8*H :x   ,@HP `a--------------------------------------------ʼУ-----------------------------------------]X]p+ijһ͵ıʶкź͸ʽ3:1;2] ʶ(ĬϱʶԶʶ)](ijһ͵ıʶ飨кź͸ʽ] ijһͱʶľֵ]Զʶ]%Ѽ¼ΪյкŷŽ]( D!H'"ȡĿ 0ĿȷģٽдУA@21qaz>$DB@|k1qaz>$DB@<1qaz>$DB@<1qaz>$DB@< ^$\!VB@-$ÿοʼʱѴϢsheet,'`Ϣ¼ʼ'.ôУУ¼Ƿд֣׶ϢУ ('#Ĭ϶ѼδͨУ'Ĭ϶δͨУ ^$\!VB@-$ÿοʼʱѴϢsheet, A65530$D%%!'  ȡxcna = Worksheets(1).Range("1:1").Find(What:="*", After:=[a1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Column IV5 <%%!6'|FAILUREA@V&+ȡǷУɹ־Ԫ񣬲ֵʼΪ0'zռ¼ʼΪ0 0 8" ʱִd ʼУ鰴ť¼ʱִ A9:IV65536$D%!h1ͺ9 9q A9:IV65536$D% 9(@9#ıʽq.ȷʼ Уرexcel $4ܵݶʧʧ 6ܰʾ$2 8d1qaz>$DB@|kk.$D!b(j)ҳǩΪɫ   "ûвҵѧϢ޷У飡A@2'01qaz>$DB@|(k 'ôУУ¼Ƿд$D!дϢ£A@X      '<"ִ һǿУ ĵԪĿ';6ִ һǿУ ĵԪΪϹĿ'''5"һǿУʱ¼Ԫ'9ǷΪЧ¼ 'vC¼УǰǷд';¼ԱǷд  | $D%V!'Oһбʶֵ'2=жforѭǷcallFunctionXQStart ûִĬϷ <ʶΪ -$'Gʽ14-3:25 :$'H6ʽ3:25ȡıʶвֳ֣кź͹ DJҪּϵҪУ飨ĬУ͵ԶУ   Y&+1ΪеһԪΪĬУ $:$'V*ȡıʶвֳ֣кź͹$'SԶʶ  $;$'cԶʶ͵ľֵ   gԱʶб $   A@}ݱʶֵöӦķ  $D%V'Hȥַķ $b'   $D%V'{ȡбͷ   е Fַ^ , ; ' <> " ? ո س뷨Ϊȫͣ飡''^УʱдϢ  $D%V!t(v ӻɫ A@XN%isValidateCount = isValidateCount + 1kh`kX  $;$'Pȡıʶв   WԱʶб $   A@  $D%V'Hȥַķ $b'   $D%V'{ȡбͷ   е Fַ^ , ; ' <> " ? ո س뷨Ϊȫͣ飡''^УʱдϢ  $D%V!t(v ӻɫ A@XN%isValidateCount = isValidateCount + 1kk eJ ʽ3:25$'QԶʶ  Pʶеڵǰ$;$'eԶʶ͵ľֵ   kԱʶб $   A@ݱʶֵöӦķ  $D%V'Hȥַķ $b'   $D%V'{ȡбͷ   е Fַ^ , ; ' <> " ? ո س뷨Ϊȫͣ飡''^УʱдϢ  $D%V!t(v ӻɫ A@XN%isValidateCount = isValidateCount + 1k  k d-ֻĬУʽ14$;$'Hȡıʶв   OԱʶб $   A@  $D%V'Hȥַķ $b'   $D%V'{ȡбͷ   е Fַ^ , ; ' <> " ? ո س뷨Ϊȫͣ飡''^УʱдϢ  $D%V!t(v ӻɫ A@XN%isValidateCount = isValidateCount + 1kX P kH k@  $D%V(   6ִ һǿУ ĵԪΪϹĿ     е һдȷ''8УʱдϢ A@X  'd   ' Tÿһкϼеֵk  <,һؼֶȫ򽫸ɾ  z+ z 'z,"ϢеĸдϢɾ  `  ` `  ^$\%PB@Rr Ѹɾ  `  '` v'k k  z 6 ɾЧ $'  A@NB ѸɾdX   A@NH Ѹɾk(  z ˴Уɾ z:Чݣ֤У鶼ʧܼΪЧݣA@2k *дϢ鿴ϢA@2$D!b(j ^$\B@Hd0' A@ '%ִУظݷ,ûظǷҪɾЧ Уͨ!A@2.$D!b(jSUCCESSA@V:+ȡǷУɹ־Ԫ񣬲ֵʼΪ0 A@8d*ظݣ鿴ϢA@2$D!b(j ^$\B@Hkk1qaz>$DB@1qaz>$DB@1qaz>$DB@o@q-------------------------------------------------ظijһ------------------------------------------------@]] A65535 T%%!' 2Scripting.Dictionary$.O8O  T%!'>ȡѧ  %"ѧ໤֤ݽб   % -֤Ų  B@"&#addһΪkeyڶΪvaluek@k80 !$'Sheet2$DG:G7B@  !(%* !HG17,&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).. h/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^`Ӱť0¼)With 99:IVa:6a1q ׀ͺţ .AZ@"BE.Siz11! dc3.HorizalAlignmcxl6 `I -berFormat Localq @"Zıss SV^("`ȷQJ ̑Eexcel" & Chr(1@l& "ܵݶʧʧ0Can0'ܰʾ") 1 ! _e_e[e3 GeKTabtl(orI`Lx -4142zҳǩ$Ϊɫ  vFstartTitle +`]|vt`3 "ûвҵA[̷1va9/sQ598/y/y`9QhißiiQ1writpeLog=r:&m£?-> g06 i2 Toqd 0:eaOneNa# = `RN һǿձ VO?`\Ϊ?totalMoney&e!P. "? "jfOisppiMeHoΪ@ͧ15/InE 'B ǰQC0??9dsvdԱQ}-j 1,g=9(1,0 j).ҁݵһҵғ_is = $жfor @olFuncXQSV S5৚cZw <> p&QZ ' |1/=d S0t(o-o'S14-3:25rowType = Split(tValue, ":") 'ʽ3:25ȡıʶв֣ кź͹ $If UBound(bs) <> 0 Then 'ҪּϵУ飨Ĭ x͵@Զ'pFor mLa+ 1 Tol'+1ΪеһԪΪa@valEntity(m)߅Row"9%(0e3;E{@i)E,'@>GA1 b;Bľpֵn7@)H'? callFunctionXQ@Start `(n`1, i, jsidateCt#ֵöӦķx#uWorksheets(1).Cells()_ _ #'!ȥַ? (removeSpecial@>Character(_$f+g ,`leMsg5sKTitl@jAӸбͷ89)error"" & i`"AjAеʀF& "@^ , ; '"" ? ո سΪȫap飡")hasE `Tr1'̂sʱxдϢGoT8.InP+i@or.Colv= 65535 'ӻɫ𱳾writeLog u'iLO= p_End If /Next5 _ mss= False2ooV4T0_S~~~ }}} RkBzzz;s= zzozʕzȡzzzzzzzzz zzz &Worksheets(1).Cells(i, j).Interior.Color = 65535 'ɫ '!)writeLog err orMsgM`'isValidateCountk+ 1:End If 3)Next9fElse If UBDd(rowType) <> 0 Then 'ʽ3:252#tRow^(0) 'ʶ{@Ci(+!A(еڵǰG;jvalS0plitc, ";"Jľֵ߰%F}nLA) TFoC' б callFunctionXQStart `(n), 1, Ay'$4öӦķx+u>e %v__#' !ȥ? (removeSpeciBPCharac`()#m+m (title5sLTaa 'ȡбͷ)%"" &D i`"AjAF& "څ@^ , ; 'A"" ? س뷀ΪȫU"_ _ 0hasE{P Tr1'У@ʱSдo_8_ ߍ 'ֻq)Í14?)pPp.szbs1ez1Dħr//xxxvv% ?bc::// rrKk= rr rrr?rrrsgtrrrr_ rrr< Worksheets(1).Cells(i, j).Interior.Color = 65535 'ɫ ("writeLog err orMsgM`'isValidateCountk+ 1:End If +)Nex>t1! ׆LockedOFalLse_*3 j 'ִ һǿУ ԪΪϹ@ĿIf atLeaO@neNull~<`> 0 Ah=Ç ThenEa@I"" &D i",`EA?Ё?дȷ숲"ghas= True ')ʱдϢ Es%n+ 5 ?EMItotalMoneySu&m1+  'ÿһкȼ@4ֵicO> 1 I$ '!2ؼȫɾ_isAWRowArr(Num) !i r E ) `'eO<-%+i Fpcu#a  - -.To^  fSCmsg"Name).s(x).DeletpѸ_9/p")=OhE|Inu3 ~ )?; q9 0 i/@!1 '%Ч  rowData,/4q)@?T_cd"A,1,)'#oROs- q ~ qURtK!zw; Box "P˴AnRfRwJ& xݣրʧܼ:Ϊwvn?p 2 y鿴EQ`+TabӻIndezx016MMS}(c%0SP0/#checkdXQNew Not (0n ظA,asD0,Ҫ}rfͰ! -41421setTue XQ 2,!8, "SUCCESS" 'ȡ! ɹ־ֵʼΪ0f FGna,u,,?:,,,;Protect Password:="1qaz 2).3 Subp '-m--ظijһ-, Sub checkTheSame() Dim myDic As Object, Key VarpiantP$, varData 'rna = ActiveSheet.Range("A65535").End(xlUp).row 'b Set idNum= C reate("Scripting.tionary"b I@O8", "O" & R).value 'ȡѧՀӀF݃GFor Each carK InO4'໤֤ бB$ If"<> "" n No~.ExiPsts(<)B '0GA.AddE, Nul@l 'addһΐkey?Ch,INexƒ Cmyj=.sWith WorksAsp2GmG:G@ClearContent41@Resize(B.Count)Appl(ica.FFunon.Transpos 'D4'*= a2h@ @ f~xME(6 <<<p `X In xIN IP `R ``( I @ ` I @ `H  I @ +` ii:`H`(H```  `  I @ `x  I @ @`  I @ `  I @  `( I HI @  ` I @  `h I @ 0 ` I @  ` I @ h ` I @ @  ` I@  I  D `X  I@ x I  0 `  I@  I   ` I  I  ` ` I @ I   ` I  I   `P //I p I  (` ..I I  `  I @ 0`  I  `  I @ P`  I @ `  I @ `8 ""I XIN xI: ` ` `^````@ ` @ ` @ ` @ `@ I ```@ ` I 8I @ P  h  0 0` @ `( 0`% 0/p۾[$*\Rffff*0D5c7c0c27  B       (  B    H(p B 08 P X`h p D (08@ HB  n ( @B `,h$H @ HP X"p " ( 0 4@ x   B 8 @ 4H       `  B            B   6     ( 0 |8   B   00@HPX` xh  B   0PX`hpx x H hB  | h B $ |  B f@PX`hp |x  B 08@Xhpx    @B X`h:p   (0 8  B   ( 0 8H PX `h p .B 8 @ P `px  .8B hp  B PXp x&D4P X`h B X`x &  ( ("0 X`Dh4  @HPX` hB  (08 @` "h  <  B      & !! !(!  0!DP!! !!   ! !"! " " " $(" "P" x" " " """""" #># X#4x# # ## ## #B $  $$ $&$$$$$ %D %h% %% % %"% %% $% "& @& P& X& `&&&&&& &>& '4@' x' '' '' ' (( H(B `(h(p((((((( ( P) p)B )) ) ))) ) P* p*B ** ******* * + +B +++++,,,, , , ,B ,,- -0-8-@-H-P- X- . (.B @. &H. $p. . .&.*." /$H/p/(////0(000 H0 2`00"001  1 1818P111 1B 0282@2H2P2X22 3(30383@3P3X3`3h3p3 x3 4  4B 84@4X4 `4&p444444L45 5(50585@5P5-----------------------------------------1 ,дϢʾ Ϣsheet--------------------------------------- ʱ0 Ϊʱ1 Ԫ] N P n$D%V'R R'd'ki-----------------------------------------2 Уѧ ҪΪ-------------------------------------------------------------ʽȷfalseʽȷtrue $D'zk]H%^([\u2E80-\uFE4Fo]|[a-zA-Z]){1,20}$'3޸ģУƧ  $'d'ki|-----------------------------------------3 УڸʽΪ2012-05-09(Ϊ)---------------------------------------` $D'z@k8]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])$'  $'d'kix|-----------------------------------------3 УڸʽΪ2012-05-09(Ϊ)---------------------------------------]h^((19)|(20))\d{2}-((((0[13578])|(1[02]))-((0[1-9])|([12][0-9])|(3[01])))|(((0[469])|(11))-((0[1-9])|([12][0-9])|(30)))|((02)-((0[1-9])|([12][0-9]))))$'  $'d 'kih-----------------------------------------4 У֤---------------------------------------Ϲ򷵻trueϹ򷵻false]790584216379058420Ȩ] 10X9876543200У $D' ȥո]H`x :  6)׶֤Ϊ,ΪͨУ 'zk Gzj $$Gzj *[0-9X]Gzj   $' G 'j   $  '  ' $ (  $G'jiz-----------------------------------------У֤ -------------------------------------------------------------ʽȷfalseʽȷtrue],^[\u4e00-\ue863a-z|A-Z|0-9|()|]{1,18}$'  $'d`'kPiH----------------------------------------5 -УѧУѧУʶ 42λһλΪֻx-------------------------------------------------------------ʽȷfalseʽȷtrue ]^[1-9]\d{40}[\dx]$'  $'d'kiz----------------------------------------6 -У黧 -------------------------------------------------------------ʽȷfalseʽȷtrue](.^(\u519c\u6751)|(\u53bf\u9547)|(\u57ce\u5e02)$'  $'d'kiu-----------------------------------------7 Уѧʱ-------------------------------------------------------------ʽȷfalseʽȷtrue@]'^(((19)|(20))\d{2})((0[0-9])|(1[0-2]))$'  $'d'kiq-----------------------------------------7 У-------------------------------------------------------------ʽȷfalseʽȷtrue  ,ΪDZ'kzk]h^((19\d{2})|(2\d{3}))$'  $'dH'k8i0q-----------------------------------------7 У·-------------------------------------------------------------ʽȷfalseʽȷtrue]^((0[0-9])|(1[0-2]))$'  $'d'kiv-----------------------------------------9 Уѧ-------------------------------------------------------------ʽȷfalseʽȷtrue]^\d{4}[0-7]\d{3}[0-3]\d{7}$'  $'d'kxipv-----------------------------------------10 У绰-------------------------------------------------------------ʽȷfalseʽȷtrue]^\b((1(([38]\d)|(4[57])|(5[0-35-9]))\d{8})|(0((10)|(2[\d]))-[2-9]\d*)|(0[3-9]\d{2}-[2-9]\d*))\b'  $'d 'k i v-----------------------------------------11 Уп-------------------------------------------------------------ʽȷfalseʽȷtrue0]^[1-9]\d{14,20}$'  $'d 'k i -----------------------------------------checkXn Уѧ磨2012-2013-------------------------------------------------------------ʽȷfalseʽȷtrue]8 ]P 1^(20\d{2}-20\d{2})|(19\d{2}-19\d{2})|(1999-2000)$'  $ -$'$$ 'dx 'kh d` 'kP iH -----------------------------------------checkOption У鱸ע磨Сvalue2-------------------------------------------------------------ȲС200false 򷵻trueh @'zP kH @  'd( 'k i ------------------------------------------------------ȽϴС(Сڵڷtrue)----------------------------------------------------------------'value1value2false 򷵻true @X'@ X' @  'Dd'Dki------------------------------------------------------ȽϴС(Сڵڷtrue)-dec---------------------------------------------------------------'value1value2false 򷵻true @$4'@ $4' @  'd'ki}------------------------------------------------------У鳤---------------------------------------------------------------0 ,$'' $/ΪDZ'kzk ,-±0ʼֵΪָάõ± $$4 $$4'z kd ˵У̶ $$4'zkki}------------------------------------------------------У--------------------------------------------------------------- ,$'' $/ΪDZ'kzk $& Ϊz .e+СzP $4e% С0z k ,-±0ʼֵΪָάõ± $$4 $$4'zkd ˵У̶ $$4'z0k(k i------------------------------------------------------УֵΧ---------------------------------------------------------------` ,$'' 'zHk@ $) Ϊz $4e) С0zk $4$$4 $4$$4'zki------------------------------------------------------Уֳ(Number,ΪҲΪСС0)--------------------------------------------------------------- ,$'' $/ΪDZ'k` zX kP ֲɼӷ<^(([1-9][0-9]*)|(([0]\.\d{1,2}|[1-9][0-9]*\.\d{1,2}))|0{1})$'  $zk $% Ϊz $4e% С0'z`kX$'+󳤶$'.Сλ .''' "˵ûС $4' $$4'zkd С  . $'DԪֵλ  . $' $$4 $$4'zkki------------------------------------------------------Уֳ(Number,ΪС0)--------------------------------------------------------------- ,$'' $/ΪDZ'kzkֲɼӷ<^(([1-9][0-9]*)|(([0]\.\d{1,2}|[1-9][0-9]*\.\d{1,2}))|0{1})$'  $zk $% Ϊz $4e% С0zk$'+󳤶$'.Сλ .''' "˵ûС $4' $$4'zkd С  . $'DԪֵλ  . $' $$4 $$4'zkki-----------------------------------------checkIsInt У鲻С0-------------------------------------------------------------ʽȷfalseʽȷtrue(] ^0|[1-9]\d*$'  $'d'ki-----------------------------------------checkIsNumber УΪNumber-------------------------------------------------------------ʽȷfalseʽȷtrue' $'ki-----------------------------------------checkMoney У0-9999-------------------------------------------------------------ʽȷfalseʽȷtrue0]^(([1-9](\d{0,3})|0)|0)$'  $'d'ki-----------------------------------------checkMoneyTJ У0-9999Сһλ-------------------------------------------------------------ʽȷfalseʽȷtrue]8^([1-9]\d{0,7})$'  $'dx'khi`-----------------------------------------checkPersonNum У׶԰һ------------------------------------------------------------ʽȷfalseʽȷtrueP]^(([1-9]\d{0,3}))$'  $'d@'k0i(-----------------------------------------checkIdNumLink У֤ԱͳûдǷһ------------------------------------------------------------ʽȷfalseʽȷtrue If colIndex = jhrIDColumn Then checkIdNumLink = True Exit Function End If]%Ա֤ǷӦ]$ں֤ǷӦ]ڵһγֵ±]"Ա,Ԫ֮ڵ]$ݺŽȡ]!,Ԫ֮ڵ]("ݺŽȡ]@X#]p%·]] $' $'  (ڶλΪΪ N  j$\,VdڶλΪżΪŮŮ N  j$\,Vkx $' $' $' -  -  N  j$\,V'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$'   'zHk@  $'d 'ki----------------------------------------- Уѧ ҪΪ-------------------------------------------------------------ʽȷfalseʽȷtrue ,$'' $/ΪDZ'k z k ]X*^[\u2E80-\uFE4F]{1,20}$|^[a-zA-Z]{1,20}$'8޸ģУƧ  $'dP 'k@ i8 YAttribute 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(vgCpRTrim?"R1IDS8Exit GIPre ^([\u2E80-\uFE4Fo]|[a-zA-Z]){1,20}$" '޸ģTƸփs@0C(, C8 L1HzO;Ay3"!6Ϊ2012-05-09(tt)?D"-xBirthdayia '瀹׶:,ΪͨA IFlawE/h Uy  Len(<> 18€ 3Not0  eric(MDid, 1 7|))5L@ike "*kX]_ For= 1 To l17CTqW䶑0 ]1p1sps( + ; i! * TNexts Mod 1Right)c, T3 ^o:-->@oQoWSFZJLX_` "^4e0e863`|A-Z|0|()|] 18 wYk P_X\X53rѧ0ʶ 42λ0һͻ~xOOckSchCoc2!VL ?#Q5 G1 qJc`O-ȽϴС(Сڵڷt0rue))& 'value1(2[false j Function com pare(9, a7)  = CInt& J2 2If(1 >- Theno/3C$FWE^Tnd If Eq3dec)F ykDec!l l9llC m_У鳤# ɀheckLen], fDArgs#VArrESplit(, ","hcD (Eg ""f`(0)0 'ΪDZho(2Esaiajxit lDp`UBound #2±0ʼΪָάõ F4) > Mm(1)) A H( E3'. '˵\̶\us! H!? * Fx# 3P;o-w@0@@@$@A@ Not IsNuPmerik)8JΪ>, InStrY".") <> yСoK 6`nCQCr= 0߿-p?Ps?P?P?P?PRBpX??Pg1?P$?Ph,O$? ?PO$?P?PY?P?P?+ ?P'oJ1PֵΧ}PValPonq0KPP'_=A`#JeJ׿JoQ2E KE/#߀ )L?@3@0tB/2Ey_ 5q)s/ֱ(fber,Ϊ Ҳaa1P1k functionArgs) X H Arr = Split( , ","~z che ckNumXFalse If@ value2"" Then=G# \t(0)00/ 'DZώ?GTru1dEndExit F 'ֲɼӷ"Ňregx^(([1-9][0*)|0]\.\d{1,2}|  ))|0{`1})$"&Nhot *CV(u,).jIsseric(obΪ> X@/CDeF<= IvС0YxmaxIntLen@c1) '0ȋ!@DoPuble2 λiBgthInStrRn.΁4 VDɌBdE`NCU# .Mid31," 5 - E@ԪС_āGλ&6H >+ 3B?/1)x) A 42*a5,5eg'-0,Уz(ber,Ϊ!6B) : %1eHic g=' iE31?5@=\ww)/wU9o"vvv]vv2}v7vegv ?u?u"Bc?u?u=uS _sF_s,!_s_s9mRqR Wt_s|k@p_sEt`[1m7[XF>6˯ 9 os߁xosJosos xoszÓ osWD= rr(osueoss+ YW?0;s sl Is` sqc?@ʽȷhf'Q5tڋtt$Dim(P0"^0\d*Ґ?a;6H= 507/JHvu;t BΪ?_?;ɵtrue Function checkIsNumber(value) d = 0Falsr4IfB dericf ThenpB TEnd If  '-%YMoney У 0-9p&HDʽf|' H Dim reg"^(([1-9](\d{0,3})|0$"Cʁr(,  = ҆` TJ`СһλsbvbTJbbBb7})`Aaa HaaPersonCb׶԰໸abԊ1beb_1e)a'!1 1'$brIBd@1Link1֤ԱͳûǷ 74(", rowIndex, col"D 'jhrIDColumn 2'a")3Exit sa ed B isGe@rRight As BooleanL ',.A+8ӦëaBirth3]length2Integer ':һֵԱ gV!@String,Ԫ֮ڵ 61Žȡb e?e" Eyear, QBVariant "'1l mo`nth, bԂday, @carr1*MidU.17,4 1- 7Y= {(8 {ZMod 211 ,qڶλΪΪ@GSheets(sa71).Ceplls(9#7)"$EP żŮ/A* Ů w! , 4"!, 5, 2x _, Y 2O" 0 + "-" +*ppw NKgM_/]3":Ϊ2012-05-09δʱ(Ϊ)_NowNecessarzyn{sVS@cTtime`LPN19)|(20))2}(0[13578]p1[02])8)((0[12][3[01P469"1P029))F`ormat(, "ymmdd"d( @2 > B!PV*0o )o@w_2%@/$a+ѧ ҪΪ? StuName1#-, f0Args4)Arr`Split(y,5!Rác!= ""1(0\0 Ϊ5umEnd If  Exit Fu@nctionxEDim reg8 = "^[\u2E80-\uFE4F]{1,20}$|^[a-zA-Z " '޸ģƧNIfZCheck(^, value) Th ec#StuName1TrueCEls  'x&  XHPp hx * (HXj`&  @ `H   H(x8 H( H(p HP( 0 &8 `px n  8 @ 8X( 8H( 0 &8 `px p ((@h p8$ 8$  & $   88(jp 8(j   &    (  H (!8!P!X!h!!!!!!!&H" p"" """" b" @# `#p####&0$ X$ ,h$$$$ f$ 0% P%`%x% % 8%(% 8x&(& P' &X' '''' f' (((@( h( Tx( &( ()) $() &P)$|x)$&)$ *$0* @*H* P* `*$th*$&*$ + + $ +(+ 0+P+ bX+ +++ t+ &p, , ,,, b, @- `-x---&. @. P.X.`.. ^. . / /8/X@/&/ / /// ^0 `0 000X0&1 (1 81@1`1 ^h1 1 122T2&p2 2 2222 n2 P3 p33"33&H4 p4 4444 j4 (5 H5h5"x55&P6 x6666 n6 (7 H7h7"x77&08 X8 h8p88 P88999&9 9 999: R:p:::X:&; (; 8;@;H;h; bp; ;$;<@ <&`< <<$<<<< X< P=h==@=&= =>>R(>>&> >> > >>> ^? `? x??@?&? @@ @@@H@h@ ^p@ @"@A@A&XA AA AAAA ^A HB&`B B@B&B BC&C8C@C`C |hC C$D(D(0D@XD&D D D"DEE(E |0E E"EE@E&8F `FpF xFFFF F PG(hGGGGGGGGH H@HHHPH@XH&H HH HHI I |(I I$II@I&0J XJhJ$pJJJJ dJ 0K HK@hK&K KK2K L x(L L6L.L(M8M( @M2PM( `M1pM( M2M( M1MMMJM0NHNPNXN`N fhN B N N<N O @OXO$xO$OOO O \P B P,Q 00Q@`Q"Q ^Q 6(R`RxRRR0RDSPSpSxSSSS S "8T `T .TB T T$TBT 8U HU XU hU pU UUU UB (V0V PVpV xV W (W @W `WB xW"W WWW WWW W8X@X2HXX X XX XX XX FYXY`Y hY pY *YY Y XZ pZB ZZ*Z 4Z[ [ [ [B [*[(\ 0\B \^\ v\ ] ]B ] ]] ]B ^ ^ "^ ^8^2 _X_ p__ __ _ __"_0` @`(````&`` `` `B paxaVaa 8b Hb hb:xb4b$bc"0cXc`chc pcB dd6dHdXd`dhdpdxd d-----------------------------------------УУдϢʾ ע----------------------------------------------------------- Ԫ] 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(r---------------------------------------------ʼУ Ƿӻɾעõķ----------------------------0  Уʧ 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'kh0'  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'  checkYFJEe/ У1' checkYFJE'  checkPmmce- У1,8,0' checkPmmc'k _=================================1 ִеķǿУ==========================================ѴϢдб checkNullKT n N P$'  N е Ϊգ'')УʱдϢ A@XRMsgBox "" & rgold.Row & "е" & Chr(10) & titleMsg & "Ϊգ"k0 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@Xk n  N P A@'h================================= ִеijУ飨Numberͣ==========================================checkNumKT  $'  ,$'$@ ΪDZΪ̶ȹ N е GдȷΪգдΪ֣0λȲ$λСλ$ λ'$eD ΪDZΪ̶ȹ N е ?дȷΪգұΪ֣0λȲ$λСλ$ λ'k'0УʱдϢ A@Xk n  N P A@'i================================= ִ30%У飨Numberͣ========================================== checkPmmcKT  $' n N$'N ȡд  ,$'$@ ΪDZΪ̶ȹ N е ?дȷΪգұΪ֣0λȲ$λСλ$9λҳɼαڳɼ10%-30%֮ڣ'$eD ΪDZΪ̶ȹ N е ?дȷΪգұΪ֣0λȲ$λСλ$9λҳɼαڳɼ10%-30%֮ڣ'k@'0УʱдϢ A@X $ 333333?$ e ,$'$@ ΪDZΪ̶ȹ N е ;дȷɼαڳɼ30%֮ڣ'$eD ΪDZΪ̶ȹ N е ;дȷɼαڳɼ30%֮ڣ'kp''0УʱдϢ A@Xk( n  N P A@'}=================================15 checkNumYN ִǷΪǡжǷ--================================== checkName1KT n N$'K ȡд n N$' $ ?$ $ 333333?$1,1,100'  $'d0,1,100'  $'  N n$\,VkPkH  N7еɼ10%-30%Ҫдע˵ *ֻ뺺,ַΪ100λ''(УʱдϢ A@Xdx checkYesNo n N PA@kP n  N P A@'[=================================ִֵΧУ==========================================ѴϢдбcheckValKT  $'  ,$' N е $дȷΪ֣ڵ$ Ҳ$''-УʱдϢ A@X& isValidateCount = isValidateCount + 1k`! n  N P A@'_=================================ִеΪֵУ==========================================ѴϢдбcheckIntKT  $'  ,$'$@ ΪDZΪ̶ȹ N е 8дȷΪգдΪڵ$ҳȲ$ λ'$eD ΪDZΪ̶ȹ N е 0дȷΪգұΪڵ$ҳȲ$ λ'k'0УʱдϢ A@Xkh 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@'\================================= ִѧŵУ==========================================checkXJHKT 1, 1, 50$'  N е EдȷΪգҳȱڵ1λҲ50λ''0УʱдϢ A@XkP 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@XkH n  N P A@'g=================================3 ִеУ(DZ)==========================================ѴϢдб checkDateKT $' 2Уʧ N е дȷдʽΪ"$4xxxxxxxx"$4 20130221''-УʱдϢ A@Xkp n  N P A@'c=================================ִеУ飨==========================================ѴϢдбcheckDateNecessaryKT& $' 2Уʧ N е дȷдʽΪ"$4xxxxxxxx"$4= 20131221ֻõ֮ǰʱ䣨գ''-УʱдϢ A@Xkp n  N P A@'g=================================ִеijУ飨==========================================ѴϢдб checkBirthdayKT! $' 2Уʧ N е дȷдʽΪ"$4 xxxx-xx-xx"$4 2013-12-21''-УʱдϢ A@Xk n  N P A@'J=================================10 У绰====================== checkPhoneKT $'  N е дȷдʽΪ"$4-̶绰 ֻ"$4 ''%УʱдϢ A@Xk 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@k0 n  N P A@'R=========================== ִ϶ʵУ================================== checkSFJEKT 1, 4, 0$'  N е дȷ''(УʱдϢ A@Xd $@ N е #дȷ,ֵֻΪ8000''')УʱдϢ A@Xd8k0k( n  N P A@'X================================= ִ϶ӦУ================================== checkYFJEKT checkYFJE  $'  N е дȷ''(УʱдϢ A@Xd checkYFJE n N PA@k n  N P A@'X================================= ִ֤У================================== checkZjlxKT checkZjlx 1$'  N е дȷ''(УʱдϢ A@Xdh checkZjlx 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 0$' '-ԱдУ֤Ź N е дȷ''(УʱдϢ A@Xd( checkGender n N PA@k n  N P A@'u=================================14 checkYesNo ִǷΪǡУ--================================== checkYesNoKT checkYesNo 1$'  N е дȷ''(УʱдϢ A@XdE checkYesNo n N PA@k`E n  N P A@'}=================================15 checkNumYN ִǷΪǡжǷ--================================== checkSNumYNKT n N $'K ȡд 1,8,0'  $'d0D0,8,0'  $'  N n$\,V N n$\,VkCkC  N е дȷ''(УʱдϢ A@Xd(C checkYesNo n N PA@kC n  N P A@'u=================================14 checkYesNo ִǷΪǡУ--================================== checkSqyyNameKT checkSqyyName  $'  N е дȷ''(УʱдϢ A@XdA checkSqyyName n N PA@k`A n  N P A@']=================================checkTerm ִѧУ--================================== checkTermKT checkTerm  $ N е дȷ''(УʱдϢ A@Xk@ n checkTerm  $ N P A@'r=================================checkAtLeastOneNNull ִһΪǿ--==================================checkAtLeastOneNNullKT  'A"ִ һǿУ ĵԪĿ $ =Ϲ   ' P KTF   ' KTF   ' KTF   ' KTF   'n8>dϹ  'F6ִ һǿУ ĵԪΪϹĿ    'k='n=i=_--------------------------------------------ʽ------------------------------------- ]VBSCRIPT.REGEXP$.7RegExΪʽ (4 ȫֿvba\ת  (.ʽ (5ǷִСд  %'3 ִ.i(<-----------------------------------------------------------° Уظ˵Ѿûиʽ------------------------------------------------------------V-----------------------------------------------------------1ѧ׶ڱڲ(sheetѧ׶ A65535 $\%%!' *cna = getTotalColumnCount(sheetIndexValue) ^$\!VB@1&ÿУظʱʱѴϢsheet,'`Ϣ¼ʼX==============================ѧ׶ڱڲ==================================0ðÿԪغ֮ǰнбȽ      $\%V'      $\%V'  .ѧͬ˵ظݹ  еݺ͵ ظ!!!!' A@X*ѴϢ' k8x8p8ih8-----------------------------------------------------------һ ֵȡֵ------------------------------------------------------------ֵҵֵڵлkeyWord ҵĹؼ'kbn л ֵΪ rowrowH'"]the find result object $, 0. 42 A1:A65535 n$D%%*.( ( &row (!'"d6 (!6'"kx6kp6ih6------------------------------------------------------ ָcellֵ-------------------------------------------------------------1qaz> n$DB@<  N : n$D%V(i5------------------------------------------------------ ִڹУ(Ϊ)-------------------------------------------------------------value value1 cellУ鲻ȷfalseУȷtrue B0˵ΪDZ @$D'z04k(4k 4]'Hijһļ¼ A65535 L$\%%!'JB' L row$"'F=ȡ  F J  L$\%V  H 'Hd03y(3k 3   F F H   L$\%VX @X LжϹǷcell'y2k2 #ʱcountĿΪùеĿiH2------------------------------------------------------ ִɾijһвexcelܱģ-------------------------------------------------------------sheetIndex rowNum к1qaz> n$DB@< J n$D%PB@R/ Ѹɾ- Worksheets(sheetIndex).Protect Password:=123i0------------------------------------------------------ ִɾijһвexcelûб-------------------------------------------------------------sheetIndex rowNum кX J n$D%PB@R/ Ѹɾi/------------------------------------------------------ ָcellֵ------------------------------------------------------------- 1qaz> n$DB@<  N : n$D%V(i.------------------------------------------------------ ȡָcellֵ------------------------------------------------------------- N : n$D%V!'i0.------------------------------------------------------ ݴеֵǰʱѾͨУ飩------------------------------------------------------------- ]X p  N : n$\%V!X 'R'Hijһļ¼ A65535 L$\%%!'JF L row$"'FAȡ  F J  L$\%V  H 'HdX,yP,kH,   F F H   L$\%V!X '@ @ RX 1жϹǷcell  L$\%V!'X XX N : Z n$\%V(yp+dh+ N : Z n$\%V(k8+ i +------------------------------------------------------ ȥcellеĿո------------------------------------------------------------- ]X Ԫ]p  3Blength1ʾcellԭijȣlength2ʾִȥոַ'ĬΪûȥո2 Worksheets(sheetIndex).Unprotect Password:="1qaz" N : n$D%V!'@ @'\ \Gzj*"ԪΪգȥո @ '^%length2Ϊոһγֵλ ^ַո @ $`'@ @X N : n$D%V('k(i(------------------------------------------------------ ȥַ------------------------------------------------------------- ]-[\uFF00-\uFF06][\uFF09-\uFFFF]|[\s,;'<> "?^]+'  $'bd''bk'i'x'zAttribute 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_L?%K Ƿ4*õķo)beginC_c#LHGpMethod?LLuwLЋNot3 '焹aWʧ|?u$6 Is hing$жρ<Ϊ/T\ W| LAOAa'ȥǰq¡$ cDt_ ʫ 'L alw/ !. <' "Box @"" &gD& "h'tt$ɹ3!0гѕ&ʱđ rCq+remopaceFla(/Qո,ʾ:sW@УȀַChr(34)%QC& w"րа ϵͳԶΪa%ˬ A ]!qO?L?Y/ݱʶC 0XӦsX([)O-O?@!дccallFunctionXQStart(typeVal, sheetIndex, row$colHumn0isRidateCoun t) value = Wo$rks().Cells(DtitleMsgGsT,, ) 'ȡбͷ If `"" Then 'ϲеn/J - 1 L(ElseDÅtheadG=! ;CEnd( IffArgs!"0"JÅ Like "checkLen*MУGĄD Mid9& #EH%O 1H&NumL&@ber&& &@&&ֵLC&M%@b%Inta9?~nE9- 'W9Term1L""ΪL"1 7 YesNo -kk ? DiffNameѼa?%D~ #CodslA! `IDCardT*'րͶ;:`._Sqyy;ԭ;Q0] e? WYearZ?M`?:]  :iYFJEC/ E QPmmcrA1,8,ySS- ( ~Select Casel '=121 ִᡒǿ?ѴϢд?G NullMet`hodXQ@Required Not>  Terror"", &f"!v& "գ/has&E`Tr0'qʱ9% fwriteLog E ' Box 5 gold.RowO & Chr(10) TͨbeginC_commentz,?isFor. o+.2.ѧ/_Ky-{O removeSpacep-ԟ 'ȥոķϯٯٯq)./Ek2=c3StuQk(2/6/6;/6V555дȷ01820ַ*_8_8M8E<+< 1?5 5mment sheetIndex, checkMethodXQ, row`olumn0error@Msg isFor = True '= ִеijУ/ zCase "Len" (value, functionArgs)#@If Not pThen@0ArSplit( , ","?%#C '(0)j0 And UBou\nd ,81U 'ΪDZΪ̶d3"@"" &Ǝ"x titleȷ"Ϊ@ա"LΪA<1)첆+ElseuO2]OA+ΧOLexA6OAOڵBgPҲ:1-2?-%,?-= 1T`jT?-TCTTT &S "SeS߽&SS &&&R`'R?,IE IfGhasE '!aʱϢ writeLog*WbeginC_co?}?z }Numberͣ{}] } }}7 a}}|UP#}}j}oQ{>h& {{1{{@֣>0λoqSf(v}?i?VsQ //g0~cU7K UUUU  dU____ҧUPU3<0%!hU==UPmmcU ;UU1UUg r esultQge@tCellVCatXQ(2, 4) '¡0+ [/i[[[][[E׿_E_E_E?ȷΪգұΪ֣0λȲ" & functionArgsArr(D1)("λ^V2Vɼ$x10%-30%֮ڣ " ElseIf0) = 1 Then '~ΪDZΪp̶v3BerrorMsg,"rowIndexе title& "@laTcEnd IfaQhasEAQPTrue 'УʱAiдϢwriteLog f !Dval(ue) > result * 0.<3)BÀ2Split(, ",")ElWWxx-Hxx?- xx !?hcheckMethodXQ`OFaoooEbeginC!_comment sheetd, j, o0lumnis8For@%! %'=15NumYNִǷǡжϡ--^ =K5@Case "C ame1= getCellValueCountXQ(I&g$4) 'ȡaϡ 0 #1n, 5MLWUpl>=]V@AbZ1 QIa2"0t;2&? +S3s!)."s(g!6"?f/;  NotK;/u {WdҪ!.׀˵͗ 뺺,ַ1Ϊ100r力 S; S{ 'ysetDMBCodCYesNo",ScR#q/YY5YYYYUXֵΧāWA 'եб{(YPV2?=0=5Ei=v2|>؀3ϧϧ]7&uo& YصӲќ (ِA ?9?9;?9 92i' isidatCx`+ 1OE?7 777j isFor = True '=ִеΪֵУh@aѴϢд б Case "checkInt"!MethodXQ1(value, functionArgs)" If Not &Then 0ArSplit( , ","?%C '(0)j0 E 'ΪDZΪWerrorMsg@"" & rowIndex"AxtitleA & "ȷ"Ϊ@գCڵ&M71)AA/ 2 λA7 ElseS1SSSrSQS(-(EndcKphasEaJJ! 'aʱ3 CV~ writeLog *WbeginC_comment sheetb],K~,`olumnk è֤<ߨ !SfzjhcresZjlx 5getCellVCou`ntXQ(#e, p'ȡ!|2aGo ""m;, u*"iaXXe ~ XF!$++x,+n= IsIDNum(ber%sc/) ') 3W tkk#.OM!jje+j#U0ѧ Ct@һλ!vĸXдgO _$P$ $o!o is=id8ate=p5+ ~1/V+?  =SFZJLX'On?&1& / eOF"zw"Î10vP18w $$$OHo ??_5_~_~e_~_~_~[}R~ѧ>ŏү~XJH} ]Len!]"1, 506/6ZZZ7Zy55505 555o5o5O,?/0O.O.O.ݳmnIndex, errorMsg isFor = Tru e '=ִпУ` ]ѴЀϢд б Case "check`Bank"MethodXQ*(value)0|If Not Then5"" &0 row"е title дȷ֣@ڵӂ'functionArgsArr(0)Ҳ+1F=hasE0Az 'oʱ ЅfC wri`teLogB'End If@beginCA_comment sheet\,o,coluPݿY8ear ,  ?b6___ʽ20122002ȣW"WWCWOW Wc~kWζW W_HXn?WXnߴߴ_.?U?U-U-U3UUUc UeU*OV*!cOVy *)*OV_*OV*`Month*;=4f*_`_O*___U011OUm*Ě%Z*ߦ _U_Uϰ*o'3 !+U(DZ)++ +Date" B Ao,airthday,v,, '!ʧo!... .!.ΪA@Chr(34xl Q[0221߱J 000 ߱Oj0000000g+[0A0Щ_00 |0Necessary1r C11NowO1O1O1$@O1 Fӿ/O1L1?x" & Chr(34)" 20131221ֻõ֮ʱ L" hasError = True 'Уʱvд ϢIwriteLog eOMsg/End IfbeginCheck_comment sheetIndex, c MethodXQ, row olumn#?isFt '=ִеijp4BхдбCase "qBirthday" 'Hs C@oJ(value)WIf NotKT Then '<ʧ<#\!"ځfQ ݀MtitleдȷʽΪA x-xx F-12-hQ_b0r_b ]10 aa绰 '[Phone0rYNumvYvX,TTT@-̶# ֻ$VT_]_!SP?.ҿPLEOptionBQ KPCQãP, 66Ъ_Q'K_Q(sg SȲ200ַ%9%/% %1, c /% " ѼqOGODiffN 8000O?:V???,ֵΪAhK-!Fa:Y5r@?o@End If beginCheck_comment sheetIndex, cdMethodXQ, row0 olumner@rorMsgisFor = T rue #'= ִӦ@У5= Case "YFJE" qCSDMB(, value, function Args)'If Not Th"0" &"е title дȷ`rh8asEAjb 'VʱдϢ*writeLog }Els{Aset@XCodg,Қ%E??$֤ g5R 5p5c11j111* eo/o/yn/_/_/_/G_/_/_/_/_/6[/ _/9*15'TYN_/U/жϡfe"= Case "checkSNumYN" |Tresult = getCellValueCountXQ(sheetInde@x, row9) 'ȡ̀дYIf \"" Then+ a1"1,8,0hMethpodXQo(*v[,")0ElTse>2>0=>2?>\ ^ JSs).Ahs(b10)A.XLA!1End IfUW@>Not i?errorMsg6" &F"е@titleA & "ȷF0hasEATrue 'Уʱд@Ϣ writeLog - ڟ set@DMBCodYesNo", Scolumnq 1beginC!_comment/ 4~,isFor* 'yC14TaǷΪǡ@3--^ = #qyyNameC`M3(, dfunctionArgs_`@KI "_`_` _`_`_`c _`J`S'-`ߙ Y`ck``X"MTerm_ѧڿ]3..Y).--|rE/+j_[& /+_[/+_[_[_[/ $w$Toa, :C%]OV% V %==&AtLeastOneNNull&һΪǿOV}=OVkL( >aBNO + 1 'a u  1 ĵԀĿ[0"@p.Moneby) Ar\ <> 0- '1Ϲ5qtotalBP +aSelect riuOIbaoPjiaoBCB:iSum ? _ huoshi H?   zhusu G?  others H  sc*?%| '23 >pG>6>>>¡Ϊ!@/KE+h+ " Jb`XuF -A ʽ-! Function regCh(eck@(, value) " DimLEX As ObjeDct:Set8= Create!("VBSCRIPT.REGEXP")O'RegExΪNEX.Global = True'ȫֿB'vba\ת-Pattern.5-*ʽ IgnoreCaseFal ǷִСx%#wT0est()'ԇ Nothing Enld tw'b ° Уظ˵Ѿûиʽ- '1ѧ׶ڱ+JcTheSameXQNew(sheetIndex2) 'Bhna@fS s .Range("A65535").@](xlU@p).row'cBgetTotalColumnCountVQmsgBN@-).Cells.ClearContents 'ÿ΅gʱʱeϢA,curMsgRow1 'Eʼ'=.'ðÿԪ֮ǰнбGFor i`startTitle + 2 To rna%hbabyID1D+b#I?#+(i, c4ji - 1c 2Zj^! If Zn 'WHtavA erroB"" & j`"е̓iA‡ !" writeLog 'SWhasu S!IfoNexңaһ ֵȡֵ7`C  лkeyWord ĹؐbnBCa ֵΪ H RI Get@@ODlR0(By@H g1, Strf)AIHgerCm-x1уc 't he fijre@sult o c@@k IX)6X1:fXF(What:= LookIn:=xlV(s, A xlWhol@6t@Is u 16K&Pk= "`"5>p caaEQ c.I-0q.' ָcgqsetlpX2Qp, Pb), `'Ѹ' 9P8123 End htaûЁN~o<]fX?LX @ָlֵ]D ȤsetCellValueXQM?A, colDv ĪA#). = Q?$A  ȡ!+^b+* *g*Count+*t&%9f ݴеPֵǰ@ʱaѾͨУxzTDMBCode(y?, LEL DimDataAYde]@^h@-CStr(S?a.8? 0 'ϸļ¼# Area).Range("A65535"). (xlUp).  ' a GetQOrCw(+ ,Ci, "") 'aA ЇFo8r i` @ To$G-If &`i, 1)8 Thena&+ 1KElseOExit @  jIf7Nextl iQ j^ + -! 1I"}j, 3K!A1()@ 'жAǷ! uc2,). 2 V$OY) 7 +bumnPlusV OOqO ue "Y{#jUOLA ȥĿո?RremoveSpac}wh#QR(As Oing 'Ԫ('"length1 IntegPer, 328 B'tʾijȣaַ D bx3VRxepl(@"%x{Eo "Truc?>qO6 ؄1?=pecialCharac8ter!9regp"[\u FF00-b6]9FF]|[ \s,;'""p?^]+3P`Check1(#i `FZ[_ ">>!??Ld>m>0!??'%   Ld>m>0!??Ldmmm!??% ' %   Ld???!??Ld?l?.!??' %  Ld?l?.!??Ldlll!??% %  Ld@k@,!??% " % % % %   % %   % % @lRp [SO090W`2p[w%(S`2@0%z%T0z%d0zp[wt9N0zH0 xL H07!k"  -k" ^0ކhxv$t0dv%    TxJdhAUuAJL\_ Y h g% % % " !% %   5% % K@0 55  % % % ( % ( " Q|4P(x5( F4(EMF+*@$??FEMF+@   5  '' ' ,5' ,5' ,5' ,5' ,5-   @ !%- -- @ !-- @ !-- @ !-- @ !-- @ !---- @ !-- @ !-- @ !-- @ !-- @ !-- 2 Gҵ$$$$$$$$-2 ;ѧ2 ѧ2  ֤2  ֤-"System-'-- ,5-  -*- @ !*-+- @ !V+-*- @ !*-*- @ !*-g*g- @ !*g-4*4- @ !*4-- @ !-- @ !-- @ !-gg- @ !g-44- @ !4- -- @ !$-- @ !#-- @ !#-gg- @ !#g-44- @ !#4-- @ !-- @ !-- @ !-gg- @ !g-44- @ !4- -6- @ !6- -**6- @ !6*-6- @ !6-6- @ !5-6- @ !5--'- ,5,5--  --- - -  -    @ !> @ !0>-   @ !0> @ !m- -  @ !? @ !.?-  @ !.? @ !l- -  @ !,@- '----  - - - -,l@-  2 J ʼ ---'- -  ,5--,5 - -- - '#A 5(NANIRoot Entry21ssWorkbookCompObj5h_VBA_PROJECT_CUR"4-PrintForm,f&CompObjaoVBFrameVBA__SRP_0)CXfS__SRP_1 __SRP_4__SRP_5 PrintForm __SRP_2 a+__SRP_33__SRP_87~__SRP_9*9_VBA_PROJECTw#__SRP_6<__SRP_7Sdir VOSbpSȉ "h;N z^DRShowForm{ThisWorkbook. !hQpe __SRP_10__SRP_11j__SRP_12 w__SRP_13__SRP_fj]wQQpe ?__SRP_b$j__SRP_c& Sheet1B__SRP_d'U__SRP_e!rSheet5%ySheet6(__SRP_a#PROJECT PROJECTwmShowForm+/f&CompObj01ao.VBFrameOlePres000\8@DocumentSummaryInformation8$SummaryInformation(3Ole  FMicrosoft Excel 2003 Biff8Excel.Sheet.89q }t  Microsoft Forms 2.0 Embedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} PrintForm Caption = "UserForm1" ClientHeight = 3180 ClientLeft = 45 ClientTop = 375 ClientWidth = 4710 StartUpPosition = 1 ' End rU@@@~~v    Q SaveAsUICancel Q0rowIndex columnIndexcontent sheetIndex errorInfo checkMethoderrorMsgtypeValisValidateCountregvalue sheetIndex2keyWordkbncolIndexvalue1flagrowNumIDNumberfunctionArgsArrvalue2 functionArgsIdNum\rU@@@@~xHi aS4rU@@@8`b^LeʘxME(SPSSS0{C9C24DEC-BE04-4542-88FF-AA19DF7A9D5A}{4C19F4E7-1EB1-49F0-9588-D8ABFA1AB224}x8 0:%h8:%8p۾[xAttribute VB_Name = "PrintForm" " Bas0{C9C24DEC-BE04-4542-88FF-AA19DF7A9D5A}{4C19F4E7-1EB1-49F0-9588-D8ABFA1AB224} dGlobalSpaco False Cr@eatablPredeclaDIdTru BE`xpose0TemplateDerivCus tomizDrU@@@8`8a`brU@@@@~x brU@@@$1brU@@8p 1 ` A q /`   `ihggZ""p ""PxOOpOX@O(OOOOhPO8 O( $xpX(hP8g ?g gggg8pX(hP8x`$h $h XrU@@@xP`p8!CbK0* pHd VBAProject4@j = r ۾[ 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\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 HB1PB,!zL"B+qSheet1*G Se_tn1 u2 S@ H 6 6e 6 6  ӡ@ԤGSbpSȉۢe2jo `m8!(e) @ߺc ]wQQpec ec eo Am k G;Xf6"a2fo  o &У!heeo fo ~k !LGbQ;N z^b2o 9o BU2ShowaxG`6\owF3e2row@4nO( l5^5^5^5^)zh^ Pr(intCr0inj2oad>ʘxME(6 <<< B` @%``X۾[$*\Rffff*0=5c7c0bd0"  ( HhxѧϢӡģ$D(FѧϢӡģ$DB@HѧϢӡģ$D(FoAttribute VB_Name = "Ԥ" Sub Browse_Print () Worksheets("ѧϢlģ").VisiblaTrue"d^P@review2cEnd LqnxME(SPSSS0{3F6CA6BA-12FF-4BFB-886E-96BBA236100D}{563EEEE1-E447-4C58-855D-830C76FEA68B}8 .X 2 %%XX ۾[ " 0 8"HP Xh xȡ:'~ B@0:oHȷ:X '~ B@0 :oQAttribute VB_Name = "ShowForm"  Bas|0{3F6CA6BA-12FF-4BFB-886E-96BBA236100D}{563E1-E447-4C58-855D-830C76FEA68B} dGlobalSpacoFalse CreatablPredeclaIdTru BExpo se0TemplateDerivCustomizD'ȡ P Sub CancelButton_Click() notContinueBoolT Me.HDidZEnd! 'ȷq ,onfՏ,-Fl;/lzJ zL#plowC@%0tFA ʒE^$ffxA ʒE^$fflowC@%0tMEPSLSS6"  5c7c0c24*\R0*#f*\R0*#1*\R0*#17$*\Rffff*0?5c7c0c24*\R0*#2$*\Rffff*0<5c7c0bcb` "Z       )ǷȷϽҪexcel籣棬"$4ȷ"$4, $4&ϵͳҪмУ飬粻棬"$4ȡ"$4? 6$2'0 0 8A@:dP'.k@o80ڱAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomi6zD2P Sub _BeforeSave(@ByVal AsUI As Boolean, _ Can(cel) isButtonkMsgBox("ǷȷϽҪ@ex " & Chr(34)"ȷ ,10ϵͳмУA?", 0vbOKC63If L4 ThenBDAӡΠϢ E‰gPP= fE nd If Ai rU@@@8@1q1`ADrU@@@xbrU@@@~x a&o "a "a "a  "a   "a  "a "a "a  $h  "a  "a  "a  "a "a  $h !$h $$h %$h ($h )$h ,$h -$h 0"a 1"a 4"a 5"a 8"a 9&o <"a =$h&rU@@@X` OOO@`1O@1`1O@`1OP1 `Q@ `1O@1 `1O@`1O@1`1OP `1OO@A `1O@ `1O@1 `1O@ `1O@1`1OP`OOPA!`OOP"`OOPA%`1OOP&`1OOPA)`1OOP*`1OOPA-`1OO@.`1O@11`1O@2`1O@15`1O@6`1OX19` OOO@:`1OP1=`1OObrU@@@xbrU@@@ xbrU@@@~x   q0!!1)HiHiHi(Hi(Hix Hi00Hi(0Hi HiHiH8Hi(Hi HiHiX Jgg^Zgv(x ZHHg0@&HHi Hi (Hi Hi  a $h  "a  "a  *~  &o  .  .  $h  "a   0   *~   &o   $h   $h  *~  &o ! *~ $ &o % "a$ZH#prdc)A\Z( F:JD #9px:JD #9prdc)A\Z(ME(SLSS6"N0{00020820-0000-0000-C000-000000000046} 0:%@p%<%Hx@x8۾[$*\Rffff*0@5c7c0c25`xAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2rU@@@ P `OO@ `P@1 `P` `1OOOOXq ` OOOh! `aOOOOOh `OOOOOP `1OO@A `QOX ` ` `1OOOOXq ` 1OOOPQ `1OOP `1OO`A `1OOOOX ` OOO`Q! `1OOOOX!# ` OOO@Q% `1ObrU@@@8!1qQ1`ADZh#p:l'tO Z F.ON^^_ox.ON^^_o:l'tO ZME(SLSS6"N0{00020820-0000-0000-C000-000000000046} 0:%@p%4%Hx@x8۾[$*\Rffff*0B5c7c0c25`xAttribute VB_Name = "She@et5" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2Z#pܘOE٢ F F~:wL,7x~:wL,7ܘOE٢ FME(SLSS6"N0{00020820-0000-0000-C000-000000000046} 0:%@p%>%Hx@x8۾[$*\Rffff*0C5c7c0c25`xAttribute VB_Name = "She@et6" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2rU@@@8 Aq`ADID="{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="CDCF61B6E387E787E783EB83EB" DPB="9A9836891EA61EA6E15A1FA6CE677EC6D74CC470FF17E4C06B6B2D7610F062B88A3C5AB101" GC="6765CBDC556423652365DC" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=0, 0, 0, 0, C Sheet1=0, 0, 0, 0, C ߺ=78, 78, 980, 609, Z =0, 0, 0, 0, C У麯=52, 52, 954, 583, =0, 0, 0, 0, C ShowForm=0, 0, 0, 0, C, 38, 38, 1511, 583, C ӡԤ=26, 26, 928, 557, PrintForm=0, 0, 0, 0, C, 76, 76, 1549, 621, 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  ҽѧҵ Ϣdc  ΧOh+'0@HT` x yxqMicrosoft Excel@&@q !"#$%&'()*+,-./0124568:;=>?@ABCDEFGHIJKLMNOPQRTUWXYZ[\]^_`abcdefgijklmnopqrstuvwxyz|}~      !"#$%&'()*+,-./0123456789:;<=>?@ACDEFGHIJKLMNOPQRSTVWXYZ[\]^_`abcdefghijklmnopqstuvwxz{|}~  !"#$%&'()*+,-./0123456789:;<=>?@ABDEFGHIJKLMNOPQRTUVWXYZ[\]^_`bcdefghijklmnopqrstuvxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[]^_`abcdefghijklmnopqrstuvwxyz{|~