邢唷>? D?y?C  !"#$%&'()*+,-./0123456789:;<=>?@AB?FGHIJ?UMNOPQRSTEVWXZj\]^_`abcdefghiYklmnopqrstuvwxz?{|}~€Root Entry F`烇Lp%K?Workbook殎_VBA_PROJECT_CUR"9p%怱狧p%VBA`Hp%舁Hp% f2蓜\pG470 Ba= ThisWorkbook=x-X/(#8X@"1啣媅SO1啣媅SO1啣媅SO1啣媅SO1啣媅SO1啣媅SO1啣媅SO1啣媅SO1啣媅SO1啣媅SO1.Times New Roman1.Times New Roman1啣媅SO1啣媅SO1.Times New Roman1 啣媅SO1啣媅SO1. Times New Roman1 啣媅SO1 啣媅SO1.Times New Roman1h8咮媅SO1,8咮媅SO18咮媅SO18咮媅SO1咮媅SO1咮媅SO1<咮媅SO1>咮媅SO1?咮媅SO14咮媅SO14咮媅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\)? ? ? ? ? ? ? ? ? ? ? ? ? ? ?  &? &? &? &? &? &? &? &? &? &? &? &? %? %? %? %? %? %?  ? ? ?P ?P ?  ? ? ? ? $?a> ,? *? ?  !?攆f #? "?  ?` +? )? %? %? %? %? %? %? ? ? ?  ?   8@ @  x@ @  X   H   H x@ @  @ @   @ @   1@ @   @ @   1@ @  @ @  @ @  @ @  1@ @  1@ @ )8  ` )8 )8 (x )x )x (x ( ( ( (0  @@  @   @  @@  @   @  x@@  x @  x@ @  @ @  @ @  @ @  1@ @  1@ @ ||j吁}-}#.00\)_ *}A}$.00\)_ *;_ @_ }A}%.00\)_ *?;_ @_ }A}&.00\)_ *23;_ @_ }-}'.00\)_ *}A}*a.00\)_ *骑?;_ @_ }A}(.00\)_ *俏;_ @_ }A};渆.00\)_ *霚;_ @_ }}=??v.00\)_ *虣;_ @_    }}<???.00\)_ *蝌?;_ @_ ??? ??? ??? ???}}.鷠.00\)_ *蝌?;_ @_    }A}2鷠.00\)_ *€;_ @_ }}/.00\)_ *ゥ?;_ @_ ??? ??? ??? ???}-}1.00\)_ *}x}>?.00\)_ *膊?ゥ?;_ 膊???? 膊???? 膊????}-}0.00\)_ *}U}+.00\)_ *;_  }A}5.00\)_ *;_ }A}.00\)_ *ef;_ }A}.00\)_ *蘈;_ }A}.00\)_ *23;_ }A}6.00\)_ *;_ }A}.00\)_ *ef;_ }A}.00\)_ *蘈;_ }A}.00\)_ *23;_ }A}7.00\)_ *;_ }A}.00\)_ *ef;_ }A}.00\)_ *蘈;_ }A}.00\)_ *23;_ }A}8.00\)_ *;_ }A}.00\)_ *ef;_ }A}.00\)_ *蘈;_ }A}.00\)_ *23;_ }A}9.00\)_ *;_ }A}.00\)_ *ef;_ }A}.00\)_ *蘈;_ }A} .00\)_ *23;_ }A}:.00\)_ * ;_ }A}.00\)_ *ef ;_ }A}.00\)_ *蘈 ;_ }A}!.00\)_ *23 ;_ !20% - :_寚eW[湗r 1O20% - :_寚eW[湗r 1 ef苕? %!20% - :_寚eW[湗r 2O"20% - :_寚eW[湗r 2 ef蜍? %!20% - :_寚eW[湗r 3O&20% - :_寚eW[湗r 3 ef腭? %!20% - :_寚eW[湗r 4O*20% - :_寚eW[湗r 4 ef溥? %!20% - :_寚eW[湗r 5O.20% - :_寚eW[湗r 5 ef陬? %!20% - :_寚eW[湗r 6O220% - :_寚eW[湗r 6  ef? %!40% - :_寚eW[湗r 1O40% - :_寚eW[湗r 1 蘈柑? %!40% - :_寚eW[湗r 2O#40% - :_寚eW[湗r 2 蘈娓? %!40% - :_寚eW[湗r 3O'40% - :_寚eW[湗r 3 蘈劁? %!40% - :_寚eW[湗r 4O+40% - :_寚eW[湗r 4 蘈汤? %!40% - :_寚eW[湗r 5O/40% - :_寚eW[湗r 5 蘈忿? %!40% - :_寚eW[湗r 6O340% - :_寚eW[湗r 6  蘈? %!60% - :_寚eW[湗r 1O 60% - :_寚eW[湗r 1 23暢? %!60% - :_寚eW[湗r 2O$60% - :_寚eW[湗r 2 23跂? %!60% - :_寚eW[湗r 3O(60% - :_寚eW[湗r 3 23淖? %!60% - :_寚eW[湗r 4O,60% - :_寚eW[湗r 4 23睜? %! 60% - :_寚eW[湗r 5O060% - :_寚eW[湗r 5 23捦? %!!60% - :_寚eW[湗r 6O460% - :_寚eW[湗r 6  23? %"€~vR詋 #h槝+h槝 I}%$h槝 1=h槝 1 I}%O伣%h槝 2=h槝 2 I}%?Э?&h槝 3=h槝 3 I}%23暢?'h槝 4/h槝 4 I}%(頬5頬 俏 %€8^膲)€厤*}Y5}Y 骑? a% +Gl;`GGl;` %O伣O伣,€'^-€ '^[0] .梴o梴 蝌? 鷠% /纇錱USCQ鑜蕬^ 鑜蕬 ?膊?膊?膊? 膊?XTableStyleMedium2PivotStyleLight16`':'YNTh垍GH蚫\O魦fVV  ;   ;`i?6廭鱏覻TUSMO 7釼 7Ye脋 7yr 7啒 7膥+R 7Km寶 7曽S 75u輯 7Y鑜 7鑜孮鱏/f[鱏 7N0U_eQTh圡R剉芉Y錧\O 7+鍌枡!kO(u,gTh b鶴皊 廩珗亂(u 衏:y bN齹ck8^U_eQTh場e 鲖 c錘 Nek蚫\O 7"1\ hcT 錧wQ 軆US N剉 廩 P[軆US 6qTUS鸔 塠hQ'` }T銷 7(2鶴皊 塠hQ'` 鵞輯 US鸔 塠hQ 恲榓S 緥n塠hQ:N -N 筽鸔 nx歔  7孨0蚫\Oek 71HQ 愰b耂[峌SMO鍌鄀5峌SMOT鰁鲖U_eQ5峌SMOT  7 2U_eQ釼0啒0;Su0T€鹼5u輯I{ Y*N錧\O篘XT鰁(uzz熛珞?)淣в閠?M6Microsoft XPS Document WriterX 4d,,A4DINU"L 室鰎 SMTJMicrosoft XPS Document WriterInputBinFORMSOURCERESDLLUniresDLLInterleavingOFFImageTypeJPEGMedOrientationPORTRAITCollateOFFResolutionOption1PaperSizeLETTERColorMode24bpp MXDW" d,,匓(?匓(?&T(c閁} B} B} € B}  B} B} B} B} B}  B} BhAhAhAhA8h@h@h@h@ h@ @ ,    D_````a b &c]]]]]]]]]]]]]]^ D\]]]]^ b &c]]]]]]]]]]]]]]^ D\]]]]^ d &d]]]]]]]]]]]]]]^ A5 A2 D4\]]]]]]]]]]]]]]]]]]]]]^ A4 A4 ? @ @ @ @ @ @ @ @!  @"  @#  @$  @% @& @' @( @) @* @+ @, @- @. @/ @ C e0f g10hiffffffffffKKfffffKLC e2f g10hiffffffffKKffffffffLC J2 K32LMNKKKKKKKKffffKKKKffLC e5f g10hiffffffffKKffffffffLC J5 K32 LMNKKKKKKKKffffKKfKKfL C6 EFHGIFFFFFFFFFFFFFFFFFFH C C"\\xbZdd\d\D >@BBA R    7 Sheet1ggD f2蓜 H㊣ NRV!Z)^1b9fAjInQrYvazi~7€ d褚MbP?_*+€%&?'?(?)?"??&c閁} 燪Z} P} € P} PJ@;@Y@Y@;@;;; ;  X ;@;               O Q Q R R S T T T T U T V [ S W X XXXXXXXXXXXXXXXDl   ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ?  X!X"X#X$X%X&X'X(X)X*X+X,X-X.X/X0X1X2X3X4X5X6X7X8X9X:X;X<X=X>X?XDl @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ @XAXBXCXDYEYFYGYHYIYJYKYLYMYNYOYPYQYRYSYTYUYVYWYXYYYZY[Y\Y]Y^Y_YDl ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~  `YaYbYcYdYeYfYgYhYiYjYkYlYmYnYoYpYqYrYsYtYuYvYwYxYyYzY{Y|Y}Y~YYDl €                                €YYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYDl                                 YYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYDl                                 YYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYDl                                 YYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYDl                                     YYYYYYYYY Y Y Y YYYYYYYYYYYYYYYYYYYYDl   ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ?  Y!Y"Y#Y$Y%Y&Y'Y(Y)Y*Y+Y,Y-Y.Y/Y0Y1Y2Y3Y4Y5Y6Y7Y8Y9Y:Y;Y<Y=Y>Y?YDl @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ @YAYBYCYDYEYFYGYHYIYJYKYLYMYNYOYPYQYRYSYTYUYVYWYXYYYZY[Y\Y]Y^Y_YDl ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~  `YaYbYcYdYeYfYgYhYiYjYkYlYmYnYoYpYqYrYsYtYuYvYwYxYyYzY{Y|Y}Y~YYDl €                                €YYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYDl              YYYYYYYYYYYYY >@7猩陏寕K %2╜颯錘繈顣Q賨www.ydh800.cn 聣 wTh圲_eQ蚫\Oo:y0嗌陏寕K Bhttp://www.ydh800.cn/ExcelBM.htm Sheet2ggD ThisWorkbookLw__SRP_6 __SRP_7 Sheet1[/ ?!"#?%&'()*+,?./0123456789:;<=>?@AB?D?FGHIJKLM?OPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€ _报名表.xls '> (!@!0001.xlsG 0001-New.xls'>j (!@!J\ > '>'< > (!@B@<'<贵单位的报名表保存为： L L > L L (下次修改贵单位报名时，请务必打开它修改！ N H 提示A@0'&'" >APox(h RG|j R$~G|j]]]]'X'V 'Z R Z ]]]&( T$b Z T \ \ID="$d { KT T 'V Z V, ^ ^ L( {00000000-(# j$h $f-(# j$h $f-(# j$h $f-000000000000}'` Z V `kpCMG="KT T'X[HostKT X Z XDPB="kn T ZV'X'V 'Z R Z  T$b Z T \ \ID="$d { KT T 'V Z V, ^ ^ L( {00000000-(# j$h $f-(# j$h $f-(# j$h $f-000000000000}'` Z V `kxCMG="KT T'X[HostKT X Z XDPB="k n T ZVo柕Attribute VB_Name = "ThisWorkbook" 孊as?{00020P819-0C$0046}|GlobalSpac扚alse dCreatablPred恊claIdTruBExposeTemplateDeriv払ustomizD2Dim bSaAs Boolean P%) Sub 瀇BeforeClE(Cancel ) If Application.Sheets(1) .Cell, €2).Valu亜"" Then pExit3? NLot匟 4= (MsgBox("报名表未保存，确定关闭吗？", v bQues +YesNo, €"提示")WvbNo€*End If ?淈QAH(By€. AHsUIH>, CS歵@Ac H ]fBOS@琻g2 Da= f孯Acvt€vb.€?.dat" OrEURe坈e(\&M 繱"BMA@LUC浪(蓌&) <> "?HXLSCy o "请选择ノ弧⒒蛘 呗既階名劊oCrit@l俹OKOnly舘僀I蓵Sele點t)刞鏚e>釷?, 8).f g郩e咠= ?=~ %*骫?€U?+ "_"€3)#d冕.xls 廮B?繹?-N 0翭P冋qPDPB?q臮/ I@_駝Ax& &n &??07??邚"????=@埪J? ??鏓%??(+ 8(D飶"?岢"0??魋 ? ?t櫼 ?i€ (B€ `83H€7 rU€€€ y)a Y 1 1Qq Qiay+8A ` ` I  S綸#<@傼Z襽F环炾2喭F頽轓`kM枓軷@邉 x pd`頽轓`kM枓軷@邉傼Z襽F环炾2喭?ME4[LSS?>"LL?L<8<<<N0{00020819-0000-0000-C000-000000000046} % % $x` Xi? €€ 8(`, 攤i傶  i? €鄤< @O`凗x P`h==(i僐€`凾`刅`刋`刏 刓  刕   刞@ €?pH%b€"4 @(xx凗偁??P"(BDFH0,@?t  @?(p  @?l @?@\  @?X  @?XH  @?p8  @?(  @?  @?  @?  cr@?棹  Do@?`佝  te@?H轧 RCE@?0玄  erle@?烃  JPEG@?h叁 RAIT@?x羹  ion@?  TTER@?橚  @?堽  @?x?  4@?h?  ,@?d?  N@? T?  : @?8D?   @?4?  及LNP%(忐%T@?€0? ]?@?,? lh`xH(xHD  l?I$*\Rffff*0652f6a3f6*\R1*#114*\R1*#119*\R0*#f*\R0*#1*\R0*#17*\R1*#385*\R1*#125*\R1*#253*\R0*#e8e€€ "  .€ @BH€ " € (B€ `83H€7 € 77f4>XE ^ b` h€  p€€ "  € €€€€€ € € 0@Xh p p   €  (8P` h h€   € ]x (%*%,!.G|j€ "报名表未保存，确定关闭吗？ 2 4 提示$0 6'&kho`x]€]'" (!@!0001.dat <G|j (%*%,!. $B (!@!$D0001.XLS请选择单位、或者录入单位名！ F H 提示A@0'&$,B@H'"|PkH$,B@H$,B@H': (%*!报名表$B_  (%*%,!. ?W0   t ???lpt!tHpll?_<?l)tpN?H%((%X(\%pt!tpdXA棹鼖?:棹佝l #轧?x叁烃玄!玄H烃>叁F羹 :橚 ]?堽?h?2l轧) tpX玄烃6 棹佝羹x3'羹'佝:H N棹棹:\ N 6棹佝羹?7(\%(8%t$Xt棹裏t5棹 ?7(\%(8%t$Xt棹裏t5棹7(\%(8%t$Xt棹裏t5棹p X(\%pt!tpdXW鼖?l #轧*F佝(8%(%d?H%烃玄!玄烃dd氳A羹麛:橚麛堽`1x2l轧) tpX玄烃d? 棹佝羹堽6lpt!tHpll?/l)tp7CxEl pt!tHp0ll*#轧lx*1x2l轧)tp ?_<^ '4?'D?'T?'x?'橚%'%'%'(%'8%'H%lxF\%pt!tHp)tp _<b'羹'佝:\ N棹棹魼*#l*#轧lx*#叁*#0*#,*F 2 l轧叁0??棹佝羹? ?? x? Pt(/xTl轧叁0,tpX玄烃d棹佝羹堽h0 (  88HrU€€€ D(`#,A` #(`10nrU€€€ t$``4A`d #0` h#0` l€€€€€ €(€0€ 8H€P€ € X€ h€ x€ €€ "  € "  €€€€€  €  ( 8H`hpx€.$" H€ P&h&€   8 X€  h0x: &0X`€€ € B  € € €€玬S綺#lpQ剥鈯D? )# F?魝 AE?冺韗 x `?魝 AE?冺韗Q剥鈯D? )# ME< [LSS?8>"?L<N0{00020820-0000-0000-C000-000000000046} b€r < @b€vP@@b€x D@"€| L@%% % %€b€p X @b€0` @b€d@ 剮x€ `|+` ` d;;)儙  %i? €`剴`剶`凾`剸`剺,`  h//Qi儝i償0i凗  `凾`剸`劧`劯`労`劶`劸,` 8 lRR€i儝Xi償xi凗  @`凾`劼@`剸P`勀`労 ` Pp)儙px& %i? €T `X齥t)儙  %`凾tG`劼p `剸l|`剴hosai`剶d!.`剺`` `勌0\√`労X 勱(?€@旍H, ` P xddi儝pi償i? € i凗  动员`凾N `剸`労 `p D齥`|[[攣)儙 € %鄤鄤鄤 `剴忐`剶棹`剸\? X?H €0 €?x P %b€n 4@b€p8@b€t(> @b€zxH@b€~H P@b€€T @b€\ @ p 0 H x p P€ (凗偁l??  X€8 P   X,rvxz@? t  @?h d  @?€ T  @? D  @?`@  @?0  @?   @?   @?  @?(瘙  @?@佝  @?X叁  @?p羹  @?  @?橚  @?堽  @?x?  @?0h?  @?X?  @?H?  @?H8?  @?x(?  @??  @??  @??  @?酏  @?潺  @?札  @?凝  @?8待  @?   @?P旪  @?匌  @?ht?  @?d?  @?`? @?T? >@?@P?/ 0> |€@?L? B~XL@?hH? €@Q@?D? hQhW@xzHxh8P8€  剮x€t,LNH@?HT  @?hD  @?4  @?0 €@?@, X@?  @?   @?`  @?0忐  @?H荥  @?x烃  @?件  @?  @?滯  @?岨  @?|?  @?l?  @? \?  @?8L?  @?Pd" " (18YP! ,V4(HX` hx<]€7!€ :X`8h6€Y/0 HPX` h€ :x+3"YZ PX`Lx J @P"Oh4Y1P hpx €7LH4+  $0@@H*lh€ @ J8 Bw1 €(€0"H `"p""" $D*03`x € 8€ &€ $€ € ( $$8`€ ""   $$ 8  @ H  h p  x .€   € 4 k 1??1?Y?!`" x",V€"4??? ??#€#\#p# x#€#€ B ?€?€?€? ??? ?$$\$x$ €$€ ? ???\?@% H%€  X%h%?d&h&??????D?*('X'p'x'€'?????€  ????(( 0(@(H(\P(? ?€ ??))*0)`)h)\p)? ?€  ??€*d??++ +8+X+`+Bh+*???,,,, ,(,€ €0,8,@,€H,P,€h,p,x,€ "  €,???*? ?€ (^?N?-€-€ -€  (- 8- H- P- X- h-p-6€- ???@{? ?J.P.€ "X."p. ?@? #?6? ?&? ? //€  ` /"00 $H0 $X0&h0??? ? ??€ G?€  .?€ €?€1&P1F01DP1h1;€1j?A?>??2(2@2X2.p22??? ??€ ? ??$O?? 3@3X3`3 h3x3€3??x]€ ] ]] ](]P]駾 "]x] ]駾H €]駾 ]駾p x]駾 z]0p'x'zo@]8]P]h]€] ! !!'&|k !' !'   '&|k KKT $,*请录入运动员姓名！ N H 提示A@0d $,√  $G'&F|j  $G'&F|jkosainfo B@ !.√$ (. !.√  $+,k(osainfo B@k $,B@HMT Td T$,备注Gyj T  T  $,备注 $, $,*请录入运动员姓名，再勾选项目！ N H 提示A@0dosainfo B@  $ !.√$ (.kosainfo B@kx $,B@HkXkPnHo@]駾P]駾h]€]]]]'    $, $, $,团体Gyj   '    $, $, $,*??????GyjD> And Cells(I, 6) <> "√" And Cells(I, C) = "√" Then K = K + 1   ' L L ,该项目运动员数已报满！故不能设置该运动员为： 非测验特长$ ' d $,备注Gj  $,√'    $,√  $,√G  'j  ~  ~ 规程规定： $,  最多报 ~X 名运动员！  N H 提示A@0zkd  规程规定：各项目最多报 X 名运动员！  N H 提示A@0zXkPkHk@ ('i]]]]] $,* $,团体  $,  ''  $,备注Gyj  $,√ $,*全能  'd  'kk     规程规定：运动员最多可报 X 个项目！ L L 该运动员已报   X  个项目，不能再增报项目。 'k 规程规定：报全能项目最多可兼报 X 个单项！ L L ' $,*全能   该运动员已报 X  个单项，不能再增报全能项目。 ' kd     该运动员已报全能项目和 X  个单项，不能再增报单项。 'kkkk€ $,  ~ ' T   T$, $,yd T$,* T$,团体 T$,√ T $,√G  'jkx T T   T$, $,y d T$,* T$,团体 T$,√ T $,√G  'jk T ~  ~ 规程规定： $,  最多报 ~X 名运动员！ L L (该项目运动员数已报满！不能再增报运动员。 'kd   规程规定：各项目最多报 X 名运动员！ L L (该项目运动员数已报满！不能再增报运动员。 '(k kkkk'z  N H 提示A@0'i !G'&jo]]]0]H]`]x]] !G|j tG|j't !' !' NT     d  ' d  fKT'nKKK.K6KT'KTX'n@osainfo B@ !.'  $     $,最长 X 个汉字（或  X 个字符）长度。 L L 报名系统将自动取前面部分！ N H 提示A@0  $'  'T   T$ $    T$ ' T 'T  (.k osainfo B@kx OT    $,备注osainfo B@ !.'k KT  $B'   $  运动员名：  超过6个汉字（或12个字符）长度。 L L 报名系统将自动取前面部分！ N H 提示A@0 $''   $ $    $ '  ' '  (.k€ G $ $ 'j $,*  $Gj    $, $, $,团体y d  $,  $,B@H 运动员：  已经存在！ L L <若确有同名运动员，建议姓名后面加A、B、C...或1、2、3...区别。 N H 提示A@0  +,'rkk   $,B@H !B@*  +, $,  +,  $,团体1  $,$ X $ +,'rd    $, $,  $,团体Gyj     $, $,  $,*Gyj  T    T$, T  $,B@H 运动员：  ! 已存在，不能成功修改运动员姓名！ L L <若确有同名运动员，建议姓名后面加A、B、C...或1、2、3...区别。 N H 提示A@0 v +,'rk€ Tkhd` $,*确定删除运动员： v  吗？ 2 4  提示$0  $,B@H !B@ ( 'T T$,$ T$,$ X T+, T 'TP T  T$,A TX $!!Gyj T  T A  X $!!A X $! Gyj  T G T X : X $!(jd v +,kkkKT'r]] 0123456789.  $B'  。.$B' －.$B' -.$B' /.$B' T    T$"出生年月中含无效字符！请重新录入。' v  +,€kx T .$' If YM(0) <= 1 Or YM(0) > 99 ThenSt = "无效年份！请重新录入。"GoTo nCheckYMEnd If $ $ 无效月份！请重新录入。'xdp$. $ 'k@d8$'k $ $ 无效日期！请重新输入。'd . $ 'kk'r  +,k`XP $,B@H   L L 正确格式如：“91”表示：91年； L % “91.12”表示：91年12月； L , “91.12.30”表示：91年12月30日。 F H 提示A@0 v +,KT  $  注册号/学号：  ' 超过20个字符（1个汉字占2个字符）长度。 L L 报名系统将自动取前面部分！ N H 提示A@0  $' '   $ $   $ '  '  (.kn    $,备注Gosainfo B@jn'tox]]]  ' T   T$, $,yd T$,* T$,团体 T$,√G  'jk€ T T   T$, $,y(d  T$,* T$,团体 T$,√G  'jk T  规程规定：最多可报 X  名 z 正式运动员！ L L z 正式运动员已报 X  名。 ' &  L L 所以不能把该测验运动员改为 正式特长$ 运动员！ '  N H 提示A@0pdhF$!  F H 提示A@0(d   L L *现只能报测验运动员，确定要报测验运动员吗？ '  2 4  提示$0 √ +,d€xkpkhk`kXkP € ' T   T$,' 男$B' 女$B' x yd T$,* T$,团体 T$,√G  'jkH T T   T$,' 男$B' 女$B' x  T$,yd T$,* T$,团体 T$,√G  'jk( T  €#规程规定：男女正式运动员最多共可报 €X  名！ L L 男女正式运动员已报共 €X  名 。 ' &  L L 所以不能把该测验运动员改为 正式特长$ 运动员！ '  N H 提示A@0dF$!  F H 提示A@0d  L L (只能报测验运动员，确定要报测验运动员吗？ '  2 4  提示$0 √ +,dkkkkk'z  +,'i€ ]€]€]€ !G|j G|j !! !!  ! !$,B@Hk]] !' !' r'r '  '  $,B@H'kXkP $,G  'F  $,B@Hj    $,备注G  'F  $,B@Hjk   osainfo B@'  $,B@H (  $,B@H'osainfo B@''k#M              $,!. $,!.团体    $,!.备注osainfo B@ ( (osainfo B@ ' 'd`''k8 !!G|j !.'v] ]  $,团体 x z $, $,!.'x  x $, $,；$' $ ;$'|$ ,$' $ $'€$ $'$ $'$ $'$ $' x$'z x z$B'xyXkP k8'~   | $| $,,*  $|,$' $ $'~y k  k€ kx op h Attribute VB_Name = "She@et1" 鐱ast0{000?0820- C$0046}|Global!腟pac扚alse dCreatablPre declaId玊ruBExposeTemplateDeriv$払ustom izD2Option /licit Dim MaxCol As Long Ro"w Add Bo oleanin WC OldV衋lue S蠀+g傁5 Sex  TSeLRS?) L 僔B鱻 ?aJ5B?aLEM qnd4xN P繷繹 Sub Works伭朹Activ€?) ?€滰孉3CEnd  Before(Dou婥@dk(By€M Target Range€, Cance俬鱀YA/R?耡G@蔍KKNo臿`If No€5e?ProtectContent s Or 咙eC ell.I@rior.缼orIndq<> 2 TLhe@咲,= 濫榵it肂EIf罝R辆B:.罆 C3um@@%R h< 6CdS躤l@?鄛C@ 醻?, 7 @ €s(R, 2)@"*"dMsgBox "请录入运动员姓名！", vbIn?ma"h+OKOnly, "提示-?EB侀 6 √ `?ddAthC,?)?c&:爐e&c*Tes>tb'-?ⅩUnp恸 ("osa:i€"營(;w= PIIf("€!"``? 胊吜JCa=Is >狚 For I€<8 @To 100?5, IB备注#4C.` Nex竧 I AOI凞郷s(C) 魼^"A#'?烴僋俟蠢选项目PP仙(擙`€笶v纙(I桌丌!.烜 園%2_8釳]8 Pgv祊规莱坦娑⊿&驧+ " 最秷啾█+ C? ()" 名'繩St/tvb?ta傚<哵杣r R滙_ S 各q} !_ ??_ _ 聥_ 買駅}"*l袉駟駳憐:  -$戰bG'? ?&Z縇R⒖L6箿烰 鹙皩燣{L??魁?饞?`癋a肍c1Hp叶?繨c秔'u(m0L?J72?yH?J焮罀?[6cG6CLike€ "*全能e L+@Qs'q TH/絇侸RL15wR?扟"???课?4!?个??銝M_ 8UL馦W8*琣O再匀霰?。`?J>nE&? 报 兼 鸬ハ? 郱?骺梁 ? h币驯 " + CStr(K)H" 个单项，不能再增报全能项目。" GoTo nAddEvent End Iflse If K >= q@ndxN A6L > 0 Then St = + "该运樁_和  淐ells(R, 6)?"L[eLR係UOr TL\K0 For IR - 1 €?€fep -1.I, 1)p <> ?#E饃it "垨€b2"*"倸 3 团体 €`2?√ C俵 :e讫€+ Q誑€ext I h45536?3?3乮@E)3qn拢僡偂"规程筦娑ǎ築? , @€ 最禢 C让? _ + 纕bCrLf@'婪A堂 数诼鷟！窃Ch訠び/羹髁M, +e€'伹pehTru€吤a@unctio爟 茒: Msg(Box鄈,?In`forma?OKOnly, "0提示€扝 Fa 慳]FH Private Sub Worksheet_Be eRightClick(ByVal Target As@ Range€BancelBoo爈ean)bdA veSA .ProtectCont%啖s C=  #!oChc@Dim鄰L爋ng JUKRCNBoStri N鋏wue fs%€jNo?猁S ub`inWCo?b?R!CB/.@Row CC恛lum!萫l€,∴*se R a繧s < 5儢 ? ?R`4C`10)" !箑R * 100 I.C`? Ca 102c 10, X202€!3!3V1` 146?@aQS IFUnp僃 ("o鑣ai€\"燑??aQ.b2Len藼(?繪v(!dFromUnic爋de))嘭2@轐dDic蔪逤磷B最长个簚鹤郑ɑ騿个字符溃┏ざ劝K?玂騊"报名低辰远∏懊娌樋分S铧vb禳ZLeft(K眞K@發Whil e P+ Mi&dHd1)<=^ 2墢Iepnd 揂p%S愊@t Pass纖ord:=縋@撶+揇w03?5?45j= ?备注諎?%12?%l€==%???#P1?3 ?Re place" ? X!+AA墄+C`/> 12?"9#g名z褃超裙??12?=y麖)?bf{f?懁Bx7 O)???K@)1繤"@?R%0)?*vy這a? 8\7_牜r筨r12fg瓳焵)琒?!QbdpdAth!窅晳 ?`觧補伒揧彽p揔嵉癪安２3俧 犯!R<).[許?? 襽丫嬖卺繝s'若确有同Γㄒ姓名后面加A、B、C...或1 ?、3区餪V??? 0D?3慞t硣^?uR罧qO, 3皻.Entire.Inse緍PP: NRKR}?=??T纓?I鳬f(up  絸F1蠪傟鄍{2 o?)悹YE聽?? Kq?嘩]-& &Jp R?詓(J`R€ov,?]J椲0~o ?XE衞 AIa3 R鴉ǚ3).Select MsgBox "运动保? + N€ewValue(" 已存在，不能成@功修改靶 彰`vb0CrLf\_ + "若确@有同名脯建议j后婕覣、B...或1@、2、3 稹?, vbInform ation[OKOnly, "崾? Cells(R, 3€) = Old AddRowTrue GoTo Exit ChangEnd If Ne@xt I EDls€If ,2) <> "*"€ Then €?"确定蓌境齽mA€V" 吗？cQues哸YesNo俧Default€Button2卝鶃dvb€?坬嗁冚€?Entireiv.D€鐃€^L ocked€侳a僰R Whi(le @J(I, 2)) > 0TB CStr(a - 1)BI€11end € For I€R €[65536 翶F1?"" A臔_Rb("A弬I)).Interior.Col€orIndex€?5BBp 噈轐@? K?LHiddenS#K@ UHeigh6t€F K?C<=| K?5"旺:!= CCL彽啯劘Cas纄 4 尵Dim YM( ) As @ting Const sYM@("0123456789.k唨= Rep`lace(E`U [""AA燽羍?aaR 倉".髤 －儤€v-/AMa[1窳LLenF!$ aI !In羏1,!+, Mid? k1`mx= 0bE?eSt?出生年月中含无 效字重新录入 &OC醠嚒 aⅰnCheckY~MJE澹BES皃lith+7' €M0唳= 1 O唕AO> 99l'年份'4'@UBound(YM氠６`慄闷€> 12Z2赂e ?掳鲌c' ?羺!-銋)  3€0q7日乞?输O+b緼Q2?1鍾4ru???9 ﹨?~:x謠1T椥+p幩撪 正确袷饺纾骸?1”表荆?1年￣涣!嚃% .1212証耞I_1P.?030日^ iticalq|vb綔!['Ln5骋v癢B(V纊vHHvbFromUn爄code覍2%V"注册号 /学号_ 硛?0个?个汉字占2┏ざ萡 慨 "报名系统将自动取前烂娌糠逐睙?b3Lef塙10,駦1A朢涄?鹐糑,罊缐2袧薆_ R b%漈arget.牋魁皟槻p4摝0讝礍/郩C l3慱45?, A2j"备注硞 ActiveShBeProt吧 Password€:="osai览菭壯7inW1雏 ub〃Priv€ate Funp忻p>Ath(By R憪Long? COp懞?*Cancel€BooleanPr? 習I=K垪aL|RS岫鬴a哛 堵ep -A騼蓶2発3nAH惚僑9馵S瘫烦嚑P友毻盘錝瑰6c稀淘?Q酃觵?@b靠(_ _ _ _ s_ _ A笯 w+嵅DK >= #= "规程规定：最多可副 W搅)0@? 名RS 薁P鹫絫?饊耱饳已qU名怓? D( 0 c@所以迅貌庋橛改为× IIf(?6腊 炊", "特长") + "运动员！" MsgBox St, vbInformation榲bOKOnDly栳示XGoTo CancelExit Else If Columns@("F").Width = 0 Then iCr@iticalfDisAddAthYeStL+–rLf:"现只能报测验莠确定勔 吗？c €W{({QuesA唝YesNo?DefaultBu爐ton2厒)€B vb€kCell@s(R, 6 "|√厯亹媊焿knpd If€o偘LPRS >€B0€ For I@R - 1 ?€鋏p -1 儌梼NI, 1)D€Replace侢("男?女繩gName 埸>€谬? 単 2) "*", A€63团|体L繬OB -?Ka€1EGNe@xt I =+a=5536?<= 羾~"规程规定：男女正式鉨最多共 杀 " ,CStr(`鈧 名€偁vb+l_ 绬 已报共駫 。胠c?F儉x所以睝x把该噚改IIf(C 鼾 6爌A!S邫邫窟欉н欉櫲""煓睙櫬敓櫆檆棌s櫪 陪燏 1 9Tru 敲fun騝怜 ? m嗒濩猹郔 Fab羷F Private Sub Workshe€et_SelebChange(ByV`蠺arge纓 As Rⅰ亐郼 oldR癓ong釈CRCc" Boo榣ea 轅sNo  veS.Prot Conte鴑ts 饧& 亂 G#.RoDws犾unt@? 鄵酿hC們)d, ).n醕Dim H8 R!b ?*  ?=n Q3v= ?!rm5vC 啉( 閠1C$韤=0s:4WR&6q > 8 b5, Cqv备准?Q c1捒$%a|乹C8}"Ax"Unp? (?osai€橯zN;Q,??.L鄌cked67#+xD+ Pas€sword:=6 嚑WU{B2瞼R1沥<= 4)?t10b(q2-2会3鄓p.€h(?45)d> 51).絗>u驄@|7堾3飹 q8?袨 製= " )?_?稔[51悤mulaHiddenoo礑oo繰dRqC魁扲波'3 .I€Jrior ElorIn萪ex15?镮萇ldS= "決?DKwSA( 騭 i馯€6?廕ＳL€蟥+ S飷（d=>E 螅?56!?57 D肠3, KSplit(M4墸槐9T$Se1楜 #A(T1);AAt(0Q,Q(決Pga馥 ?2)2ES@1 qndxN&4AQ Nigh黷(罂5%坤縺  3紻KR稫wa TLD 嗲@2=⒒P眔 U繠ound(c (Like绱?0?,鹇 BRo m 錒q倂__SRP_4 ?__SRP_5$.Sheet2 -~__SRP_2 ?t5T _l7l忐齣 %(%t!td:佝]?t5dl忐畄忐6l忐齣 %l棹齣%t!tT裏t5Tl棹=( %l棹i%t!td:佝]?t5dl棹畄棹6l忐齣 %l棹齣%t!tT裏t5T"_l踎l勰":  %t$@t t ?_l@_l齣 %_l齣%t!tT裏t5T#c %t $t t6l忐齣 %l棹齣%t!tT裏t5T _l&:  %t$@t t?_l?_ll棹莑忐嗄l忐帜l棹 莑忐莑忐桥l忐桥呐(棹莑棹桥l棹桥l忐勰叁l忐齣 %(%t!tdAT:佝]?D?0l忐齣羹%(橚%@!@xAX:h]?H'8棹踠忐勰匌(%l棹齣潺%?⒛A:待]?旪?td?)t@?dT叁x?齽":  %t$@t t$黤 %t $t t$黤 %t $tt&:  %t$@t tl忐_ll棹_l?_l?_lDt$(tad@@aTa( ]?)t@6dTY.t$(tad`#`龖@/`t5dPl忐埤忐齣 %(%t!td:佝]?T?Dt6d叁r F奃奌*Fd]l忐齣 %(%t!tT鸃t6dT Dl忐齣 %(%t!tdAT`#`龖D/`t6dT\?P齼 ;奃F佝]( %l\i%t!td?t5dw j( %l\i%t!td鼖?:佝NTTd`D D6 YLX?/`t6dTDA?: NddlX秊T T6 YLL6dT>?: NddlX秊T T6 YLX?6dTlX秊 廡lX秊 廥lX秊 廫lX秊 廯lX秊 廳.DM @d  d`#`龖H/`?d2?奌奃 #`龖D/`  \齡P齵rU€€€ E 1 Y I  1 a  ! a y Y ) 1a y) 99 Q)AYi ah!aI0``` `` I IWWP  龖D 龖Hd $/ 0   0   0   0   j l x'T$@TWD4T5D3 堽A ?嶠xaD?qh5DxaD?qd5Dlhq0l0"ld莑h裭d 悄lh鮠瞝d猶l恖h鮠瞝d猶,l,鮢 qlM>l,鮪(l,跏(l,跻(l,?(l,?5 qlMl,鯍M 鮔ql": %T$@T TxaD`1\5D9鮻\M@D D4ll昌i ]鹴5Dd膌h齣%ldi忐%T!TD鼖'滮'箭:忑N荦荦魼D:烃麛4llF麛件:麛滯ll阐﨔岨麛|?l麛\?L麛CX"l(秊7*#旪l(秊*1\/旪0l(秊C\l($l(秊?胍l(秊?胲x?CXl\7*#旪l(秊*1\/旪 嶞.lh齣%(忐%l\F烃%T!TT!4lh齣%(忐%T!T4裏T54k'件':N44lX*#旪*#慅@*#岧*#堼A*#*#B*FD !2 旪慅岧堼?D4件1lh齣%(忐%夽F烃%T!TTl橗1鮻\M@D D4( ]鹴5DY'件':N44魼Cl\*#旪D*#慅*#岧*#堼 *FD !2旪慅岧堼6D4件! \M@D " D`1X5D qlV(Dll\M@4 #鮻lXF忐4麛件 件滯(荥]鸐6D4件 4lXF忐(Dll\M@4 #4麛`1X6D4ll猶lolXF%x,dld莑d桥ld桥(%ld齣忐%T!TD:烃]?4T6D&: %T$@T T 嶠h@/&\X`(xh旪慅岧堼TxtD4件滯岨|\<荦箭滮80    x l x't$@tWdTt5d3_lC^xadttaTv?xaD@@a0v?叟)t@6dTD0Nxad?齣 %xaT?齣%t!t0裏t6dT0xad?q忐5dxad?q棹5d 堻 嶞l棹 ?_ll忐畄忐6l忐齣 %l棹齣%t!tT裏廝l棹p \奓D齪 Ol\奓濬叁( %l棹齣%t!td:佝麛T鹽Dt6dTd ??: Nddl\奓T T6 YLX?6dTlX秊 廝p  \齠D 8x 4/XxT`t@dTD0xXH8凝旪td`hhhhh #4`p$#,A`t(8`x ?,`|,n<jxS颈#<靤[蘂惉m敵菻 F蔉]蜆@惩厒牃x蔉]蜆@惩厒牃靤[蘂惉m敵菻?ME(SLSS?6"N0{00020820-0000-0000-C000-000000000046}€?(%H凗` %偁 ?? %`h8@``0l?I$*\Rffff*0452f6a3f54xòAttribute VB_Name = "She@et2" 鐱ast0{000?0820- C$0046}|Global!腟pac扚alse dCreatablPre declaId玊ruBExposeTemplateDeriv$払ustom izD2rU€€€ 04!aI`rU€€€ @n%瞼0* pHd奥赛运动会报名表€子系统2@  = V l@?I J< 9stdole>stdole(h%^*\G{000204?0-C 0046}#2.0#0#C:\Windows\s__SRP_3CB_VBA_PROJECTdirE)__SRP_0N]` _B_var_UCasea蝋` m61.7#0#C:\Program Files\Microsoft Office\Office14\EXCEL.EXE#Microsoft Excel 14.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\ystem32\e2.tlb#OLE Auto續ation0A僂Offic凟ODf€ic侲€搥丒2DF8D04C-5BFA-101B-BHDE5€EAA€C4€2圗Program Files€\CommonMicrosoft Shared\OFFICE14\MSO.DL L#僊 9.0 Object €Library€JES═hisWorkbookG€T玦sW€YrkbUo 2 QHB1x莅B,?╙?B+B|€Sheet1G S@#eXt1H2N眒猒222$2毕?B9 Library揔*rU€€€~~~~~~~~~~~~~~~~~~~6  釗怇E≌帊弿 儕a a<儕a  q 9Ql)儕a iA  )奥赛运动会报名表子系统 ThisWorkbookSheet1Sheet2F /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7\VBE7.DLLVBA Y `F4C:\Program Files\Microsoft Office\Office14\EXCEL.EXEExcel Qyp0FC:\Windows\system32\stdole2.tlbstdoleVBE7.DLL a€L续-鶾藉D轗?C:\Program Files\Common Files\Microsoft Shared\OFFICE14\MSO.DLLOffice aF靤[蘂惉m敵菻 F蔉]蜆@惩厒牃DF Worksheet @Q剥鈯D? )# ?魝 AE?冺韗Worksheet_ActivateWorksheet_BeforeDoubleClickFF CancelTestAddEventWorksheet_BeforeRightClickWorksheet_ChangeAddAthWorksheet_SelectionChange ""t@DHLFF ProtectContents Select  Y鑜 osainfoUnprotect LockedPasswordProtect Value 釼SOFormulaHiddenpF  ; , ,* E 蘟 *\G{000204EF-0000-0000-C000-000000000046}#4.1#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7\VBE7.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.7#0#C:\Program Files\Microsoft Office\Office14\EXCEL.EXE#Microsoft Excel 14.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.5#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE14\MSO.DLL#Microsoft Office 9.0 Object Library l?ISThisWorkbook0652f6a3f6ThisWorkbook] Sheet10552f6a3f5m Sheet1_眒 Sheet20452f6a3f5 Sheet2毕0P0髂頋!>sD撎i檀;77潫鉐v偏?m?毪N玱~祎??0€: Excel€+` VBA麾`Win16羱`Win32`Win64x`Mac巢`VBA6?`VBA7?` 奥赛运动会报名表子系统^|`stdole揱`Officeu` ThisWorkbook|鉦 €_Evaluate賎bSaved@ `Workbook_BeforeClose沧`Cancel駱` Application?`Sheets `Cells峘Value銴`MsgBox桼` vbQuestion室`vbYesNo漙vbNo?`Workbook_BeforeSave l`SaveAsUI篪`SaveAsf;`fNameR鸴ActiveWorkbookReplacef`UCase5 ` vbCritical+}`vbOKOnly醪`Path2`vbCrLf`vbInformation瞡`Abcd韅FileNamej胉I``StartIDB0漙CMGs懦`fNA]`sB5嘁`sB2菀`sIIDx鵣LOFc痐ChrK~`Str椪`RndR蟕Time` Sheet1`MaxCol?`MaxRow+哷AddRow7篳inWC,]`OldValueq瀈gName 峘Sexr觍TSeLRS鷽`TLeLRS洖`LRS忒`aLRS?`eLRS?;`aLES?`qndxN観`Worksheet_Activate+乣Worksheet_BeforeDoubleClickft`Target現`Range `Ri`CZ`Kb`Noj^` ActiveSheet%N`ProtectContents账` ActiveCell椒`Interior;鋊 ColorIndex鱼`Row壪`Column爄`AddAth鵢` CancelTest[ ` Unprotect?`IIfz瀈Protect譮`Password鹞`AddEvente`fRE]`eR ]`St(_`lR#^`lC^`CancelTestExit 刞Ja`Lc` nAddEvent>韅Worksheet_BeforeRightClick3`Worksheet_Change烻`NewValue`StrConvx'`vbFromUnicode0綻Right` ExitChange5` SelectionZ甡 EntireRow鱜Insert謗`Val葩`vbDefaultButton2戳`vbYesa?`Delete竫`Locked `Hidden]鎌 RowHeight`YMk_`sYM氛`nCheckYM榒Split?` CancelExit咃`Columnsp9` ColumnWidth涍` DisAddAth5` ExitAddAth实`Worksheet_SelectionChange?`oldR!騚oldC騚RCchange媋`Rows`Count0v`FormulaHidden`AX` Sheet2`Workbookk` Worksheet窿`€Activate梶`€BeforeDoubleClickB鷃€BeforeRightClick刵`€ChangeＧ`€SelectionChange鉵`€_Defaultj耟 _B_var_Right9賎_B_var_StrConv{` _B_var_LeftQ醏 _B_var_Mid韕` €BeforeClose~;` €BeforeSave壑k  @  g *NIlW[b *NW[&{ 暒^0   T鹼邁\陙≧諷MRb楄R 衏:y   袕≧XTT $ 厤菑6*NIlW[b12*NW[&{ 暒^0   * 袕≧XT 騗蟸X[(W H鍌nx g TT袕≧XT 鷁畫覻TTb棤RA0B0C...b10203...:S+R0EntireRow Insert 1 " 騗X[(W N齹b烺頞9e袕≧XT覻T nx歔 Rd栃彣RXT  T Delete A : 0123456789. 0 .  - / "鶴ut^g-N+T鄀HeW[&{鲖蛻癳U_eQ0 鄀Heg齆鲖蛻癳U_eQ0 鄀He錯g鲖蛻癳搹eQ0 "cknx