邢唷>? <?j?;  !"#$%&'()*+,-./0123456789:?g>?@ABCDEFHIJVLMNOPQRSTUGWXYZ[\]^_`abcdef?ik?wmnopqrstuvhxyz{|}~€Root Entry F?觇籋惗糎=?Workbook餻_VBA_PROJECT_CUR"`琝9糎@秌;糎VBA `E?糎p2V;糎 g2蓘\pUser Ba=  ThisWorkbook=hJ{9?9X@"1嗛媅SO1嗛媅SO1嗛媅SO1嗛媅SO1嗛媅SO1嗛媅SO1嗛媅SO1 嗛媅SO1嗛媅SO1嗛媅SO1 嗛媅SO1 嗛媅SO1嗛媅SO1 嗛媅SO1 嗛媅SO1 嗛媅SO1 嗛媅SO1*MS Sans Serif1Arial1*MS Sans Serif1Arial1嗛媅SO1h8啰媅SO1,8啰媅SO18啰媅SO18啰媅SO1啰媅SO1啰媅SO1<啰媅SO1>啰媅SO1?啰媅SO14啰媅SO14啰媅SO1 啰媅SO1 啰媅SO1啰媅SO1啰媅SO1 啰媅SO1啰媅SO+"?"#,##0;\-"?"#,##05"?"#,##0;[Red]\-"?"#,##07"?"#,##0.00;\-"?"#,##0.00A"?"#,##0.00;[Red]\-"?"#,##0.00e*0_-"?"* #,##0_-;\-"?"* #,##0_-;_-"?"* "-"_-;_-@_-,)'_-* #,##0_-;\-* #,##0_-;_-* "-"_-;_-@_-u,8_-"?"* #,##0.00_-;\-"?"* #,##0.00_-;_-"?"* "-"??_-;_-@_-4+/_-* #,##0.00_-;\-* #,##0.00_-;_-* "-"??_-;_-@_-\$#,##0_);\(\$#,##0\)\$#,##0_);[Red]\(\$#,##0\) \$#,##0.00_);\(\$#,##0.00\)% \$#,##0.00_);[Red]\(\$#,##0.00\)+"?"#,##0;"?"\-#,##05"?"#,##0;[Red]"?"\-#,##07"?"#,##0.00;"?"\-#,##0.00A"?"#,##0.00;[Red]"?"\-#,##0.00i2_ "?"* #,##0_ ;_ "?"* \-#,##0_ ;_ "?"* "-"_ ;_ @_ .)_ * #,##0_ ;_ * \-#,##0_ ;_ * "-"_ ;_ @_ y:_ "?"* #,##0.00_ ;_ "?"* \-#,##0.00_ ;_ "?"* "-"??_ ;_ @_ 61_ * #,##0.00_ ;_ * \-#,##0.00_ ;_ * "-"??_ ;_ @_  yyyy/m/d;@ 0.000000_  0.00000_ 0.0000_  0.000_  0.00_ #,##0.00_ ;\-#,##0.00;;#,##0.00_ ;\-#,##0.000.00_ ;\-0.00"Yes";"Yes";"No""True";"True";"False""On";"On";"Off"],[$ -2]\ #,##0.00_);[Red]\([$ -2]\ #,##0.00\) "/f";"/f";"&T" "w";"w";"GP" "_";"_";"sQ" 0000000.000000 0.00000 [$-804]aaa;@0_ 0_);[Red]\(0\) 0.0000% 0.0_  0.0% #,##0.00_  #,##0.0_  0.E+00 0.0000000_ 0;_<0;_w9_ "?"* #,##0.00_ ;_ "?"* \-#,##0.00_ ;_ "?"* \-??_ ;_ @_ g1_ "?"* #,##0_ ;_ "?"* \-#,##0_ ;_ "?"* \-_ ;_ @_ 0.00_ ;[Red]\-0.00\ 0.00_);[Red]\(0.00\)0;_0;_ 0_ ;[Red]\-0\ 0;_@0;_€0;_0.0_);[Red]\(0.0\)0;_0;_0;_0;_0;_0;_h0.00;[Red]0.00[DBNum2][$-804]General 0_);\(0\)0.0;_0;[Red]0 #,##0_ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?  '? '? '? '? '? '? '? '? '? '? '? '? &? &? &? &? &? &?  ? ? ?P ?P ?  ? ?  ? ? %?a> ? ?  ?  "?攆f $? #? !?` ? ? &? &? &? &? &? &? ? ? ?  ? ?    @ @  x@ @  0@ @ 4@ @  @ @ 0@ @   1  1|@ @  14@ @ 1 1 0@ 0 0   8@@ 8@ 8 @  x@@   x @   x@@   x@   x @  8@@  8@  8@  8  8@  8 0@    0 0 8  1|@@   1|@   1| @  x@@  x@  x @  x@@  x@  x @   ||px€}A};_ "ef##0_}A};_ "ef##0_}A};_ "ef##0_}A};_ "ef##0_}A};_ "ef##0_}A};_ "ef ##0_}A};_ "蘈##0_}A};_ "蘈##0_}A};_ "蘈##0_}A};_ "蘈##0_}A};_ "蘈##0_}A};_ "蘈 ##0_}A};_ "23##0_}A};_ "23##0_}A};_ "23##0_}A};_ "23##0_}A} ;_ "23##0_}A}!;_ "23 ##0_}-}#;_ "}A}$;_ "##0_}A}%;_ "?##0_}A}&;_ "23##0_}-}';_ "}A}(;_ "俏##0_}A}*a;_ "骑?##0_}U}+;_ "##0_"* \}}.鷠;_ "蝌?##0_"* \@_ _  }}/;_ "ゥ?##0_???"* \???@_ _ ??? ???}-}0;_ "}-}1;_ "}A}2鷠;_ "€##0_}A}5;_ "##0_}A}6;_ "##0_}A}7;_ "##0_}A}8;_ "##0_}A}9;_ "##0_}A}:;_ " ##0_}A};渆;_ "霚##0_}}<???;_ "蝌?##0_???"* \???@_ _ ??? ???}}=??v;_ "虣##0_"* \@_ _  }x}??;_ "膊?虣##膊?"* 膊?@_ 膊? !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? %€* ColLevel_1€* ColLevel_2€* ColLevel_3€* ColLevel_4 €* ColLevel_5 €* ColLevel_6€* ColLevel_7€* RowLevel_1€* RowLevel_2€* RowLevel_3€* RowLevel_4 €* RowLevel_5 €* RowLevel_6€* RowLevel_7"€~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`鏒StartUp'YN膥怽'Y孨膥VV"?詋[嵞~+R 7T€鹼筫_ 7耂[峌SMO 7啒  7Ye 脋 7錧\O篘XT 7ID鱏 77uP[覻T 7耂[峺橆v1 7耂[峺橆v2 7耂[峺橆v3 7耂[峺橆v4 7耂[峺橆v5 7{|媁 7鶴u錯g 7珟貧 7SO蛻 7劅 7sYP[覻T 7 5uP[Te圗Q魦f: 720覻T孴耂[峺橆v/f臺kX剉y橆v vQ僛酧o`颯錘 愰b'`kX橯0 730T筽鸔耂[峺橆v N蒪FhsS颯0{|媁NkX橯貫:N<詋[岨0 740鲖N亯鹠燫Rb頞9eTh圏h_ &TR鄀誰cknx黐eQ0 7Y鑜 7!10鲖奲袕≧XTT0R鵞擽剉耂[嵞~+R颯錘襝eQL垶X燫袕≧XTTpe蠎0 720纇錱鵞擽耂[嵞~+R剉T膲R 6qT奲Th堁S?R異眥  7BM-Limit 7Vaild 7L-Nums 7One-DW 7Man 7One-ydy 7Women 7M-XM 7W-XM 7TYPE 7M-XM-ID 7W-XM-ID 7鑜a 7鲖\廩塠hQ'`緥n:N -N Sb_,g噀鯪鰁  愰b /T(u廩  7鑜a 7鲖\廩塠hQ'`緥n:N -N Sb_,g噀鯪鰁  愰b /T(u廩  7褠轢舉8nL€Nf[b?{29J\f[u0u刜袕≧O 7(10T膲R(蟢*NUSy?蟢*NUSMOP枼b3篘,蟢MO袕≧XTP枼b2y?颯|Q汻0 7'YN膥100s|200s|400s|800s|1500s|3000s|髰貧髰軓瀃胈t藌歔髰軓4100s|4400s|OfgcgF?W櫉詋[Km寶褠轢舉8nL€Nf[b?{29J\f[u0u刜袕≧O 7'Y孨膥B*< ,=&>?A BXC:瓹ccjBO岆Uj_ 翶U g2蓘&ffffff?'ffffff?(?)?"??&>  g2蓘 1fIFS郰 d褚MbP?_*+€%;&R&6 Nwm"}o忲N www.softmay.com&~窟镧?'~窟镧?(M&撋d2?)M&撋d2?MTEPSON Stylus C43 Series最倈ゎpv媭 4dhh4 €*** qhhDLLName32=E_DU16YE.DLL L dL 2EPSON Stylus C43 Series***" dXX 兞`? 兞`?&腵c勌U} ` K}  } @ } € } €}  } €} } } } @ }  } 1wwwwww                     o*ooooooooooo F F FH G& e'eeeeeeeee F@F?F  UVWXXXXXXXXY ~ F@F~ F  UVWXXXXXXXXY UVWXXXXXXXXY UVlmmmmmmmmn UVfggggggggh UV i,jjjjjjjjk I A A A A A A A A  A  A  A JB@@@@@@CBBB  JB@@@@@@CBBB  JB@@@@@@CBBB  JB@@@@@@CBBB JB@@@@@@CBBB JB@@@@@@CBBB JB@@@@@@CBBB JB@@@@@@CBBB JB@@@@@@CBBB JB@@@@@@CBBB JB@@@@@@CBBB JB@@@@@@CBBB I A A A A A A A A  A  A  AJB@@@@@@BBBB JB@@@@@@BBBB JB@@@@@@BBBB JB@@@@@@BBBB JB@@@@@@BBBB JB@@@@@@BBBB JB@@@@@@BBBB JB@@@@@@BBBB JB@@@@@@BBBB JBDDDDDDEEEE DlXzp....B""""""""""""""""""""" !"#$%&'()*+,-./ 0  JB@@@@@@BBBB !Z![ !R+!SSSSSSSST "\] "`"aaaaaaaab #\] #`#ccccccccd #! #" ## #$ #% $^_ $M$NNNNNNNNO $- $- $;$@@ %. %. %<%5@5@ &L &/ &/&6@6@ 'P'PPPPPPPPPP '0 '0'7@7@ (P(PPPPPPPPPP (1 (1(€D@€D@)QQQQQQQQQQQ )2 )3)E@€N@*PPPPPPPPPPP *3 *4*€N@繯@+PPPPPPPPPPP +4 +5+繯@R@,PPPPPPPPPPP ,5 ,6,R@@R@-QQQQQQQQQQQ -7 -7-@Y@@Y@ .8 .8.€Y@€Y@ /9 /9/@^@@^@ 0: 0:0€^@€^@&R@"B8~x@@^^RRRRR22>@        !!  !$"" ## $$ '' (( -- )) ** ++ ,, 77  %$%  /  %$ /  %$  Sheet1b(b(  gghPh  (-  :S遅1_1 g2蓘 1耛jjjjjjjjk I A A A A A A A A  A  A  A JB@@@@@@CBBB  JB@@@@@@CBBB  JB@@@@@@CBBB  JB@@@@@@CBBB JB@@@@@@CBBB JB@@@@@@CBBB JB@@@@@@CBBB JB@@@@@@CBBB JB@@@@@@CBBB JB@@@@@@CBBB JB@@@@@@CBBB JB@@@@@@CBBB I A A A A A A A A  A  A  AJB@@@@@@BBBB JB@@@@@@BBBB JB@@@@@@BBBB JB@@@@@@BBBB JB@@@@@@BBBB JB@@@@@@BBBB JB@@@@@@BBBB JB@@@@@@BBBB JB@@@@@@BBBB JBDDDDDDEEEE DlXzp....B""""""""""""""""""""" !"#$%&'()*+,-./`0` JB@@@@@@BBBB !Z![ !R+!SSSSSSSST "\] "`"aaaaaaaab #\] #`#ccccccccd #! #" ## #$ #% $^_ $M$NNNNNNNNO $- $- $;$@@ %. %. %<%5@5@ &L &/ &/&6@6@ 'P'PPPPPPPPPP '0 '0'7@7@ (P(PPPPPPPPPP (1 (1(€D@€D@)QQQQQQQQQQQ )2 )3)E@€N@*PPPPPPPPPPP *3 *4*€N@繯@+PPPPPPPPPPP +4 +5+繯@R@,PPPPPPPPPPP ,5 ,6,R@@R@-QQQQQQQQQQQ -7 -7-@Y@@Y@ .8 .8.€Y@€Y@ /9 /9/@^@@^@ 0: 0:0€^@€^@&R@"B8~x@@^^RRRRR22>@  ''    !$!!    ++ ,, --  (( )) ** "" ## $$ 7/  %$ /  %$ 7  %$%   Sheet2b(b(444gghTh  (-  :S遅1_1_1 ThisWorkbook "__SRP_29__SRP_3HSheet1 K?  !"#$%&'()*+,-./012345678?:;<=>?@ABCDEFG?IJ?LMNOPQRSTU?WXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€R` 枈:#@y5;0?K偪L颲緭cF觇o@?覀O╱x觇o@?覀O╱梱5;0?K偪L颲緭cME([LSS?>"?L<,<0<4<8<<<N0{00020819-0000-0000-C000-000000000046}X $X`po ,`o  i?  €€?%j€"4@凗8 %偁?h? %(@p&@?Xx  @?h  @?d  @?T  @?D  @?4  @?$  @?  @?  "0246@?x  @?h  @?0X  @?H  69@?H8  8B@?`(  -4@?x  88@?  of@?  C8hX@D$ ┋玅$*\Rffff*0554e89565*\R1*#250*\R1*#24f*\R1*#385*\R1*#125*\R0*#17*\R0*#18€€ €€ "U 8€ " @HP ` p €"+L3€ € €  € 8€ X€ p€ €€ € x] ` &!($&(*o@X0 " '" 0(* " B@2比赛报名表自动保存成功!A@4d@)请确认报名信息,然后发送至比赛规定的邮箱! 6欢迎使用索美软件A@4koPublic a As StringSub aa(bb As Integer)a = "public1"MsgBox aEnd SubMsgBox Str(bbbbb + 1) Call aa(1)8HAttribute VB_Name = "ThisWorkbook" 孊as?{00020P819-0C$0046}|GlobalSpac扚alse dCreatablPred恊claIdTruBExposeTemplateDeriv払ustomizD2Option /licit€ Pub€ b As I纍teger€/A€3 Sub 叏_Open() O#rror R坋su€糔ex€'Windows(.Count)`.Visi垉CE nd?2BeforeCl?CancelMBoo發ean>?=?? 1fct繦C#H!LIf = 1€ Then I.Sav@fMsgBox "比碜远4娉犐功!@塃B亖 请确认 信息,然簚蠓⑺椭罙规定的邮箱@, vbOKOnly, "欢迎使用索美软件C繧If 菿T '刲a罝S@纍giaa(bbq@J'a聊py?@ '*a€逨€R P燙all @1rU€€€ 0 a9@ q +8!aI` `a/o`KUc$%x!xahv?齣T%d!d4,.)xd6h4l`$ xdh4K?? 黤h%x$Dx,.x? $+'''8:hNHH 6H83'':X N88:h NHH 6H8$ xH8 488ErU€€€ D$Y`(`  #@4n$+枈晧xMEue = ""Range("B" & curline) = ""0MsgBox "输入运动员姓名,然后才可以选择参赛项目!"End If-------------T2$>!N'L L----------查找关键字的行号 P R!TA P!N男子姓名!Sheet2.Cells(i, 1).Value = cc.Row P!V'@k P!N女子姓名!Sheet2.Cells(i, 1).Value = cc.Row P!V'BkH P!N电子报名补充说明:!Sheet2.Cells(i, 1).Value = cc.Row P!V'Dyk X!V'F X!N'HMsgBox "男子开始行:" & manstart!MsgBox "女子开始行:" & womenstartMsgBox "结束行:" & endline$MsgBox "当前单元格的行号:" & curlineMsgBox "当前值:" & curxmname'-----------------当前行项目名称重复次数 H'JC F$> H J 'JkhD F$> H J 'Jk0E F$> H J 'JkF F$> H J 'JkG F$> H J 'Jk J "同一名运动员重复报相同的比赛项目!A@4 X(N'Jk(k -----------------是否与全能冲突]'Z'\](@Xp'^'`'b'd'f]0男子 F @ F B  h D D N h$>!NC F$>N h$>!NQ h$>!N'^kN h$>!ND F$>N h$>!NQ h$>!N'`k N h$>!NE F$>N h$>!NQ h$>!N'bkN h$>!NF F$>N h$>!NQ h$>!N'dk0N h$>!NG F$>N h$>!N\2枈T#xME (SLSS?<>N0{00020820-0000-0000-C000-000000000046}@ :@)傸` %@凘 @凚 比赛@凞 A@4@凢 8@凥 @凧 @刏 Ac@刓 @刕 rlin@刞  "输@刡 梢匝@刣 En@刦 ----@刪 !N@刯 @刲 关键@刵 !T@刾 男子@剅 .Cel@則 Row@剉 @剎 @剒 , 1) ~GG)傸.Cel %€? %(┋玅;€ " €&€ 0€ *H€ x€ € € "€ (€ € (€ 6H€ €€  € € (  HX`€ (x "€ (  ( 0 @€ &P€ (x€ € *€ "€ . HX`€(8@`p x, € &€ € (HPX`h€,p€ J@`JhJ0PJXJ @  H X € ` p  J   J p  J   J ` € J     €  € 8 € X € x €  € <  < € *€@Php8HPp€ < € 0€ (€ @€ Xx€€ " @P Xh€  (@`p x € $ 6  Xhp x€ 0€ 2 @`€ "x 8H P`x   8Xh p€ $€ 6  € €  (€ " 0€ 8Ppx€ €  0@H `px€€ € "€ <&8X&`€  " 0@HP&X€&  € (€ 0€ H€ jh€ € € (0HxHHX`€ h€ x]h€ 加速创建报名$If Range("P37").Value <> "比赛" ThenExit SubEnd Ifcurline = ActiveCell.Rowcurxmname = ActiveCell.Value!If Range("B" & curline) = "" ThenActiveCell.ValQ h$>!N'fk hk女子 F B F D h D D O h$>!NC F$>O h$>!NR h$>!N'^kO h$>!ND F$>O h$>!NR h$>!N'`khO h$>!NE F$>O h$>!NR h$>!N'bkO h$>!NF F$>O h$>!NR h$>!N'dkxO h$>!NG F$>O h$>!NR h$>!N'fk hkMsgBox "xmid1:" & xmid1MsgBox "xmid2:" & xmid2MsgBox "xmid3:" & xmid3MsgBox "xmid4:" & xmid4MsgBox "xmid5:" & xmid5 ^ `  b  d  f 'Zk ^ ^d ` `d b bd d dd f fd'\k` Z \2同一名运动员不能同时参加全能项目和其它单项的比赛!A@4 X(Nk#-----------------运动员限报数量检测]H`S3$>!N'x'v ^ ^d v 'vkX ` `d v 'vk  b bd v 'vk d dd v 'vk f fd v 'vkx v x 每名参赛运动员限报: x个单项,可兼报接力!A@4 X(Nk*-----------------参赛单位限报数量检测-男子]xS2$>!N'zMsgBox dwxbmax h D D 'n'pN h$>!N'jQ h$>!N'| j |dMsgBox "项目名称:" & xmname r @ BC r$> j n 'nk r r @ BD r$> j n 'nkH r r @ BE r$> j n 'nk r r @ BF r$> j n 'nk r r @ BG r$> j n 'nk( rMsgBox "当前男dwmax:" & dwmax n z 单项比赛,每个参赛单位限报: z人!A@4 X(Nk k  h*-----------------参赛单位限报数量检测-女子,Dim xmi, xmname, xmid, dwmax, ydymax, i1, i2 h D D 'n'pO h$>!N'jR h$>!N'| j |dMsgBox "项目名称:" & xmname r B DC r$> j n 'nk  r r B DD r$> j n 'nk  r r B DE r$> j n 'nkP  r r B DF r$> j n 'nk  r r B DG r$> j n 'nk  rMsgBox "当前女dwmax:" & dwmax n z 单项比赛,每个参赛单位限报: z人!A@4 X(Nkk hko 加速创建报名P37$>!N比赛|k€T2$>!NT2$>!N'L LU2$>!N'€U3$>!N'男子 P R!T P!N男子姓名 P!V'@k P!N女子姓名 P!V'Byk€xMsgBox "行数:" & manstartMsgBox "行数:" & womenstart6MsgBox "行数:" & manlingsmax - (womenstart - manstart)  € B @   @ R%B@  B @   € @ R%B@P女子 P R!T P!N女子姓名 P!V'Bk P!N电子报名补充说明: P!V'Dyk   D B   B R%B@X  D B    B R%B@ (T2$>(Nkk禁止使用插入列功能On Error Resume NextcApplication.CommandBars("Worksheet Menu Bar").Controls("插入(I)").Controls("列(C)").Enabled = FalseOn Error GoTo 0禁止使用插入列功能Column %(禁止使用插入行功能判断U2$>!NU3$>!Nrow %(h行(R)插入(I)Worksheet Menu Bar %%%(drow %(行(R)插入(I)Worksheet Menu Bar %%%(ko毜Attribute VB_Name = "She@et1" 鐱ast0{000?0820- C$0046}|Global!腟pac扚alse dCreatablPre declaId玊ruBExposeTemplateDeriv$払ustom宨zD2 P€€ Sub Works亾_Change(ByVal Target As R ) Dim manstart, womeendline, curxmn€? maxxm '加速创建惐If.("P37").€;ue <> "比赛" Th別nExitUnd If?淎ct€Cel鄉.Row €B" &?? "F?罀€?'侭("MsgBox "输入运动员姓名,然蟛趴梢匝≡癫稳狀目!EE3B- ad罶s0valiADT2賲H 1 1EK查找关键字的行号 For Each cc In ??U@cccLike ?男子A3H 2.A]s(i, ?o=€胊厞V@蟼f柠@/ 女/G?电子酦补€充说明:焽$\ 丷? 繬ext S 鵕錑a-开始喧 &&n(L?( 醜结束$d当前单元<格C值?ciUb 行罿名称重 创问Hur遜%.F傕)0D\>C,rG&C g+ ??`K D e摶 E F ; G Т > E?R同一鹀殹;报相蛒膩磫橳+=. @=ee'嶪是否与全能冲突NqneHxis€蝑x> $鉍Qjxm爄d1, a2c?c4c5 "Wb3457an襪, dw€$, ydy錼ii2?包u07fQA繽47 <颀鴗 -馴H+ 3 To i15` @q N忨 @Y?e) 讋? R1翾 _|mi^[9__2颻_拰"T 挈?__€埑?al釠饠_{@__V?__鏟 D__VQ1_]乹a$鼼Z'!l?鑭1???`?1?1=1O?1" go?81R?1?1(?_?1_ F?81_?e_=??1_亥|>1___桚?1__RJ81___W?1__R817_V?1'鍁癧d1颮棐`d2f?3<44>50q92A€40 Or23z45满wz+?cP50抙= 1?0)q2? 3Uxmid3 <= 100) Or (? <> ? And 8 €5 €@Then dxexisDt ( E奍f If qn.N 9MsgBox "同幻硕辈荒芡辈渭尤芟钅亢推渌ハ畹谋热? ActiveCell.Val4ue"€'-_限报数量检测 Dim ydyd纗bmzs,€pax €*Range("S3?)?0v齻?  4€? 1 泜$2??€鲏顕僠?謮n7斻$G >苖虝每@名参赛G~? & & "个習,可兼€报接力!駯!A单位I?娜凶觾榙w摾首€E?G?拿F ` For謇 endline +@ 3 To 1?@燿wmax@ €繣xmnam{A艱N€|Yi鰀@DQM y绖?"鋭 c壞.?av名称:c Aa i1`mansta剅t!womeb$Ci1)M "hE@Next ik` D骺lE轋G芃当前男b"N" > ?刯DU呄偸x扛 y儏`吶亙`t ePQ n 覓喤畞唙'永,羐iUx9翉, '訓C咵ach 燾c InS1?UsedA.KccっLike B"姓名U v夶.Row%R?裑+鐳J?@1 盇?行+(GG&- (8 -O6?cei1鱭W魵 fs/3s(+ 2).Inser~t丄 垄-^ 罓2 wD齪2tre#v?鍩"觨4"a ?电子A9补赤渌得鱬eN战#or'(ober3p脖endline - womenstart) + 1 ActiveSheet?Rows(2).Inser"tTNexFor ad =€ 1 To (?)俿max"tDeletetApplication.Scr@eenUpdn"g€Tru*Range("T2"€).Value End If '禁止使用插入列功能 €'On Err€l€Resume v ' >CommandBars(@"Works仠 `Menu €=C纎ntrol?(I) 列(CEnableda€QFals_@G:o€?I慡朎Coplumn€5??聋判断 If MU M0 A繪E3€匰0 T hen !ro>wJ Cf梀pV行?RKVL臮E耓?膅?11F1实Sub伕Sheet2 l ?StartUpK_VBA_PROJECTVdirJue = ""Range("B" & curline) = ""0MsgBox "输入运动员姓名,然后才可以选择参赛项目!"End If-------------T2$>!N'L L----------查找关键字的行号 P R!TA P!N男子姓名!Sheet2.Cells(i, 1).Value = cc.Row P!V'@k P!N女子姓名!Sheet2.Cells(i, 1).Value = cc.Row P!V'BkH P!N电子报名补充说明:!Sheet2.Cells(i, 1).Value = cc.Row P!V'Dyk X!V'F X!N'HMsgBox "男子开始行:" & manstart!MsgBox "女子开始行:" & womenstartMsgBox "结束行:" & endline$MsgBox "当前单元格的行号:" & curlineMsgBox "当前值:" & curxmname'-----------------当前行项目名称重复次数 H'JC F$> H J 'JkhD F$> H J 'Jk0E F$> H J 'JkF F$> ????H J 'JkG F$> H J 'Jk J "同一名运动员重复报相同的比赛项目!A@4 X(N'Jk(k -----------------是否与全能冲突]'Z'\](@Xp'^'`'b'd'f]0男子 F @ F B  h D D N h$>!NC F$>\2枈v#xME (SLSS?<>N0{00020820-0000-0000-C000-000000000046}@ :@)傸` %@凘 @凚 @凞 @凢 @凥 @凧 @刏 @刓 @刕 @刞 @刡 @刣 @刦 @刪 @刯 @刲 @刵 @刾 @剅 @則 @剉 @剎 @剒  ~GG)傸 %€? %(┋玅;€ " €&€ 0€ *H€ x€ € € "€ (€ € (€ 6H€ €€  € € (  HX`€ (x "€ (  ( 0 @€ &P€ (x€ € *€ "€ . HX`€(8@`p x, € &€ € (HPX`h€,p€ J@`JhJ0PJXJ @  H X € ` p  J   J p  J   J ` € J     €  € 8 € X € x €  € <  < € *€@Php8HPp€ < € 0€ (€ @€ Xx€€ " @P Xh€  (@`p x € $ 6  Xhp x€ 0€ 2 @`€ "x 8H P`x   8Xh p€ $€ 6  € €  (€ " 0€ 8Ppx€ €  0@H `px€€ € "€ <&8X&`€  " 0@HP&X€&  € (€ 0€ H€ jh€ € € (0HxHHX`€ h€ x]h€ 加速创建报名$If Range("P37").Value <> "比赛" ThenExit SubEnd If比赛curline = ActiveCell.Rowcurxmname = ActiveCell.Value!If Range("B" & curline) = "" ThenActiveCell.ValN h$>!NQ h$>!N'^kN h$>!ND F$>N h$>!NQ h$>!N'`k N h$>!NE F$>N h$>!NQ h$>!N'bkN h$>!NF F$>N h$>!NQ h$>!N'dk0N h$>!NG F$>N h$>!NQ h$>!N'fk hk女子 F B F D h D D O h$>!NC F$>O h$>!NR h$>!N'^kO h$>!ND F$>O h$>!NR h$>!N'`khO h$>!NE F$>O h$>!NR h$>!N'bkO h$>!NF F$>O h$>!NR h$>!N'dkxO h$>!NG F$>O h$>!NR h$>!N'fk hkMsgBox "xmid1:" & xmid1MsgBox "xmid2:" & xmid2MsgBox "xmid3:" & xmid3MsgBox "xmid4:" & xmid4MsgBox "xmid5:" & xmid5 ^ `  b  d  f 'Zk ^ ^d ` `d b bd d dd f fd'\k` Z \2同一名运动员不能同时参加全能项目和其它单项的比赛!A@4 X(Nk#-----------------运动员限报数量检测]H`S3$>!N'x'v ^ ^d v 'vkX ` `d v 'vk  b bd v 'vk d dd v 'vk f fd v 'vkx v x 每名参赛运动员限报: x个单项,可兼报接力!A@4 X(Nk*-----------------参赛单位限报数量检测-男子]xS2$>!N'zMsgBox dwxbmax h D D 'n'pN h$>!N'jQ h$>!N'| j |dMsgBox "项目名称:" & xmname r @ BC r$> j n 'nk r r @ BD r$> j n 'nkH r r @ BE r$> j n 'nk r r @ BF r$> j n 'nk r r @ BG r$> j n 'nk( rMsgBox "当前男dwmax:" & dwmax n z 单项比赛,每个参赛单位限报: z人!A@4 X(Nk k  h*-----------------参赛单位限报数量检测-女子,Dim xmi, xmname, xmid, dwmax, ydymax, i1, i2 h D D 'n'pO h$>!N'jR h$>!N'| j |dMsgBox "项目名称:" & xmname r B DC r$> j n 'nk  r r B DD r$> j n 'nk  r r B DE r$> j n 'nkP  r r B DF r$> j n 'nk  r r B DG r$> j n 'nk  rMsgBox "当前女dwmax:" & dwmax n z 单项比赛,每个参赛单位限报: z人!A@4 X(Nkk hko 加速创建报名P37$>!N比赛|k€T2$>!NT2$>!N'L LU2$>!N'€U3$>!N'男子 P R!T P!N男子姓名 P!V'@k P!N女子姓名 P!V'Byk€xMsgBox "行数:" & manstartMsgBox "行数:" & womenstart6MsgBox "行数:" & manlingsmax - (womenstart - manstart)  € B @   @ R%B@  B @   € @ R%B@P女子 P R!T P!N女子姓名 P!V'Bk P!N电子报名补充说明: P!V'Dyk   D B   B R%B@X  D B    B R%B@ (T2$>(Nkk禁止使用插入列功能On Error Resume NextcApplication.CommandBars("Worksheet Menu Bar").Controls("插入(I)").Controls("列(C)").Enabled = FalseOn Error GoTo 0禁止使用插入列功能Column %(禁止使用插入行功能判断U2$>!NU3$>!Nrow %(h行(R)插入(I)Worksheet Menu Bar %%%(drow %(行(R)插入(I)Worksheet Menu Bar %%%(ko櫟Attribute VB_Name = "She@et2" 鐱ast0{000?0820- C$0046}|Global!腟pac扚alse dCreatablPre declaId玊ruBExposeTemplateDeriv$払ustom宨zD2 P€€ Sub Works亾_Change(ByVal Target As R ) Dim manstart, womeendline, curxmn€? maxxm '加速创建惐If.("P37").€;ue <> "比赛" Th別nExitUnd If?淎ct€Cel鄉.Row €B" &?? "F?罀€?'侭("MsgBox "输入运动员姓名,然蟛趴梢匝≡癫稳狀目!EE3B- ad罶s0valiADT2賲H 1 1EK查找关键字的行号 For Each cc In ??U@cccLike ?男子A3H.A]s(i, 1o=€胊厞V@俧缗;@/ 女/G牏电子酦补忱渌得鳅O$\ 丷? N鄀xt S 鵕錑a-开始行 &&n(L?( hp结束$d鼻暗ピ烋C值焎iUb 行罿名称重复惔问Hurdo%.F傕)0D\C,rG&C g+ 1拽0`K D e摖轂 E F  G Т > E?R同一名c殹;报相同<的伌啓T+= @=ee'嶪是裼肴艹逋唬蝢nex$is€蝑x $鉍QjxmiPd1, a2c3與4c5 "玝345an襪, d倃€$, ydyr騣i2?包u0fQA繽47 <=t -馴H€+ 3 To ?5` @q N 茾Y?e) k? R1Qa _m緄^[9__2_麂_拰"T 挈_焈€埑?al釠饠_{@__V?__鏟 D__VQ1_]乹a$GZ?!l?鑭1??3`?1?1=1O?1" g7?81R?1?1("達?1_ F(?1_?e_=??1_亥|>1___桚?1__RJ81___W?1__R81_沄?1'鍁癧d1R梬`d2f3U3<4450q92A€40 TOr234诫5满wz+?cP50抙= 10?)q2? 3Uxmid3 <= 100) Or (? <> ? And 8 €5 €@Then dxexisDt ( E奍f If qn.N 9MsgBox "同幻硕辈荒芡辈渭尤芟钅亢推渌ハ畹谋热? ActiveCell.Val4ue"€'-_限报数量检测 Dim ydyd纗bmzs,€pax €*Range("S3?)?0v齻?  4€? 1 泜$2??€鲏顕僠?謮n7斻$G >苖虝每@名参赛G~? & & "个習,可兼€报接力!駯!A单位I?娜凶觾榙w摾首€E?G?拿F ` For謇 endline +@ 3 To 1?@燿wmax@ €繣xmnam{A艱N€|Yi鰀@DQM y绖?"鋭 c壞.?av名称:c Aa i1`mansta剅t!womeb$Ci1)M "hE@Next ik` D骺lE轋G芃当前男b"N" > ?刯DU呄偸x扛 y儏`吶亙`t ePQ n 覓喤畞唙'永,羐iUx9翉, '訓C咵ach 燾c InS1?UsedA.KccっLike B"姓名U v夶.Row%R?裑+鐳J?@1 盇?行+(GG&- (8 -O6?cei1鱭W魵 fs/3s(+ 2).Inser~t丄 垄-^ 罓2 wD齪2tre#v?鍩"觨4"a ?电子A9补赤渌得鱬eN战#or'(ober3p脖endline - womenstart) + 1 ActiveSheet?Rows(2).Inser"tTNexFor ad =€ 1 To (?)俿max"tDeletetApplication.Scr@eenUpdn"g€Tru*Range("T2"€).Value End If '禁止使用插入列功能 €'On Err€l€Resume v ' >CommandBars(@"Works仠 `Menu €=C纎ntrol?(I) 列(CEnableda€QFals_@G:o€?I慡朎Coplumn€5??聋判断 If MU M0 A繪E3€匰0 T hen !ro>wJ Cf梀pV行?RKVL臮E耓?膅?11F1实Sub伕xp┋玅x"Attribute VB_Name = "StartUp" 蘟 *\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 11.0 Object Library ┋玅枈ThisWorkbook0554e89565ThisWorkbook:  Sheet10254e895659 Sheet1Tb2 Sheet20354e89565 Sheet2v0b2StartUp0454e89565StartUp晧Hh0H硿2盻迿O涥wW腤?Q秀伿Z礎粰芓1?-糔EoJ 顓譾-?/籷嬐;@紒?????????m溫q€OL? Excel€+` VBA麾`Win16羱`Win32`Win64x`Mac巢`VBA6?`VBA7?` VBAProject究`stdole揱`Officeu` ThisWorkbook|鉦 €_Evaluate賎bbbbb6s`Workbook_Open涐`Windows`Count0v`Visible队`Workbook_BeforeClose沧`Cancel駱` ActiveWindow?`Save捫`MsgBox桼`vbOKOnly醪` Sheet1`Worksheet_Change烻`Target現`Range `manstart釘` womenstarti賎endlineq `curline?` curxmname甘` linemaxxmr` addlinsvalid崷`Value銴`cc荺` ActiveSheet%N` UsedRange葔`Row壪` ActiveCell椒`qnexist笪`dxexist8宍xmid1Pxmid2Qxmid3Rxmid4Sxmid5TxmiH颼xmname矪`xmid1隸dwmax)C`ydymax獌`i1揮`i2擼` ydydxbmzs煪`ydyxbmax`dwxbmaxI`xmnameid≡`Worksheet_SelectionChange?` manlingsmax糽`womenlinesmax`addlinei?`Rows`Insert謗`Delete竫` Application?`ScreenUpdating! ` CommandBars `Enabled郦`Controls蘇` Sheet2` StartUp?`Workbookk` €BeforeClose~;`€_Defaultj耟l 9 HF瞼0* pHd VBAProje坈t4@j = r ┋玅 J< r€stdole>stdo€leh%^*\G{00€020430-C 0046}#2.0#0#C:\WINDOWS\syst em32\e2.tlb#OLE Automation`僂OffDic凟Of€ic侲瀫攢丒2DF8D04C-5BFA-10€1B-BDE5€E訟A€C4€2圗€gram Files\CommonMicrosoft Shared\OFFICE14\MSO.0DLL#僊 1@1.0 Ob伭 €LibraryKE傇偍ThisWorkbookG€T€玦sW€硆kbUo 2 QHB1Bx职 B,???B+BB|€Sheet1G S@#e@Xt1H2Nb2TT222I2v?StartUpG€碼r盄Up€2峅郙U晧!€CU揔*rU€€€€~~~~~~~~f__SRP_0__SRP_1PROJECTwmkPROJECT 8n?"@版?к元 儕a i  )A  ) VBAProject ThisWorkbookSheet1Sheet2StartUpF /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.tlbstdole a€L续-鶾藉D轗?C:\Program Files\Common Files\Microsoft Shared\OFFICE14\MSO.DLLOffice aFy5;0?K偪L颲緭cF觇o@?覀O╱DFWorkbookWorkbook_OpenWorkbook_BeforeClose DFFF9 詋[崶bTh堦仺R軴X[b烺 *鲖nxT酧o`,6qT裇愺佋k[嵞墯[剉異眥 "k螐O(u"}o忲NVBE7.DLLS VrU€€€€~}   !bbbbbCanceljThisWorkbookThisWorkbookSheet1Sheet1Sheet2Sheet2StartUpStartUpID="{00000000-0000-0000-0000-000000000000}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Document=Sheet2/&H00000000 Module=StartUp HelpFile="" Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="4745EBB675BAB8BEB8BEBDC3BDC3" DPB="8E8C227F2E81689E689E9762699E48EF68F08B6A706B52CE37293559BD78AEB867E448C9D1B76F" GC="D5D779C4870A880A880A" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=44, 58, 716, 502, C Sheet1=22, 29, 697, 472, Sheet2=44, 58, 719, 501, Sheet3=66, 87, 741, 530, Sheet4=88, 116, 763, 559, Z Sheet5=110, 145, 785, 588, Sheet6=132, 174, 807, 617, Sheet7=154, 203, 829, 646, Sheet8=0, 0, 675, 443, StartUp=0, 0, 0, 0, C SummaryInformation(,DocumentSummaryInformation8CompObjh?鄥燆鵒h珣+'迟0 X`x 上海索美软件上海索美软件上海索美软件UserMicrosoft Excel@E靖D@€?q囕@k;糎?胀諟.摋+,0 PXd lt| slh 大一组大二组 工作表?  FMicrosoft Excel 2003 工作表Biff8Excel.Sheet.8?瞦