邢唷> CB  !"#$%&'()*+,-./0123456789:;<=>?@A}EFGHIJKLMNP^RSTUVWXYZ[\]O_`abcdefghijklmnopqrstuvwxyz{|Root Entry F埒Qw0湻皚yD<WorkbookX~_VBA_PROJECT_CUR"琔y0湻皚yVBAFT皚yPbぐ▂ ZO\pRaykent Ba= ThisWorkbook=hJ{9"8X@"1媅SO1媅SO1媅SO1媅SO1媅SO1媅SO1媅SO1 媅SO1媅SO1媅SO1 媅SO1 媅SO1媅SO1 媅SO1 媅SO1 媅SO1 媅SO1* MS Sans Serif1Arial1* MS Sans Serif1Arial1媅SO1媅SO1 媅SO1h8媅SO1,8媅SO18媅SO18媅SO1媅SO1媅SO1媅SO14媅SO1 媅SO1媅SO1 媅SO14媅SO1<媅SO1?媅SO1>媅SO14Microsoft YaHei UI""#,##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\) yyyy/m/d;@""#,##0;\-""#,##0""#,##0;[Red]\-""#,##0""#,##0.00;\-""#,##0.00#""#,##0.00;[Red]\-""#,##0.0050_-""* #,##0_-;\-""* #,##0_-;_-""* "-"_-;_-@_-,'_-* #,##0_-;\-* #,##0_-;_-* "-"_-;_-@_-=8_-""* #,##0.00_-;\-""* #,##0.00_-;_-""* "-"??_-;_-@_-4/_-* #,##0.00_-;\-* #,##0.00_-;_-* "-"??_-;_-@_- 0.000000_  0.00000_  0.0000_  0.000_  0.00_ #,##0.00_ ;\-#,##0.00;;#,##0.00_ ;\-#,##0.00 0.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" 000000 0.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;_>9_ ""* #,##0.00_ ;_ ""* \-#,##0.00_ ;_ ""* \-??_ ;_ @_ 61_ ""* #,##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@ @  @ @ 0@ @   1  1|@ @  14@ @ 1 1 14@ @  x@@   x@   x @   x@@   x @  0@ 0 0 0@ 0 0 x@@  x@  x @   x@@   x@   x @   8@@ 8@ 8 @ 8  1|@@   1|@   1| @  8@@  8@  8@  8  8@  8      ||p羗x弣(} #0_ ;_ "}(} #0_ ;_ "}(} #0_ ;_ "}(} #0_ ;_ "}<} #0_ ;_ "ef_ _ ;_ @}<} #0_ ;_ "ef _ _ ;_ @}<} #0_ ;_ "蘈_ _ ;_ @}<} #0_ ;_ "蘈_ _ ;_ @}(} #0_ ;_ "}<} #0_ ;_ "蘈_ _ ;_ @}<} #0_ ;_ "蘈_ _ ;_ @}<} #0_ ;_ "蘈 _ _ ;_ @}<} #0_ ;_ "23_ _ ;_ @}<} #0_ ;_ "23_ _ ;_ @}(} #0_ ;_ "}(} #0_ ;_ "}<}  #0_ ;_ "23_ _ ;_ @}(}! #0_ ;_ "}(}# #0_ ;_ "}<}$ #0_ ;_ "_ _ ;_ @}<}% #0_ ;_ "?_ _ ;_ @}<}& #0_ ;_ "23_ _ ;_ @}(}' #0_ ;_ "}<}( #0_ ;_ "俏_ _ ;_ @}<}* a#0_ ;_ "騎_ _ ;_ @}P}+ #0_ ;_ "_ _ ;_ @#,##}}. 鷠#0_ ;_ "蝌_ _ ;_ @#,##  }}/ #0_ ;_ "ゥ_ _ ;_ @???#,##??? ??? ???}(}0 #0_ ;_ "}(}1 #0_ ;_ "}<}2 鷠#0_ ;_ "_ _ ;_ @}<}5 渆#0_ ;_ "霚_ _ ;_ @}}6 ???#0_ ;_ "蝌_ _ ;_ @???#,##??? ??? ???}}7 ??v#0_ ;_ "虣_ _ ;_ @#,##  }<}9 #0_ ;_ "_ _ ;_ @}<}: #0_ ;_ "_ _ ;_ @}<}; #0_ ;_ "_ _ ;_ @}<}< #0_ ;_ "_ _ ;_ @}<}= #0_ ;_ "_ _ ;_ @}<}> #0_ ;_ " _ _ ;_ @}x}?#0_ ;_ "膊_ _ ;_ @膊#,## 膊 膊 20% - @wr 16 20% - @wr 1  20% - @wr 26" 20% - @wr 2  20% - @wr 36& 20% - @wr 3  20% - @wr 46* 20% - @wr 4  20% - @wr 5B. 20% - @wr 5 ef陬  20% - @wr 6B2 20% - @wr 6  ef  40% - @wr 1B 40% - @wr 1 蘈柑  40% - @wr 2B# 40% - @wr 2 蘈娓  40% - @wr 36' 40% - @wr 3  40% - @wr 4B+ 40% - @wr 4 蘈湯  40% - @wr 5B/ 40% - @wr 5 蘈忿  40% - @wr 6B3 40% - @wr 6  蘈  60% - @wr 1B 60% - @wr 1 23暢  60% - @wr 2B$ 60% - @wr 2 23跂  60% - @wr 36( 60% - @wr 3  60% - @wr 46, 60% - @wr 4  60% - @wr 5B0 60% - @wr 5 23捦 ! 60% - @wr 664 60% - @wr 6 * RowLevel_1* RowLevel_2* RowLevel_3* RowLevel_4 * RowLevel_5 * RowLevel_6 * RowLevel_7"~vR詋 #h槝&h槝 I} $h槝 18h槝 1 I}O伣 %h槝 28h槝 2 I}?Э &h槝 38h槝 3 I}23暢 'h槝 4*h槝 4 I}(頬0頬 俏 8^膲)厤$R>f:yR_1$R>f:yR_2$R>f:yR_3$R>f:yR_4 $R>f:yR_5 $R>f:yR_6$R>f:yR_7*}Y0}Y 騎 a +Gl;`BGl;` O伣O伣,'^- '^[0] .梴j梴 蝌 鷠 /纇錱USCQ@wr 661@wr 6  鳀F  ?鑜蕬^ 鑜蕬 膊膊膊 膊XTableStyleMedium9PivotStyleLight16`丂f[u膥nYYe錧膥|l蕍頧膥VVgfVf餈 @Z餜3 A@@  B詋[嵞~+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 Thx>?ccjB{SM娿*a饃:捶 ZO 0F鐿萓  d褚MbP?_*+%;&R&6 Nwm"}o忲N www.softmay.com&~窟鑭?'~窟鑭?(M&撋d2?)M&撋d2?MEPSON LQ-630K ESC/P28C飥 4dA4DINU"$XoiqSMTJEPSON LQ-630K ESC/P2InputBinMANUALRESDLLUniresDLLOrientationPORTRAITResolutionOption2PaperSizeA4PrintQualityOption1HalftoneHT_PATSIZE_AUTOISPE" dXX 兞`? 兞`?&腵c勌U} ` J}  } @ }  } }  J} } } } } @ }  } 0wwwwww                      ^+^^^^^^^^^^^ E E EG F& b'bbbbbbbbb E@E?E  PQMNNNNNNNNO ~ E@E~ E  PQMNNNNNNNNO PQMNNNNNNNNO PQ[\\\\\\\\] PQcdddddddde PQ X-YYYYYYYYZ H A A A A A A A H  A  A  A IB@@@@@@IBBB  IB@@@@@@IBBB  IB@@@@@@IBBB  IB@@@@@@IBBB  IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB H A A A A A A A H  A  A  AIB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IBCCCCCCLDDD DlXzp....B""""""""""""""""""""" !"#$%&'()*+,-./  IB@@@@@@IBBB !f!g !_,!````````a "hi "R"llllllllm #hi #R#SSSSSSSST # ! #" ## #$ #% $jk $U$VVVVVVVVW $9 % . %. %:%@@ &K & / &/&5@5@ 'n'nnnnnnnnnn ' 0 '0'7@7@ (n(nnnnnnnnnn ( 1 (1(D@D@)ooooooooooo ) 2 )2)N@N@*nnnnnnnnnnn * 3 *3*繯@繯@+nnnnnnnnnnn + 4 +4+@R@@R@,nnnnnnnnnnn , 5 ,5,@Y@@Y@-ooooooooooo - 6~ -@^@ . 7~ .^@ / 8~ /_@$,"B8~F@@^^RRRR<稷饖(  餜  C   ]F! ,>@  '' (( -- )) ** ++ ,,   !!   !$""  ## $$   77  %$%  /  %$  /  %$  Sheet1b(b(  gghPh  (-  :S遅1_1 ZO /燴d蘨  d褚MbP?_*+%&?'?(?)?"?? &c勌U} ` J}  } @ }  } }  J} } } } } @ }  } /wwwwww                      ^+^^^^^^^^^^^ E E EG F( b)bbbbbbbbb E@E?E  PQMNNNNNNNNO ~ E@E~ E  PQMNNNNNNNNO PQMNNNNNNNNO PQ[\\\\\\\\] PQMNNNNNNNNO PQ X<YYYYYYYYZ H A A A A A A A H  A  A  A IB@@@@@@IBBB  IB@@@@@@IBBB  IB@@@@@@IBBB  IB@@@@@@IBBB  IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB H A A A A A A A H  A  A  AIB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IBCCCCCCLDDD DlXzp....B""""""""""""""""""""" !"#$%&'()*+,-. IB@@@@@@IBBB !f!g !_;!````````a "hi "R"llllllllm #hi #R#SSSSSSSST # ! #" ## #$ #% $jk $U$VVVVVVVVW $9 % . %. %:%@@ &K & / &/&5@5@ 'n'nnnnnnnnnn ' 0 '2'7@N@ (n(nnnnnnnnnn ( 2 (3(N@繯@)ooooooooooo ) 3 )4)繯@@R@*nnnnnnnnnnn * 4 *5*@R@@Y@+nnnnnnnnnnn + 5~ +@Y@,nnnnnnnnnnn , =~ ,`@-ooooooooooo ""B8~F@@^^RR<< >@oj?++ ,, --  (( )) ** "" ## $$ !!    ''    !$7/  %$ /  %$  7  %$%   Sheet2b(b(44gghTh  (-  :S遅1_1_1 ZO /甿巜▄  d褚MbP?_*+%&?'?(?)?"?? &c勌U} ` J}  } @ }  } }  J} } } } } @ }  } /wwwwww                      ^+^^^^^^^^^^^ E E EG F& b*bbbbbbbbb E@E?E  PQMNNNNNNNNO ~ E@E~ E  PQMNNNNNNNNO PQMNNNNNNNNO PQ[\\\\\\\\] PQMNNNNNNNNO PQ X?YYYYYYYYZ H A A A A A A A H  A  A  A IB@@@@@@IBBB  IB@@@@@@IBBB  IB@@@@@@IBBB  IB@@@@@@IBBB  IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB H A A A A A A A H  A  A  AIB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IBCCCCCCLDDD DlXzp....B""""""""""""""""""""" !"#$%&'()*+,-. IB@@@@@@IBBB !f!g !_>!````````a "hi "R"llllllllm #hi #R#SSSSSSSST # ! #" ## #$ #% $jk $U$VVVVVVVVW $9 % @ %A %:%S@@S@ &K 'n'nnnnnnnnnn (n(nnnnnnnnnn )ooooooooooo *nnnnnnnnnnn +nnnnnnnnnnn ,nnnnnnnnnnn -ooooooooooo ""B8~F@,, >@oj?++ ,, --  (( )) ** "" ## $$ !!    ''    !$7/  %$ /  %$  7  %$%   Sheet3b(b(22gghTh  (-  :S遅1_1_1 ThisWorkbook # __SRP_25__SRP_3 LSheet1 Q*[  !"#$%&'()*+,-./012346789:;<=>?@ABCDEFGHIJKMNOPRSTUWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~82@ 枈:#x|U樘wemO=Tg嬵XF菹謃慶O粩$秌x菹謃慶O粩$秌陓U樘wemO=Tg嬵XME0P[LSS>"<8<N0{00020819-0000-0000-C000-000000000046}p  *p`Xo 2`Po i4  %j(`@凗%偁$%x`,@ @ @8 @ @ @ @ x @` @X ($6 p P_)S$*\Rffff*0566520ce3*\R1*#29d*\R1*#29ch  "  8 " @ H"P "`   ( V08 @ X x    x]  ` ,!.$,(0o@p0 ( '(ActiveWindow.Visible = Falsex ( $B@6!MsgBox "比賽報名表自動保存成功!"d(PMsgBox "請確認報名信息,然後發送至比賽規定的郵箱!", vbOKOnly, "歡迎使用索美軟件"koPublic a As StringSub aa(bb As Integer) a = "public1"MsgBox aEnd SubMsgBox Str(bbbbb + 1) Call aa(1)IAttribute VB_Name = "ThisWorkbook" 孊as0{00020P819-0C$0046} |GlobalSpac扚alse dCreatablPred恊claIdTru BExposeTemplateDeriv払ustomizD2Option /licit Pub b As I纍teger /A3 Sub 叏_Open() O#rror R坋su糔ex'Windows(.Count)`.Visi垉CE nd*2BeforeCl(CancelMBoo發ean>0=2+ 1 'Ac瀟I#!DLIf = 1 Then 墢.Savf'MsgBox "比賽報磣遠4娉曬Γ±塃聛F 請啡狹 信息,然後發橢羴規定@的郵箱, vbOKOnly, "歡迎使用索美0軟件JIf\ 圠5Dma丒S羘g羒aa(渂bA膓K'a伵jp聐1@ *a縺 F@S 繮ACall @1rU@@8P  pAq7h` `iIY)gg gxvlVXX.Xg82Xgg g"`q`g`q>pg Z0vggg8 `h Z Zh"a"arU@@@8Q`8@!`@C*@`brU@@@xH`8qH1`@qb1蘟  *\G{000204EF-0000-0000-C000-000000000046}#4.2#fff*0666520ce5*\R1*#405*\R1*#13f*\R1*#12e*\R0*#17*\R0*#14`\ " & 0 *H x  " (  ( 6H  B  J0 (  HX0` (x "0 (  ( D0 6@ &P (x  * " . HXb` b b b (8b@ `p x,L 6 & ,M枈T #p癶.t!M軍R#;艶 F笫錺`馎漷]Trx笫錺`馎漷]Tr癶.t!M軍R#;艶MEP[LSS8>6"LLR@ @ @ @ @@ @x @L` @H @0 @P @  @  @0瘙 H @(棹 p0 @x幗o X @@叁 @B剝 X@橚 @ @h 0@@P X@x8 h@@@ x@ @瘕  @槧 @ @P幘 h( @佚 P @旋o x @D庚 x(@狚  )@ 堼 0 )@P p @  )h  +@x X P ,@@ x ,x .@( @0x( @h`  h @ < %X h >RXZ@ P @H 8 @0 0 @L @ @P棹 @ 玄 @ @叁 h @ 俐 @羹 @剝o @0 橚 @x @` h @` P @H 8 @ 懸 L@ 更 L@ 狘 L@0堻  L@ @x h @ P @ 8 @ @ @( @ 棼 @宣 @耕 H \@X狖 p0`@堺 X`@p `@X `0p@@ @( @@ @ @X帔 @p鰓 @苞 @橔 @ @h @P @8 @ @@礫 X@h @@慁 h@x @~` @H @00 H@X p0@ XX@桫 @續 @給 0@P狓 @h@x堷 P@p xx@X @@ (@8( P@` x8@ `@圜 @灑 @ 鎊 8@H橑 ` @ pHH@h @P @8 @  0@8@h  @瘀 @p倀 @麗 @X 0@愽 @場 @p p@PX @@ X@( @ ((px`_)S*\R1*#2a0$*\Rf (HPX`h,p FVJ T@`J hTJ T0PJ XTJ T @  H X ` 8p V J  T  J  Tp  J  T  J  T`  J  T      8 X x  <       @ <L  6  *@BPh@p @ @ @ 8H@P p <^ 6 0 B( @ VXxTT@ ""b  @P X"hb  "b  "(b@ `p x"b   $ 6^  6Xhp x 0 2VT T@@` "x"b  "b 8H P"`bx  "b  " b8 Xh p $ 6^ 6  * TPBhB "p 8H P$X`TZ  "(p@  $XTZ    "   TTB (B8BP hJx0 0   "  <H&VZ&JZ  (J80P hx"0 &VZ&J ZHh 0pB    j P h 8  > 4 P hp  4! 8! jX! ! !  ! "] 加速創建報名p$If Range("P37").Value <> "比賽" ThenExit SubEnd Ifcurline = ActiveCell.Rowcurxmname = ActiveCell.Value!If Range("B" & curline) = "" ThenActiveCell.Value = ""Range("B" & curline) = ""0MsgBox "輸入運動員姓名,然後才可以選擇參賽項目!"End If -------------T2$>!N'L L----------查找關鍵字的行號 P R!T P!N男子姓名!Sheet2.Cells(i, 1).Value = cc.Row P!V'@k P!N女子姓名!Sheet2.Cells(i, 1).Value = cc.Row P!V'BkH P!N電子報名補充說明:!Sheet2.Cells(i, 1).Value = cc.Row P!V'Dyk X!V'F X!N'HMsgBox "男子開始行:" & manstart!MsgBox "女子開始行:" & womenstartMsgBox "結束行:" & endline$MsgBox "當前單元格的行號:" & curlineMsgBox "當前值:" & curxmname'-----------------當前行項目名稱重復次數 H'JC F$> H J 'JkhD F$> H J 'Jk0E F$> H J 'JkF F$> H J 'JkG F$> H J 'Jk J "同一名運動員重復報相同的比賽項目!A@Z X(N'Jk(k -----------------是否與全能沖突]('\'^]@Xp'`'b'd'f'h]0H男子 F @ F B  j D D N j$>!NC F$>N j$>!NQ j$>!N'`kN j$>!ND F$>N j$>!NQ j$>!N'bk N j$>!NE F$>N j$>!NQ j$>!N'dkN j$>!NF F$>N j$>!NQ j$>!N'fk0N j$>!NG F$>N j$>!NQ j$>!N'hk jk女子 F B F D j D D O j$>!NC F$>O j$>!NR j$>!N'`kO j$>!ND F$>O j$>!NR j$>!N'bkhO j$>!NE F$>O j$>!NR j$>!N'dkO j$>!NF F$>O j$>!NR j$>!N'fkxO j$>!NG F$>O j$>!NR j$>!N'hk jkMsgBox "xmid1:" & xmid1MsgBox "xmid2:" & xmid2MsgBox "xmid3:" & xmid3MsgBox "xmid4:" & xmid4MsgBox "xmid5:" & xmid5 ` b  d  f  h '\k ` `d b bd d dd f fd h hd'^k` \ ^2同一名運動員不能同時參加全能項目和其它單項的比賽!A@Z X(Nk#-----------------運動員限報數量檢測]`xS3$>!N'z'x ` `d x 'xkX b bd x 'xk  d dd x 'xk f fd x 'xk h hd x 'xkx x z 每名參賽運動員限報: z個單項,可兼報接力!A@Z X(Nk*-----------------參賽單位限報數量檢測-男子]S2$>!N'|MsgBox dwxbmax j D D 'p'rN j$>!N'lQ j$>!N'~ l ~dMsgBox "項目名稱:" & xmname t @ BC t$> l p 'pk t t @ BD t$> l p 'pkH t t @ BE t$> l p 'pk  t t @ BF t$> l p 'pk  t t @ BG t$> l p 'pk(  tMsgBox "當前男dwmax:" & dwmax p | 單項比賽,每個參賽單位限報: |人!A@Z X(Nk k  j*-----------------參賽單位限報數量檢測-女子,Dim xmi, xmname, xmid, dwmax, ydymax, i1, i2 j D D 'p'rO j$>!N'lR j$>!N'~ l ~dMsgBox "項目名稱:" & xmname t B DC t$> l p 'pk  t t B DD t$> l p 'pk  t t B DE t$> l p 'pkP  t t B DF t$> l p 'pk  t t B DG t$> l p 'pk  tMsgBox "當前女dwmax:" & dwmax p | 單項比賽,每個參賽單位限報: |人!A@Z X(Nkk j#-----------------參賽單位總人數限報T2$>!NU2$>!N'U3$>!N'男子規則' t @ BH t$>$H t$>H t$>比賽B t$>   'k t       B R%B@違反報名規則:男子限報: 人;實際報了: 人,自動刪除一行!A@Zk女子規則' t B DH t$>$H t$>H t$>比賽B t$>   'k8 t       D R%B@違反報名規則:女子限報: 人;實際報了: 人,自動刪除一行!A@Zkxkhk`oX 加速創建報名P37$>!N比賽|kT2$>!NT2$>!N'L LU2$>!N'U3$>!N'男子 P R!T P!N男子姓名 P!V'@k@ P!N女子姓名 P!V'BykMsgBox "行數:" & manstartMsgBox "行數:" & womenstart6MsgBox "行數:" & manlingsmax - (womenstart - manstart)   B @   @ R%B@(  B @    @ R%B@女子 P R!T P!N女子姓名 P!V'Bk P!N電子報名補充說明: P!V'Dy@k80   D B   B R%B@  D B    B R%B@ (T2$>(Nk`kX禁止使用插入列功能On Error Resume NextcApplication.CommandBars("Worksheet Menu Bar").Controls("插入(I)").Controls("列(C)").Enabled = FalseOn Error GoTo 0禁止使用插入列功能1Application.CommandBars("Column").Enabled = False禁止使用插入行功能判斷7If Range("U2").Value = 0 And Range("U3").Value = 0 Then-Application.CommandBars("row").Enabled = TrueOn Error Resume NextbApplication.CommandBars("Worksheet Menu Bar").Controls("插入(I)").Controls("行(R)").Enabled = TrueOn Error GoTo 0Else.Application.CommandBars("row").Enabled = FalseOn Error Resume NextcApplication.CommandBars("Worksheet Menu Bar").Controls("插入(I)").Controls("行(R)").Enabled = FalseOn Error GoTo 0End Ifo毜Attribute VB_Name = "She@et1" 鐱ast0{00020820- C$0046} |Global!腟pac扚alse dCreatablPre declaId玊ru BExposeTemplateDeriv$払ustom宨zD2 P Sub Works亾_Change(ByVal Target As R ) Dim manstart, womeendline, curxmn, maxxm '加速創建惐If.("P37").;ue <> "比賽" Th別nExitUnd If4淎ctCel鄉.Row B" &,) "F$罀2'侭("MsgBox "輸入運動員姓名,然蟛趴梢匝≡癲穩狀目!EE3B- ad罶s0valiADT2賲H 1 1EK查找關鍵字的行號 For Each cc In 9.U@cccLike "男子A3H 2.A]s(i, 1o=胊厞V@蟼f;@/ 女/G!電子酦補充說明:焽$\ 丷) 繬ext S 鵕錑a-開始喧 &&n(L%( 醜結束$d當前單元<格C 值?ciUb 行罿名稱重 創問Hur遜%.F傕)0D\>C,rG&C g+ 10`K D e摶 E F ; G Т > E%R同一鹀殹;報相蛒膩磫橳+=. @=ee'嶪是否與全能沖突NqneHxis蝑x > $鉍Qjxm爄d1, a2c3c4c5 "Wb3457an襪, dw$, ydy錼ii221___=?1__RJ81___W?1__R817_V?1'鍁癧d1颮棐`d2f33<44>50q92A40 Or 23z45:wz+(cP50抙= 100)q2& 3xmid3 <= 100) Or (4 <> 0 And 8 5 @Then dxexisDt ( E奍f If qn.N 9MsgBox "同幻碩輩荒芡輩渭尤芟钅亢推淥ハ畹謀熱" ActiveCell.Val4ue"'- _限報數量檢測 Dim ydyd纗bmzs,pax *Range("S3")40v齻1  4+ 1 泜$2$$鲏顕僠$謮n7斻$G >苖虝每@名參賽G~" & & "個習,可兼報接力!駯!A單位I-娜兇觾榙w摾首E2G'拿F ` For謇 endline +@ 3 To 15@燿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 覓喤畞唙'永,羐i a穴s cSheet. Rows(谼- 1).DeletcN%違反報涿:Qa胓h;實際p報了 自動刪除愐恍衎 '1裡; _x 爪O髵袿("5O鴟COObC b搹nt> r叨/ee擁q:`強漩 'G鋺D#SubACPrivate Sub Worksheet_SelectionChange(ByVal Target As RT) '加速唇ū  If@("P37").vue <> "比賽" Then 0Exit ndH If 7T26= 00addlinsvalid >=b*@ $;ma俷;gsmax:Ue wome5e 3Du'兇For Each cc In A晇eS.Used弫 刢cLike " 姓名厒 MstartKRowE 2 !女子? !^"伆U (Next'MsgBox "行數:" &F"SV褑X- ($-F孡 O僫ei=1 To + N1塠繩s(哖+ 2).Inser8:Q( - 1)@#`D它te Wis奀貖電子宀鉤淥得骼y en佊e薔:F(<@%鉬> -z '@)67g@7= ( E7B %A0蜤7Applica釤.Scre enUpdng1%Tru ="|("陻`S舦g'禁故褂貌迦肓泄δ蔦On Err圧@esume 臚 D 'ComQd@Bars("Τ `Menu @揅纎ntrol (I)j列(C!Enable仸PFals'G:o爋0@Coplumn O 嗅判斷 鍬*0 AX*U姝"cUw"rowj33+an++行(R++E.) 4??rE ""饍醼__SRP_4>__SRP_5QSheet2匒Sheet3xA\ngggT KDgB `g`K>gB HgB 0gJ Z  H幗g0  xl@g叁gg0 xlg剝g幗gg幗gV橚H剝叁xhh8gZ叁 Z g橚8gJ橚剝叁xH<gZ叁 Z g橚gJ Z ~ H瘕瘕旋Lg0 xlg剝gg0 xl0g庚g旋Lgg旋gV橚0庚剝x狚狚pgZ剝 Z g橚pgJ橚庚剝x0@gZ剝 Z g橚@\g0 8gB gggNT幗旋槧hP8 瘕狚堼pX@庚叁剝橚H`0,xrU@@80.q A QqAq1a1Qq!AAqAa1Q ! ` 1  ``ii9v1.ggB08P 00gPK.gJ0 Z 0 H玄玄棹0剝g0棹 P 橚lg棹gg0棹 P橚lVg棹gg0棹 P橚lg棹g剝gg棹剝gD0 Z P0lP0g60 Z P00gP\gPhgb08PO 0橚K0橚g hPhggb08PO 0橚K0橚g hPhggb08PO 0橚K0橚g hPhggb08PO 0橚K0橚g hPhggb08PO 0橚K0橚 g hPhgghPgL8橚PI(橚8g6P0 Z P00gPhgggP gPgP瘕gP佚gP例gPgP慅gFP橚e78lgVP更更x8橚懸懸堻g 08PxO 0PhO橚 8Ch PxO8 棼T宣7耕l0 橚88棼lgT08PxO 0橚瘕0gg 08PxO 0PhO橚 8Ch PxO8 棼T宣7耕l0 橚88棼 gT08PxO 0橚佚0gg 08PxO 0PhO橚 8Ch PxO8 棼T宣7耕l0 橚88棼4 gT08PxO 0橚例0gg 08PxO 0PhO橚 8Ch PxO8 棼T宣7耕l0 橚88棼 gT08PxO 0橚0gg 08PxO 0PhO橚 8Ch PxO8 棼T宣7耕l0 橚88棼 gT08PxO 0橚慅0ggx堻gg8e橚7lgVP堺堺x8橚狖狖Xg 08PxO 0PhO橚 8Ch PxO8 棼T宣7耕l0 橚88棼 gT08P xO 0橚瘕0gg 08PxO 0PhO橚 8Ch PxO8 棼T宣7耕l0 橚88棼ngT08P xO 0橚佚0gg 08PxO 0PhO橚 8Ch PxO8 棼T宣7耕l0 橚88棼gT08P xO 0橚例0gg 08PxO 0PhO橚 8Ch PxO8 棼T宣7耕l0 橚88棼6gT08P xO 0橚0gg 08PxO 0PhO橚 8Ch PxO8 棼T宣7耕l0 橚88棼gT08P xO 0橚慅0ggxXgg瘕P佚8橚+例h8+hP8+棼慅P宣+耕ldgP gg 瘕PT瘕8de橚7佚hT8佚Pdeh78+棼例PT宣例 de耕7@+(Tde帔7鰓+苞慅橔T慅hdeP78+ lgPgg@ PC8C橚7lfgL8橚P!I(橚8g6P0 Z P00ggB08P" 0瘞0gPg@瘕PT瘕8de橚7l"g Pgg@佚PT佚8de橚7lg Pgg@例PT例8de橚7lg Pgg@PT8de橚7lTg Pgg@慅PT慅8de橚7lg Pgg瘞ng^h8P#瘞O8$O橚( 橚8hg6P0 Z P00ggB08P% 0佇0gVPx8橚礫礫x!gP0gPgT08PxO 0橚`0gT08PxO 0橚`0g@`PT`8de橚7l!g"0gb08PO 0橚`K0橚g 0P0gg0>g"gb08PO 0橚`K0橚g 0P0ggg"續\gb08PO 0橚`K0橚@g 0P0gg續g"狓 gb08PO 0橚`K0橚 g 0P0gg狓~g"p gb08PO 0橚`K0橚 g 0P0ggp> g0佇!g^h8P&佇O8'O橚( 橚8hg6P0 Z P00gggxx gVP@@x8橚XX'gP0gPgT08PxO 0橚`0gT08P xO 0橚`0g@`PT`8de橚7l'g"圜#gb08PO 0橚`K0橚#g 0P0gg圜4#g"鎊$gb08PO 0橚`K0橚v$g 0P0gg鎊#g"R%gb08PO 0橚`K0橚6%g 0P0gg$g"P&gb08PO 0橚`K0橚%g 0P0ggPt%g" &gb08PO 0橚`K0橚&g 0P0gg 4&g0佇'g^h8P&佇O8'O橚( 橚8hg6P0 Z P00gggx"gT08P 0hK0.gB08P 00gB08P 0瘀0gP倀g"r*g08P(O e0r橚[ Ph(O 8PCh+8(O棼 宣橔C耕+@場愽h)O( 場K帔p鰓7苞l場橚8 棼宣(V*g 倀P倀gg(gX倀倀P橚7887hl+gTP0 Z 00g棼8hP*O8+O橚倀Oh,O8(橚8h8棼ggPXg"(-g08P(O e0r橚[ Ph(O 8PCh+8(O棼 宣橔C耕+@場愽h)O( 場K帔p鰓7苞l場橚8 棼宣(-g XPXgg(+gXX瘀XP橚7887hl.gTP0 Z 00g棼8hP-O8+O橚倀Oh,O8(橚8h8棼gggg .J剝叁玄懸更狘堻狖堺pX礫慁xH0桫續給狓堷pX@(圜灑鎊橑hP8 麗@(瘕`H佚倀例` 瘞櫝慅h棹x0X佇瘀0場橚8h8棼宣耕@(帔鰓苞P8 PTggT `"a "a`"a "aZ$If Range("P37").Value <> "比賽" ThenExit SubEnd Ifcurline = ActiveCell.Rowcurxmname = ActiveCell.Value!If Range("B" & curline) = "" ThenActiveCell.Value = ""Range("B" & curline) = ""0MsgBox "輸入運動員姓名,然後才可以選擇參賽項目!"End If -------------T2$>!N'L L----------查找關鍵字的行號 P R!T P!N男子姓名!Sheet2.Cells(i, 1).Value = cc.Row P!V'@k P!N女子姓名!Sheet2.Cells(i, 1).Value = cc.Row P!V'BkH P!N電子報名補充說明:!Sheet2.Cells(i, 1).Value = cc.Row P!V'Dyk X!V'F X!N'HMsgBox "男子開始行:" & manstart!MsgBox "女子開始行:" & womenstartMsgBox "結束行:" & endline$MsgBox "當前單元格的行號:" & curlineMsgBox "當前值:" & curxmname'-----------------當前行項目名稱重復次數 H'JC F$> H J 'JkhD F$> H J 'Jk0E F$> H J 'JkF F$> H J 'JkG F$> H J 'Jk J "同一名運動員重復報相同的比賽項目!A@Z X(N'Jk(k -----------------是否與全能沖突]('\'^]@Xp'`'b'd'f'h]0H男子 F @ F B  j D D N j$>!NC F$>N j$>!NQ j$>!N'`kN j$>!ND F$>N j$>!NQ j$>!N'bk N j$>!NE F$>N j$>!NQ j$> v4枈v#xME(SLSS<>N0{00020820-0000-0000-C000-000000000046}x :X)<x%@凘 @凚 @凞 @凢 @凥 @凧 @刓 @刕 @刞 @刡 @刣 @刦 @刪 @刯 @刲 @刵 @刾 @剅 @則 @剉 @剎 @剒 @剕 77)< % X(%((`_)SH " & 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   * Ph p8H P$`Z  (p@ $Z    "   (8P hx    "  <H&&  (8P hx" && Hh p   ] 加速創建報名!N'dkN j$>!NF F$>N j$>!NQ j$>!N'fk0N j$>!NG F$>N j$>!NQ j$>!N'hk jk女子 F B F D j D D O j$>!NC F$>O j$>!NR j$>!N'`kO j$>!ND F$>O j$>!NR j$>!N'bkhO j$>!NE F$>O j$>!NR j$>!N'dkO j$>!NF F$>O j$>!NR j$>!N'fkxO j$>!NG F$>O j$>!NR j$>!N'hk jkMsgBox "xmid1:" & xmid1MsgBox "xmid2:" & xmid2MsgBox "xmid3:" & xmid3MsgBox "xmid4:" & xmid4MsgBox "xmid5:" & xmid5 ` b  d  f  h '\k ` `d b bd d dd f fd h hd'^k` \ ^2同一名運動員不能同時參加全能項目和其它單項的比賽!A@Z X(Nk#-----------------運動員限報數量檢測]`xS3$>!N'z'x ` `d x 'xkX b bd x 'xk  d dd x 'xk f fd x 'xk h hd x 'xkx x z 每名參賽運動員限報: z個單項,可兼報接力!A@Z X(Nk*-----------------參賽單位限報數量檢測-男子]S2$>!N'|MsgBox dwxbmax j D D 'p'rN j$>!N'lQ j$>!N'~ l ~dMsgBox "項目名稱:" & xmname t @ BC t$> l p 'pk t t @ BD t$> l p 'pkH t t @ BE t$> l p 'pk  t t @ BF t$> l p 'pk  t t @ BG t$> l p 'pk(  tMsgBox "當前男dwmax:" & dwmax p | 單項比賽,每個參賽單位限報: |人!A@Z X(Nk k  j*-----------------參賽單位限報數量檢測-女子,Dim xmi, xmname, xmid, dwmax, ydymax, i1, i2 j D D 'p'rO j$>!N'lR j$>!N'~ l ~dMsgBox "項目名稱:" & xmname t B DC t$> l p 'pk  t t B DD t$> l p 'pk  t t B DE t$> l p 'pkP  t t B DF t$> l p 'pk  t t B DG t$> l p 'pk  tMsgBox "當前女dwmax:" & dwmax p | 單項比賽,每個參賽單位限報: |人!A@Z X(Nkk j#-----------------參賽單位總人數限報T2$>!NU2$>!N'U3$>!N'男子規則' t @ BH t$>$H t$>H t$>比賽B t$>   'k t       B R%B@違反報名規則:男子限報: 人;實際報了: 人,自動刪除一行!A@Zk女子規則' t B DH t$>$H t$>H t$>比賽B t$>   'k8 t       D R%B@違反報名規則:女子限報: 人;實際報了: 人,自動刪除一行!A@Zkxkhk`oX 加速創建報名P37$>!N比賽|kT2$>!NT2$>!N'L LU2$>!N'U3$>!N'男子 P R!T P!N男子姓名 P!V'@k@ P!N女子姓名 P!V'BykMsgBox "行數:" & manstartMsgBox "行數:" & womenstart6MsgBox "行數:" & manlingsmax - (womenstart - manstart)   B @   @ R%B@(  B @    @ R%B@女子 P R!T P!N女子姓名 P!V'Bk P!N電子報名補充說明: P!V'Dy@k80   D B   B R%B@  D B    B R%B@ (T2$>(Nk`kXoPH櫟Attribute VB_Name = "She@et2" 鐱ast0{00020820- C$0046} |Global!腟pac扚alse dCreatablPre declaId玊ru BExposeTemplateDeriv$払ustom宨zD2 P Sub Works亾_Change(ByVal Target As R ) Dim manstart, womeendline, curxmn, maxxm '加速創建惐If.("P37").;ue <> "比賽" Th別nExitUnd If4淎ctCel鄉.Row B" &,) "F$罀2'侭("MsgBox "輸入運動員姓名,然蟛趴梢匝≡癲穩狀目!EE3B- ad罶s0valiADT2賲H 1 1EK查找關鍵字的行號 For Each cc In 9.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騣i221___=?1__RJ81___W?1__R81_沄?1'鍁癧d1R梬`d2f3U3<4450q92A40 TOr 234誡5:wz+(c P50抙= 100)q2& 3xmid3 <= 100) Or (4 <> 0 And 8 5 @Then dxexisDt ( E奍f If qn.N 9MsgBox "同幻碩輩荒芡輩渭尤芟钅亢推淥ハ畹謀熱" ActiveCell.Val4ue"'- _限報數量檢測 Dim ydyd纗bmzs,pax *Range("S3")40v齻1  4+ 1 泜$2$$鲏顕僠$謮n7斻$G >苖虝每@名參賽G~" & & "個習,可兼報接力!駯!A單位I-娜兇觾榙w摾首E2G'拿F ` For謇 endline +@ 3 To 15@燿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 覓喤畞唙'永,羐i A穴S CSheet.Rows(窪- 1).DeletCN%違反報名:Qa鈍;實際報了 動刪除一湫蠦 &1眅; _x 乏Or袿("5O蟹#漁ObC b鋘t> r/麇eE縛sq:`懩 '' YFSub!PrUivate Sub Worksheet_SelectionChange(ByVal Target As RT) '加速創建報名 If2("P37").hue <> "比賽" Then Exitnd $If 7T26= 00addlinsvalid =b*@ $;manA;gsmax:Ue wome e 3D '男子For Each c@c In A抳eS仚.Used'倠刢cLike " 姓麉 Msta宺tKRow:E 2 !女 !^"伆U (Next'MsgBox "行朗:" &F"SGV哫- ($-3F缞 O僫eia=1 To 8+ 1塠繩s(哖+ 2).Inxser8:Q( - 1)@#`駾郎te Wis姧y貖電子宀鉤淥得嗺纘C en佊嫕:F(<@%鉬>榕 - '@)67g@7= ( E7B %A0蜤7Applica.ScreenUpd膎g%Tru ="|<("陻`S舦g !@獳If Range("P37").Value <> "比賽" ThenExit SubEnd Ifcurline = ActiveCell.Rowcurxmname = ActiveCell.Value!If Range("B" & curline) = "" ThenActiveCell.Value = ""Range("B" & curline) = ""0MsgBox "輸入運動員姓名,然後才可以選擇參賽項目!"End If -------------T2$>!N'L L----------查找關鍵字的行號 P R!T P!N男子姓名!Sheet2.Cells(i, 1).Value = cc.Row P!V'@k P!N女子姓名!Sheet2.Cells(i, 1).Value = cc.Row P!V'BkH P!N電子報名補充說明:!Sheet2.Cells(i, 1).Value = cc.Row P!V'Dyk X!V'F X!N'HMsgBox "男子開始行:" & manstart!MsgBox "女子開始行:" & womenstartMsgBox "結束行:" & endline$MsgBox "當前單元格的行號:" & curlineMsgBox "當前值:" & curxmname'-----------------當前行項目名稱重復次數 H'JC F$> H J 'JkhD F$> H J 'Jk0E F$> H J 'JkF F$> H J 'JkG F$> H J 'Jk J "同一名運動員重復報相同的比賽項目!A@Z X(N'Jk(k -----------------是否與全能沖突]('\'^]@Xp'`'b'd'f'h]0H男子 F @ F B  j D D N j$>!NC F$>N j$>!NQ j$>!N'`kN j$>!ND F$>N j$>!NQ j$>!N'bk N j$>!NE F$>N j$>!NQ j$>!N'd j4枈衋#xME(SLSS<>N0{00020820-0000-0000-C000-000000000046}x :X)<x%@凘 @凚 @凞 @凢 @凥 @凧 @刓 @刕 @刞 @刡 @刣 @刦 @刪 @刯 @刲 @刵 @刾 @剅 @則 @剉 @剎 @剒 @剕 66)< % X(%((`_)SG " & 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   * Ph p8H P$`Z  (p@ $Z    "   (8P hx    "  <H&&  (8P hx" && Hh p   ] 加速創建報名$kN j$>!NF F$>N j$>!NQ j$>!N'fk0N j$>!NG F$>N j$>!NQ j$>!N'hk jk女子 F B F D j D D O j$>!NC F$>O j$>!NR j$>!N'`kO j$>!ND F$>O j$>!NR j$>!N'bkhO j$>!NE F$>O j$>!NR j$>!N'dkO j$>!NF F$>O j$>!NR j$>!N'fkxO j$>!NG F$>O j$>!NR j$>!N'hk jkMsgBox "xmid1:" & xmid1MsgBox "xmid2:" & xmid2MsgBox "xmid3:" & xmid3MsgBox "xmid4:" & xmid4MsgBox "xmid5:" & xmid5 ` b  d  f  h '\k ` `d b bd d dd f fd h hd'^k` \ ^2同一名運動員不能同時參加全能項目和其它單項的比賽!A@Z X(Nk#-----------------運動員限報數量檢測]`xS3$>!N'z'x ` `d x 'xkX b bd x 'xk  d dd x 'xk f fd x 'xk h hd x 'xkx x z 每名參賽運動員限報: z個單項,可兼報接力!A@Z X(Nk*-----------------參賽單位限報數量檢測-男子]S2$>!N'|MsgBox dwxbmax j D D 'p'rN j$>!N'lQ j$>!N'~ l ~dMsgBox "項目名稱:" & xmname t @ BC t$> l p 'pk t t @ BD t$> l p 'pkH t t @ BE t$> l p 'pk  t t @ BF t$> l p 'pk  t t @ BG t$> l p 'pk(  tMsgBox "當前男dwmax:" & dwmax p | 單項比賽,每個參賽單位限報: |人!A@Z X(Nk k  j*-----------------參賽單位限報數量檢測-女子,Dim xmi, xmname, xmid, dwmax, ydymax, i1, i2 j D D 'p'rO j$>!N'lR j$>!N'~ l ~dMsgBox "項目名稱:" & xmname t B DC t$> l p 'pk  t t B DD t$> l p 'pk  t t B DE t$> l p 'pkP  t t B DF t$> l p 'pk  t t B DG t$> l p 'pk  tMsgBox "當前女dwmax:" & dwmax p | 單項比賽,每個參賽單位限報: |人!A@Z X(Nkk j#-----------------參賽單位總人數限報T2$>!NU2$>!N'U3$>!N'男子規則' t @ BH t$>$H t$>H t$>比賽B t$>   'k t       B R%B@違反報名規則:男子限報: 人;實際報了: 人,自動刪除一行!A@Zk女子規則' t B DH t$>$H t$>H t$>比賽B t$>   'k8 t       D R%B@違反報名規則:女子限報: 人;實際報了: 人,自動刪除一行!A@Zkxkhk`oX 加速創建報名P37$>!N比賽|kT2$>!NT2$>!N'L LU2$>!N'U3$>!N'男子 P R!T P!N男子姓名 P!V'@k@ P!N女子姓名 P!V'BykMsgBox "行數:" & manstartMsgBox "行數:" & womenstart6MsgBox "行數:" & manlingsmax - (womenstart - manstart)   B @   @ R%B@(  B @    @ R%B@女子 P R!T P!N女子姓名 P!V'Bk P!N電子報名補充說明: P!V'Dy@k80   D B   B R%B@  D B    B R%B@ (T2$>(Nk`kXoPH毜Attribute VB_Name = "She@et3" 鐱ast0{00020820- C$0046} |Global!腟pac扚alse dCreatablPre declaId玊ru BExposeTemplateDeriv$払ustom宨zD2 P Sub Works亾_Change(ByVal Target As R ) Dim manstart, womeendline, curxmn, maxxm '加速創建惐If.("P37").;ue <> "比賽" Th別nExitUnd If4淎ctCel鄉.Row B" &,) "F$罀2'侭("MsgBox "輸入運動員姓名,然蟛趴梢匝≡癲穩狀目!EE3B- ad罶s0valiADT2賲H 1 1EK查找關鍵字的行號 For Each cc In 9.U@cccLike "男子A3H 2.A]s(i, 1o=胊厞V@蟼f;@/ 女/G!電子酦補充說明:焽$\ 丷) 繬ext S 鵕錑a-開始喧 &&n(L%( 醜結束$d當前單元<格C 值?ciUb 行罿名稱重 創問Hur遜%.F傕)0D\>C,rG&C g+ 10`K D e摶 E F ; G Т > E%R同一鹀殹;報相蛒膩磫橳+=. @=ee'嶪是否與全能沖突NqneHxis蝑x > $鉍Qjxm爄d1, a2c3c4c5 "Wb3457an襪, dw$, ydy錼ii221___=?1__RJ81___W?1__R817_V?1'鍁癧d1颮棐`d2f33<44>50q92A40 Or 23z45:wz+(cP50抙= 100)q2& 3xmid3 <= 100) Or (4 <> 0 And 8 5 @Then dxexisDt ( E奍f If qn.N 9MsgBox "同幻碩輩荒芡輩渭尤芟钅亢推淥ハ畹謀熱" ActiveCell.Val4ue"'- _限報數量檢測 Dim ydyd纗bmzs,pax *Range("S3")40v齻1  4+ 1 泜$2$$鲏顕僠$謮n7斻$G >苖虝每@名參賽G~" & & "個習,可兼報接力!駯!A單位I-娜兇觾榙w摾首E2G'拿F ` For謇 endline +@ 3 To 15@燿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 覓喤畞唙'永,羐i A穴S CSheet.Rows(窪- 1).DeletCN%違反報名:Qa鈍;實際報了 動刪除一湫蠦 &1眅; _x 乏Or袿("5O蟹#漁ObC b鋘t> r/麇eE縛sq:`懩 '' YFSub!PrSivate Sub Worksheet_SelectionChange(ByVal Target As RT) '加速創建報名 If2("P37").hue <> "比賽" Then Exitnd $If 7T26= 00addlinsvalid =b*@ $;manA;gsmax:Ue wome e 3D '男子For Each c@c In A抳eS仚.Used'倠刢cLike " 姓麉 Msta宺tKRow:E 2 !女 !^"伆U (Next'MsgBox "行朗:" &F"SGV哫- ($-3F缞 O僫eia=1 To 8+ 1塠繩s(哖+ 2).Inxser8:Q( - 1)@#`駾郎te Wis姧y貖電子宀鉤淥得嗺纘C en佊嫕:F(<@%鉬>榕 - '@)67g@7= ( E7B %A0蜤7Applica.ScreenUpd膎g%Tru ="|<("陻`S舦g c獳_VBA_PROJECTVdir0__SRP_0  __SRP_1s9#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA7.1\VBE7.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.9#0#C:\Program Files\Microsoft Office\root\Office16\EXCEL.EXE#Microsoft Excel 16.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.8#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE16\MSO.DLL#Microsoft Office 16.0 Object Library_)S枈ThisWorkbook0566520ce3%ThisWorkbook: Sheet10666520ce59 Sheet1T 2M Sheet20366520ce3 Sheet2v0|4 Sheet30466520ce3 Sheet3衋Hp4hH0赹 壋農N躊stdole h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\Syst em32\e2.tlb#OLE Automation`僂OffDic凟Ofic侲瀫攢丒2DF8D04C-5BFA-101B-BDE5E訟AC42圗gram Files\CommonMicrosoft Shared\OFFICE16\MSO.0DLL#僊 1@6.0 Ob伭 LibraryKE傇偍ThisWorkbookGT玦sW硆kbUo 2 QHB1Bx-B,!:*"B+BB|Sh爀et1GS@#俥@Xt1H2N2MTT 222I2|4v333J3p衋BU揔*rU@@@@~ ~~~~~ ~~~~:"Qf呻籚A犤6覓 儕aq  1 儕a A   a VBAProject ThisWorkbookSheet1Sheet2Sheet3FBC:\Program Files\Common Files\Microsoft Shared\VBA\VBA7.1\VBE7.DLLVBA  AFFRow9C:\Program Files\Microsoft Office\root\Office16\EXCEL.EXEExcel  0FC:\Windows\System32\stdole2.tlbstdole QL續-鶾藉D轗?C:\Program Files\Common Files\Microsoft Shared\OFFICE16\MSO.DLLOffice A |U樘wemO=Tg嬵XF菹謃慶O粩$秌DFWorkbook Workbook_OpenWorkbook_BeforeClose &mFF癶.t!M軍R#;艶 F笫錺`馎漷]TrDF WorksheetWorksheet_ChangeFFWorksheet_SelectionChange x P37:!  詋[ T2 U2 U3FFA&mAUsedRange Value 7uP[覻 T sYP[覻 TRows Insert Delete 5uP[ Te圗Q魦f:VBE7.DLL&m! F&t Q C D E F G " TN T袕≧XT蛻 Y鴙 T剉詋[峺橆v NS (~ Q O R 2 TN T袕≧XT N齹 T鰁耂燫hQ齹y橆v孴vQ僛USy槃v詋[ S3 蟢 T耂[嵭彣RXTP枼b *NUSy,颯|Q汻! S2 USy樤k[ 蟢*N耂[峌SMOP枼b 篘! H0 AZ  B 輳蚐 T膲R7uP[P枼b 篘瀃E枼b哊 篘 陙≧ RdNL 輳蚐 T膲RsYP[P枼b&mVrU@@@@~~~r bbbbbCancel  0  PTargetFPROJECTwmhPROJECTSummaryInformation(,DocumentSummaryInformation8ThisWorkbookThisWorkbookSheet1Sheet1Sheet2Sheet2Sheet3Sheet3ID="{00000000-0000-0000-0000-000000000000}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Document=Sheet2/&H00000000 Document=Sheet3/&H00000000 HelpFile="" Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="393B95E399E399E79DE79D" DPB="7270DE250A420A42F5BE0B42BFDF4534D0D8927F404EE49AC81909088EC1DA813F4A95FA7E" GC="ABA9076C416D416DBE" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=44, 58, 716, 502, Sheet1=22, 29, 697, 472, Sheet2=44, 58, 719, 501, Sheet3=66, 87, 741, 530, Sheet4=88, 116, 763, 559, Sheet5=110, 145, 785, 588, Sheet6=132, 174, 807, 617, Sheet7=154, 203, 829, 646, Sheet8=0, 0, 675, 443, Z 鄥燆鵒h珣+'遲0 X`x 上海索美軟件上海索美軟件上海索美軟件RaykentMicrosoft Excel@E靖D@9q囕@v皚y 脹諟.摋+,0 PXd lt| slh 學生組教工組益壯組 工作表CompObji FMicrosoft Excel 2003 工作表Biff8Excel.Sheet.89瞦