邢唷>? ?€~?:BC  !"#$%&'()*+,-./0123456789:;<=>?@A?TEFGHIJKLMNOPQRS?UWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~?Root Entry FMb+@,纮Workbook8*tETExtDataB_VBA_PROJECT_CUR"6*胞瞌,@, ??? !"#$%&'()*+,-.?0123456789:;<=>?@A?CDEFGHIJKLMNOPQRSTUVWXYZ[\]^_?abcdefghijklmnopqr?tuvwxyz{|}~€ Y欐1~??????????????????????????????????????????????????????????????????????????????????????????傈?????????????????????????????? 罙?  罙?  罙? 媅SO1媅SO1 媅SO1媅SO1>媅SO1 媅SO1h>媅SO1媅SO1,>媅SO1>媅SO1?媅SO14媅SO1 媅SO1Arial14媅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_-;_-* "-"_-;_-@_-50_-"?* #,##0_-;\-"?* #,##0_-;_-"?* "-"_-;_-@_-=8_-"?* #,##0.00_-;\-"?* #,##0.00_-;_-"?* "-"??_-;_-@_-4/_-* #,##0.00_-;\-* #,##0.00_-;_-* "-"??_-;_-@_-? ? ? ? ? ? ? ? ? ? ? ? ? ? ?   ?  ?-  ?*  ?.  ?  ?/  ?  ?  ?  ?  ?,  ?/ ?1 ? ? ?$ ?1 ?4  ? ? ?P€ ?P ? € ? ?-  ?  ? ? ? "?* !?a  ?  ? ?  ?攆f7 ? ?  ?`  ?  ? #?+ ? ? / ? ?1 ? ?9 ?6 ?1 ?5  ?   @ @  ?"@ @ ?"@ @ € @ @  @ @  !@ @ 1@ @ @ @ 1 1@   1  1 1 1 (1 1 1@ @ 1 1@ @ (1@ @ 1 1 (1 1@  1|@  1@  (1@  1 1 1 1  x@ @ 7 1|@ @ 7  1|7  x@ @ ,  x,  1@ @  1<@ @ )1@ @ 1 (1 (1 1@ @  @ @ , 1 1 1@ @ 1 1d@  1  1  ,  1@ @ 1  1<@ @ 1 (1 1 14@ @  1  20% - @wr 1* 20% - @wr 1 20% - @wr 2*" 20% - @wr 2 20% - @wr 3*& 20% - @wr 3 20% - @wr 4** 20% - @wr 4 20% - @wr 5*. 20% - @wr 5 20% - @wr 6*2 20% - @wr 6 40% - @wr 1* 40% - @wr 1 40% - @wr 2*# 40% - @wr 2 40% - @wr 3*' 40% - @wr 3 40% - @wr 4*+ 40% - @wr 4 40% - @wr 5*/ 40% - @wr 5 40% - @wr 6*3 40% - @wr 6 60% - @wr 1*  60% - @wr 1 60% - @wr 2*$ 60% - @wr 2 60% - @wr 3*( 60% - @wr 3 60% - @wr 4*, 60% - @wr 4 60% - @wr 5*0 60% - @wr 5! 60% - @wr 6*4 60% - @wr 6"€~vR詋 #h槝h槝$h槝 1h槝 1%h槝 2h槝 2&h槝 3h槝 3'h槝 4h槝 4(頬頬€8^膲)8^膲 12*8^膲 2+ 8^膲_hQ齎L?e:SR鉔x,€厤-}Y}Y .Gl;`Gl;`/€'^0€ '^[0] 1梴梴2纇錱USCQ@wr 3%@wr 3?@wr 4)@wr 4@@wr 5-@wr 5A@wr 61@wr 6 B鑜蕬 鑜蕬XTableStyleMedium9PivotStyleLight16`匛 貧!h禰璣蟸Nm酧o`U_eQ2^鉔xh垍峳曪嬦Oo`VV??! =-Km諎@b g!h寶膲Rv^SbpS曪嬦Oo`?f^f餒? @€€€~饁?%MOwS A@@ v checkName checkZjlx checkSfzjh checkYesNocheckDisableTypecheckNum0,6,2checkFamilyIncomeTypecheckLen0,1,100checkSpLen0,1,60checkInt0,2,0checkSpLen0,1,100checkLen0,1,40checkDiffNamecheckIdentityDatecheckIdentityReasoncheckLen0,1,33鑜a鲖R宼e!jg剉$1颯kX橯 /f  &T ^椗_kXy f[!h*g8h瀃nZi gsQ臽礠鰁 N齹貫kX橯 &T 擽鍕:Nzz

k蔛)Ro`  g鱊翄8R蔛)R0hy0ZSi_6eeQ蟸FU0濺係錘蔛蜰婲蛓iN0{Q杒N0燫錧Ncbd柵_亯b,gT剉6eeQ a峽Q90歜(vb){Q9陙 孡€N6eeQ vQ諲擽S_eQ禰璣剉6eeQ checkZjlxE\l珟齆翄決榌翄隭uQ翄噀L€r^钀翄钀柣yO翄 櫃/nyr:Sgq/珟齆翄f 硂钑yr:Sgq/珟齆翄f 餝~nE\leg€_'YF怢埩僗Y8lENE\OO翄AgqB7b鉙剠Z /f&T/e鶴媁餠緰禰璣f[u '7 /f&TvQ諲NO6eeQ禰璣f[u '7 isZcjZckn '7 isZcjQtdsr '7FAILURE '7 4137010433]" ?#.8$?jI%?f5&?s>'??3)?? ?44€4/?|5??^47?ccC PK!檗?[Content_Types].xml瑧薔?E鱄鼉?J湶@%閭菐洽|廊?韶钵UL襎B l,?鳛;鉹得槣B+$G]ミ7O侪V墎甞{SsAX荫k棲緡搥?檛媒KW|OH攧埐w?韽?簥禿刢靵|"禤菑?@3梇?f}鬕λ蹽赡|趺?|鳈鼢筹_=&?@楪 媈~篝乡O_~_?>q纖8欚!壉餹媋l?跺x倪Nb!bIt;T鱡dou醰表納(箕{`佞堷LG?Ｘ2Fww:唳晁痧p朙軡髾壔冃鲍?J鰃)p'q╈F?髨 N棒?6咆1蝴刋~=$g倣焫粓8]2$#+B?喐蘛B?摅vu嵑噺m$LD1弟x?奭*?Ζ悓\F妩0q}!!L欁.欅苉?袊;靽t跦.稍ン1f"{l趰P満扗&鰡楤?飯I鼝?D紺P?荀堵}6?MZ$堹2銕X^翘蔬翜?膎駏L?塞脶mwN湏g壃揍軨充矛X-QC?{哵7椷=//XZ-穅莐椷cB锧?>z.厈楔漪椲?侴5摗 7酘藊溕O墝Ja鮚髸拤萓O剹2籉蒽原餿?踰謏j嚈憞@r裗m旐癱嘿Z欷J踮趬揆(俜1妈?b觓D玥TN饮kp毭=瞱bE踑ゾ諍`ZX!y爱犋岤垁l拧奡?国橈2译渋e@5 XD涵l];<5?瘴i#輑#磄t q灊0掾1僀椾卲4Q謙猆M霜戀岸隇-｜g愭Z浥?颁藡y锚屡P. 烸?宥 甗Z'擴^Qu螿 漎?媁iXqv辥讕b€g榲?a皛砅讳凡F8粌 U~怺蝂h隞韎}qa?把 滃蝖v RxSY)?X?2??B忄<7!1庥Yz)`p<#蓤P"琥R镊鈆肫+袌率贞~q臨◣嫞匪牚卖%Jq鷍拯詌Q e? f@ gJ gK gL gM gA hB  x\  h  h  gC hD gF gG gE gH gI gN gO gP gQ gR gS gT gU gV gW gX gY gZ  p[ !p] "g^ #g_ $y` %ya &yb 'yc (yd ie jf kg ih im im im ih ii  ih  zh  zh  ih ii ih il ij ik ik ik in io ik ip ik iq ir is it iu iv iw  ix !iy "zk #zz $i{ %i| &i} 'i~ (i2{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{qqqqqqqqqqqqqqqqqoqqqqqtHvqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqQ Q !QQQ#R`xN(>"餞!v稂?  鹁 vj  饇€€p)詳5%詳5%((?€Comment 13942 ]4v6`<kX橯f[u剉覻T<%饦  餠€€蝎) 9CC€Button 19],@yp珒9$< _薡纇錱<馂 !v 餦€€挟) 9CC€Button 15905U!],!>@蓇珒9$<_ 薡 纇 錱<&v6admin>@<indjn'7 Sheet1ggDh4hh:S遅2 ZO BP_蝕2qr d褚MbP?_*+€%&ffffff?'ffffff?(?)?" dXX333333?333333?&<3U} C} C} ?C} ?C}  D}  D}  DB@,,, , , , ,,,, E€ F F E G D D CC? H C CC C CI IJ C C? H J` C  C5@ H J` C  C6@ H J` C  C@ I J` IJ IJ IJ IJ C CC C C CC? C C CC@ C C CC@ C C CC@ C C CNC@ C C CC@ C C CC@ C C CC @ C C C]C"@ C C CC$@ C CC C C CC? C C CC@ C C CC@ C C@DF<< <<<<<<<<<<<<<<<<<< !"#$%&()*+,@-.:/:0:1:2Y@346,7,8,9,:,;,<,=,>,?, C C@ C C !C!C@ !CN !C "C"C@ "C "C #C#C@ #C #C $C$C @ $C $C %C%C"@ %C] %C &C&C$@ &C &C (K(C? (C (CG )K)C@ )C )CG *K*C@ *C *CG +K+C"@ +C +CG -C-C? -C -C .C.C@ .L .C /C/C@ /L /C 0C0C@ 0L 0C 1C1C@ 1L 1C 2C2C@ 2C 2C 3C3C@ 3C 3C 4C4C @ 4C 4C 6C6C? 6H 6J? 7C7C@ 7H 7J? 8C8C@ 8I 8J? 9C9C@ 9I 9J? :C:C@ :I :J? ;C;C@ ;I ;J? <C<C@ <I <J? =C=C @ =I =J? >C>C"@ >I >J? ?C ?C ?I ?J?@ D<<<<<<<<<<<<<<<<<<<<<<<<<<<<@,A, @C @C @I @J? AC AC AI] AJ?8>'@<d111'7 Sheet5ggD ZO 焥 d褚MbP?_*+€%&ffffff?'ffffff?(?)?"333333?333333?&<3U>@<d  '7 Sheet6ggD " master=""/> ]磤0VJH PH尐 VBAPr@ojectT@  = +r )犮[ J< 9stdole>stdoleh%^*\G{0002043?-C 0046}#2.0#0#C:\Windows\System32\VBA 样,0,餢fDsdir a;N z廭V淩 f 梺?xRRME(@h0B6 < hh€Z0h€j陳n€H陘r@蕗 @陘 8 @陘Ph @獉@€x @%错误信息代码表%陘  @陘  @陘@ @陿 pB鈥@蕗 @陘@陘0 @陿H`B陿\hB!陿B#蕵 B%陘 '@说明%h勪陿l`B陳hHpH陳pxH蕵B蕗  @蕗P  @獉t8ph @陘€@陘0 @陘&  @陘v @陿x B鈥zP@陘€ @陘j@陘|@蕵B陘~@  @陿€pB"蕵B$蕵!B&陘(@0 €H x`pPp`8 P@€0@僨x)0 P @P)鉡*\R1*#2a0$*\Rffff*1L66c0bb5e(*\Rffff*1L66c0bb5e\0搡:€ €€ € €€ €0€8€ € @€ `€ Dp€ 8 €0 P€0p€D€€0€8€4P€.€ €.€€.€(8€(`€>€"$€ B(`€€>€R€^@€F€€€ €`*x$€ €  ($H p €^€^x列索引号te^列名称tude^0p@定义一个结构，描述数据页]$鮄0=Public Const sheetNameValueTJ As String = "附件2政策落实统计"]$错误信息`2Public Const IntroSheetName As String = "填表说明"]$代码表H]$说明] x 记录总的校验数]$记录表头所在行] "执行 至少一个非空校验 的单元格数目] 6执行 至少一个非空校验 的单元格中内容为不符合规则的数目] 每一行合计中的值]  "至少一个非空校验时，记录错误单元格] 错误信息] P%---定义在模块中，记录从哪个单元格跳出] 8---定义模块中，记录进入的单元格] € 长度校验时，存储方法参数的字符串] 记录时关闭按钮]  记录总的校验中是否有不符合规则的]  记录总的校验中是否有重复的] #记录总的校验中是否有重复的] %/记录遍历无效行前，保存表中是否有错误信息 的状态] #保存校验方法的返回值]$@)遍历记录开始的行号<Public Const babyIDColumn As Integer = 2 '学生学籍号开始位置]$ )学生身份证件号开始位置]鮀p记录为空的数目]P"/看该行是否为有效数据 统计 5个必填字段为空的个数] "C记录去除空格操作的执行结果，如果去除了空格则返回true，否则返回false] €Pcell中最原始的的内容，即系统没有进行自动化处理用户输入的错误数据之前，cell的内容] 7上次写错误信息时，所在的行,应该项目初始化时初始化值一次] 总行数] 总列数] R在根据标识调用不同的方法时，判断是否是for循环 Cell_SelectionChange中需要用到该变量]$0记录省市县等记录所在的行]$+代码表sheet的下表是否继续] `]$h@)隐藏列的增加数]$) 性别所在列]$p+出生日期所在列]$,困难认定级别所在列]$ #认定时间所在列]$!%认定原因所在列] -O标识认定级别是否通过校验 0-未通过校验 1-通过校验且值为空 2-通过校验且值不为空]  $O标识认定时间是否通过校验 0-未通过校验 1-通过校验且值为空 2-通过校验且值不为空嚩Attribute VB_Name = "声? Public Typ€alueCo8lum8p '列索引号c@nIndex As I@ntegerT酶 P'S喣ngEndn _ '定义一个结构，描述数0据页"onst shee蕋{V? 豴1 '/ATJ僁兏郊2政策落蔪低臣苺 m8sgS? b错牢笮畔? €噐o填表 说 3Area習3氡韻K€dme?tot€alCount塉乽记录总男Ｑ槭 ?startT坕tl翄7 ' 表头所在行 atLea€OneNNulD '执行 辽倭t非空A 的单元栏袷肯\中内容环瞎`嬖虻腏聋Money利Varia€>'每一行合计中的值K Err or@-时，/A>A{C/e Ms>gAD厖 rgoldRang@e '---A辉€谀？橹袆 幽母跳出FTargen 进入臯侓剄functi@onArgsh'0长度">@存储方法参数的字符串fisSav€eButton}CA时关闭按钮has?€}Boolean倇?臠中是0否有? TheSa@擾兄复的IdN\um]n 卛da啷胈槔无效行前，保存表濑燶状态checkMet鄅odXQAA1丄0的返回鑂冦aRowS恿?= `r?锌祭x?磱懤babyIDB簀8= 2 '学蓘Ъ0位置card3身 葜ぜ?Di餸 is羴a1徕(为空卾E.A覕看该锈F螤行 伒 5个必填凶侄蝐 膏苀removeSp繿ceFla鈚eB去除空膏癫僮 俙柪蟺绻鸻$了则?tr@ue，否f恆lse ce!犩翆中最?瑼2的仌`|聪浪没有进凶远碛没武羨酖之aKsc ur€岪*?Long '上磝涡?OA晛A,应该项目初始化时乻值一次&rna%%'总薫w`c列abisF@SY2在荼晔兜€饔貌煌琡-C餎 判断?莊or循环 C€_Sele rJChR中需要用到该变羾b)headdI拠= 0(?蕗∈邢氐缺秕& S醬s唭9r0?v的下眴鞞剳 继续nottinu~eQ$Aq@N銘P luRW鳅104 @'隐藏琉g訦黾?wger 晰= 性别练wbirthday= 5 '出生日 期褦ysDifficulty郍rade亷31 '困难@认定级o針i ntifyDSt怑1时銸@6ReasonTQ原寅騖sO b%=?Q' 通过罸 0-未 1B-且值aC 2:不QV*_?Q_%__Se2.tlb#OLE Autom郺tion0僂 Offic凟O€ic侲瀫攢丒2DF8D04C-5BFA-101B-BD5€EAA€C4€2圗€榞ram Files\CommonMicrosoft Shared\OFFICE16\M€SO.DLL#僊 16.0 Ob伭 Libra宺yK€MSForms>SFrms3€452E€E1-E08F0A-8-02608C4D0BB4 SINDOWS刓sSFM20L'岯 繽?/;"~1僯IqAHq0?}#0Bq# €褳50爛 吚A29BA7102-932D-496纅E90-EA10376EE5A8?Users\王佳磊\AppData\Local\Te續p\VBE€b7?exd坈^":  4P, `$ >^,J(€ @$X€ ~€PV Pp >| € 8nH"Px €€  \( 08.d@ p,L \ * * P(h%0€%D%% %0 %8 %,X %&  ( #6z $J $"P (,Vx (PV (`" € (,LFX 4Jv <($ € <?  D6v0 D0>h HBj Hl € "G$(H8M4l@N~xN&N8(N `€ ,pI€ D@, € ,0 48v40>8 j@8l`€ "€G$HM4lN~N&€N8N € ,I € 4(00)"(8<($`€ <<0H6vH0>PBj Plh€ "G$HM4lN~N&N8N € ,I(€ H0<8(" @,8vh,0>0 j0l€ "G$8HHM4lPN~N&N88N p€ ,€I€ ,($$x € < 6@(LZX(&( (   )$   >(,h, x€ (,>40x, ,",  ( 0@(2Hp €*4 +$N  `^h p4LxdN   &4€ $0LXdpPV,J€  4L(d`Nx  \ \ \€ x"x€€€2$@6@ x* :€  €  8,P€€ a--------------------------------------------点击开始校验-----------------------------------------]X]p+某一类型的标识（包括行号和类型格式如3:1;2）] 标识数组(默认标识还是自定义标识)](某一类型的标识数组（包括行号和类型格式）] 某一类型标识的具体值]自定义标识类型所在行]%把记录为空的行号放进该数组]( N!D'"获取工作表数目 0工作表数目不正确，请下载最新模板后，再进行此校验A@21qazN$NB@|k1qazN$NB@L1qazN$NB@L1qazN$NB@L h$f!`B@-$每次开始检查时，把错误信息sheet清空,'j错误信息记录开始行数'.该次校验中，记录是否有错误出现（幼儿信息表中） ('#默认认定困难级别名称未通过校验'默认认定日期未通过校验 h$f!`B@-$每次开始检查时，把错误信息sheet清空, A65530$N%B%!' A@T 获取列数方法 IV5 <%B%!<'|xcna = Worksheets(1).Range("1:1").Find(What:="*", After:=[a1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).ColumnFAILUREA@X&+获取是否校验成功标志单元格，并把值初始化为0'z空记录数初始化为0 0 8" 保存时执行d 开始校验按钮事件时执行 A9:IV65536$N%B!z2新增：设置字体型号宋体9 9q A9:IV65536$N%B,新增：设置左对齐 9@9"新增：设置文本格式q€.您确定开始检查吗？ 检查过程中，请勿关闭excel， $4否则可能导致数据丢失或检查失败 6温馨提示$2 8d1qazN$NB@|kk.$N!b(|)把页签设置为无色   "没有查找到学生信息，无法进行校验！A@2'01qazN$NB@|k'该次校验中，记录是否有错误出现$N!中错误信息如下：A@b      '<"执行 至少一个非空校验 的单元格数目';6执行 至少一个非空校验 的单元格中内容为不符合规则的数目'''5"至少一个非空校验时，记录错误单元格'9是否为有效记录 'vC记录下校验改行前，是否已有错误';记录性别或出生日期是否有错 " | "$N%`!r'O第一行中标识的值'2=判断for循环中是否调用callFunctionXQStart 若没有则执行默认方法 <如果标识符不为空 -$'G格式如1；4-3:2；5 :$'H6格式如3:2；5将获取到的标识符进行拆分，拆分成行号和规则 DJ如果需要两种及其以上的类别需要校验（如默认校验规则和第三行自定义校验规则）   Y&+1是因为数组中第一个元素为默认校验规则 $:$'V*将获取到的标识符进行拆分，拆分成行号和规则$'S自定义标识类型所在行  $;$'c自定义标识类型的具体值   g对标识符进行遍历 $  " A@}根据标识符值，调用对应的方法  "$N%`'rH新增：调用去除特殊字符的方法 r$d'   "$N%`'{获取该列表头的名称第 行 " 列的数据项： F存在特殊字符（如^ , ; ' <> " ? 空格 回车）或输入法为全角类型，请检查！''^整体校验时，如果有错误信息  "$N%`!( 添加黄色背景 A@bN%isValidateCount = isValidateCount + 1kXPkH  $;$'P将获取到的标识符进行拆分   W对标识符进行遍历 $  " A@  "$N%`'rH新增：调用去除特殊字符的方法 r$d'   "$N%`'{获取该列表头的名称第 行 " 列的数据项： F存在特殊字符（如^ , ; ' <> " ? 空格 回车）或输入法为全角类型，请检查！''^整体校验时，如果有错误信息  "$N%`!( 添加黄色背景 A@bN%isValidateCount = isValidateCount + 1kk eJ 格式如3:2；5$'Q自定义标识类型所在行  P如果标识符中的行数等于当前行数$;$'e自定义标识类型的具体值   k对标识符进行遍历 $  " A@根据标识符值，调用对应的方法  "$N%`'rH新增：调用去除特殊字符的方法 r$d'   "$N%`'{获取该列表头的名称第 行 " 列的数据项： F存在特殊字符（如^ , ; ' <> " ? 空格 回车）或输入法为全角类型，请检查！''^整体校验时，如果有错误信息  "$N%`!( 添加黄色背景 A@bN%isValidateCount = isValidateCount + 1k  k d-只有默认校验规则格式如1；4$;$'H将获取到的标识符进行拆分   O对标识符进行遍历 $  " A@  "$N%`'rH新增：调用去除特殊字符的方法 r$d'   "$N%`'{获取该列表头的名称第 行 " 列的数据项： F存在特殊字符（如^ , ; ' <> " ? 空格 回车）或输入法为全角类型，请检查！''^整体校验时，如果有错误信息  "$N%`!( 添加黄色背景 A@bN%isValidateCount = isValidateCount + 1kH @ k8 k0  "$N%`( " 6执行 至少一个非空校验 的单元格中内容为不符合规则的数目   第  行的数据项： 中至少有一个需填写正确！请检查''8整体校验时，如果有错误信息 A@b  'd   'T每一行合计中的值k  <,一行中如果五个关键字段全部出错，则将该行删除  z+ z 'z,"将错误信息表中的该行错误信息删除掉  j  j j  h$f%PB@Rr 把改行删除  j  'j v'k k  z 6 删除无效行 $'  A@JB 把改行删除dH   A@JH 把改行删除k  z 此次校验中删除了 z:行无效数据（姓名、身份证件号列校验都失败即改行为无效数据）A@2k *有错误信息，请查看“错误信息”表，进行修正A@2$N!b(| h$fB@Hd '&A@ &'%执行校验重复数据方法,如果没有重复数据遍历看是否有需要删除的无效数据 校验通过!A@2.$N!b(|SUCCESSA@X:+获取是否校验成功标志单元格，并把值初始化为0 A65530$N%B%!' A@Td*有重复数据，请查看“错误信息”表，进行修正A@2$N!b(| h$fB@Hkpkh1qazN$NB@1qazN$NB@1qazN$NB@oq-------------------------------------------------查重复方法某一列------------------------------------------------@]] A65535 ^%B%!'2总行数Scripting.Dictionary$.O8O  ^%B!r'>获取学生姓名列所有数据  %"对学生监护人身份证号列数据进行遍历   %-如果身份证号不存在  B@&#add方法，第一个为key，第二个为valuekk ! 'Sheet2$NG:G7BB@  !$%& !DG17B,"qx.oh`3Attribute VB_Name = "主绦? '-(点击开 夹Ｑ?l Sub 测试所有:规虿⒋蛴〈砦笮畔?) Dim rowDataNum%typeValue '某一类型的标识（包括行号和格式?:1;2）?bsT€ '数组(默还是自0定义Cva€lEntity??慂 7,的@具体值媓R0ow '嘅乢所在行isNullArr(500) As Integer '把记录 盏膩伔?进该丳 sheetCount嚸俉orks. '获」ぷ鞅硎堼目 If H<> 3 Then羗 MsgBox "G不罚胂略刈钚履０搴螅€俳写藖@犅?(1).Protect Password€:="1qaz 罝Exit 罉?繣nd IfKUnpH 2).h 3_ Sas(m sgB佱).Cell繻learCo€tnts '看瘟丶觳槔时，把蓚` 清空,C7cur€]翋= 1 'G A樾数 h€asError啐Fals`h该碆瘟/中， 欠裼?出现（幼儿醨表 膆Application.ScreenUdpdng sysDifficultyGradFla0纀 o认定困鸭侗鹈€莆赐ü?!cinde€ofy 乪O日期M?,?,-, rna€薍Range("A65530").N(xlUp)?@1 s n€;"鈐XQ 1, 2^,€ bm晾4穐椒?c"1".DIV5 ToLeft`Golum$p'1:1`F*(What爃*", After:=[a1], S郞chOrBdAxlBys1Dir爌`>:=xlPrevio|us€@8, "FAILU8RE"儕aL!<成功标志单元格，并把值初始嗷? 茷览 0繤空U `} isSaveB utton€vbOK鈸 嘟４嫘时执E狤耞耤`匕磁ナ录? With >9:IV俐6A* v 新增：设置字体靶秃a?_A"宋体?萐iz○11cA杘&3k对齐 .Horiz alA`lignmP5 xlA$hPberFormatLoc$alQ @"文狙uc> 耎€b揱("您确定儜慙吗？ 过程QG请鸸乇誩xcel，" & Chr(1n& "否则可艿贾率€荻Щ蝰0失败,1Canp&温馨锑崾?)`  q  [ggb g3 単KTab恦lorI Nx -4142!憒页签q$为p无色 P僅startTitl鴈 + _ 賽? i2 To1f ?eaO榥eN!°欭 燪酠 至少一@个非空 Vg淥 \中内菸环r媳降?totalMone辻?e釋P.} "?u?@i褨1fa悾is€~i皭eH獒n为惜1s5/InE R'下膏厩劝，Q已C0?;?9d硊$”性别或出生柋}?j ~1?缊'荦媽9r?饞j).愒A叩谝恍兄炐吃u訽is = $判断for循环中!调用纍lF坲ncq璛QSV 若慡则?佲鴻/燴w<> p&QZ '如果崃 符不褛/#る= S鸱t(+€o-o'??-3:2；5槾 rowType = Split(t0Value, ":") '格式如3:2；5将袢〉降谋晔斗€胁鸱郑 成行号和拦嬖  If UBound(bs? <> 0 Then '如果需要两种及其以上的类别校椋ㄈ缒 x和第凶远ㄒr）'H乧FPor m€濴媋+ 1 To峫'+1是因为橹械谝桓鲈匚獕a獲叇valE`ntity嗗?|m)呭o慠蘯w"%(0罀e翈类型所曾谛?;{@€燓i?E,仢'@>k誈A1羈;琳薆祤木咛逯?@)≦'对gx遍? callFunctionXQStart `(n`1, Pi, js爩i燿ateC€t鄬?值，调用对应赖姆椒 #u仢Worksheets(1).Cells()__#'新增：!去厥庾址? (removeSpecial@>Chara郼ter(_$纅+g ,`檒癳Msg?sK蠺itl@誮€婣该列表头赖拿9A)error"€第" & i`("行AjA列的数据项 ：F& "嬖趨@≈^ , ; '凛"" ? 空格 爻担┗蚴淙敕ㄎ莂ィ雬检查！"每hasE`凾r?'整虃s时，x有磤砦笮畔?oT8.InP+ior.Colv= 65535 '添加粈粕尘斑writ鄀Log u''iLO= p僟E€nd If /囷Next5 _ ms= Fal黶e2╫o郪?T?_楽疮縹縹縹 縸縸緘Rk€B遺遺?遺;s= 遺遺姓o遺蕰遺∵z哌z遺遺囘z邕z遺遺遺 遺遺込 BWorksheets(1).Cells(i, j).Interior.Color = 65535 '添加黄色背景 CEwriteLog err orMsgM`'isValidat纄Countk+ 1曲End If 3)Next鎓Else If UB€Dd(rowType) <> 0 Then '格式如3:2；5嫵2#t€Row^(0) '自定义标识类型所在苄宣{@Ci€(+!A如果?符中的行数等于当前G;蒵valS0plitc? ";"嶫的具p体值) yF5€}nL€) 孴o匔'对 进行遍历+callFunctionX€QStart `(n), 1, A敔寉'根据$4担饔对应的方<法+ue %v╛_#'新增：!去厥庾址? (remo€veSpeciBP侁Charac`满()#€m+羗 (titl謊试5sLTaa '获取该列表头的鹈?)%"第" & `"行AjA羳屖菹 ：F& "嬖贓 （如€^ , ; '!["" ? 空 回车）或输入法@为全角酻爰觳椋|?__ h榓sEPTr?'整体校 槭保S有错误信息o_8煂煂煂煂瘨_煂 煂煂煂邖煄€ '只有默勅蟩)规则脥?；4?)pPsp.szbs1摪宔z紹?D到的缠鸱?/蟲蟲蟲蟰蟰? ?bc廁凓// 飏飏Kk= 飏飏 嚎飏怙r飏飏飏的飏黶g飏飏飏飏_ 飏飏飏L ;Worksheets(1).Cells(i, j).Interior.Color = 65535 '添加黄色背景 < >writeLog err orMsgM`'isValidat纄Countk+ 1曲End If +)Nex>t醔 讍LockedOFalLse_*? j '执行 至僖桓龇强招Ｑ 的单元格中内容为不符合规则@的数目If atLeaO@neNull脋<`> 0 Ah=脟 ThenEa叞@I"第" &D i"行?綻菹睿E搧籄中?有?需填写正确！请检埐?ghas = True '整体?时绻写€砦笮畔 E遱%n+ 5?E進ItotalMoneySu&m1+  '每一行合燃浦@4值i嘽€O> 1 罥$ '中!2五个关键字段全部出错，则将该行删除_isAWRowArr(Num? !i r E 徚? `'将eO<表?%掉+i F嘤pcu#a  - -.To^  fSC錷sg"Name).s(x).Delet€p把割腳9/猝p? ?OhE|Inu3 ~ ??; q9 0 i/@!1 '?无效行  rowDa蘴a,/?q)這?T_cd?A,?,)'?oROs- q ~ qU睷tK!zw; 悽Box "P此次An肘R羏薘w笿& x荩ㄐ彰⑸矸葜€ぜ帕醒都失败即楸:为╋wvn?p ? y，请查看“EQ”睜`进朽行拚+Tab踊Indezx016烳怣S}?c槰%0S繮0/?checkdXQNew ?€Not (0n 挕馗碅方法,as灭挥兄D0,遍历看是否有需要}rf呐桶ü? 儾诱-41421set褡蠺ue XQ 2,!8, "SUCCESS" '获取! 成功标志１，并阎党跏蓟0?f rnap Range("AA?").-(xlUp襪I R祼 pK 袺n?F€W2_2_2z_2_2_2NAProtect Password:魁"1qaz '2).槻ect Password:="1€qaz" Worksheets(3).Prot繣nd S@ub '--橹馗捶椒€骋涣?? x checkTheSame()罝im myDic As (Obj?KeyVariant( , va rDatarna = ActiveS亯.Range("A655 35").€?xlUp).Row '总行数1 Set idNumH= C reate僇("Scripting.€tiona鴕y"b伱I@O8", "O" & R).value '获⊙彰@兴€F輧GFor Ea@ch car? 孖n?'对监护人身€份证号罛进行遍历!C IfF<> "" 繿nNoG?.Exis 罁)B '如果不存贕@AA.AddE, Null 'add亸，谝桓鑫猭鋏y二CA狪fINexI聝 Cmy翃=5?sWi╰h H?B?Gm嘒:G@咰learConten.t?1@Re size(B?C ount)A沺pPlica羷.FFunn.Tr繿nspos??D屃4?*瀮例 e€ah@ 傠 ?6?3?錧wQ齉pe  SbpS剺葔 /!h寶齉pe %~Sheet1Bi煛梺艄xME(6 ?LLH V` X  I僗 x€I僙 €`刓 b(`  i僤€ l` € I僴 €I僗 €I僷 € tX` 8  i僤€ ~0`   I僴 €I僗 €I僙 €I儉 € `   'I僴 €I僗 €I僙 € ` @ 2I僴 `€I儢 €€I僗 €I僙 €I儤 € ` 8 GI儬 X€I僴 x€I僗 €I僙 €I儮 € ` 0 EI P€I價 €`   `   SI €+( ` X jI僴 xI? i?`?   ` (  {I價 H€I傼 h€I傽 €@凚  J8 `   I僴  €I僃 € T `Hk I僴€  €I僗  €I僷   €I價 ( € V ` h I僴  €I僃 € X€ `Hk I僴  €I僗 @ €I僷  ` €I價 ( €  ` I價  €I僴  €I僗 8 €I僷 €@凚 @刏 @刓  ` I僴 €I僗 8€I僷 €`凗`刕`刞 d`  I價 €@ €  0(  8 X僒%   x€@T? €N@??  @??  @?0?  @??  @?H?  @?`x  @?`  @?H  @ `  0€(0hH@X? X0N@??  @??  @??  @??  @??  @?x  @?`  @?H  0)鉡$*\Rffff*1M66c0bb5f*\R1*#405*\R1*#13f*\R1*#133€ € B € €€    € B € B h p€ B ( 0@2`€ € p€  B 8€ 8@ $x 8 "€ pB x€ 8€$$ HP€ € xXB 4(0*X$€ 8BP0h!€  ( 0 € 8 € € € @ €  B   4 $H  "p   "   .  0 0@ p  *   .  8.H x0 6 0@6X 8 6 P`(x  0(0€ € f8€  >&8 `€ Xp€ h `*x j&P x€ ` (8P X Hp(x H0(x H(p` H(  & € `  €  H( H( H( H( € & € n `p  8( H(  & € b € h       &X! €!€ ,????€ f?€ X" x"?? ? 8?(? 6?(? p$ &x$ ????€ f? H%(`% ? T? &? &(&0& $H& &p&$|?$&'$ @'$P' `'h' p' €'$t?$&($ (( 8(€ $@(H(€ P(p(€ ^x( ?"?)@ )&`) ?? ????€ b? X*h*x* t€* &? +€ 0+8+X+€ f`+ ??? t? &h, ?€ ???€ b?€ 8- X-p-€-?&. 8.€ H.P.X.x.€ ^€.? ?/@ /&`/ ?? ????€ € ^?€ P0 p0€0?X?&? 1€ (10181X1€ ^`1€ ? ??2T2&h2 ?€ ????€ n?€ H3 h3€3"??&H4 p4€ €4???€ j?€ (5 H5h5"x5?&06 X6h6p6?€ n?€ 7 (7H7"X7€7&8 88€ H8P8p8€ Px8????&? ?€ ????€ R?P:h:€:X圍&啁 ;€ ; ;(;H;€ bP; 符$消鼷@<&@<h< p<€<$圏,?唿琰稂鼽==(=€ j0= 燒魁"淆鼾&€> ?服傀H渠 ?L? h?p? x? & @ H@ P@ `@h@p@x@楡€ Z燖 AA0A@8A&xA 燗癆窤谹郃B€ jB "xB燘癇菳 d蠦 &8C `CpCbxC€ h郈€ ,HD xD &E 8E HEPE XE &F @F PFXF`FhF團€ ^怓 餏&G0G@8G&xG 燝癎&窯郍鐶H€ ZH pH&圚癏@窰&鳫 I0I&8I`IhI圛€ Z怚 餓,J@J@HJ&圝 癑繨,菾鳭K K€ |(K ↘$繩鐺(餕@L&XL €L€ 怢"楲繪萀鐻€ |餖 pM 圡∕@癕&餗 N(N 0NPNXNxN€ |€N O$O@O@HO&圤 癘繭$萇餙鳲P€ d P 圥 燩@繮&Q (Q8Q2@QxQ€ x€Q 鳴6R.PR€R怰( 楻2≧( 窻1萊( 豏2鑂( 鳵1SS SJ8S圫燬⊿癝窼€ f繱B (T€ 0T<8TxT€ 楾癟$蠺$鳷 U(U€ € 0U€ \豒€ B 8V,XV€ 0圴@竀"鳹€ ^ W€ 6€W竁蠾餡X00XH`X╔萖蠿豖郮鑈€ 餢€ "怸€ 竃€ .豗B Z Z€$ ZBHZ 怹 燴 癦 繸 萙 豘郱鑊€ 餤€ 圼€ 燵€ 竅€ 豙B 餥"鳾  \8\@\ H\P\€X\ `\8€\竆2繺鳿 ] 0]@] H]P] X]h] F圿衇豜 郵 鑍€ *鴀(^€ 0^€ 衈€ 鑎B __*(_€ 4X_恄€ 榑B (`^0` vP` p`€ x`€ a€ 0aB Ha*Pa€a€ 坅B b^ b v@b `b€ hbB c€  c "8c `c8€c2竎餭 d(d 8d@d Hd Pd`d"€d0╠ 豥(鴇 e(e0e€ L@e恊&榚纄萫 衑鄀€ 鑕B xf€€f€V爁鴉€ 8g Pg pg:€g4纆$鴊 h"8h`hhhph€ xhB i€i€ 6i€ HiXi`ihipixi坕-----------------------------------------校验校验必填项若有错误信息显示到 批注中----------------------------------------------------------- 单元格内容] X Z ^%`'\ \'Vd('Vki--------------------------------------------写日志 记录错误信息并显示到一个错误信息表中-------------------------------------------- d j h$f,` j 'jiX------------------------------------------------------ 获取指定的cell值-------------------------------------------------------------( X p n$N%`!r'li--------------------------------------------写日志 记录错误信息并用红色字体显示到错误信息表中-------------------------------------------- d'v d j h$f,` v j h$f%`%x!z(| j 'jii--------------------------------------------添加批注（点击开始校验）-------------------------------------errorInfo批注内容X 1Worksheets(sheetIndex).Unprotect Password:="1qaz" € X Z n$N%`B@ X Z n$N%`!(W 添加黄色背景 X Z n$N%`!(Pii--------------------------------------------删除批注（点击开始校验）-------------------------------------01Worksheets(sheetIndex).Unprotect Password:="1qaz" X Z n$N%`B@ X  Z  X Z n$N%`!(|d  X Z n$N%`!(|kpihr---------------------------------------------点击开始校验 是否添加或删除批注调用的方法----------------------------  如果校验失败 X Z n$N%`!d 判断批注为空 n X Z A@~V 添加批注方法d"若不为空，则去除当前批注，重新添加 n X ZA@N 清除批注方法 n X Z A@~k1 MsgBox "第" & rowIndex & "行数据项：" & errorMsgd:如果校验成功则判断是否有批注，若有则把校验失败时的批注去除 n X ZA@ ,#如果做了去除空格处理,则对其进行提示第 X行，第 Z列，您输入的字符"$4 "$4"中包含了空格，系统已自动为您清除了A@bd`kXkPiH----------------------------------------------------------------------------------------------------------------------------------y--------------------------------------------根据标识符，调用对应的方法(点击开始校验)-----------------------------------------------------------------------------------------------------------------------------------------------------------------------把错误信息写进错误列表 X Z n$N%`'r  Z n$N%`'I获取该列表头的名称 如果为合并行的表头  Z n$N%`' X e  Z n$N%`'k0'  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'  checkSpLen*e0如果为整数长度校验  $' checkSpLen'kP _=================================类型1 执行的非空校验==========================================把错误信息写进错误列表 checkNullKT n X Z$' 第 X 行的数据项： 不能为空！请检查'')整体校验时，如果有错误信息 A@bRMsgBox "第" & rgold.Row & "行的数据项：" & Chr(10) & titleMsg & "不能为空，请检查"k0 n  X Z A@'a=================================类型2 执行学生姓名校验========================================== checkNameKT n X ZA@@调用去除空格的方法 X Z n$N%`!r'r r$' 第 X 行的数据项： ;填写不正确！必须为汉字，长度大于1，不能超过20个字符，请检查''%整体校验时，如果有错误信息 A@b  'k` n  X Z A@'Z================================= 执行的长度校验==========================================checkLenKT r $'  ,$'$ ` 如果该项为非必填，并且为固定长度第 X 行的数据项： .填写不正确，该项可以为空。若填写，则长度必须为$ 位！请检查'$ ed 如果该项为非必填，并且为长度范围第 X 行的数据项： 4填写不正确，该项可以为空。若填写，则长度必须大于等于$ 位，且不超过$ 位！请检查'$ ed 如果该项为非必填，并且为固定长度第 X 行的数据项： &填写不正确，该项不能为空，且长度必须为$ 位！请检查'$ ed 如果该项为非必填，并且为长度范围第 X 行的数据项： ,填写不正确，该项不能为空，且长度必须大于等于$ 位，且不超过$ 位！请检查'kH '0整体校验时，如果有错误信息 A@bk n  X Z A@'Z================================= 执行的长度校验========================================== checkSpLenKT r $'  ,$'$ ` 如果该项为非必填，并且为固定长度第 X 行的数据项： .填写不正确，该项可以为空。若填写，则长度必须为$&位且只能为汉字，不包含特殊字符！请检查'$ ed 如果该项为非必填，并且为长度范围第 X 行的数据项： 4填写不正确，该项可以为空。若填写，则长度必须大于等于$ 位，且不超过$&位且只能为汉字，不包含特殊字符！请检查'$ ed 如果该项为非必填，并且为固定长度第 X 行的数据项： &填写不正确，该项不能为空，且长度必须为$&位且只能为汉字，不包含特殊字符！请检查'$ ed 如果该项为非必填，并且为长度范围第 X 行的数据项： ,填写不正确，该项不能为空，且长度必须大于等于$ 位，且不超过$&位且只能为汉字，不包含特殊字符！请检查'kx'0整体校验时，如果有错误信息 A@bk8 n  X Z A@'h================================= 执行的长度校验（Number类型）==========================================checkNumKT r $'  ,$'$@ 如果该项为非必填，并且为固定长度第 X 行的数据项： G填写不正确，该项可以为空，若填写，则必须为数字，大于0，整数位长度不超过$位，且小数位不超过$ 位！请检查'$ ed 如果该项为非必填，并且为固定长度第 X 行的数据项： ?填写不正确，该项不能为空，且必须为数字，大于0，整数位长度不超过$位，且小数位不超过$ 位！请检查'kh'0整体校验时，如果有错误信息 A@bk( n  X Z A@'[=================================执行值范围的校验==========================================把错误信息写进错误列表checkValKT r $'  ,$'第 X 行的数据项： $填写不正确，该项必须为数字，大于等于$ ，且不超过$！请检查''-整体校验时，如果有错误信息 A@b& isValidateCount = isValidateCount + 1k8 n  X Z A@'_=================================执行的为整数值的校验==========================================把错误信息写进错误列表checkIntKT r $'  ,$'$@ 如果该项为非必填，并且为固定长度第 X 行的数据项： 4填写不正确，该项可以为空，若填写，则必须为整数，大于$，且长度不超过$ 位！请检查'$eE如果该项为必填，并且为固定长度第 X 行的数据项： 0填写不正确，该项不能为空，且必须为整数，大于等于$，且长度不超过$ 位！请检查'k?'0整体校验时，如果有错误信息 A@bkH! n  X Z A@'`================================= 执行的身份证件号校验========================================== checkSfzjhKT n X$l'S 获取填写内容 第 X 行的数据项： &填写不正确，因身份证件类型为空！请检查''0整体校验时，如果有错误信息 A@bd  居民身份证 r Z$'O 身份证号校验 :如果不符合身份证校验规则第 X 行的数据项： M填写不正确，该项必须为学生身份证号，并且最后一位如果为字母X的必须大写！请检查''4整体校验时，如果有错误信息 A@b  'kd r$' 第 X 行的数据项： E填写不正确，该项不能为空，且长度必须大于等于1位，且不超过18位！请检查''4整体校验时，如果有错误信息 A@bkkk n  X Z A@'X================================= 执行身份证件类型校验================================== checkZjlxKT checkZjlx r1$' 第 X 行的数据项： 填写不正确！请检查''(整体校验时，如果有错误信息 A@bd` checkZjlx n X ZA@k8 n  X Z A@'\================================= 执行学籍号的校验==========================================checkXJHKT r$' 第 X 行的数据项： E填写不正确，该项不能为空，且长度必须大于等于1位，且不超过50位！请检查''0整体校验时，如果有错误信息 A@bk n  X Z A@'`================================= 执行学生信息ID的校验==========================================checkXJHKT r$' 第 X 行的数据项： E填写不正确，该项不能为空，且长度必须大于等于1位，且不超过50位！请检查''0整体校验时，如果有错误信息 A@bkX n  X Z A@'[=================================执行银行卡号校验==========================================把错误信息写进错误列表 checkBankKT r$' 第 X 行的数据项： $填写不正确，该项必须为数字，大于等于$ ，且不超过$！请检查''-整体校验时，如果有错误信息 A@bk n  X Z A@'W=================================执行年级校验========================================== checkYearKT checkYear r$' 第 X 行的数据项： 填写不正确！请检查''(整体校验时，如果有错误信息 A@bd` checkYear n X ZA@k8 n  X Z A@'W=================================执行学年校验==========================================把错误信息写进错误列表checkXnKT r$' 第 X 行的数据项： )填写不正确，该项格式如2012-2013等！请检查''-整体校验时，如果有错误信息 A@bk n  X Z A@'W=================================执行月份校验==========================================把错误信息写进错误列表 checkMonthKT r$' 第 X 行的数据项： &填写不正确，该项格式如01、12等！请检查''-整体校验时，如果有错误信息 A@bkP n  X Z A@'g=================================类型3 执行的日期校验(非必填)==========================================把错误信息写进错误列表 checkDateKT r$' 2如果出生日期校验失败第 X 行的数据项： 填写不正确！填写格式为"$4 xxxx-xx-xx"$4 ，如2013-02-21，请检查''-整体校验时，如果有错误信息 A@bkp n  X Z A@'c=================================执行的日期校验（必填项）==========================================把错误信息写进错误列表checkDateNecessaryKT& r$' 2如果出生日期校验失败第 X 行的数据项： 填写不正确！填写格式为"$4 xxxx-xx-xx"$4 ，如2013-12-21，请检查''-整体校验时，如果有错误信息 A@bk n  X Z A@'g=================================执行的出生日期校验（必填项）==========================================把错误信息写进错误列表checkBirthdayKT! r$' 2如果出生日期校验失败第 X 行的数据项： 填写不正确！填写格式为"$4 xxxx-xx-xx"$4 ，如2013-12-21，请检查''-整体校验时，如果有错误信息 A@bk n  X Z A@'J=================================类型10 校验电话号码====================== checkPhoneKT r$' 第 X 行的数据项： 填写不正确！填写格式为"$4区号-固定电话 或 手机号码"$4 ，请检查''%整体校验时，如果有错误信息 A@bk0 n  X Z A@'L=================================checkOption 校验备注 ====================== checkOptionKT rB$' 第 X 行的数据项： )填写不正确！长度不能超过200个字符，请检查''%整体校验时，如果有错误信息 A@bk n  X Z A@'\================================= 执行认定困难级别名称校验==================================checkDiffNameKTcheckDiffName r $' 第 X 行的数据项： 填写不正确！请检查''(整体校验时，如果有错误信息' A@bdx checkDiffName n X ZA@ r$1如果通过校验且值为空'd 'k k n  X Z A@'d================================= 执行认定日期校验(非必填)==========================================checkIdentityDateKT% r$' 2如果出生日期校验失败第 X 行的数据项： 填写不正确！填写格式为"$4xxxxxxxx"$4 ，如20130221，请检查''-整体校验时，如果有错误信息 A@b'd8  r$X$如果认定等级名称为空，且认定日期为空'  r$e](如果认定等级名称不为空，且认定日期不为空'd第 X 行的数据项： v填写不正确！该项与“困难级别认定名称”必须同时为空，或同时不为空且同时通过校验，请检查“困难级别认定名称”是否通过校验''0整体校验时，如果有错误信息' A@b'kk n  X Z A@'T================================= 执行民族类型校验==================================checkMZKTcheckMZ r$' 第 X 行的数据项： 填写不正确！请检查''(整体校验时，如果有错误信息 A@bdHcheckMZ n X ZA@k  n  X Z A@'d================================= 执行认定原因校验(非必填)==========================================checkIdentityReasonKT'0,1,30' r $' 第 X 行的数据项： 5填写不正确，长度必须大于等于1位，且不超过30位！请检查''0整体校验时，如果有错误信息 A@bd   r$r1如果认定等级名称为空，且认定日期为空,认定原因为空   r$ew8如果认定等级名称不为空，且认定日期不为空，认定原因不为空   r$e第 X 行的数据项： d填写不正确！该项与“困难级别认定名称”、“认定时间”必须同时为空，或同时不为空且同时通过校验，请检查''0整体校验时，如果有错误信息 A@b'd第 X 行的数据项： 填写不正确！该项与“困难级别认定名称”、“认定时间”必须同时为空，或同时不为空且同时通过校验，请检查“困难级别认定名称”、“认定时间”是否通过校验''0整体校验时，如果有错误信息 A@b'k燛k楨 n  X Z A@'X================================= 执行身份证件类型校验==================================checkIDCardTypeKTcheckIDCardType r $' 第 X 行的数据项： 填写不正确！请检查''(整体校验时，如果有错误信息 A@bdHDcheckIDCardType n X ZA@kD n  X Z A@'T================================= 执行残疾类别校验==================================checkDisableTypeKTcheckDisableType r $' 第 X 行的数据项： 填写不正确！请检查''(整体校验时，如果有错误信息 A@bd菳checkDisableType n X ZA@k楤 n  X Z A@'T================================= 执行残疾类别校验==================================checkFamilyIncomeTypeKTcheckFamilyIncomeType r $' 第 X 行的数据项： 填写不正确！请检查''(整体校验时，如果有错误信息 A@bd8AcheckFamilyIncomeType n X ZA@kA n  X Z A@'v=================================14 checkGender 执行内容是否为“男”“女”校验--================================== checkGenderKT checkGender r1$' '-性别有错，则无需校验身份证号第 X 行的数据项： 填写不正确！请检查''(整体校验时，如果有错误信息 A@bdh? checkGender n X ZA@k8? n  X Z A@'u=================================14 checkYesNo 执行内容是否为“是”“否”校验--================================== checkYesNoKT checkYesNo r $' 第 X 行的数据项： 填写不正确！请检查''(整体校验时，如果有错误信息 A@bd淆 checkYesNo n X ZA@k? n  X Z A@'u=================================14 checkYesNo 执行内容是否为“是”“否”校验--==================================checkSqyyNameKTcheckSqyyName r $' 第 X 行的数据项： 填写不正确！请检查''(整体校验时，如果有错误信息 A@bd8<checkSqyyName n X ZA@k< n  X Z A@']=================================checkTerm 执行学期校验--================================== checkTermKT checkTerm r $第 X 行的数据项： 填写不正确！请检查''(整体校验时，如果有错误信息 A@bk窥 n checkTerm r $ X Z A@'r=================================checkAtLeastOneNNull 执行至少一个金额为非空--==================================checkAtLeastOneNNullKT  'A"执行 至少一个非空校验 的单元格数目 r$ r=如果金额符合规则  r ' Z KTF  r ' KTF  r ' KTF  r ' KTF  r 'n?d金额不符合规则  'F6执行 至少一个非空校验 的单元格中内容为不符合规则的数目    'kX8'nH8i@8_--------------------------------------------调用正则表达式-------------------------------------]pVBSCRIPT.REGEXP$.7RegEx为建立正则表达式 (4 设置全局可用vba中\不用转义  ( .设置样式 ( 5设置是否区分大小写。 r %'3 执行搜索测试.i?-----------------------------------------------------------新版 校验重复（说明已经没有格式错误）------------------------------------------------------------V-----------------------------------------------------------1、无学籍幼儿表先在表内查重(sheet学籍幼儿表 A65535 $f%B%!'*cna = getTotalColumnCount(sheetIndexValue) h$f!`B@1&每次校验重复时时，把错误信息sheet清空,'j错误信息记录开始行数X==============================无学籍幼儿表先在表内查重==================================0类似冒泡排序，每个元素和在它之前的所有行进行比较      $f%`' "   "  $f%`'$  $.如果学籍号相同，说明是重复数据第 " 行的数据和第 行身份证号重复！请检查!!!!' A@b*把错误信息输出'&k(3 33i3-----------------------------------------------------------第一列中 根据值获取该值所在行------------------------------------------------------------根据值，查找到值所在的行或列keyWord 查找的关键字'kbn 查找所在行或列 值为 “row”或非row'(]the find result object *2 64 :8 A1:A65535 n$N%B%0.. . ,row .!'(d81 .!<'(k 1k1i1------------------------------------------------------ 执行码表内规则校验(允许为空)-------------------------------------------------------------value 规则类型value1 cell的内容校验不正确返回false校验正确返回true @0说明为非必填项 >$'z?k?k?]'D某一个规则的记录数 A65535 H$f%B%!'FB表行数' H rrow$('B=获取规则类型所在行  B F  H$f%` r D 'Dd?y?k?  " B B D  " H$f%`X >X L判断规则内容是否和cell中相等'y .k. "#此时count数目为该规则所有的内容数目i?------------------------------------------------------ 执行删除某一行操作（excel受保护的）-------------------------------------------------------------sheetIndex 表名 rowNum 行号1qazN n$NB@L F n$N%PB@R/ 把该行删除- Worksheets(sheetIndex).Protect Password:=123ih,------------------------------------------------------ 向指定cell中设值-------------------------------------------------------------8 1qazN n$NB@L r X p n$N%`(ri?------------------------------------------------------ 执行删除某一行操作（excel没有保护）-------------------------------------------------------------sheetIndex 表名 rowNum 行号 F n$N%PB@R/ 把该行删除ix*------------------------------------------------------ 向指定cell中设值------------------------------------------------------------- 1qazN n$NB@L r X p n$N%`(ri?------------------------------------------------------ 根据代码表中的名称设置值（前提时，名称已经通过了校验）-------------------------------------------------------------€ ]X p  X p n$f%`!rX '\'D某一个规则的记录数 A65535 H$f%B%!'FF表行数 H rrow$('BA获取规则类型所在行  B F  H$f%` r D 'Dd?y?k?  " B B D  " H$f%`!rX '> > \X 1判断规则内容是否和cell中相等 " H$f%`!r'Z ZX X p \ n$f%`(ry?d? >否ESheets(sheetIndex).Cells(rowIndex, colIndex + columnPlus).value = "0"dh& X p \ n$f%`(rk8&k0& "i&------------------------------------------------------ 去除cell中的空格------------------------------------------------------------- ]X单元格里面的内容]p3Blength1表示cell中原来的长度，length2表示执行去除空格后的字符串长度'默认为没有去除空格2 Worksheets(sheetIndex).Unprotect Password:="1qaz" X p n$N%`!r'> >'^ ^Gzj*"如果单元格为空，则不需去除空格操作 > '`%length2为空格第一次出现的位置 `如果字符串包含空格 > $b'> >X X p n$N%`(r'k?i?~------------------------------------------------------ 去特殊字符-------------------------------------------------------------]-[\uFF00-\uFF06][\uFF09-\uFFFF]|[\s,;'<> "?^]+'  r$'dd?'dk?i€"x"嫷Attribute VB_Name = "工吆?  '-%校必填项若有错误信息显示到 批⒅?( Function checkedRequiredStart(rowIndex, c olumn ) { '单元@格内容Dim cellValue As rS唍g= A€;veShePet.Cs?If?? Then?丗抇€綟al4seETrund If< E€?鄝[写日志 记 o矂o一个表kq坢writeLog(co鄋tent荾刬X`s(msgB?腫curMsgR纎w, 1)繨CK + 1:D嚑 获取 付ǖ腁呏登pHDget亾BCountXQ(A橠彩 碅?蠾orksHEQy.vA`%2G煤焐痔錍€G3 餑Red酼HnLen EKzKRcR.Characters(?, ).F]?Color?3?VJx焫?添?ǖ慊鲪开始敛）s+#`errafo氓ΞaddCo鋗mwXQC甐U暖?  ?聶€'鬞Unprotect Password:="1qa>z 襡運N?A ( I牂0rior#=€<65 535 '?黄郎尘懊>% d/.Visi1 6K Ye鴖No-k2 ? DiffName困泥鸭侗餫?%D~Cods氨嗦l鎯A! ?HBIDC0ardTpM身份证件类瓦 xo??  kSqyy申请原隐? _ _ "] e? ? kYear醃年份?MA縚 _ ]  廁iSpiiBE\ 哨V11j BLvSelect Case =Q)1 执崃壏强??O 3~N8ulld襵Me纓hodXQ?Required矋爤 Nod??厔@"蛋? &茙€"義数据项：亮title兰填写不正确，?可晕铡ＨB袅，则?盽匦胛狝厅1)位！请0检查?El4seuO2]OA+范湮Oex!???大于等?v(也怀璎过1-2?-%,?-俘 1T`jT?-TT鉚不能歪T &S "Se鵖?S牠Sf?縶箋?R`'R?,I鋓ahasE!鬇佢 '整藼錫帐保в写砦笮畔縋O蟻 d蛷| 弢弢 c弢繃 }w弤潀弤?Ih~Sp弤9 弤 廈瘇瘇Pb瘇瘇??楻Sfzjh縍 r@esZjlx0EgetCel锍lValueCountXQ(sheetIndex , rowH2) '获取填写内容  If resZjlx = "? ThenbLerrorMsg3第" & "行的数 菹睿ti坱le-& "不正确，因身份证件类型为空！请检查"俬asE丅ATrue '整体校验时，如果有错误信息&write0Log lEl se*嫭居民僾ケcheckM€ethodXQ€rIsIDNumber(vA? c鄌lumn倉纜C,号罖' @'NoLt  'O瞏环蟽?嬖繂厗该项必须为学生?，⑶易詈笠晃涣)为字 母X的 大磆怉+慉l Eis@鰅datG鱻{M+ 1`E黱d ;焀璒@SFZJLX肙)?vL_A煂煂，!!I不能聥 页ざ葍E于等于1位不超过1?悺e?H愰 ?H撖G{/? $  beginCa沖co續ment 樨闚 哨垵,叽 isF or纇a '= 执行銓醚 =Case "B!甏豃@怐MB((, d鉴"1"4m?`b飡 f@"o{o{o{`{?)/1痽痽\o0?風set鐲odz,*'8&,U??鍇?R|?O-*B-学籍号的-??XJH-f ?@孲c??,_b&> （_b_bVb50_b ???o1o1?焅/-/-/-姪/-+o-?d-生两ID?匡??O =?????_謅/Y织-??O豋 ???????????b餺??丵堃锌▋= '把砦笮畔⑿唇,列表 Case "checkBpank" :P4MethodXQ = T(valu e)0\If N ot0@Then2;errorMsgk"第" & rowIndex "行的数据项：Atitle& "填写不正确，该项必须为数字，大 于等觽'functionArgsArr(0)?，且不砐齺+1±请检查搯zahasEc€aTrue '整逍Ｑ槭保€绻 writeLXog 嫓'E nd IfbeginCA€_comment sh╡et耚,薿,columnD ?鄆sForB执行年箕秮K €5埐Ye ar詇页DMB(罛, 露, 1敺岸H@B返煙?O?O脽NElse颕 set?Cod宒+塊E{狪S 誛鵢XckE恄X ぅ薠 Y==Y学年OY蒤  圿X鎛O]瞈Xn"焄禼陡袷絸如2012-€?等^"__C__JUU8?W&?月服轃*?袉啒*郙onth??袌卟*餷? ?哱绂蟈?? ??嗴*?1、12?}?仱浵PJ?逰 ?V?佅U?丷濓 ?O'类型3 !+的掌贏+(非别靥????Date"> CPo,A礽r鄑hday?v'/呧稇, '３鰟生失败窥YO碠戳/H础 .为!盋hr(34r皒-xx  岘乕-0\?0?矈 000龔 瘚j0000000g?,?（?醒_?? ?NecessaryO1r CO1H1&?(俊??碄? 颻V惋_颻$孢1??矋?-釐? ??;保绻写砦笮畔 writeLog er@rorMsg^E nd If>beginCheck_comment sheetIn@dex, cMethodXQ, rowolu mn ~isFor = True '=执械某錾掌谛Ｑ椋ū靥钕睿N€4把叀唇鴣列表亱Case "qBirthday? '彂 jNecessary(value)#If Not 瓈 Then 'A ?失败?臹伬#"第" &i厐"AS数据繭偤title填写不 罚×格式为A ChrP(34) x-,xx€  联2013-12-21，请检查??hasE珋+伭 '整体羪~?&?凄评@嘈?0 ?祤缁昂怕隨b?(\Phone?銙ZNumvYvX?縏縏窽区号-固定# 或 手机$廣跿逽}擦v皩縋??nd?磱L釫OptionBQ备注 P&瑿Q悖肞, 66歇_Q猡_Q_Q！长度荒艹?00个字符潬縆? ?OO%> %€€€, 鎐€ ? ? a€认定鸭侗鹈称qO鸊鳲€DiffNam/P嘢oP 慏MB(髞 , 鈣, fu刵cA0Args_)sB?XQ倊ORC 啘遼義遼遼褆?Nt?_x/↙sysaicultyGradeFla鷊 0??,?,8Els }se鈚Cod 玴  Tri uoQ"通过a(且值为哭i 1邚Y2?@ 顰 /B/B/B/B?蔉oh峻&B製?非伮)o'{˙Id`衖t鄖Date義OC@Cツ繐顰銩罒兰烠纎msgQE;?q?暼琦Q?2?傀 逩逩s逩 疍疍yi酨韓tif烰-煙80?i> A€鲊/E洲Qn等级n蜛眨胰隙ㄈ掌谖 indentifyDateFlag = 1lElseIf sysDifficultyG€radeNamB2 And Trim(value) <> "" Then '如果Φ燃睹帑称不 3?_,errorMs?第"€ & rowIx"行的蕗菹睿簛 title& "填写不罚「孟钣搿袄`鸭侗zx北匦胪2|或z且通过校褌婋检查?P是否"ihasEA5@xTru€e '整体时，乨有磤砦笮畔checkMet hodXQ@Fa@厽writeL竜g 臰 Q?2E罏IfbeginCA6_comm shee襱聖, 牲,`olumnD W6isForD_ '= 执行脌褡謇嘈j^ =kCase z"Z4D€DHMB(, Bx, 1)S*€丯ot?"}!拝$遦 秸k荁cX__^_^ VGc?set?C鬿d(2,蔏岅I \焁w焁Y+UY!a熢Y(防潜靥?Z% [I庾tyRe€ason" '3&A4functio nArgsO0,01,30谿rcLe騨c? tccrd咝，长度g大于礍扔?位羦瞼怀?0?/5_d_d?&?f`{???2夛d忁夶锵娕姯婑,?(?  昫 櫩 = 煑煑定煑 a乣め: ?4(` 00 OrO。0)/% _4蠝蠝仦蠝彉”、“狁时间瘽釡S锆潯H O7O7O7nO7O7峆邽  m?o禼稛Q:，O稯窂/笌 /_?瘑 o埧达趺o埧碵 /埧"埳矸葜ぜ>?聪,i嘍C€ardType铥铫 w礗龅飫yL paA鮻 摮 errorMsg = "第" & rowIndex("行的数据项：6titleZ& "填写不正确！请检查"  hasEifTrue '逍Ｑ槭保绻写砦笮畔DwriteLog *ElseEsetDMBCode "checkIDCardType", 爏heet,唲, column ,End If亾beginC?_comment?侫MethodXQ:,yisF刼r劖 '= 执行残糮怖啾饋a^ =?Cas匫Dis餫ble翺@J8@)繾(胈 , value, functionArgs)If Not KThen 仸 賚猾-遌Rz遌遌遌峉9遌隮遌頮 萞Fam鄆lyIn@y^o^_?_+D_线歼歼歼 呒_始P.縚縚c熃 的ピ袷砍=燶"\Mone膟(耑) A啁B <> 0鈀 'aG 符合规 则稧罰totanl Q+CgS纄lect 鈚迾m"baoji詀oC偂:1 Sum-, huoshc _兲 Bzhusu?L# 纎thers?l克# _ E@d'肨sJ褆 '?不3 ?pG睨6玄牺绳中内容獓@K昪 + + " 螶b縿媬3  F '-调用正则表达屖給-  regB(E剗)8DimaEX As Obj#€ISet= @Create("VBSCRIPT.REGEXP")q'RegE€x为建立G EX.GloxbalpF憫~'设置全局可用''vba中\不用转义Patptern !R样式IgnoreB8= Fa蔼是袂执笮唷写。3狃Test昰GB.搜索测试鄼hin啻?$O 新版 ?重复（说明已经P没有pt奖摚 1、无学籍幼儿表先在表内啦橹 ?B}㏒ameXQNew(W?) 'бw(naS!s:.Range("A65535").P(xlU@p).Row'耤getT1€搘sMVa鸪h6m sg佂).Cells.Clea rCont@萻 '每次时A瑽清夸?cu! P1 '记录开始行数/舘c咔'类似冒菖判颍扛鲈睾驮谒暗乃行薪斜冉惜烈i0 startT蚜 + 2€ To rnag4cardID1WIA?(鴌, c3YOdAjO@i - 1梠q32ex$i俩v eQ莹?号相同洌琿:是1;Q詮 沞_豭!皱缀停iC身份证旌挪@醋!_p  writeLog errorMsg '把砦笮畔⑹`涑  hasTheSame = TrueTEnd If6pNext+Function '-7第一列中 根葜祷袢「弥邓谛?W-K)， 檎业*的@行或列k€eyWord €墓丶 bn A 滴 “ro€w”或非 € GetRowOrColIndex(ByVal sheety, ?€4As String) Integ渆r+@o-1Gb Dim cObject 'the fi@qres`ult o St = =k?s(?).Range("A1:A65535").F@(What:=?LookIn:=xl?ues, AA€xlW hole)GIfH NoIsh絸9 €屔〡 k@B琮 "€U" Cc.@]A Els鏟芬kumL"嵗净 执行氡砟诠嬖蛐Ｑ?允€许为空)y簛A]value 0类型燲1 cell的内 容`A不正确返回fam?'et[checkDMB( , , fl`硸E饃it ?@e%7i乫燣DataACount 0 '某一个a(的记录蔉鼵Num`Szs(Areag儱f(xlUp@jow '表行鸈 HF? -U媗$0,#e) '隶匎銜CFor i汔 % To @1C`Fs(i|, ?b>恟'+ (摨p#5o浟?ia i'j.? ? c-iDC€▊(j, 3)酠 B#Y) '判 断?醖是否和醘中相叠?&AeSbS)Aj '此时cAQ数目为劯昧所有僿鵔 ?_wODB-bH删除?胁僮鳎╡x受保护鸬模﹐儉F? 表名A? 行号坰d`eleteP\坔,?鬍蟡v).UnprotaoPassw`|:="1qxaz"obsb().Dq敻孛行!'rA}?.P123_ 向指劧╟'设值?(set瘘巢z?XQ$奵詪DFQ+??O#F€).鉌=///%/螟挥蠥///o+////n虏 &/No燄$Z/篺ow,,?B ?/????驫崗(et洬螥薂?,鵷?.?#紡(p悼WO/B未鶤犞a怾名称?辔ㄇ疤崾保?已经通鸸吮櫩)?罍Code??bW?砊侟垞,  2纻QL2p|墆?HC?  S]_€渫_欯a[氫B嘄咻麩? 煅{伕9橯檦檃紮尦heetIndex).Cells(i, 1) = value T@hen C0ount+ B1 DElsehE€xit For V nd IfNe0xt i0 jjrowData To  + .-?tr(S鎠(Areas駄, 34).)<yIf厗%c揤?値 '判断规则内容是否和中嗟葟'?codne#€QO2O? !弉€杺? col +umn餚lus?JF%PB?A.qB}AIP"穃?晛 '?"<0"揓S?Q "尮E懣j Functio 肋'-2 去⒌目崭  removeSpac衑XQ(gN,as琈IDimeiAs 鄏ing '单元格里面的Ah'7len gth1 In€teger, c2h '表?原来的莱ざ龋0执行??后的字符串O cFa`[ '默认为 挥F' Work!s?).Unprotect Password:="1qaz鐳F晅悴飜巶d 餖en( ?鄍'0儣銀M '如果?为空虿恍桢%安僮鳔$c 2 Ina, " ")?2格谝淮纬鱿€值奈恢脟羏2 <> 3包含A5'%g妹ReplQ€"E+噜绀廘 虴Tru冗%|?z縮- z特鈇#8pyecialCharac8terq8reg2B€"[\@uFF00-b6 ]9FF]|@[\s,;'`"??^]+/鄜DgCheckE?,sAuSA '] "<!VxME(6 <<< L`僇%``X)鉡$*\Rffff*1J66c0ba93"  ( Hhx学生信息打印模板$N(P学生信息打印模板$NB@R学生信息打印模板$N(Po偘Attribute VB_Name = "打≡だ? Sub Browse_Print () Worksheets("学生信息l模板").Visibla楾rue"d^P@review2cEnd "8es梺逪#p岖擑eX禛舰Y{Of F勽?那鯂O孾qq斯ux勽?那鯂O孾qq斯u会珦鴈X禛舰Y{OfME(     !"#$%&'()*+,-./012?457O89;u<M>?@ABCDEFGHIJKL?NghQRSTUVWXYZ[\]^_`abcdef?injklmo{pqrstvwxyz|}?€纃梺~xME(6 <<<@ `X I僴 x€I僗 €I僙 €`刓 ``(  I價 €@  ` I價 €@  €`H I價 €@ +` i儗i僷`攷H`?H`剱``剴  `  I價 €@  `x  I價 €@  @`  I價 €@  `  I價 €@  € `(  I價 H€I兒 €@   `  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價 €@  H`(  I價 € `  I價 €@  h`0  I價 €@  `  I價 €@  `P ""I兝 p€I僗 €I僷 €`劼 `勀 `刞`勂`勅`勈`勌@勎 `勑 @勔 `勗 @勚 `勜 @勞  `X ""I價 x€I儶 €@  `  I價 €@ h   h  0 H` @€`€@ 0儕0% /@)鉡$*\Rffff*1Q66c0bb5f€ € € B € €€    € (€ € B €H@PX`hp€ xB    (0€8€ @€ B P€X` (0€ € n8€ € B €,€$@€`Hx  € "€ 8Ph"€4€ € € € €  B  € 4     ( 0 € 8 €  €  B  € ( H X ` h p x € €€ €  €  B 8 €@ 6H €      € | € 8€ XB p€x0€€ x€ `€ €B   €(08@H€ xP€ € B €0@HPX`€ |h€ € B  €($0Xhpx€€ |€ € 0B H€PfX€ |€ x€ B €€ € € B €€:0@X x€ € € P€ pB      € € € .B    € € .B   (08@€ HB  &08@HDP4 (08@H€ PB  &8@HP X x(€ D48 @HPp€ B @H` hx€  "  <08 @H€ PB     ( &8 ` h p x € €€ 0  €       €   !"! 8!@! $H! "p! ? ? ? ???"""  ">8" x"4? ? ?? ??€ ?B ??? ?&?$$$$ $ @$"H$ p$x$ $€$ "? ? ? ? ?% %@%H%P% X%>p% ?4? & &&  &(&€ € 0&€ ?€ ?B ?€?''('0'8'@'H'€ P'€ ?€ (B ( ( (( 8(@(H(€ P(€ ?€ )B )€ ) ()H)X)`)h)p)x)€ €)€ *€ 8*B P*€X*`*x*?????€ ?€ H+€ h+B €+€????????€ ?€ ?€ ?B ?€ &?€ $-€ (-€ H-€&X-€*€-€"?€$?€.€( .€H.€h.€?€?€??€ ?€ 2?(/"H/p/?€ € ???8?0 0€ (0B ??€?&?1 1&1@1H1P1X1D`14????22 22 2@2`2p2x2€2?????€ ?€ 83€ X3B p3€x3€3???????-----------------------------------------1 检查必填项,若有错误信息显示到 错误信息sheet中--------------------------------------- 空时返回0不为空时返回1 单元格内容] X Z n$N%`'\ \'d'ki-----------------------------------------2 校验学生姓名 要为汉字-------------------------------------------------------------格式不正确返回false格式正确返回true]H%^([\u2E80-\uFE4Fo·]|[a-zA-Z]){1,20}$'4修改：可以校验生僻字  r$'d'ki|-----------------------------------------3 校验出生日期格式为2012-05-09(允许为空)---------------------------------------` r$'zk]reg = "^((19)|(20))\d{2}-((((0?[13578])|(1[02]))-((0?[1-9])|([12][0-9])|(3[01])))|(((0?[469])|(11))-((0?[1-9])|([12][0-9])|(30)))|((0?2)-((0?[1-9])|([12][0-9]))))$"^((19)|(20))\d{2}((((0[13578])|(1[02]))((0[1-9])|([12][0-9])|(3[01])))|(((0[469])|(11))((0[1-9])|([12][0-9])|(30)))|((02)((0[1-9])|([12][0-9]))))$'  r$'d'k€ix|-----------------------------------------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]))))$'  r$'d 'kih-----------------------------------------4 校验身份证号码---------------------------------------符合规则返回true不符合规则返回false€]790584216379058420加权因子] 10X9876543200校验码 $' 去除空格]H`x p  6)如果幼儿身份证号为空,则设置为通过校验规则'zpkh Gzj $$Gzj *[0-9X]Gzj   $' G 'j   $  '  ' $ .  $G'ji€z-----------------------------------------校验身份证件类型 -------------------------------------------------------------格式不正确返回false格式正确返回true],^[\u4e00-\ue863·a-z|A-Z|0-9|()|（）]{1,18}$'  r$'d`'kPiH----------------------------------------5 -校验学校学校标识码 42位，最后一位为汉字或x-------------------------------------------------------------格式不正确返回false格式正确返回true ]^[1-9]\d{40}[\dx]$'  r$'d'kiz----------------------------------------6 -校验户籍性质 -------------------------------------------------------------格式不正确返回false格式正确返回true](.^(\u519c\u6751)|(\u53bf\u9547)|(\u57ce\u5e02)$'  r$'d'kiu-----------------------------------------7 校验入学时间-------------------------------------------------------------格式不正确返回false格式正确返回true@]'^(((19)|(20))\d{2})((0[0-9])|(1[0-2]))$'  r$'d'kiq-----------------------------------------7 校验年份-------------------------------------------------------------格式不正确返回false格式正确返回true r ,如果为非必填项'kzk]h^((19\d{2})|(2\d{3}))$'  r$'dH'k8i0q-----------------------------------------7 校验月份-------------------------------------------------------------格式不正确返回false格式正确返回true€]^((0[0-9])|(1[0-2]))$'  r$'d0'k iv-----------------------------------------9 校验学籍号-------------------------------------------------------------格式不正确返回false格式正确返回true]^\d{4}[0-7]\d{3}[0-3]\d{7}$'  r$'d'kxipv-----------------------------------------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'  r$'d 'kiv-----------------------------------------11 校验银行卡号-------------------------------------------------------------格式不正确返回false格式正确返回true0]^[1-9]\d{14,20}$'  r$'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)$'  r$ r-$'$$ 'dx 'kh d` 'kP iH -----------------------------------------checkOption 校验备注如（长度小于value2）-------------------------------------------------------------长度不小于200返回false 否则返回trueh >'zP kH >  'd( 'k i ------------------------------------------------------比较大小(小于等于返回true)----------------------------------------------------------------'value1大于value2返回false 否则返回true >X'> X' >  'Dd 'Dki------------------------------------------------------比较大小(小于等于返回true)-dec---------------------------------------------------------------'value1大于value2返回false 否则返回true >$4'> $4' >  'd'ki}------------------------------------------------------校验长度---------------------------------------------------------------0 ,$'' r$/如果为非必填项'kzk ,-下标从0开始，其值为指定的数组维可用的最大下标 r$$4 r$$4'z kd说明是校验固定长度 r$$4'zkki}------------------------------------------------------校验整数--------------------------------------------------------------- ,$'' r$/如果为非必填项'kzk r$& 如果不为数字z€ r.e+如果包含小数点zPkH ,-下标从0开始，其值为指定的数组维可用的最大下标 r$$4 r$$4'zkd说明是校验固定长度 r$$4'z`kXkPiH------------------------------------------------------校验数值范围---------------------------------------------------------------` ,$'' r'zxkp r$) 如果不为数字zH r$4e) 如果小于0zk r$4$$4 r$4$$4'zki------------------------------------------------------校验数字长度(Number,可以为整数也可以为小数，不小于0)--------------------------------------------------------------- ,$'' r$/如果为非必填项'kzk€]^[0-9.]{1,9}$'修改：可以校验生僻字  r$d0'z k r$% 如果不为数字z r$4e% 如果小于0z k $'+整数部分最大长度$'.小数点最大位数 r.''' "说明没有小数点 r$4' $$4'zkd 如果有小数点 r r. $'D单元格中数字的整数位 r r. $' $$4 $$4'z kki------------------------------------------------------校验数字长度(Number,可以为整数，不小于0)--------------------------------------------------------------- ,$'' r$/如果为非必填项'kzk r$% 如果不为数字z r$4e% 如果小于0zk€$'+整数部分最大长度$'.小数点最大位数 r.''' "说明没有小数点 r$4' $$4'zkd 如果有小数点 r r. $'D单元格中数字的整数位 r r. $' $$4 $$4'zkki-----------------------------------------checkIsInt 校验不小于0的整数-------------------------------------------------------------格式不正确返回false格式正确返回true@] ^0|[1-9]\d*$'  r$'d'ki-----------------------------------------checkIsNumber 校验为Number类型-------------------------------------------------------------格式不正确返回false格式正确返回true' r$'ki-----------------------------------------checkMoney 校验金额0-9999，整数-------------------------------------------------------------格式不正确返回false格式正确返回trueH]^(([1-9](\d{0,3})|0)|0)$'  r$'d'ki€-----------------------------------------checkMoneyTJ 校验金额0-9999小数点后一位-------------------------------------------------------------格式不正确返回false格式正确返回true]P^([1-9]\d{0,7})$'  r$'dh'kXiP-----------------------------------------checkPersonNum 校验幼儿园人数至少一个人------------------------------------------------------------格式不正确返回false格式正确返回trueh]^(([1-9]\d{0,3}))$'  r$'d0'k i-----------------------------------------checkIdNumLink 校验身份证号中性别和出生日期与用户填写的是否一致------------------------------------------------------------格式不正确返回false格式正确返回true If colIndex = jhrIDColumn Then checkIdNumLink = True Exit Function End If]%性别和身份证号上是否对应]$出生日期和身份证号上是否对应]日期第一次出现的下标]"性别,单元格之内的内容]$身份号截取的内容](!出生日期,单元格之内的内容]@"身份号截取的内容]Xp#出生年份]%出生月份]] $' $' (倒数第二位为奇数，则为男性男 X € l$f,`d倒数第二位为偶数，则为女性女 X € l$f,`kh $' $' $' -  -  X  l$f,`'i}------------------------------------------------------校验长度--------------------------------------------------------------- ,$']^[\u4e00-\ue863·。，]{1,200}$'' r$/如果为非必填项'kzk ,-下标从0开始，其值为指定的数组维可用的最大下标 r$$4 r$$4  r$'d'kzkd说明是校验固定长度 r$$4  r$'d€'kpzhk`kXiP-----------------------------------------校验考生号、学籍号、学号 -------------------------------------------------------------格式不正确返回false格式正确返回true](^[a-z|A-Z|0-9]{1,40}$'  r$'d@'k0i( EAttribute VB_Name = "校楹? '-%1 觳楸靥钕?若有错误信息显 示到 sh`eet中$兛帐狈祷?! 不为1 Function checkRequired(bIndex, row coluDmn ) '单元格谌Dim cellValu@e As S€弉g= Work5s?).C s(橕If?€咐" Then0並 g€蒄alseE妠Trund If 濫€牓?2"羵学生姓 要为?鹤? !格式不正确盗uf7'At?憢wStu仺(vg揇plreh @繞"^([\u2E80-\uFE4Fo·]|[a-zA-Z]){1,20}$" '修改 嚎梢粤9生p僻字CY@hC薃!(, 蘪B`? `j t 18? 鄴 Not€ eric(MDid, 1 7n)? f%L@ike "*裦X]_ For= 1 To l17CTqW堪t彂0 ]1 矐1sps( + ; i! * TNexts Mod 1pRight)c, Tw3 w}?; ?件类土p@!臩FZxJLXZ廕`ю?e0瘭e863ぐA-Z|€|()|（）騗p?8p deS鳓qYkV_X\X[53-0标识 42位，€最后一伟亳蚜或x 仑耤kSc鄅Code翬{Rs0?0}[\d靫]鯕Og_柯C_洛qloooQ--6R "Ъ灾 埓- '格讲徽贩祷豧alse#TLtruHFunction checkFamType(valu e) Di`m reg = "^(\u519c\u6751)|3bf\ u95477ce#e02)$"i;IfGCgu( K, i The辬%r nT轊  &Fr End If 卲7 校验入学鹗奔洇? RXDat∨((19?0))\d{2})((0燵0-9]1?])5a 輅F 縛肍P刞年份QU!禵Year? fD葾rgsAr瀝D磦瘈G""尠_A× @ 0 '如果为穩潜靥钕钋?沽"翴粌iaExit j{€ €{郔I葇(23}G绤, 0xG>$dG|月Gz G`∕餺nth卡t煡*D-?-?9aパЪ艔8??XJH?Y4}牎7]BZ ?!7}?Q[€.C??$10电话号码__傌?ckPhoneNu&m?l俓b爄(([38纇4[5j7Ai55jk8*}00p2[D\d鄇-[2\鋎*[3恗g?\bo吜No匯宷*I Ap弲'11银鹦锌?2O`濨ank=瀃1c14,?0_2孝_淾湣4oo Xn@年如€（2012-@?）_pXn_U歽 噑c€喍20郕?}p r?19搕9900o_糒2Spli倀 , "-"4q30孯(1) - 0)01= 蹔鹔妎lkp= ?? OpR杏9备注#长稜刃∮赗?_#燂P#不200y俜裨虺遃ck 1愚22 1@4h 浚gELe?@">齝??VL ?#Q5 磪 qg`O比较 大小(等粲)s 大?B  ?篾ompar溽q!alue2) v€1 = `CInt(hx2 x zIf €>? Then虁compare悹False E .Tru -nd If EFu nctiol'-2比较大?小于等€于返回t€7`)-dec? '儗大于 2/f亊 否ぴ騾6 卍 剴鐳ec勀,劒9靗C 縨謃校验长度#塢heckLDen], fD朅rgs圴Arr伬ESplit(? "," cQ呂@""T屠 ((0) 0 '如果为非辣靥钕頞輥H eemaiajx鴌t 噇Dp`繳Bound ?脕 '下标从0开始渲滴付ǖ氖槲捎玫嗄最大 qF4) > Mm(`1)) A H<齌2@摃E>(< E3'?翣 '@说明是\筙潭▉\s! € 鏗?? * 凢GJ禦y?鹫龗%€孢€鄠€c&b+@ 爒?Z饴 €on亼€€j5€(€?Not I€sNumeri磌B)8J不为怇?伆InStrY".") <> 塐包含佬∈鉶K?) KsKKKNk @p楘Kg1K_=K|KKIKsK??>K?GqK数值辐段終鳹al蠇蠇胁dD@G蠇蠇p憼縆縆?=A隸#/Fe/F?Fo颭2?C憚 R7鸌F×0嶟/'#飥,?@3@0磱m爍?2Ey_ 5qz?s/字駥(0bber€,可以为Q| 也，不)?P111 ?1?110辖?辖K?6fp Exit Function  End If<$Dim r eg@ = "^[0-9.]{1,9}$" '修改：梢孕Ｑ樯 ёjIfAECheck}(E, value`) The3EXlse猚?N鋟m€Fa.J@Not Is)eric(H '绻晃> dC4€H)CD耬?<= 0俹'嘈∮? i$Z;maxIntLe nf酇rgsArr(1) '整数部分最大长度 4@Double2小数礏銇位数iBgthInStrK, ".":) VAv@ ;douT繫IM说绵髅挥蠧&丏坁 €€?(鶇 ) h蟂庭闵龋Tru Tz? 嶀A罜彟AMi"dEg1, Nk - 罞单元格$中醄的丟位o??H + 3 崰 ?/#Y) A缿纭?2)4#,55@26仼a鵊?-0仼!4zB(鄶ber,伂蜝?6，不倞)S : % %1eHicH}Lf爙Spl豬t(纼,蓛f 煚,窣s炉 ""l虑e2`(0)i为非必填頢QI搗q:!B€渴渴e@ H?仏)渴f ?q_e黲n_e_e3_e拝縚eK€Xp>_e_e 5[K鐸黤pE_e Y`袹%逬逬I*?_)- oe邅xoeJ€oe謔e 飜oe劽 oeW臊 }B1€boe銛oe ?o?uq噀 痚縙 Is` 乪腸c?@格式不贩祷豧眢?Q5t2拫f揻磂钦?|[1-9]\d*$"o?舥臜= '_07/J?q?t搟B为崦类型_???ck乡€刯 = 8??J垩)?Money !金额戌99?，Q___p ?凋?((?(\d{0?3})|0!_,駕馠_,6En櫟d If End Functi@on '-%checkMoneyTJ 校榻鸲?-9小数点亨笠晃?(格式不正确返回falsetru  ?val@ue) D纈m reg  = "^([1-9]\d{0, 7})$"If-Cq?(€, 醿% The( 傹 T侲 ET鱽 Fc 伩久PersonNum兡幼儿园人数至少酪桓鋈斯枚a瞧% bHb3})礲GBc 縞FWzId€bLink僣身葜ず胖行员鸷统錾掌谟胗没钚吹氖欠褚恢.驴ip随(", rowIndex? col"dh V'绬`hjhrI€DColumnlc~'醄a?)3E榵it垜a ed !yisGe@rRight As Bool`ean '??陕螦+对应C{a零Birth?和]length2Integer '帔第淮纬鱿值犇下标 gV?String,单元裰诘哪h谌?1籂沤厝⊙b|B;y`ear, Variant 'a年诽mon0th, 月另day, €i %arr?1繳Mid17, ?[ g= H= 8%琅 Mohd 2`1b@X廒二位媸p蛭鄟匸S€heets(sBoB71).Cel竘s(GsC#o)?男淖A E嘞,勁?女性?蝬CA女?mw? q, 4"!, 5, 2x _|, Y18 " 0 + "-? +?ppw廚騹馣q?栵^?柍ざ 搾SpLDen銀, f劆ArgsiArr伆Split(y? ","81V`€"^[\u4e00-\ue863·。琞{1,200鯒? `z7覙"\g4| (0a20C9'如果为非必鹛钕顆 q:窛)絠縧 繳Bound@ 2 Ad从0迹渲€滴付≒槲捎€玫淖畲筵fqpv) >= CDec=(1?) A啕<騭 (2蠢?2?\慛? ?.?~bY'说明是=固定Q= {ap铁/f^磈qZFS!考生号 ⒀Ъ畇号O/谉镓駸颿kS4镳馬^[a-z|A-Zh|0-9]{1,40}$" If regCheckFunc(0, valu€e) Then孲 = T坮ue,Els @Fa.End 0If 総ioRPSLSS?0B6"<0<8<N0{00020820-0000-0000-C000-000000000046}X >` X )傽x€%i? €€? %凗 %偁<?H? %x)鉡*\R1*#2a0$*\Rffff*1N66c0bb5f`€ € € " &  HX`p€ € € € € x€光标在单元格中时f Continue? DHi$2 Fo1A@2rok 123A@4poxAttribute VB_Name = "She@et1" 鐱ast0{000?0820- C$0046}|Global!腟pac扚alse dCreatablPre declaId玊ruBExposeTemplateDeriv$払ustom izD2'光暝诘ピ€裰惺 P$( Sub Works瀇BeforeDoueClicka(ByVal Target As Range, @CancelBoolean) If MsgBox("Continue?", vbYesNo, "Hi")儉 Then3  "侂 End If CDe騝23€n@4?CSheet5 `Sheet6s__SRP_0=H__SRP_1Z梺h#p谵信G潁A夒"誙D F垘踾Z?C忚藱e烓x垘踾Z?C忚藱e烓戁扌臛潁A夒"誙D?ME(SLSS?6"N0{00020820-0000-0000-C000-000000000046}€? 0t\%@凗pod%偁2??%Hx@x8)鉡$*\Rffff*1O66c0bb5f`€ € xAttribute VB_Name = "She@et5" 鐱ast0{000?0820- C$0046}|Global!腟pac扚alse dCreatablPre declaId玊ruBExposeTemplateDeriv$払ustom izD2 Z梺#pP柜迕VAyT藔v F;:筀揷 VZ丷x;:筀揷 VZ丷P柜迕VAyT藔v?ME??????????(SLSS?6"N0{00020820-0000-0000-C000-000000000046}€? 00#0#%@凗porms%偁H??%Hx@x8)鉡$*\Rffff*1P66c0bb5f`xòAttribute VB_Name = "She@et6" 鐱ast0{000?0820- C$0046}|Global!腟pac扚alse dCreatablPre declaId玊ruBExposeTemplateDeriv$払ustom izD2rU€@@@~~~r揔*   rU€@@~~~~~~~~~ ~~~6~~ ~~~ ~ ~~B"Q YA)輛B溊氎|睄F   儕aa儕a #儕a @ 坅 1q!a A q !A!q!!坅PQ 3A3q3????4A4q4??515?a5???6A6q6??717a7??8?q坅 儕a1  VBAProject ThisWorkbookSheet1Sheet6打印预览工具函数声明校验函数主程序ShowFormSheet5 PrintFormFBC:\Program Files\Common Files\Microsoft Shared\VBA\VBA7.1\VBE7.DLLVBA A qPF9C:\Program Files\Microsoft Office\root\Office16\EXCEL.EXEExcel  p0FC:\Windows\System32\stdole2.tlbstdole 1aL续-鶾藉D轗 checkTheSame?C:\Program Files\Common Files\Microsoft Shared\OFFICE16\MSO.DLLOffice a?E忇?`孧 C:\WINDOWS\system32\FM20.DLLMSForms Q Q  q?-搆I緪7n濞2C:\Users\王佳磊\AppData\Local\Temp\VBE\MSForms.exd Q  测试所有校验规则并打印错误信息 Browse_PrintFZ!?捐谀M%綂?AF+巒淃H摲瞴跋閳DFWorkbookWorkbook_BeforeSavex .╜/f&Tnx\亯軴X[鍕excel 俌軴X[ 鲖筽鸔VBE7.DLLa`  曪嬦Oo` 鉔xh 魦f,Row a nx歔 , &鹼邁\亯蹚L埨h錱!h寶 俌N軴X[ 鲖筽鸔 諷坢 ?aS *~JJ  8Phpx€FF&mFUnprotect CellsClearContentsFGetRowOrColIndex&m 0錧\Oh坧e顅Ncknx 鲖 N}g癳!jgT 峇蹚L坉k!h寶 1qaz.PasswordProtectEnd&t  A65530 RangecheckedRequiredStartwriteLoggetCellValueCountXQ writeLogRedaddCommentXQStartclearCommentsXQStartbeginCheck_commentcallFunctionXQStart regCheckFunccheckTheSameXQNewcheckDMB deleteRowsetCellValueCountXQdeleteRowNoProsetCellValueXQ setDMBCoderemoveSpaceXQremoveSpecialCharacter IV5F岖擑eX禛舰Y{Of F勽?那鯂O孾qq斯uDF Worksheet 'Worksheet_BeforeDoubleClickaaaaaaaaaaaaFF "NumberFormatLocalTab:? FAILURE A9:IV65536Font 媅SONameSize &HorizontalAlignment @ checkSchCodecheckXn 4╜nx歔_薡纇錱T 纇錱菑 z-N 鲖RsQ頃excel  &TR颯齹黐魜penc"N1Yb纇錱1Y% )n衏:yColorIndex " g錱~b0Rf[u酧o` 鄀誰蹚L?h寶 -N曪嬦Oo`俌 N  value -a , -N髞\ gN*N梜X橯cknx鲖纇錱Rows Delete dk!k!h寶-N Rd枂N(~ : ; ,{ L R剉pency VX[(Wyr妅W[&{俌^ , ; ' <> " ? zzgg|棹)h?8Z8h?玄*H???8h?g+?,g ?-g?gn棹)h?8Z8h?H椠椠帻8h?g蒿帻.g/帻0g帻g 三8?羹1Ip?p?2O玄棹3O狛(? 玄狛p?8?三Rgg\棹h?8Z8h?8h?g{gggd棹绎h?8Z8h?458h?g!x>gLp?狛玄6I(玄狛p?g p(g\棹h?8Z8h?8h?g{gg pgh?8Z8h?,棹7O玄` 例狛 例8h?玄狛g!xg(羹 !k棹x?g8g9g:g;<g;=g`?g>g p?g(羹H?&k棹?"gz棹H? @h?8Z8h?玄@?8h?g pAg?;\gVBI?a例玄 (玄?例gVCI?a例玄 (玄?例g"?qnPgF?qml羹椟?qnl棹更gv椟 @?棹CI玄玄a例狛 (狛?例玄g$?€g€Kfgv?羹DI玄玄a例狛 (狛?例玄g>?qml羹狘?qnl棹p?fgj狘 @?Eh?`?`?H?玄`?狛 0h?玄狛gl @H? @h?8Z8h?H?8h?g$H? 0?g0?lJgl棹H? @h?8Z8h??8h?g~EO棹FO玄H?O狛羹GOp??O8?堽HO三`< 玄狛p?8?三gg堽 @H? @h?8Z8h?玄IJ8h?玄g< gg狘p?gg椟更6 gAp>gv?羹DI玄玄a例狛 (狛?例玄g>?qml羹狘?qnl棹棼gj狘 @?Eh?`?`?H?玄`?狛 0h?玄狛gl @H? @h?8Z8h?H?8h?g$H? 0?g0?lgl棹H? @h?8Z8h??8h?g~EO棹FO玄H?O狛羹GOp??O8?堽HO三`< 玄狛p?8?三gg堽 @H? @h?8Z8h?玄IJ8h?玄g< gg狘棼Jgg"?qnPg$?€g€Kgv?羹DI玄玄a例狛 (狛?例玄g>?qml羹狘?qnl棹耕gj狘 @?Eh?`?`?H?玄`?狛 0h?玄狛gl @H? @h?8Z8h?H?8h?g$H? 0?g0?lgl棹H? @h?8Z8h??8h?g~EO棹FO玄H?O狛羹GOp??O8?堽HO三`< 玄狛p?8?三gg堽 @H? @h?8Z8h?玄IJ8h?玄g< gg狘耕2gggv?羹DI玄玄a例狛 (狛?例玄g>?qml羹狘?qnl棹堺gj狘 @?Eh?`?`?H?玄`?狛 0h?玄狛gl @H? @h?8Z8h?H?8h?g$H? 0?g0?llgl棹H? @h?8Z8h??8h?g~EO棹FO玄H?O狛羹GOp??O8?堽HO三`< 玄狛p?8?三gg堽 @H? @h?8Z8h?玄IJ8h?玄g< gg狘堺gggx堽 @H? @h?8Z8h?K8h?gH??~ g69T98C玄7狛lgZEO棹LO玄=O狛羹MOp?`<玄狛p?gg< g `?`?$ggp?:p?gg`?g ?`Ag  ? ?g>l`?X?l羹(?Rgxl`?h?棹8Zp8h?狛NO8h?狛gX?(?g"l`?g>ggx? gg2羹? ?帔g?`!?g?KJg4?棹@玄玄ggN?k?狛狛玄p?玄狛p?gg?帔g ?6 g^8?p?狛P ?O棹QO玄( 玄狛p?8?ggP!gLp?狛玄RI(玄狛p?gd棹h?8Z8h?458h?gNh?8Zp8h?S8h??gg pTg&玄玄gT €#gLp?狛玄UI(玄狛p?gd棹绎h?8Z8h?458h?gV堽VIp?p?狛玄8?( 玄狛p?8?g堽撅棹h?8Z8h?玄狛 !8h?玄狛gJ!堽@狛玄p?(玄狛p??ggLp?狛玄WI(玄狛p?gd棹h?8Z8h?458h?gNh?8Zp8h?S8h?ggg\棹h?8Z8h?8h?g\棹h?8Z8h?8h?g\棹h?8Z8h?8h?g{ ?lF(?椠慅x?0??悬更堻p??棼宣耕狖堺@?(?帔H?@H?椟?狘X????0?p??`???€ ?`P h?例8h?玄狛p?8?三Hi@ aS S8a`?brU@@@@~x aS4rU@@@8`?b__SRP_6 __SRP_7__SRP_8~__SRP_9rU€@@8p 1!Qq`q A 7`1 `ihggZ"?"p "剥"P?x?佚??O??O?pOX@O(O帼O叁剥O橚€?Oh?P?O8? ?O?( $?佚x????pX(叁剥橚h?P?8?g ?g gggg8€???pX(叁剥橚h?P?8??佚x?`$h $h XrU@@@xP`8!CbrU@@@@~x brU@@@)brU€@@@~x   q!2!!1*HiHiHi( __SRP_a __SRP_b__SRP_cd__SRP_dHiHiX(Hi0 Hi0Hi0HiHiHi8Hi HiJgg^????Z????gv(x ???Z??H??Hg0@?&??HHi Jgg^????Z????gv(x ???Z??H??Hg0@?&??HHi€ (Hi Hi a $h  "a  &o  "a  *~  &o  .  .  $h   "a   0   &o   $h  *~  $h  *~ ? *~ $ &o ? "a$rU@@@ P `?AqOO@ `?PX1 ` ?    ??? !"#$%&?(?*+,-./0123456789:;<=>?@ABCD?FGHIJKL?N?PQRSTUVWXYZ[\]^_`abcdefgh?jklmnopqrstuvwxyz{|}~€AOOO@ `?P`1 `?Aq!OOOOX ` ?AqOOOhQ `?QAqOOOOOhA `?AqOOOOOP `?!OO@1 `?AOX1 ` ?qX1 ` ?!OOOPQ `?OO` `?A!OOOOPq `?OO` `?A!OOOO`q! `?!AOOOOXA# ` ?AOOO@Q% `?!ObrU@@@8@"A"q"?`?? Hi $hrU@@@ xX `!QCbrU@@@8__SRP_e$__SRP_f'jShowForm!#)__SRP_10EQ2A"??`??DrU@@@xbLq梺nxME(SPSSS0{D77E9????330-16A1-4FA9-AC3B-7EC5B1D737B8}{82969A69-C47E-47E2-8B5D-174C4AB10931}8 *X .€? %侢%XX )鉡 € " 0€ € 8"HP Xh€ x取消'~ B@,oH确定X 0'~ B@,oQAttribute VB_Name = "ShowForm"  鳥as|0{D77E9330-16A1-4FA9-AC3B-7EC5B1D737B8}{82969A69-C47E-2-8B5D-174C4AB10931}dGlobalSpacoFalse 奀reatablPred恊claIdTruBExpo se0TemplateDerivCustomiz婦'取消 P€€ Sub CancelButton_Click() notContinueBool員 Me.HDidZEnd! '确定q ,onf諒,?Fl€;/rU@@@8`?A"??`??DrU@@@xbrU@@@~x__SRP_11"&Mj__SRP_12Ow__SRP_13%(iPrintForm 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 ?"a 4"a ?"a 8"a ?&o <$h 褒"a&rU@@@X` ?AqOOO@`?!O@1`?!O@`?!OP1 `?@???????????? `?!O@1`?!O@`?!O@1`?!OP `?!OO@A `?!O@ `?!O@1 `?!O@`?!O@1`?!OP`?OOPA!`?OOP?`?OOPA%`?!1OOP?`?!1OOPA)`?!1OOP?`?!1OOPA-`?!1OO@?`?!O@11`?!O@?`?!O@15`?!O@?`?!OX19` ?aAOOOP帔`?!1OO@A=`?!Ob^Le梺蕵xME(SPSSS0{D048D898-402C-481B-A56A-4B1A1A2A2FAF}{2C86834C-A761-41F5-B6EA-80CE45CD8957}x€€?8 0t\%侢h8is%8p)鉡x獍Attribute VB_Name = "PrintForm"" €Bas€0{D048D898-402C-481B-A56A-4B1A1A2A2FAF}{2C86834C-A761-41F5-B6EA-80 CE45C€57}dGlobal!婼pacoFalse 奀reatablPre declaId訲ruBExpose0TemplateDerivCustomiz婦ThisWorkbook')e _VBA_PROJECT$PROJECT0ShowForm-0,0,lzz 梺zL#pZ!?捐谀M%綂?AF+巒淃H摲瞴跋閳x+巒淃H摲瞴跋閳Z!?捐谀M%綂?AMEPSLSS?6"  -`othersMoneyColumn撺`othersMoneySumH訿?atLeaOneNullCount竊 ?atLeaError妦` ?regCheckFuncE鵣reg蝋regEX* CreateObject鴬`Patterni衊 IgnoreCase0鵣Test4玚?checkTheSameXQNew` sheetIndex2n`?rnaO蟕xlUp犵`Row壪`ClearContents{躟i``cardID1[?` ?cardIDColumn-h`ja`cardID2\?` ?hasTheSame僠?GetRowOrColIndex穎`keyWord‵`kbn1╜cZ`Findn餪What酑`LookIn襊`xlValueso醏LookAt癘`xlWhole侍`Column爄`value1`flag淊`rowData?`Count0v`rowNummR`?AreasheetIndex扝` ?deleteRow` Unprotect?`Password鹞`Rows`Delete竫`?setCellValueCountXQ腯`?deleteRowNoPro`?setCellValueXQ给` codeValue` ?columnPlus紓`length1S`length2T`Replacef`?removeSpecialCharacter砢 声明廼`?!ValueColumType` columnNamew籤?sheetIndexValue1`?AreaSheetName繾?readmeSheetName啂` ?totalCount?`?rgold礰?hasErrorInValidateU鮜 ?dataRowStart硴` isNullRowNum?`?cna`?notContinueBoolt` ?genderColumn鄜`?birthdayColumn0`?sysDifficultyGradeNameCol蕆`?indentifyDateCol?`?indentifyReasonCol*9` 校验函数&轥IDNumber4 `Wm`sj`Tk` babyIDColumn` IsNumeric$*`Right` ?checkSchCode逵` ?checkFamType睖` ?checkRXDate?` ?checkYear?`?checkXJHF餪years檿`value2` ?compareDecN豟?checkInt癄` maxIntLen1` maxDoubleLen煿` intLength`intValue卄douValue郹 ?checkIsInt鵕`?checkIsNumberG` ?checkMoneyTJC巂?checkPersonNum `?checkIdNumLinkUz`IdNum掐`isGenderRight ` isBirthRight浛` genderValue骮 genderValue1?` birthValue` birthValue1~`year6n`year1w昤month`month1裳`day`day1;`arr u` 主程序矮` rowDataNumn禶 typeValue嫭`bsTypet萡 valEntity軓`val葩`typeRow頯 isNullRowArr/骮 sheetCountB譧Protect譮` Application?`ScreenUpdating! `xlToLeftWY`Size铥`HorizontalAlignmentS@`xlLeft?`NumberFormatLocal)訿rowType鱜md`ne`removeSpecial坖`Locked `totalMoneySumZ哷pg`qh` ?checkTheSameg鑐myDic穙`myKey`varData`idNumDick` idNumDicData臂`cardNum‐`Exists僝`Add鱮`Keysq竊Resize@4`WorksheetFunction?` Transpose桌` ShowForm殗`CancelButton_Click`Hide9z`ConformButton_Clickwf`Flase祊` Sheet5` PrintForm`Workbookk` Worksheet窿` €BeforeSave壑` _B_var_Chr\;`€_Defaultj耟€BeforeDoubleClickaaaaaaaaaaaa\鷃€_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_totalMoneySum鳼`€_B_var_p€_B_var_q "$'=IK )Ug3 5 "@€ p0(P7牰q刞YX HH € €rsionCompatible32="393222000" CMG="6361CFB389B789B78DBB8DBB" DPB="21238DD2AAD2AA2D56D3AA026BB2C21B70884CBB33202C2FDFE9FAD44C5EDC8618A6554D" GC="DFDD73378F4B4C4C4C4CB3" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=0, 0, 0, 0, C Sheet1=0, 0, 0, 0, C 工具函数=0, 0, 0, 0, C 声明=0, 0, 0, 0, C 校验函数=0, 0, 0, 0, C 主程序=0, 0, 0, 0, C ShowForm=0, 0, 0, 0, C, 38, 38, 1834, 900, C 打印预览=0, 0, 0, 0, C PrintForm=0, 0, 0, 0, C, 76, 76, 1872, 938, C Sheet5=0, 0, 0, 0, C Sheet6=0, 0, 0, 0, C  }t ? Microsoft Forms 2.0 FormEmbedded Object?瞦VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} ShowForm Caption = "UserForm1" ClientHeight = 3180 ClientLeft = 45 ClientTop = 375 f&o,.?CompObj/aVBFrame ClientWidth = 4710 StartUpPosition = 1 '所有者中心 End  }t ? Microsoft Forms 2.0 FormEmbedded Object?瞦VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} PrintForm Caption = "UserForm1" ClientHeight = 3180 ClientLeft = 45 ClientTop = 375 PrintForm+520,0,f&o13?CompObj4aVBFramePROJECTwmSummaryInformation(7DocumentSummaryInformation8 ClientWidth = 4710 StartUpPosition = 1 '所有者中心 End ThisWorkbookThisWorkbookSheet1Sheet1工具函数錧wQ齉pe声明餢f校验函数!h寶齉pe主程序;N z廭ShowFormShowForm打印预览SbpS剺葔PrintFormPrintFormSheet5Sheet5Sheet6Sheet6? 鄥燆鵒h珣+'迟0@HTl AdministratorMicrosoft Excel@€?灼@,? 胀諟.摋+,D胀諟.摋+,HP X`hpx  高校家庭经济信息录入代码表 错误信息 工作表(S[wKSOProductBuildVerICV2052-11.1??.0.12980$4797DADAAE1642CBA5673EE70491F5A0?  FMicrosoft Excel 2003 工作表Biff8Excel.Sheet.8?瞦CompObjh