邢唷> MgL  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKOPQRSTUVWXZh\]^_`abcdefgYijklmnopqrstuvwxyz{|}~Root Entry Fh%愌欄$Z昭欄N3WorkbookC_VBA_PROJECT_CUR"p匝欄$Z昭欄VBA n叢褭駼昭欄 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媅SO1h8媅SO1,8媅SO18媅SO18媅SO1媅SO1*媅SO1媅SO1媅SO1媅SO14媅SO1*媅SO1媅SO1 媅SO14媅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\) 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 @  8@@ 8@ 8 @  x@@   x @  8 8@@  8@  8@  8  8@  8 0@    0 0 0@ 0 0 x@@  x@  x @   x@@   x@   x @     1 1 1     ||u熣咻}(} #0_ ;_ "}(} #0_ ;_ "}(} #0_ ;_ "}(} #0_ ;_ "}<} #0_ ;_ "ef_ _ ;_ @}<} #0_ ;_ "ef _ _ ;_ @}(} #0_ ;_ "}<} #0_ ;_ "蘈_ _ ;_ @}(} #0_ ;_ "}(} #0_ ;_ "}<} #0_ ;_ "蘈_ _ ;_ @}(} #0_ ;_ "}(} #0_ ;_ "}<} #0_ ;_ "23_ _ ;_ @}(} #0_ ;_ "}(} #0_ ;_ "}<}  #0_ ;_ "23_ _ ;_ @}(}! #0_ ;_ "}(}%?#0_ ;_ "}<}( #0_ ;_ "俏_ _ ;_ @}<}* a#0_ ;_ "騎_ _ ;_ @}(}+ #0_ ;_ "}x}. 鷠#0_ ;_ "_ _ ;_ @#,##  }}/ #0_ ;_ "ゥ_ _ ;_ @???#,##??? ??? ???}(}0 #0_ ;_ "}(}1 #0_ ;_ "}<}2 鷠#0_ ;_ "_ _ ;_ @}(}9 #0_ ;_ "}<}: #0_ ;_ "_ _ ;_ @}<}; #0_ ;_ "_ _ ;_ @}(}< #0_ ;_ "}<}= #0_ ;_ "_ _ ;_ @}<}> #0_ ;_ " _ _ ;_ @}<}5 渆#0_ ;_ "霚_ _ ;_ @}x}6 ???#0_ ;_ "???_ _ ;_ @???#,## ??? ???}}7 ??v#0_ ;_ "虣_ _ ;_ @#,##  }x}?#0_ ;_ "膊_ _ ;_ @膊#,## 膊 膊}(}m#0_ ;_ "}(}n#0_ ;_ "}(}o#0_ ;_ "}(}p#0_ ;_ "}(}q#0_ ;_ "}(}r#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 16 40% - @wr 1  40% - @wr 2B# 40% - @wr 2 蘈娓  40% - @wr 36' 40% - @wr 3  40% - @wr 46+ 40% - @wr 4  40% - @wr 5B/ 40% - @wr 5 蘈忿  40% - @wr 663 40% - @wr 6  60% - @wr 16 60% - @wr 1 惕 60% - @wr 2B$ 60% - @wr 2 23跂 惕 60% - @wr 36( 60% - @wr 3 惕 60% - @wr 46, 60% - @wr 4 惕 60% - @wr 5B0 60% - @wr 5 23捦 惕! 60% - @wr 664 60% - @wr 6 惕* RowLevel_1* RowLevel_2* RowLevel_3* RowLevel_4 * RowLevel_5 * RowLevel_6 * RowLevel_7"~vR詋 #h槝h槝 $h槝 1h槝 1 %h槝 2,h槝 2?Э &h槝 3h槝 3 'h槝 4h槝 4(頬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;`&Gl;` ,'^- '^[0] .梴^梴 鷠 /纇錱USCQ@wr 661@wr 6  鳀F 惕 ?鑜蕬^ 鑜蕬 膊膊膊 膊XTableStyleMedium9PivotStyleLight16`?f[u7uP[膥YYe錧膥Glxvzu膥Of[usYP[膥VV2g 7K詋[嵞~+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 ccjB{SM娿*a饃:捶 ZO 0'E3QcV  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                      O+OOOOOOOOOOO E E EG F& X'XXXXXXXXX E@E?E  VW mBoooooooon ~ E@E~ E  VW mCoooooooon VW mDoooooooon VW mEoooooooon VW pFrrrrrrrrq VW g-hhhhhhhhi H A A A A A A A H  A  A  A I sG t. t/ @@@@IBBB  I sH t. t/ @@@@IBBB  I sH t0 t1 @@@@IBBB  I sH t0 t1 @@@@IBBB  I sH t2 t3 @@@@IBBB I sH t2 t3@@@@IBBB I sH t4t@@@@IBBB I sH t4t@@@@IBBB I sI t5t@@@@IBBB I sI t6t@@@@IBBB I sI t7t@@@@IBBB I sI t8t@@@@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 D$ lXzBBBBBNNNNNNBBBBBB""""""""" !"#$%&'()*+,-./  IB@@@@@@IBBB !Y!Z !S,!TTTTTTTTU "[\ "_"````````a #[\ #_#bbbbbbbbc # ! #" ## #$ #% $]^ $d$eeeeeeeef $9 % . %:~ %@ &K & /~ &5@ 'M'MMMMMMMMMM ' 0~ '7@ (M(MMMMMMMMMM ( 1~ (D@)NNNNNNNNNNN ) 2~ )N@*MMMMMMMMMMM * 3~ *繯@+MMMMMMMMMMM + 4~ +@R@,MMMMMMMMMMM , 5~ ,@Y@-NNNNNNNNNNN - 6~ -@^@ . 7~ .^@ / 8~ /_@$,"B8~F**HH<<<<<> @/*   ## $$      !!   !$"" '' (( -- )) ** ++ ,, 77  %$%  /  %$  /  %$  Sheet1b(b(  gghPh  (-  :S遅1_1 ZO /CZCd廼  d褚MbP?_*+%&?'?(?)?"?? &c勌U} ` J}  } @ }  } }  J} } } } } @ }  } /wwwwww                      O+OOOOOOOOOOO E E EG F( X)XXXXXXXXX E@E?E  VWPQQQQQQQQR ~ E@E~ E  VWPQQQQQQQQR VWPQQQQQQQQR VWjkkkkkkkkl VWPQQQQQQQQR VW g<hhhhhhhhi H A A A A A A A H  A  A  A I sJ t= @@@@@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 D lXzp....BB"""""""""""""""""""" !"#$%&'()*+,-. IB@@@@@@IBBB !Y!Z !S;!TTTTTTTTU "[\ "_"````````a #[\ #_#bbbbbbbbc # ! #" ## #$ #% $]^ $d$eeeeeeeef $9 % . %. %:%@@ &K & / &/&5@5@ 'M'MMMMMMMMMM ' 0 '2'7@N@ (M(MMMMMMMMMM ( 2 (3(N@繯@)NNNNNNNNNNN ) 3 )4)繯@@R@*MMMMMMMMMMM * 4 *5*@R@@Y@+MMMMMMMMMMM + 5~ +@Y@,MMMMMMMMMMM , =~ ,`@-NNNNNNNNNNN ""B8~F@@^^RR<< >@NJ  ''    !$!!    ++ ,, --  (( )) ** "" ## $$ 7/  %$ 7  %$   7  %$%   Sheet2b(b(44gghTh  (-  :S遅1_1_1 ZO /ymYw焲  d褚MbP?_*+%&?'?(?)?"?? &c勌U} ` J}  } @ }  } }  J} } } } } @ }  } /wwwwww                      O+OOOOOOOOOOO E E EG F& X*XXXXXXXXX E@E?E  VWPQQQQQQQQR ~ E@E~ E  VWPQQQQQQQQR VWPQQQQQQQQR VWjkkkkkkkkl VWPQQQQQQQQR VW g?hhhhhhhhi 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 !Y!Z !S>!TTTTTTTTU "[\ "_"````````a #[\ #_#bbbbbbbbc # ! #" ## #$ #% $]^ $d$eeeeeeeef $9 % . %. %:%@@ &K & / &/&5@5@ 'M'MMMMMMMMMM ' 0 '0'7@7@ (M(MMMMMMMMMM ( 2 (2(N@N@)NNNNNNNNNNN ) 3 )3)繯@繯@*MMMMMMMMMMM * 4 *4*@R@@R@+MMMMMMMMMMM + 5 +5+@Y@@Y@,MMMMMMMMMMM -NNNNNNNNNNN ""B8~F@@^^RRR >@NJ?''    !$!!    ++ ,, --  (( )) ** "" ## $$ 7/  %$ /  %$  7  %$%   Sheet3b(b(22gghTh  (-  :S遅1_1_1 ZO 0亐a憦  d褚MbP?_*+%&?'?(?)?"?? &c勌U} ` J}  } @ }  } }  J} } } } } @ }  } 0wwwwww                      O+OOOOOOOOOOO E E EG F& X*XXXXXXXXX E@E?E  VWPQQQQQQQQR ~ E@E~ E  VWPQQQQQQQQR VWPQQQQQQQQR VWjkkkkkkkkl VWPQQQQQQQQR VW gAhhhhhhhhi 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 !Y!Z !S@!TTTTTTTTU "[\ "_"````````a #[\ #_#bbbbbbbbc # ! #" ## #$ #% $]^ $d$eeeeeeeef $9 %. %:~ %@ &K &/~ &5@ 'M'MMMMMMMMMM '0~ '7@ (M(MMMMMMMMMM (1~ (D@)NNNNNNNNNNN )2~ )N@*MMMMMMMMMMM *3~ *繯@+MMMMMMMMMMM +4~ +@R@,MMMMMMMMMMM ,5~ ,@Y@-NNNNNNNNNNN -6~ -@^@ .7~ .^@ /8~ /_@$,"B8~F**HH<<<<<>@NJ?''    !$!!    ++ ,, --  (( )) ** "" ## $$ 7/  %$ /  %$  7  %$%   Sheet4b(b(99gghTh  (-  :S遅1_1_1 ThisWorkbook+ __SRP_25__SRP_3 LSheet1[2[  !"#$%&'()*+,-./012346789:;<=>?@ABCDEFGHIJKMNOPRSTUWXYZ\]^_abcdfghijklmnopqrstuvwxyz{|}~8:H 枈:#x{銄D乕 b$F飖q-H燍膓垔磎x飖q-H燍膓垔磎{銄D乕 b$ME0P[LSS>"<8<N0{00020819-0000-0000-C000-000000000046}p  *p`Xo 2`Xo i4  %j(`@凗%偁$%x`,@ @ @8 @ @ @ @ x @` @X ($6 p P_)S$*\Rffff*0:683d6909*\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 "比賽報磣遠４娉曬Γ±塃聛F 請啡狹 信息,然後發橢羴規定@的郵箱, vbOKOnly, "歡迎使用索美0軟件JIf\ 圠5Dma丒S羘g羒aa(渂bA膓K'a伵jp聐1@ *a縺 F@S 繮ACall @1rU@@8Pq "p 1 7ha  ` `iIY)gg gxvlVXX.XgU82Xgg g"`q`g`q>pg Z0vggg8 `h Z Zh"a"arU@@@8Q`8@!`@C*@`brU@@@xH`8qH1`@qb!AarU@@@xH`8*\Rffff*0;683d6909*\R1*#405*\R1*#13f*\R0*#17*\R0*#14*\R1*#12e`\ " & 0 *H x  " (  ( 6H  B  J0 (  HX0` (x "0 (  ( D0 6@ &P (x  * " . HXb` b b b (8b@ `p x,L 6 &4M枈T #p層u韶岪捨vMRJ F-鄢.wB>e砕萙x-鄢.wB>e砕萙層u韶岪捨vMRJMEP[LSS8>6"LLRXZ@P @`8 @H0 @L @  @P棹 @玄 X@叁 @俐 @羹 @剝o 8@H橚 @ @xh @xP @`8 @懸 L@更 L@ 狘 8L@H堻 8 L@ @h @P @8 @ @ @@ @棼 @ 宣 @耕 ` \@p狖 H`@堺 p`@p `@0 X `H p@ @ @( ( @X  @ @p 帔 @ 鰓 @ 苞 @ 橔 @ @h @ P @ 8 @ @X 礫 p 0 @ X @ 慁 @ x @~` @ H ( @H 0 8  `  @p  H @  p p @ 桫 @ 續 @0 給 H  @h 狓 X 0 0 @ 堷 h @ p @ X  @( @ @ @P ( h ( @x  P @ x @ 圜 @灑  @8鎊 (P@`橑 x8@ ``@h @P @ 8 8@  H X P @ @瘀 @p倀 @麗 @p H@0愽 @場 @p @hX @@ p@( (hP P <%x>R@ @ @ @ @8 @x @L` @xH @0 @P @  @  @(瘙 @ @ 棹 h( @p幗o P @@叁 @B剝 P@橚 @ @h (@8P P@p8 `88@ p@ @瘕  @槧 8 @H幘 `  @佚 H @旋o p @Dx庚 p(@狚 )@堼 ()@Hp 8)`+@pX H,@@ p,p.@( ((px`_)S*\R1*#2a0$  (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! ! !  ! "] 加速創建報名$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亾_Cha!fnge(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'嶪是否與全能沖突ＮqneHxis蝑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_5 QSheet2 V__SRP_6>\ngggT KDgB `g`K>gB HgB  0gJZH幗g0 xl@g 叁gg0 xlg 剝g幗gg幗gV橚H剝叁xhh8gZ叁Z$-g橚8gJ橚剝叁xH<gZ叁Z$%g橚gJZH瘕瘕旋Lg0 xlg 剝gg0 xl0g 庚g旋Lgg旋gV橚0庚剝x狚狚pgZ剝Z$-g橚pgJ橚庚剝x0@gZ剝Z$%g橚@\g0 8*+gB gggT幗旋槧hP8 瘕狚堼pX@庚叁剝橚H`0,xrU@@80.A! AAq!Aa1QqAq!QQ !q A `q 1  ``ii9v1.ggB08P 00gPK.gJ0Z0H玄玄棹0剝g0棹P 橚lg棹 gg0棹P 橚lVg棹 gg0棹P 橚lg棹 g剝gg棹剝gD0ZP0lP0g60ZP00gP \gPhgb08PO 0橚K0橚g hPhggb08PO 0橚K0橚g hPhggb08PO 0橚K0橚g hPhggb08PO 0橚K0橚g hPhggb08PO 0橚K0橚 g hPhgghPgL8橚PI(橚8g6P 0ZP00gPhgggP 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棼 gT08PxO 0橚瘕0gg 08PxO 0PhO橚 8Ch PxO8 棼 T宣7耕l0 橚88棼ngT08PxO 0橚佚0gg 08PxO 0PhO橚 8Ch PxO8 棼 T宣7耕l0 橚88棼gT08PxO 0橚例0gg 08PxO 0PhO橚 8Ch PxO8 棼 T宣7耕l0 橚88棼6gT08PxO 0橚0gg 08PxO 0PhO橚 8Ch PxO8 棼 T宣7耕l0 橚88棼gT08PxO 0橚慅0ggxXgg瘕P佚8橚+例h8+hP8+棼慅P宣+耕ldgP gg 瘕PT瘕8de橚7佚hT8佚Pdeh78+棼例PT宣例 de耕7@+(Tde帔7鰓+苞慅橔T慅hdeP78+ lgPgg@ PC8C橚7lfgL8橚PI(橚8g6P 0ZP00ggB08P 0瘞0gPg@瘕PT瘕8de橚7l"g Pgg@佚PT佚8de橚7lg Pgg@例PT例8de橚7lg Pgg@PT8de橚7lTg Pgg@慅PT慅8de橚7lg Pgg瘞ng^h8P瘞O8O橚( 橚8hg6P 0ZP00ggB08P 0佇0gVPx8橚礫礫x!gP0gPgT08PxO 0橚`0gT08PxO 0橚`0g@`P T`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佇O8O橚( 橚8hg6P 0ZP00gggxx gVP@@x8橚XX'gP0gPgT08PxO 0橚`0gT08PxO 0橚`0g@`P T`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佇O8O橚( 橚8hg6P 0ZP00gggx"gT08P 0hK0.gB08P 00gB08P  0瘀0gP倀g"r*g08P!O e0r橚[ Ph!O 8P Ch+8!O棼 宣橔"C耕+@場愽h#O( 場K帔p鰓7苞l場橚8 棼宣(V*g 倀P倀gg(gX倀倀P橚7887hl+gTP0Z0$%0g棼8hP&O8'O橚倀Oh(O8(橚8h8棼ggPXg"(-g08P!O e0r橚[ Ph!O 8P Ch+8!O棼 宣橔"C耕+@場愽h#O( 場K帔p鰓7苞l場橚8 棼宣(-g XPXgg(+gXX瘀XP橚7887hl.gTP0Z0$%0g棼8hP)O8'O橚倀Oh(O8(橚8h8棼gggg .J剝叁玄懸更狘堻狖堺pX礫慁xH0桫續給狓堷pX@(圜灑鎊橑hP8 麗@(瘕`H佚倀例` 瘞櫝慅h棹x0X佇瘀0場橚8h8棼宣耕@(帔鰓苞P8 PTggT, "`"a "a`"a "aZ*\Rffff*0<683d690a*\R1*#405*\R1*#13f*\R0*#17*\R0*#14*\R1*#12e`H " & 0 *H x  " (  ( 6H  B  J0 (  HX0` (x "0 (  ( D0 6@ &P (x  * " . HXb` b b b (8b@ `p x,L 6 &麳枈v#p孊銜.M涘0僐 F睥d7栢A嚫:oyq_x睥d7栢A嚫:oyq_孊銜.M涘0僐MEP[LSS8>6"LLRXZ@P @`8 @H0 @L @  @P棹 @玄 X@叁 @俐 @羹 @剝o 8@H橚 @ @xh @xP @`8 @懸 L@更 L@ 狘 8L@H堻 8 L@ @h @P @8 @ @ @@ @棼 @ 宣 @耕 ` \@p狖 H`@堺 p`@p `@0 X `H p@ @ @( ( @X  @ @p 帔 @ 鰓 @ 苞 @ 橔 @ @h @ P @ 8 @ @X 礫 p 0 @ X @ 慁 @ x @~` @ H ( @H 0 8  `  @p  H @  p p @ 桫 @ 續 @0 給 H  @h 狓 X 0 0 @ 堷 h @ p @ X  @( @ @ @P ( h ( @x  P @ x @ 圜 @灑  @8鎊 (P@`橑 x8@ ``@h @P @ 8 8@  H X P @ @瘀 @p倀 @麗 @p H@0愽 @場 @p @hX @@ p@( (hP P <%x>R@ @ @ @ @8 @x @L` @xH @0 @P @  @  @(瘙 @ @ 棹 h( @p幗o P @@叁 @B剝 P@橚 @ @h (@8P P@p8 `88@ p@ @瘕 @槧 8@H幘 ` @佚 H@旋o p@Dx庚 p&@狚 '@堼 ('@Hp 8'`)@pX H*@@ p*p,@( ((px`_)S*\R1*#2a0$  (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   ] 加速創建報名$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`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 !@獳\ngggT KDgB `g`K>gB HgB  0gJZH幗g0 xl@g 叁gg0 xlg 剝g幗gg幗gV橚H剝叁xhh8gZ叁Z$-g橚8gJ橚剝叁xH<gZ叁Z$%g橚gJZH瘕瘕旋Lg0 xlg 剝gg0 xl0g 庚g旋Lgg旋gV橚0庚剝x狚狚pgZ剝Z$-g橚pgJ橚庚剝x0@gZ剝Z$%g橚@\g0 8*+gB gggT幗旋槧hP8 瘕狚堼pX@庚叁剝橚H`0,xrU@@80.A! AAq!Aa1QqAq!QQ !q  `q 1  ``ii9v1.ggB08P 00gPK.gJ0Z0H玄玄棹0剝g0棹P 橚lg棹 gg0棹P 橚lVg棹 gg0棹P 橚lg棹 g剝gg棹剝gD0ZP0lP0g60ZP00gP \gPhgb08PO 0橚K0橚g hPhggb08PO 0橚K0橚g hPhggb08PO 0橚K0橚g hPhggb08PO 0橚K0橚g hPhggb08PO 0橚K0橚 g hPhgghPgL8橚PI(橚8g6P 0ZP00gPhgggP 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棼 gT08PxO 0橚瘕0gg 08PxO 0PhO橚 8Ch PxO8 棼 T宣7耕l0 橚88棼ngT08PxO 0橚佚0gg 08PxO 0PhO橚 8Ch PxO8 棼 T宣7耕l0 橚88棼gT08PxO 0橚例0gg 08PxO 0PhO橚 8Ch PxO8 棼 T宣7耕l0 橚88棼6gT08PxO 0橚0gg 08PxO 0PhO橚 8Ch PxO8 棼 T宣7耕l0 橚88棼gT08PxO 0橚慅0ggxXgg瘕P佚8橚+例h8+hP8+棼慅P宣+耕ldgP gg 瘕PT瘕8de橚7佚hT8佚Pdeh78+棼例PT宣例 de耕7@+(Tde帔7鰓+苞慅橔T慅hdeP78+ lgPgg@ PC8C橚7lfgL8橚PI(橚8g6P 0ZP00ggB08P 0瘞0gPg@瘕PT瘕8de橚7l"g Pgg@佚PT佚8de橚7lg Pgg@例PT例8de橚7lg Pgg@PT8de橚7lTg Pgg@慅PT慅8de橚7lg Pgg瘞ng^h8P瘞O8O橚( 橚8hg6P 0ZP00ggB08P 0佇0gVPx8橚礫礫x!gP0gPgT08PxO 0橚`0gT08PxO 0橚`0g@`P T`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佇O8O橚( 橚8hg6P 0ZP00gggxx gVP@@x8橚XX'gP0gPgT08PxO 0橚`0gT08PxO 0橚`0g@`P T`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佇O8O橚( 橚8hg6P 0ZP00gggx"gT08P 0hK0.gB08P 00gB08P  0瘀0gP倀g"r*g08P!O e0r橚[ Ph!O 8P Ch+8!O棼 宣橔"C耕+@場愽h#O( 場K帔p鰓7苞l場橚8 棼宣(V*g 倀P倀gg(gX倀倀P橚7887hl+gTP0Z0$%0g棼8hP&O8'O橚倀Oh(O8(橚8h8棼ggPXg"(-g08P!O e0r橚[ Ph!O 8P Ch+8!O棼 宣橔"C耕+@場愽h#O( 場K帔p鰓7苞l場橚8 棼宣(-g XPXgg(+gXX瘀XP橚7887hl.gTP0Z0$%0g棼8hP)O8'O橚倀Oh(O8(橚8h8棼gggg .J剝叁玄懸更狘堻狖堺pX礫慁xH0桫續給狓堷pX@(圜灑鎊橑hP8 麗@(瘕`H佚倀例` 瘞櫝慅h棹x0X佇瘀0場橚8h8棼宣耕@(帔鰓苞P8 PTggT, "`"a "a`"a "aZ__SRP_7 VSheet3鵒__SRP_8"j6__SRP_9[qH1`@qbrU@@@xH`8qH1`@qb!Aa1*#2a0$*\Rffff*0=683d690b*\R1*#405*\R1*#13f*\R0*#17*\R0*#14`G " & 0 *H x  " (  ( 6H  B  J0 (  HX0` (x "0 (  ( D0 6@ &P (x  * " . HXb` b b b (8b@ `p x,L 6 &     #$%&'()*+,-./0123456789:;< >I@ABCDEFGH=JKLMNOPQRSTUVWXYZ[\]^_`abcdijklmnopqrstuvwxyz{|}~隑枈衋#p鰞%衂M⒎約倒蔔 Fi擕栕M瀼f_蓋xi擕栕M瀼f_蓋鰞%衂M⒎約倒蔔MEH[LSS8>6"LRXZ@P @`8 @H0 @L @  @P棹 @玄 X@叁 @俐 @羹 @剝o 8@H橚 @ @xh @xP @`8 @懸 L@更 L@ 狘 8L@H堻 8 L@ @h @P @8 @ @ @@ @棼 @ 宣 @耕 ` \@p狖 H`@堺 p`@p `@0 X `H p@ @ @( ( @X  @ @p 帔 @ 鰓 @ 苞 @ 橔 @ @h @ P @ 8 @ @X 礫 p 0 @ X @ 慁 @ x @~` @ H ( @H 0 8  `  @p  H @  p p @ 桫 @ 續 @0 給 H  @h 狓 X 0 0 @ 堷 h @ p @ X  @( @ @ @P ( h ( @x  P @ x @ 圜 @灑  @8鎊 (P@`橑 x8@ ``@h @P @ 8 8@  H X P @ @瘀 @p倀 @麗 @p H@0愽 @場 @p @hX @@ p@( (((px`_)S*\R  (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    "   (8P hx    "  <H&&  (8P hx" && Hh 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`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'嶪是否與全能沖突ＮqneHxis蝑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獳"a`"a "aZq!QQ1 a `q 1  ``iiSheet4 ?鵒__SRP_ahj6__SRP_b`_VBA_PROJECTerU@@8 *A! AAq!Aa1QqAq!QQ1 a `q 1  ``ii9v1.ggB08P 00gPK.gJ0Z0H玄玄棹0剝g0棹P 橚lg棹 gg0棹P 橚lVg棹 gg0棹P 橚lg棹 g剝gg棹剝gD0ZP0lP0g60ZP00gP \gPhgb08PO 0橚K0橚g hPhggb08PO 0橚K0橚g hPhggb08PO 0橚K0橚g hPhggb08PO 0橚K0橚g hPhggb08PO 0橚K0橚 g hPhgghPgL8橚PI(橚8g6P 0ZP00gPhgggP 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棼 gT08PxO 0橚瘕0gg 08PxO 0PhO橚 8Ch PxO8 棼 T宣7耕l0 橚88棼ngT08PxO 0橚佚0gg 08PxO 0PhO橚 8Ch PxO8 棼 T宣7耕l0 橚88棼gT08PxO 0橚例0gg 08PxO 0PhO橚 8Ch PxO8 棼 T宣7耕l0 橚88棼6gT08PxO 0橚0gg 08PxO 0PhO橚 8Ch PxO8 棼 T宣7耕l0 橚88棼gT08PxO 0橚慅0ggxXgg瘕P佚8橚+例h8+hP8+棼慅P宣+耕ldgP gg 瘕PT瘕8de橚7佚hT8佚Pdeh78+棼例PT宣例 de耕7@+(Tde帔7鰓+苞慅橔T慅hdeP78+ lgPgg@ PC8C橚7lfgL8橚PI(橚8g6P 0ZP00ggB08P 0瘞0gPg@瘕PT瘕8de橚7l"g Pgg@佚PT佚8de橚7lg Pgg@例PT例8de橚7lg Pgg@PT8de橚7lTg Pgg@慅PT慅8de橚7lg Pgg瘞ng^h8P瘞O8O橚( 橚8hg6P 0ZP00ggB08P 0佇0gVPx8橚礫礫x!gP0gPgT08PxO 0橚`0gT08PxO 0橚`0g@`P T`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佇O8O橚( 橚8hg6P 0ZP00gggxx gVP@@x8橚XX'gP0gPgT08PxO 0橚`0gT08PxO 0橚`0g@`P T`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佇O8O橚( 橚8hg6P 0ZP00gggx"gT08P 0hK0.gB08P 00gB08P  0瘀0gP倀g"r*g08P!O e0r橚[ Ph!O 8P Ch+8!O棼 宣橔"C耕+@場愽h#O( 場K帔p鰓7苞l場橚8 棼宣(V*g 倀P倀gg(gX倀倀P橚7887hl+gTP0Z0$%0g棼8hP&O8'O橚倀Oh(O8(橚8h8棼ggPXg"(-g08P!O e0r橚[ Ph!O 8P Ch+8!O棼 宣橔"C耕+@場愽h#O( 場K帔p鰓7苞l場橚8 棼宣(-g XPXgg(+gXX瘀XP橚7887hl.gTP0Z0$%0g棼8hP)O8'O橚倀Oh(O8(橚8h8棼gggg .J剝叁玄懸更狘堻狖堺pX礫慁xH0桫續給狓堷pX@(圜灑鎊橑hP8 麗@(瘕`H佚倀例` 瘞櫝慅h棹x0X佇瘀0場橚8h8棼宣耕@(帔鰓苞P8 Hi`"a 1*#2a0$*\Rffff*0>683d690b*\R1*#405*\R1*#13f*\R0*#17*\R0*#14`G " & 0 *H x  " (  ( 6H  B  J0 (  HX0` (x "0 (  ( D0 6@ &P (x  * " . HXb` b b b (8b@ `p x,L 6 &隑枈8m#p鉼醒BN剝bQ2焭 F諧 HSO乣:碪5x諧 HSO乣:碪5惜P鉼醒BN剝bQ2焭MEH[LSS8>6"LRXZ@P @`8 @H0 @L @  @P棹 @玄 X@叁 @俐 @羹 @剝o 8@H橚 @ @xh @xP @`8 @懸 L@更 L@ 狘 8L@H堻 8 L@ @h @P @8 @ @ @@ @棼 @ 宣 @耕 ` \@p狖 H`@堺 p`@p `@0 X `H p@ @ @( ( @X  @ @p 帔 @ 鰓 @ 苞 @ 橔 @ @h @ P @ 8 @ @X 礫 p 0 @ X @ 慁 @ x @~` @ H ( @H 0 8  `  @p  H @  p p @ 桫 @ 續 @0 給 H  @h 狓 X 0 0 @ 堷 h @ p @ X  @( @ @ @P ( h ( @x  P @ x @ 圜 @灑  @8鎊 (P@`橑 x8@ ``@h @P @ 8 8@  H X P @ @瘀 @p倀 @麗 @p H@0愽 @場 @p @hX @@ p@( (((px`_)S*\R  (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    "   (8P hx    "  <H&&  (8P hx" && Hh 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`kXoPH毜Attribute VB_Name = "She@et4" 鐱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'嶪是否與全能沖突ＮqneHxis蝑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獳"a`  "a "aZA! AAq!Aa1QqAqrU@@@ xH `8qH1 `@qb蘟  *\G{000204EF-0000-0000-C000-000000000046}#4.2#9#C:\Program Files\Common Files\erU@@8 *A! AAq!Aa1QqAq!QQ  `q 1  ``i i  9 v1.ggB08P 00gPK.gJ0Z0H玄玄棹0剝g0棹P 橚lg棹 gg0棹P 橚lVg棹 gg0棹P 橚lg棹 g剝gg棹剝gD0ZP0lP0g60ZP00gP \gPhgb08PO 0橚K0橚g hPhggb08PO 0橚K0橚g hPhggb08PO 0橚K0橚g hPhggb08PO 0橚K0橚g hPhggb08PO 0橚K0橚 g hPhgghPgL8橚PI(橚8g6P 0ZP00gPhgggP 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棼 gT08PxO 0橚瘕0gg 08PxO 0PhO橚 8Ch PxO8 棼 T宣7耕l0 橚88棼ngT08PxO 0橚佚0gg 08PxO 0PhO橚 8Ch PxO8 棼 T宣7耕l0 橚88棼gT08PxO 0橚例0gg 08PxO 0PhO橚 8Ch PxO8 棼 T宣7耕l0 橚88棼6gT08PxO 0橚0gg 08PxO 0PhO橚 8Ch PxO8 棼 T宣7耕l0 橚88棼gT08PxO 0橚慅0ggxXgg瘕P佚8橚+例h8+hP8+棼慅P宣+耕ldgP gg 瘕PT瘕8de橚7佚hT8佚Pdeh78+棼例PT宣例 de耕7@+(Tde帔7鰓+苞慅橔T慅hdeP78+ lgPgg@ PC8C橚7lfgL8橚PI(橚8g6P 0ZP00ggB08P 0瘞0gPg@瘕PT瘕8de橚7l"g Pgg@佚PT佚8de橚7lg Pgg@例PT例8de橚7lg Pgg@PT8de橚7lTg Pgg@慅PT慅8de橚7lg Pgg瘞ng^h8P瘞O8O橚( 橚8hg6P 0ZP00ggB08P 0佇0gVPx8橚礫礫x!gP0gPgT08PxO 0橚`0gT08PxO 0橚`0g@`P T`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佇O8O橚( 橚8hg6P 0ZP00gggxx gVP@@x8橚XX'gP0gPgT08PxO 0橚`0gT08PxO 0橚`0g@`P T`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佇O8O橚( 橚8hg6P 0ZP00gggx"gT08P 0hK0.gB08P 00gB08P  0瘀0gP倀g"r*g08P!O e0r橚[ Ph!O 8P Ch+8!O棼 宣橔"C耕+@場愽h#O( 場K帔p鰓7苞l場橚8 棼宣(V*g 倀P倀gg(gX倀倀P橚7887hl+gTP0Z0$%0g棼8hP&O8'O橚倀Oh(O8(橚8h8棼ggPXg"(-g08P!O e0r橚[ Ph!O 8P Ch+8!O棼 宣橔"C耕+@場愽h#O( 場K帔p鰓7苞l場橚8 棼宣(-g XPXgg(+gXX瘀XP橚7887hl.gTP0Z0$%0g棼8hP)O8'O橚倀Oh(O8(橚8h8棼gggg .J剝叁玄懸更狘堻狖堺pX礫慁xH0桫續給狓堷pX@(圜灑鎊橑hP8 麗@(瘕`H佚倀例` 瘞櫝慅h棹x0X佇瘀0場橚8h8棼宣耕@(帔鰓苞P8 Hi`  "a 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枈ThisWorkbook0:683d6909%ThisWorkbook: Sheet10;683d69099 Sheet1T :M Sheet20<683d690a Sheet2v0I Sheet30=683d690b Sheet3衋H馚 Sheet40>683d690b Sheet48m`馚H0`e稪癗mn嘢僅'+T颩2VI侳儼衄┴g!A嶉*G○窪痜荇{v桜G5<耒kuc]t8 Excel+` VBA麾`Win16羱`Win32`Win64x`Mac巢`VBA6#`VBA7#` VBAProject究`stdole揱`Officeu` ThisWorkbook|鉦 _evalsuate賎bbbbb6s` Workbook_Open涐`Windows`Count0v`Visible隊`Workbook_BeforeClose滄`Cancel駱`Save捫` Sheet1`Worksheet_Change烻`Target現`Range `manstart釘` womenstarti賎endlineq `curline$` curxmname甘` linemaxxmr` addlinsvalid崷`Value銴`cc荺` ActiveSheet%N` UsedRange葔`Row壪` ActiveCell椒`MsgBox桼`qnexist笪`dxexist8宍xmid1Pxmid2Qxmid3Rxmid4Sxmid5TxmiH颼xmname矪`xmid1隸dwmax)C`ydymax獌`i1揮`i2擼` ydydxbmzs煪`ydyxbmax`dwxbmax I`xmnameid≡` manlingsmax糽` womenlinesmax骮countmanbIsNull`Rows`Delete竫` countwomen-`Worksheet_SelectionChange4`addlinei8`Insert謗` Application*`ScreenUpdating! ` Sheet2` Sheet3` Sheet4`Sheet5`Sheet6`Sheet7`Sheet8`Workbookk` BeforeClose~;`_Defaultj耟 Worksheet窿`ChangeＧ`SelectionChange鉵`_B_var_addlinsvalid檫` _B_var_cco馺_B_var_xmnameid*琡_B_var_manlingsmax^`_B_var_womenlinesmax溓`_B_var_countman胝`_B_var_countwomenf渀_B_var_manstart閈`_B_var_womenstart擥`_B_var_addlineiS`_B_var_endline `x9   "%Z>瞼0* pHd VBAProje坈t4@j = r _)S J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\Syst em32\e2.tlb#OLE Automation`僂OffDic凟Ofic侲瀫攢丒2DF8D04C-dirB__SRP_0S__SRP_1PROJECTwm}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@#俥@Xt1H2N:MTT 222I2Iv3333馚衋44448m 8rU@@@@~~~rF&t Q!(m~~ ~~~~ ~ ~ ~ ~ ~ ~ ~f"Q 娧I叴'%隁 儕a1  儕a  A 儕a  A    a bbbbbCancel q 0  PTargetF VBAProjectThisWorkbookThisWorkbookSheet1Sheet1Sheet2Sheet2Sheet3Sheet3Sheet4Sheet4ID="{00000000-0000-0000-0000-000000000000}" Document=ThisWorkboPROJECTSummaryInformation(,DocumentSummaryInformation8CompObjiok/&H00000000 Document=Sheet1/&H00000000 Document=Sheet2/&H00000000 Document=Sheet3/&H00000000 Document=Sheet4/&H00000000 HelpFile="" Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="D1D37D7B817B817F857F85" DPB="797BD53AF23AF2C50E3BF28F8F1584E028A20FB0BE742A7889D9F8DEB1AA716F5A45CA2E" GC="21238DCE8ECE8E31" [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 上海索美軟件上海索美軟件上海索美軟件童 博Microsoft Excel@E靖D@9q囕@e繚褭 脹諟.摋+,0 PXd lt| slh  學生男子組教工組 研究生組 學生女子組 工作表S  FMicrosoft Excel 2003 工作表Biff8Excel.Sheet.89瞦揔*rU@@@~ ~~~~~ ~~~~ ~ ~ ~ ~ ~ ~ ~f"Q 娧I叴'%隁 儕a1  儕a  A 儕a  A 儕a  A 儕a  A  VBAProject ThisWorkbookSheet1Sheet2Sheet3Sheet4Sheet5Sheet6Sheet7Sheet8FBC:\Program Files\Common Files\Microsoft Shared\VBA\VBA7.1\VBE7.DLLVBAOffice層u韶岪捨vMRJRow  F9C:\Program Files\Microsoft Office\root\Office16\EXCEL.EXEExcel  a0FC:\Windows\System32\stdole2.tlbstdole AL續-鶾藉D轗?C:\Program Files\Common Files\Microsoft Shared\OFFICE16\MSO.DLL AqF{銄D乕 b$F飖q-H燍膓垔磎DFWorkbook Workbook_OpenWorkbook_BeforeClose &mFF F-鄢.wB>e砕萙DF WorksheetWorksheet_ChangeFFWorksheet_SelectionChange x T2: FF&mUsedRange Value 7uP[覻 T sYP[覻 T 5uP[ Te圗Q魦f:  C D E F G " TN T袕≧XT蛻 Y鴙 T剉詋[峺橆vVBE7.DLLS (~ N 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 篘! U2 U3 H0 Z  詋[ BRows Delete 輳蚐 T膲R7uP[P枼b 篘瀃E枼b哊 篘 陙≧ RdNL 輳蚐 T膲RsYP[P枼b孊銜.M涘0僐睥d7栢A嚫:oyq_鰞%衂M⒎約倒蔔i擕栕M瀼f_蓋鉼醒BN剝bQ2焭諧 HSO乣:碪5^4J>籔>rH祠)H攡犜6鋚7鏤塆坎蝰;M岌C睧夀諨80(m 淚L2)斞闥馞PW#昿 齪aB鉑旞蕠2_撿n 茡{Aュx7 P37 Insert&m