邢唷> As@  !"#$%&'()*+,-./0123456789:;<=>?pCDEGUIJKLMNOPQRSTFVWXYZ[\]^_`abcdefghijklmnoruvwxyz{|}~Root Entry F罀q︼傂0[祌秶B0Workbookz_VBA_PROJECT_CUR"P e宄囆@~4娉囆VBA @踚宄囆p#娉囆  衫\pUSER Ba=  ThisWorkbook=hJ{9"8X@"1啇媅SO1啇媅SO1啇媅SO1啇媅SO1啇媅SO1啇媅SO1啇媅SO1 啇媅SO1啇媅SO1啇媅SO1 啇媅SO1 啇媅SO1啇媅SO1 啇媅SO1 啇媅SO1 啇媅SO1 啇媅SO+""#,##0;""\-#,##05""#,##0;[Red]""\-#,##07""#,##0.00;""\-#,##0.00A""#,##0.00;[Red]""\-#,##0.00i*2_ ""* #,##0_ ;_ ""* \-#,##0_ ;_ ""* "-"_ ;_ @_ .))_ * #,##0_ ;_ * \-#,##0_ ;_ * "-"_ ;_ @_ y,:_ ""* #,##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;@                   , * + )   @ @  x@ @  0@ @ 4@ @  @ @ 0@ @      8@@  8@  8@  8  8@  8 0@    0 0 0@ 0 0   x@@   x@   x @  8@@ 8@ 8 @  x@@   x @  8 x@@  x@  x @   x@@   x@   x @  `Lf[u,g褃膥/xvzu膥gAYe錧R梩^膥門Ye錧-Nt^膥漡Ye錧蕍頧膥VV"r餵03 A@@   ZM詋[嵞~+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 7 40鲖 N亯鹠燫Rb頞9e Th>>>>>>>? 781222222223 78 :-;;;;;;;;<                                                        DlXzp....B""""""""""""""""""""" !"#$%&'()*+,-./0 1  2  3  4  5  6    ! " #"## #4,#555555556 $$% $($))))))))* %$% %(%++++++++, % ! %" %# %$ %% &&' &-&......../ & . &. &?&@@ ' / '/ '@'5@5@ ( ( 0 (0(6@6@ ) ) ) 1 )1)7@7@ * * * 2 *2*D@D@+!!!!!!!!!!! + 3 +4+E@N@, , 4 ,5,N@繯@- - 5 -7-繯@@R@. . 6 .8.R@@Y@/!!!!!!!!!!! / 7 /9/@R@Y@ 0 8~ 0@Y@ 1 9~ 1Y@ 2 :~ 2@^@ 3 ;~ 3繼@ 4 <~ 4_@ 5 =~ 5@_@ 6 >~ 6_@2<"""B8~x@@^^RRRRRP餒0(  >@      ##  #&$$ %% && )) ** // ++ ,, -- .. 77  %&' "/  %&  /  %&" Sheet1gghPh  */ " :S遅1_1  衫 //9>  d褚MbP?_*+%"?? c勌U} ` }  } @ }  } }  } } } } } @ }  } /wwwwww                      0+00000000000    ( 9)999999999 @?  781222222223 ~ @~   781222222223 781222222223 78=>>>>>>>>? 781222222223 78 :A;;;;;;;;<                                                        DlXzp....B""""""""""""""""""""" !"#$%&'()*+,-.  !"!# !4,!555555556 "$% "("))))))))* #$% #(#++++++++, # ! #" ## #$ #% $&' $-$......../ $ . $. $?$@@ % / %1 %@%5@7@ & & 1 &4&7@N@ ' ' ' 4 '5'N@繯@ ( ( ( 5 (7(繯@@R@)!!!!!!!!!!! ) 7 )8)@R@@Y@* * 8~ *@Y@+ , -!!!!!!!!!!! ""B8~x@@^^R< >@ ''    !$!!    ++ ,, --  (( )) ** "" ## $$ 7/  %$ /  %$  7  %$%   Sheet2gghTh  (-  :S遅1_1_1  衫 /?BL嘠  d褚MbP?_*+%"?? c勌U} ` }  } @ }  } }  } } } } } @ }  } /wwwwww                      0+00000000000    & 9*999999999 @?  781222222223 ~ @~   781222222223 781222222223 78=>>>>>>>>? 781222222223 78 :C;;;;;;;;<                                                        DlXzp....B""""""""""""""""""""" !"#$%&'()*+,-.  !"!# !4B!555555556 "$% "("))))))))* #$% #(#++++++++, # ! #" ## #$ #% $&' $-$......../ $ . $. $?$@@ % / %/ %@%5@5@ & & 1 &4&7@N@ ' ' ' 4 '5'N@繯@ ( ( ( 5 (7(繯@@R@)!!!!!!!!!!! ) 7 )8)@R@@Y@* * 8~ *@Y@+ + D~ +繽@, , E~ ,`@-!!!!!!!!!!! " "B8~x@@^^R<<< 稷 饖(  餜  C ]F!  Z>@''    !$!!    ++ ,, --  (( )) ** "" ## $$ 7/  %$ /  %$  7  %$%   Sheet3gghTh  (-  :S遅1_1_1  衫 /罸;d  d褚MbP?_*+%"?? c勌U} ` }  } @ }  } }  } } } } } @ }  } /wwwwww                      0+00000000000    & 9*999999999 @?  781222222223 ~ @~   781222222223 781222222223 78=>>>>>>>>? 781222222223 78 :G;;;;;;;;<                                                        DlXzp....B""""""""""""""""""""" !"#$%&'()*+,-.  !"!# !4F!555555556 "$% "("))))))))* #$% #(#++++++++, # ! #" ## #$ #% $&' $-$......../ $ . $. $?$@@ % 1 %5 %@%7@繯@ & & 5 &7&繯@@R@ ' ' ' 7~ '@R@ ( ( )!!!!!!!!!!! * + , -!!!!!!!!!!! "R"B8~x@@H, 稷0 饖(   餜  C   ]F!H   Z>@  ''    !$!!    ++ ,, --  (( )) ** "" ## $$ 7/  %$ /  %$  7  %$%   Sheet4gghTh  (-  :S遅1_1_1  衫 /uhUr  d褚MbP?_*+%"?? c勌U} ` }  } @ }  } }  } } } } } @ }  } /wwwwww                      0+00000000000    ( 9)999999999 @?  781222222223 ~ @~   781222222223 781222222223 78=>>>>>>>>? 781222222223 78 :I;;;;;;;;<                                                        DlXzp....B""""""""""""""""""""" !"#$%&'()*+,-.  !"!# !4H!555555556 "$% "("))))))))* #$% #(#++++++++, # ! #" ## #$ #% $&' $-$......../ $ J $J $?$繰@繰@ % K %L %@%S@@S@ & ' ' ( ( )!!!!!!!!!!! * + , -!!!!!!!!!!! ""B8~x@,, 稷@饖(  餜  C ]F!   Z> @''    !$!!    ++ ,, --  (( )) ** "" ## $$ 7/  %$ /  %$  7  %$%   Sheet5gghTh  (-  :S遅1_1_1 ThisWorkbook__SRP_d0__SRP_cBSheet1HS !"$%'(*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefhijklmnoprstuvwxyz{|}~<jx枈:#</ㄢ旬J.I蟵MFX[`.任E尞+慢IxX[`.任E尞+慢I/ㄢ旬J.I蟵MME(SLSS6"N0{00020819-0000-0000-C000-000000000046}(%H凗` %偁 %`h8@TT0鎈sN$*\Rffff*0H5700f42b4x鞍Attribute VB_Name = "ThisWorkbook" 孊as0{00020P819-0C$0046} |GlobalSpac扚alse dCreatablPred恊claIdTru BExposeTemplateDeriv払ustomizD2rU )Qy#4`rU @nrU @,`H,A`L n rU @,`H,A`L n ; "  & 0 *H x  " (  ( 6H  &  + (  HX` (x " (   ( *0 !@ &P (x  * " . H X8`888(88@`p x,+ !  &   ( H P X ` h,p (1J0@`Jh0WF枈T #<2擬rJ9疎雇稾K栶 F\姿/3凜笰}壪$]x\姿/3凜笰}壪$]2擬rJ9疎雇稾K栶ME4 [LSS86"LLLLL<8<<<N0{00020820-0000-0000-C000-000000000046} `滪k@H) ` %@h @ X 顯"hH _袕ˊ$8 5@&( @( jHr@:D Ac@<4 @>$ rlin@凘 "輸@凚 梢匝@凞酏 En@凢潺 ----@凥劄 !,@凧p凝 @凩@待 關鍵@凬 @凱旪 @凴匌 @凾t @刅岥 @刋0| @刏l ^` T齩LGG)  % %凗`%偁%( X`8xH8`hX xP %(8068@ @ @酤 @*瀨 @軋 @.寧 @`逮 P@剝 x8@ `@ @o @旫 x@H匎 @0t @0d @T @d `L@T L@D L@4 L@x0 @H @` @ @瘺 @禳 @茳 @廳 @鍵 @ \@(滭 @`@P岦 h(`@x| P`@ l x` xp@\ @L @ < @X , @(  @@ @p @ 禧 @ 茺 @帖 @ 見 @ @滬 @ \ ( @8 L P  @` < x 8 @ , ` @\ @ @   @( 禚 @ @` 茭 P ( x ( @ 鐵 ` @ 賤 @ @ 滫  8 @H 岤 ` @ | p H H ` @ l @ \ @ L @0 < H  @X , p 0 @  X X @ @   @禊 0 @P薺 @h@x貼 P@踐 xx@ @滪  8h H x %0l@ h @PX @T @D @4 @$ @* @` @b酤 @.瀨 @0軋 8 @@玄 `  @p烴 H @h叁 p @寧o  @逮 @  H@d旫 @h匎 @Xt p0@d X@T @D @4 0@$ X@ @@ h@ @o @" &@0酏 H'@X潺 p0'@劄 X'X)@凝 *@待 *,@8 @ 狚 @滮 @P岧 @| @l @\ @X @T 0 h8@PH(鎈sN*\R1*#1c8$*\Rffff*0:5700f40a*\R1*#2ac*\R1*#e8*\R0*#14*\R1*#d7*\R3*#8c*\R3*#4d*\R3*#4e*\R3*#4f4J00PJX0J0 @  H X ` p 1 J 0  J 0p  J 0  J 0`  J 0     8 X x  <X      % <+  !  *@&P h%p%%%8H%Pp <7 ! 0 &( @ 1X x 00% "8 @P Xh8 8 (8@`p x8  $ 67  !Xhp x 0 21  0 0@%` "x8 88H P`8x 8  88Xh p $ 67 !   ( "  0 80Ppx0& && + 0@H `px   " <&1:8 X&*`:  + " 0@H P&1X: &*:  &  ( 0 H jh  : (0gH:xHl:HmX` h x]h 加速創建報名$If Range("P37").Value <> "比賽" ThenExit SubEnd If鏇curline = ActiveCell.Rowc∴curxmname = ActiveCell.Value !If Range("B" & curline) = "" ThenActiveCell.Value = ""Range("B" & curline) = ""0MsgBox "輸入運動員姓名,然後才可以選擇參賽項目！"End If -------------T2$!,'* *----------查找關鍵字的行號 . 0!2 .!,男子姓名!Sheet2.Cells(i, 1).Value = cc.Row .!4'k .!,女子姓名!Sheet2.Cells(i, 1).Value = cc.Row .!4' kH .!,電子報名補充說明:!Sheet2.Cells(i, 1).Value = cc.Row .!4'"yk 6!4'$ 6!,'&MsgBox "男子開始行:" & manstart!MsgBox "女子開始行:" & womenstartMsgBox "結束行:" & endline$MsgBox "當前單元格的行號:" & curlineMsgBox "當前值:" & curxmname'-----------------當前行項目名稱重復次數 &'(C $$ & ( '(khD $$ & ( '(k0E $$ & ( '(kF $$ & ( '(kG $$ & ( '(k ( "同一名運動員重復報相同的比賽項目！A@8 6(,'(k(k -----------------是否與全能沖突]':'<](@Xp'>'@'B'D'F]0男子 $  $   H " " N H$!,C $$N H$!,Q H$!,'>kN H$!,D $$N H$!,Q H$!,'@k N H$!,E $$N H$!,Q H$!,'BkN H$!,F $$N H$!,Q H$!,'Dk0N H$!,G $$N H$!,Q H$!,'Fk Hk女子 $  $ " H " " O H$!,C $$O H$!,R H$!,'>kO H$!,D $$O H$!,R H$!,'@khO H$!,E $$O H$!,R H$!,'BkO H$!,F $$O H$!,R H$!,'DkxO H$!,G $$O H$!,R H$!,'Fk HkMsgBox "xmid1:" & xmid1MsgBox "xmid2:" & xmid2MsgBox "xmid3:" & xmid3MsgBox "xmid4:" & xmid4MsgBox "xmid5:" & xmid5 > @  B  D  F ':k > >d @ @d B Bd D Dd F Fd'<k` : <2同一名運動員不能同時參加全能項目和其它單項的比賽！A@8 6(,k#-----------------運動員限報數量檢測]H`S3$!,'X'V > >d V 'VkX @ @d V 'Vk  B Bd V 'Vk D Dd V 'Vk F Fd V 'Vkx V X 每名參賽運動員限報： X個單項,可兼報接力!A@8 6(,k*-----------------參賽單位限報數量檢測-男子]xS2$!,'ZMsgBox dwxbmax H " " 'N'PN H$!,'JQ H$!,'\ J \dMsgBox "項目名稱:" & xmname R  C R$ J N 'Nk R R  D R$ J N 'NkH R R  E R$ J N 'Nk R R  F R$ J N 'Nk R R  G R$ J N 'Nk( RMsgBox "當前男dwmax:" & dwmax N Z 單項比賽，每個參賽單位限報： Z人!A@8 6(,k k H*-----------------參賽單位限報數量檢測-女子,Dim xmi, xmname, xmid, dwmax, ydymax, i1, i2 H " " 'N'PO H$!,'JR H$!,'\ J \dMsgBox "項目名稱:" & xmname R  "C R$ J N 'Nk R R  "D R$ J N 'Nk R R  "E R$ J N 'NkP R R  "F R$ J N 'Nk R R  "G R$ J N 'Nk RMsgBox "當前女dwmax:" & dwmax N Z 單項比賽，每個參賽單位限報： Z人!A@8 6(,kk Hko 加速創建報名P37$!,比賽|kT2$!,T2$!,'* *U2$!,'`U3$!,'b男子 . 0!2 .!,男子姓名 .!4'k .!,女子姓名 .!4' ykxMsgBox "行數:" & manstartMsgBox "行數:" & womenstart6MsgBox "行數:" & manlingsmax - (womenstart - manstart) d `      0%fB@h d     `  0%fB@jP女子 . 0!2 .!,女子姓名 .!4' k .!,電子報名補充說明: .!4'"yk d b "     0%fB@hX d "    b  0%fB@j l(nT2$(,kk禁止使用插入列功能On Error Resume NextcApplication.CommandBars("Worksheet Menu Bar").Controls("插入(I)").Controls("列(C)").Enabled = FalseOn Error GoTo 0禁止使用插入列功能Column l%p(r禁止使用插入行功能判斷U2$!,U3$!,row l%p(rh行(R)插入(I)Worksheet Menu Bar l%p%t%t(rdrow l%p(r行(R)插入(I)Worksheet Menu Bar l%p%t%t(rko毜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'嶪是否與全能沖突Ｎ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& 3Uxmid3 <= 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 覓喤畞唙'永,羐iFBL緄纮悕gsMT>Ux9翉, '訓C咵ach 燾c InS1.UsedA.KccっLike B"姓名U v=.Row%R,裑+鐳J?@1 盇+行+(GG&- (8 -O6"cei1鱭W魵 fs/3s(+ 2).Inser~t丄 壟-^ 罓2 wD齪2tre#v"鍩"觨4"a &電子A9補赤淥得鱬eN戰#or'(ob er3p脖endline - womenstart) + 1 ActiveSheet.Rows(2).Inser"tTNexFor ad = 1 To (1)俿max"tDeletetApplication.Scr@eenUpdn"gTru*Range("T2").Value End If '禁止使用插入列功能 'On ErrlResume v ' >CommandBars(@"Works仠 `Menu =C纎ntrol/(I) 列(CEnabledaQFals_@G:o0I慡朎Coplumn5,#;判斷 If MU M0 A繪E3匰0 T hen !ro>wJ Cf梀pV行(RKVL臮E耓0膅?11F1實Sub伕__SRP_2 t!__SRP_3Sheet2 S__SRP_4!{瀨A4寧 瀨寧1(D旫逮麥4麥$(h麛匎ttT:逮(h麛4%T$ @T匎"裏#T64匎 旫T*(D旫逮麥4(h麥$麥匎4:逮(h麛4%T$ @T匎"裏$T64匎 旫4(+T$ @TW4$$瀨T瀨A4:h 鹽$54瀨A4瀨A4:h 鹽$54瀨A4 瀨1(D旫酤麥4麥$(h麛匎酏酏劄{:(h麛4%T$ @T匎"裏#T64匎 旫劄6*(D旫麥4(h麥$酤麥匎待:(h麛4%T$ @T匎"裏$T64匎 旫待 T! T %T&(D%T'X%:h%! T,T:滮:h&%狚T! T d%狚 H'滮 ()T狚滮gT'X%:h %! Ta4(D]/$狚'岧%:!%! 狚a匎(|]/l'\)T狚64匎:滮:h)%狚T! T d%狚 H'滮 ()T狚滮Klc岧%:D*%T:X+%X滮:h,%狚T! T d%狚 H'滮 (X ,-Tqtb rU 00) 1a! 9 Q i a ! 9 Q i  A  )Ii1YQy 1Y4a `` IW | l x&酤'%:%! 酤a軋瀨酤瀨(]3t+酤$ @酤W軋鞔逮寧酤寧A軋:鹽旫5軋寧A軋h寧A軋: 鹽旫5軋寧A軋X寧A軋: 鹽旫5軋寧A軋H 寧j*酤$ (酤a軋"齣8酤5軋!酤$ (酤a軋(酤(: ]鸃O (8酤'%: 8軋%! 酤a旫(3酤6軋旫(麛軋8酤'%: 8軋%! 酤a旫(3酤6軋旫(麛軋8酤'%:8軋%! 酤a旫(3酤6軋旫L(麛軋8酤'%:8軋%! 酤a旫(3酤6軋旫(麛軋8酤'%:8軋%! 酤a旫(3酤6軋旫(麛軋(]鹴M+'T'匎'旫:N軋軋 6軋旫匎T!: %酤$ (酤,酤 ( (D (4 ($ ( ( (酏 (潺(8h鹥軋8X(麥旫鸌匎'T 1H(麛軋TT劄H(麛旫ddh4 酤'%:劄軋%! 酤a匎0'd%:t 8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎T0酤'%:劄軋%! 酤a旫$酤5軋酤'%:劄軋%! 酤a匎0'd%:t 8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎T0酤'%:劄軋%! 酤a旫酤5軋酤'%:劄軋%! 酤a匎0'd%:t8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎Tb0酤'%:劄軋%! 酤a旫酤5軋酤'%:劄軋%! 酤a匎0'd%:t8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎T10酤'%:劄軋%! 酤a旫酏酤5軋酤'%:劄軋%! 酤a匎0'd%:t8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎T0酤'%:劄軋%! 酤a旫潺酤5軋 劄48X鹥軋8H鸌旫'匎u 1H(麛軋岦岦劄H(麛旫滭滭l黸 酤'%:劄軋%! 酤a匎0'd%:t 8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎T, 0酤'%:劄軋%! 酤a旫$酤5軋酤'%:劄軋%! 酤a匎0'd%:t 8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎T 0酤'%:劄軋%! 酤a旫酤5軋酤'%:劄軋%! 酤a匎0'd%:t8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎T 0酤'%:劄軋%! 酤a旫酤5軋酤'%:劄軋%! 酤a匎0'd%:t8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎T 0酤'%:劄軋%! 酤a旫酏酤5軋酤'%:劄軋%! 酤a匎0'd%:t8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎Th 0酤'%:劄軋%! 酤a旫潺酤5軋 劄l黖X$(]鹥軋(]鹥旫匎(t]鹥T 酏(d]鹥廳潺(龑]鹥鍵 (D$(]<軋$(d]鸌旫'匎(t]$ rlin@凘 "輸@凚 梢匝@凞酏 En@凢潺 ----@凥劄 !,@凧p凝 @凩@待 關鍵@凬 @凱旪 男子@凴匌 .Cel@凾t Row@刅岥 @刋0| @刏l , 1) ^` T齩LGG) .Cel % %凗`%偁v%( X`8xH8`hX xP禳 %(8 068 ]<鍵@ @ 鐫@酤 $鬇*瀨 劄鸃軋 0'@.寧 0@`逮 P霡剝 x8 軋旫@ :` @ 劄@o 0'd旫%!@旫 禳'饃%!@H匎 ]<粿0t @0d @T @d %:`L! @T 8L0齛@D 責L禳a@4 )L軋旫匎@x0 @H 麫` :@ @瘺 %! 怈禳 '瘺%@茳 禳a藹廳 )@鍵 @ %! \@(滭 @`8H@P岦 h(`劄H@x| 黸 P`劄@ l 0隣x`8旫 xpaT@\ 鼲L ]鸃 < 軋擛X , %:@(  旫@@ %:@p 匎@ 禧 飻%@ 茺 禳'@帖 霡 見 @ 麫滬 軋@ \ 酤( '%:@8 L a匎P  :t@` < 鹸 8 :@ , : ` ')@\ @ 鐫% 旫@  %: !  0'd兀( 禚 0齛@ 禳'瘺@` 茭 禳aP ( ]<鍵x ( 06@ 鐵 酤'鵂 ` 軋%!@ 賤 酤5園 %: @ 8 0齛T@ 滫 劄 禳a8 ]<鍵鸃H 岤 ` 酤'@ | 酤ap H 酤5軋 H 黖 ` 鹥軋@ l ] (d@ \ 鍵 @ L $( 匎(@0 < 'H  ]鸃X , L黳 0 <<酏@  (禧 X (帖d] X 滬擛  ]/@  旫 軋  匎T!@禊 酤,0 &酤'鳣P薺 @h]<訞x貼 qP斣孈踐 (xx麛軋@ (匎鉆滪 %軋酏('匎 麛軋8h H x%!  %酤1H0lLL@ h @PX @T @D @4 @$ @* @` @b酤 @.瀨 @0軋 8 @@玄 `  @p烴 H @h叁 p @寧o  @逮 @  H@d旫 @h匎 @Xt p0@d X@T @D @4 0@$ X@ @@ h@ @o @" &@0酏 H'@X潺 p0'@劄 X'X)@凝 *@待 *,@8 @ 狚 @滮 @P岧 @| @l @\ @X @T 0 h8@PH(鎈sN*\R1*#1c8$*\Rffff*0;5700f40e*\R1*#2ac*\R1*#e8*\R0*#14*\R1*#d7*\R3*#8c*\R3*#4d*\R3*#4e*\R3*#4f4J00PJX0J0 @  H X ` p 1 J 0  J 0p  J 0  J 0`  J 0     8 X x  <X      % <+  !  *@&P h%p%%%8H%Pp <7 ! 0 &( @ 1X x 00% "8 @P Xh8 8 (8@`p x8  $ 67  !Xhp x 0 21  0 0@%` "x8 88H P`8x 8  88Xh p $ 67 !   ( "  0 80Ppx0& && + 0@H `px   " <&1:8 X&*`:  + " 0@H P&1X: &*:  &  ( 0 H jh  : (0gH:xHl:HmX` h x]h 加速創建報名$If Range("P37").Value <> "比賽" Then Exit SubEnd If鏇curline = ActiveCell.Rowc∴curxmname = ActiveCell.Value !If Range("B" & curline) = "" ThenActiveCell.Value = ""Range("B" & curline) = ""0MsgBox "輸入運動員姓名,然後才可以選擇參賽項目！"End If -------------T2$!,'* *----------查找關鍵字的行號 . 0!2 .!,男子姓名!Sheet2.Cells(i, 1).Value = cc.Row .!4'k .!,女子姓名!Sheet2.Cells(i, 1).Value = cc.Row .!4' kH .!,電子報名補充說明:!Sheet2.Cells(i, 1).Value = cc.Row .!4'"yk 6!4'$ 6!,'&MsgBox "男子開始行:" & manstart!MsgBox "女子開始行:" & womenstartMsgBox "結束行:" & endline$MsgBox "當前單元格的行號:" & curlineMsgBox "當前值:" & curxmname'-----------------當前行項目名稱重復次數 &'(C $$ & ( '(khD $$ & ( '(k0E $$ & ( '(kF $$ & ( '(kG $$ & ( '(k ( "同一名運動員重復報相同的比賽項目！A@8 6(,'(k(k -----------------是否與全能沖突]':'<](@Xp'>'@'B'D'F]0男子 $  $   H " " N H$!,C $$N H$!,Q H$!,'>kN H$!,D $$N H$!,Q H$!,'@k N H$!,E $$N H$!,Q H$!,'BkN H$!,F $$N H$!,Q H$!,'Dk0N H$!,G $$N H$!,Q H$!,'Fk Hk女子 $  $ " H " " O H$!,C $$O H$!,R H$!,'>kO H$!,D $$O H$!,R H$!,'@khO H$!,E $$O H$!,R H$!,'BkO H$!,F $$O H$!,R H$!,'DkxO H$!,G $$O H$!,R H$!,'Fk HkMsgBox "xmid1:" & xmid1MsgBox "xmid2:" & xmid2MsgBox "xmid3:" & xmid3MsgBox "xmid4:" & xmid4MsgBox "xmid5:" & xmid5 > @  B  D  F ':k > >d @ @d B Bd D Dd F Fd'<k` : <2同一名運動員不能同時參加全能項目和其它單項的比賽！A@8 6(,k#-----------------運動員限報數量檢測]H`S3$!,'X'V > >d V 'VkX @ @d V 'Vk  B Bd V 'Vk D Dd V 'Vk F Fd V 'Vkx V X 每名參賽運動員限報： X個單項,可兼報接力!A@8 6(,k*-----------------參賽單位限報數量檢測-男子]xS2$!,'ZMsgBox dwxbmax H " " 'N'PN H$!,'JQ H$!,'\ J \dMsgBox "項目名稱:" & xmname R  C R$ J N 'Nk R R  D R$ J N 'NkH R R  E R$ J N 'Nk R R  F R$ J N 'Nk R R  G R$ J N 'Nk( RMsgBox "當前男dwmax:" & dwmax N Z 單項比賽，每個參賽單位限報： Z人!A@8 6(,k k H*-----------------參賽單位限報數量檢測-女子,Dim xmi, xmname, xmid, dwmax, ydymax, i1, i2 H " " 'N'PO H$!,'JR H$!,'\ J \dMsgBox "項目名稱:" & xmname R  "C R$ J N 'Nk R R  "D R$ J N 'Nk R R  "E R$ J N 'NkP R R  "F R$ J N 'Nk R R  "G R$ J N 'Nk RMsgBox "當前女dwmax:" & dwmax N Z 單項比賽，每個參賽單位限報： Z人!A@8 6(,kk Hko 加速創建報名P37$!,比賽|kT2$!,T2$!,'* *U2$!,'`U3$!,'b男子 . 0!2 .!,男子姓名 .!4'k .!,女子姓名 .!4' ykxMsgBox "行數:" & manstartMsgBox "行數:" & womenstart6MsgBox "行數:" & manlingsmax - (womenstart - manstart) d `      0%fB@h d     `  0%fB@jP女子 . 0!2 .!,女子姓名 .!4' k .!,電子報名補充說明: .!4'"yk d b "     0%fB@hX d "    b  0%fB@j l(nT2$(,kk禁止使用插入列功能On Error Resume NextcApplication.CommandBars("Worksheet Menu Bar").Controls("插入(I)").Controls("列(C)").Enabled = FalseOn Error GoTo 0禁止使用插入列功能Column l%p(r禁止使用插入行功能判斷U2$!,U3$!,row l%p(rh行(R)插入(I)Worksheet Menu Bar l%p%t%t(rdrow l%p(r行(R)插入(I)Worksheet Menu Bar l%p%t%t(rko櫟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& 3Uxmid3 <= 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 覓喤畞唙'永,羐iFBL緄纮悕gsMT>Ux9翉, '訓C咵ach 燾c InS1.UsedA.KccっLike B"姓名U v=.Row%R,裑+鐳J?@1 盇+行+(GG&- (8 -O6"cei1鱭W魵 fs/3s(+ 2).Inser~t丄 壟-^ 罓2 wD齪2tre#v"鍩"觨4"a &電子A9補赤淥得鱬eN戰#or'(ob er3p脖endline - womenstart) + 1 ActiveSheet.Rows(2).Inser"tTNexFor ad = 1 To (1)俿max"tDeletetApplication.Scr@eenUpdn"gTru*Range("T2").Value End If '禁止使用插入列功能 'On ErrlResume v ' >CommandBars(@"Works仠 `Menu =C纎ntrol/(I) 列(CEnabledaQFals_@G:o0I慡朎Coplumn5,#;判斷 If MU M0 A繪E3匰0 T hen !ro>wJ Cf梀pV行(RKVL臮E耓0膅?11F1實Sub伕{瀨A4寧 瀨寧1(D旫逮麥4麥$(h麛匎ttT:逮(h麛4%T$ @T匎"裏#T64匎 旫T*(D旫逮麥4(h麥$麥匎4:逮(h麛4%T$ @T匎"裏$T64匎 旫4(+T$ @TW4$$瀨T瀨A4:h 鹽$54瀨A4瀨A4:h 鹽$54瀨A4 瀨1(D旫酤麥4麥$(h麛匎酏酏劄{:(h麛4%T$ @T匎"裏#T64匎 旫劄6*(D旫麥4(h麥$酤麥匎待:(h麛4%T$ @T匎"裏$T64匎 旫待 T! T %T&(D%T'X%:h%! T,T:滮:h&%狚T! T d%狚 H'滮 ()T狚滮gT'X%:h %! Ta4(D]/$狚'岧%:!%! 狚a匎(|]/l'\)T狚64匎:滮:h)%狚T! T d%狚 H'滮 ()T狚滮Klc岧%:D*%T:X+%X滮:h,%狚T! T d%狚 H'滮 (X ,-TrU 0) 1a! 9 Q i a ! 9 Q i  A  )Ii1YQy 1 4a `` IW | l x&酤'%:%! 酤a軋瀨酤瀨(]3t+酤$ @酤W軋鞔逮寧酤寧A軋:鹽旫5軋寧A軋h寧A軋: 鹽旫5軋寧A軋X寧A軋: 鹽旫5軋寧A軋H 寧j*酤$ (酤a軋"齣8酤5軋!酤$ (酤a軋(酤(: ]鸃O (8酤'%: 8軋%! 酤a旫(3酤6軋旫(麛軋8酤'%: 8軋%! 酤a旫(3酤6軋旫(麛軋8酤'%:8軋%! 酤a旫(3酤6軋旫L(麛軋8酤'%:8軋%! 酤a旫(3酤6軋旫(麛軋8酤'%:8軋%! 酤a旫(3酤6軋旫(麛軋(]鹴M+'T'匎'旫:N軋軋 6軋旫匎T!: %酤$ (酤,酤 ( (D (4 ($ ( ( (酏 (潺(8h鹥軋8X(麥旫鸌匎'T 1H(麛軋TT劄H(麛旫ddh4 酤'%:劄軋%! 酤a匎0'd%:t 8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎T0酤'%:劄軋%! 酤a旫$酤5軋酤'%:劄軋%! 酤a匎0'd%:t 8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎T0酤'%:劄軋%! 酤a旫酤5軋酤'%:劄軋%! 酤a匎0'd%:t8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎Tb0酤'%:劄軋%! 酤a旫酤5軋酤'%:劄軋%! 酤a匎0'd%:t8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎T10酤'%:劄軋%! 酤a旫酏酤5軋酤'%:劄軋%! 酤a匎0'd%:t8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎T0酤'%:劄軋%! 酤a旫潺酤5軋 劄48X鹥軋8H鸌旫'匎u 1H(麛軋岦岦劄H(麛旫滭滭l黸 酤'%:劄軋%! 酤a匎0'd%:t 8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎T, 0酤'%:劄軋%! 酤a旫$酤5軋酤'%:劄軋%! 酤a匎0'd%:t 8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎T 0酤'%:劄軋%! 酤a旫酤5軋酤'%:劄軋%! 酤a匎0'd%:t8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎T 0酤'%:劄軋%! 酤a旫酤5軋酤'%:劄軋%! 酤a匎0'd%:t8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎T 0酤'%:劄軋%! 酤a旫酏酤5軋酤'%:劄軋%! 酤a匎0'd%:t8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎Th 0酤'%:劄軋%! 酤a旫潺酤5軋 劄l黖X$(]鹥軋(]鹥旫匎(t]鹥T 酏(d]鹥廳潺(龑]鹥鍵 (D$(]<軋$(d]鸌旫'匎(t]$ rlin@凘 "輸@凚 梢匝@凞酏 En@凢潺 ----@凥劄 !,@凧p凝 @凩@待 關鍵@凬 @凱旪 男子@凴匌 .Cel@凾t Row@刅岥 @刋0| @刏l , 1) ^` T齩LGG) .Cel % %凗`%偁x%( X`8xH8`hX xP %(8068@ @ @酤 @*瀨 @軋 @.寧 @`逮 P@剝 x8@ `@ @o @旫 x@H匎 @0t @0d @T @d `L@T L@D L@4 L@x0 @H @` @ @瘺 @禳 @茳 @廳 @鍵 @ \@(滭 @`@P岦 h(`@x| P`@ l x` xp@\ @L @ < @X , @(  @@ @p @ 禧 @ 茺 @帖 @ 見 @ @滬 @ \ ( @8 L P  @` < x 8 @ , ` @\ @ @   @( 禚 @ @` 茭 P ( x ( @ 鐵 ` @ 賤 @ @ 滫  8 @H 岤 ` @ | p H H ` @ l @ \ @ L @0 < H  @X , p 0 @  X X @ @   @禊 0 @P薺 @h@x貼 P@踐 xx@ @滪  8h H x %0l@ h @PX @T @D @4 @$ @* @` @b酤 @.瀨 @0軋 8 @@玄 `  @p烴 H @h叁 p @寧o  @逮 @  H@d旫 @h匎 @Xt p0@d X@T @D @4 0@$ X@ @@ h@ @o @" &@0酏 H'@X潺 p0'@劄 X'X)@凝 *@待 *,@8 @ 狚 @滮 @P岧 @| @l @\ @X @T 0 h8@PH(鎈sN*\R1*#1c8$*\Rffff*0<5700f410*\R1*#2ac*\R1*#e8*\R0*#14*\R1*#d7*\R3*#8c*\R3*#4d*\R3*#4e*\R3*#4f4J00PJX0J0 @  H X ` p 1 J 0  J 0p  J 0  J 0`  J 0     8 X x  <X      % <+  !  *@&P h%p%%%8H%Pp <7 ! 0 &( @ 1X x 00% "8 @P Xh8 8 (8@`p x8  $ 67  !Xhp x 0 21  0 0@%` "x8 88H P`8x 8  88Xh p $ 67 !   ( "  0 80Ppx0& && + 0@H `px   " <&1:8 X&*`:  + " 0@H P&1X: &*:  &  ( 0 H jh  : (0gH:xHl:HmX` h x]h 加速創建報名$If Range("P37").Value <> "比賽" Then Exit SubEnd If鏇curline = ActiveCell.Rowc∴curxmname = ActiveCell.Value !If Range("B" & curline) = "" ThenActiveCell.Value = ""Range("B" & curline) = ""0MsgBox "輸入運動員姓名,然後才可以選擇參賽項目！"End If -------------T2$!,'* *----------查找關鍵字的行號 . 0!2 .!,男子姓名!Sheet2.Cells(i, 1).Value = cc.Row .!4'k .!,女子姓名!Sheet2.Cells(i, 1).Value = cc.Row .!4' kH .!,電子報名補充說明:!Sheet2.Cells(i, 1).Value = cc.Row .!4'"yk 6!4'$ 6!,'&MsgBox "男子開始行:" & manstart!MsgBox "女子開始行:" & womenstartMsgBox "結束行:" & endline$MsgBox "當前單元格的行號:" & curlineMsgBox "當前值:" & curxmname'-----------------當前行項目名稱重復次數 &'(C $$ & ( '(khD $$ & ( '(k0E $$ & ( '(kF $$ & ( '(kG $$ & ( '(k ( "同一名運動員重復報相同的比賽項目！A@8 6(,'(k(k -----------------是否與全能沖突]':'<](@Xp'>'@'B'D'F]0男子 $  $   H " " N H$!,C $$N H$!,Q H$!,'>kN H$!,D $$N H$!,Q H$!,'@k N H$!,E $$N H$!,Q H$!,'BkN H$!,F $$N H$!,Q H$!,'Dk0N H$!,G $$N H$!,Q H$!,'Fk Hk女子 $  $ " H " " O H$!,C $$O H$!,R H$!,'>kO H$!,D $$O H$!,R H$!,'@khO H$!,E $$O H$!,R H$!,'BkO H$!,F $$O H$!,R H$!,'DkxO H$!,G $$O H$!,R H$!,'Fk HkMsgBox "xmid1:" & xmid1MsgBox "xmid2:" & xmid2MsgBox "xmid3:" & xmid3MsgBox "xmid4:" & xmid4MsgBox "xmid5:" & xmid5 > @  B  D  F ':k > >d @ @d B Bd D Dd F Fd'<k` : <2同一名運動員不能同時參加全能項目和其它單項的比賽！A@8 6(,k#-----------------運動員限報數量檢測]H`S3$!,'X'V > >d V 'VkX @ @d V 'Vk  B Bd V 'Vk D Dd V 'Vk F Fd V 'Vkx V X 每名參賽運動員限報： X個單項,可兼報接力!A@8 6(,k*-----------------參賽單位限報數量檢測-男子]xS2$!,'ZMsgBox dwxbmax H " " 'N'PN H$!,'JQ H$!,'\ J \dMsgBox "項目名稱:" & xmname R  C R$ J N 'Nk R R  D R$ J N 'NkH R R  E R$ J N 'Nk R R  F R$ J N 'Nk R R  G R$ J N 'Nk( RMsgBox "當前男dwmax:" & dwmax N Z 單項比賽，每個參賽單位限報： Z人!A@8 6(,k k H*-----------------參賽單位限報數量檢測-女子,Dim xmi, xmname, xmid, dwmax, ydymax, i1, i2 H " " 'N'PO H$!,'JR H$!,'\ J \dMsgBox "項目名稱:" & xmname R  "C R$ J N 'Nk R R  "D R$ J N 'Nk R R  "E R$ J N 'NkP R R  "F R$ J N 'Nk R R  "G R$ J N 'Nk RMsgBox "當前女dwmax:" & dwmax N Z 單項比賽，每個參賽單位限報： Z人!A@8 6(,kk Hko 加速創建報名P37$!,比賽|kT2$!,T2$!,'* *U2$!,'`U3$!,'b男子 . 0!2 .!,男子姓名 .!4'k .!,女子姓名 .!4' ykxMsgBox "行數:" & manstartMsgBox "行數:" & womenstart6MsgBox "行數:" & manlingsmax - (womenstart - manstart) d `      0%fB@h d     `  0%fB@jP女子 . 0!2 .!,女子姓名 .!4' k .!,電子報名補充說明: .!4'"yk d b "     0%fB@hX d "    b  0%fB@j l(nT2$(,kk禁止使用插入列功能On Error Resume NextcApplication.CommandBars("Worksheet Menu Bar").Controls("插入(I)").Controls("列(C)").Enabled = FalseOn Error GoTo 0禁止使用插入列功能Column l%p(r禁止使用插入行功能判斷U2$!,U3$!,row l%p(rh行(R)插入(I)Worksheet Menu Bar l%p%t%t(rdrow l%p(r行(R)插入(I)Worksheet Menu Bar l%p%t%t(rko毜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& 3Uxmid3 <= 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 覓喤畞唙'永,羐iFBL緄纮悕gsMT>Ux9翉, '訓C咵ach 燾c InS1.UsedA.KccっLike B"姓名U v=.Row%R,裑+鐳J?@1 盇+行+(GG&- (8 -O6"cei1鱭W魵 fs/3s(+ 2).Inser~t丄 壟-^ 罓2 wD齪2tre#v"鍩"觨4"a &電子A9補赤淥得鱬eN戰#or'(ob er3p脖endline - womenstart) + 1 ActiveSheet.Rows(2).Inser"tTNexFor ad = 1 To (1)俿max"tDeletetApplication.Scr@eenUpdn"gTru*Range("T2").Value End If '禁止使用插入列功能 'On ErrlResume v ' >CommandBars(@"Works仠 `Menu =C纎ntrol/(I) 列(CEnabledaQFals_@G:o0I慡朎Coplumn5,#;判斷 If MU M0 A繪E3匰0 T hen !ro>wJ Cf梀pV行(RKVL臮E耓0膅?11F1實Sub伕{瀨A4寧 瀨寧1(D旫逮麥4麥$(h麛匎ttT:逮(h麛4%T$ @T匎"裏#T64匎 旫T*(D旫逮麥4(h麥$麥匎4:逮(h麛4%T$ @T匎"裏$T64匎 旫4(+T$ @TW4$$瀨T瀨A4:h 鹽$54瀨A4瀨A4:h 鹽$54瀨A4 瀨1(D旫酤麥4麥$(h麛匎酏酏劄{:(h麛4%T$ @T匎"裏#T64匎 旫劄6*(D旫麥4(h麥$酤麥匎待:(h麛4%T$ @T匎"裏$T64匎 旫待 T! T %T&(D%T'X%:h%! T,T:滮:h&%狚T! T d%狚 H'滮 ()T狚滮gT'X%:h %! Ta4(D]/$狚'岧%:!%! 狚a匎(|]/l'\)T狚64匎:滮:h)%狚T! T d%狚 H'滮 ()T狚滮Klc岧%:D*%T:X+%X滮:h,%狚T! T d%狚 H'滮 (X ,-TrU 0) 1a! 9 Q i a ! 9 Q i  A  )Ii1YQy! 1I 4a `` IW | l x&酤'%:%! 酤a軋瀨酤瀨(]3t+酤$ @酤W軋鞔逮寧酤寧A軋:鹽旫5軋寧A軋h寧A軋: 鹽旫5軋寧A軋X寧A軋: 鹽旫5軋寧A軋H 寧j*酤$ (酤a軋"齣8酤5軋!酤$ (酤a軋(酤(: ]鸃O (8酤'%: 8軋%! 酤a旫(3酤6軋旫(麛軋8酤'%: 8軋%! 酤a旫(3酤6軋旫(麛軋8酤'%:8軋%! 酤a旫(3酤6軋旫L(麛軋8酤'%:8軋%! 酤a旫(3酤6軋旫(麛軋8酤'%:8軋%! 酤a旫(3酤6軋旫(麛軋(]鹴M+'T'匎'旫:N軋軋 6軋旫匎T!: %酤$ (酤,酤 ( (D (4 ($ ( ( (酏 (潺(8h鹥軋8X(麥旫鸌匎'T 1H(麛軋TT劄H(麛旫ddh4 酤'%:劄軋%! 酤a匎0'd%:t 8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎T0酤'%:劄軋%! 酤a旫$酤5軋酤'%:劄軋%! 酤a匎0'd%:t 8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎T0酤'%:劄軋%! 酤a旫酤5軋酤'%:劄軋%! 酤a匎0'd%:t8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎Tb0酤'%:劄軋%! 酤a旫酤5軋酤'%:劄軋%! 酤a匎0'd%:t8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎T10酤'%:劄軋%! 酤a旫酏酤5軋酤'%:劄軋%! 酤a匎0'd%:t8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎T0酤'%:劄軋%! 酤a旫潺酤5軋 劄48X鹥軋8H鸌旫'匎u 1H(麛軋岦岦劄H(麛旫滭滭l黸 酤'%:劄軋%! 酤a匎0'd%:t 8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎T, 0酤'%:劄軋%! 酤a旫$酤5軋酤'%:劄軋%! 酤a匎0'd%:t 8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎T 0酤'%:劄軋%! 酤a旫酤5軋酤'%:劄軋%! 酤a匎0'd%:t8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎T 0酤'%:劄軋%! 酤a旫酤5軋酤'%:劄軋%! 酤a匎0'd%:t8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎T 0酤'%:劄軋%! 酤a旫酏酤5軋酤'%:劄軋%! 酤a匎0'd%:t8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎Th 0酤'%:劄軋%! 酤a旫潺酤5軋 劄l黖X$(]鹥軋(]鹥旫匎(t]鹥T 酏(d]鹥廳潺(龑]鹥鍵 (D$(]<軋$(d]鸌旫'匎(t]?@ABCDEF8HIJKLMNOPQRSTUVWXYZ[\]^_`a~dsfghijklmnopqrcuvwxyz{|}WF枈8m#<〞綮俺 ,烉 F9q%{uL喍#iT刋x9q%{uL喍#iT刋湪曯俺 ,烉ME4 [LSS86"LLLLL<8<<<N0{00020820-0000-0000-C000-000000000046} `滪k@H) ` %@h @ X 顯"hH _袕ˊ$8 5@&( @( jHr@:D Ac@<4 @>$ rlin@凘 "輸@凚 梢匝@凞酏 En@凢潺 ----@凥劄 !,@凧p凝 @凩@待 關鍵@凬 @凱旪 @凴匌 @凾t @刅岥 @刋0| @刏l ^` T齩LGG)  % %凗`%偁z%( X`8xH8`hX xP %(8068@ @ @酤 @*瀨 @軋 @.寧 @`逮 P@剝 x8@ `@ @o @旫 x@H匎 @0t @0d @T @d `L@T L@D L@4 L@x0 @H @` @ @瘺 @禳 @茳 @廳 @鍵 @ \@(滭 @`@P岦 h(`@x| P`@ l x` xp@\ @L @ < @X , @(  @@ @p @ 禧 @ 茺 @帖 @ 見 @ @滬 @ \ ( @8 L P  @` < x 8 @ , ` @\ @ @   @( 禚 @ @` 茭 P ( x ( @ 鐵 ` @ 賤 @ @ 滫  8 @H 岤 ` @ | p H H ` @ l @ \ @ L @0 < H  @X , p 0 @  X X @ @   @禊 0 @P薺 @h@x貼 P@踐 xx@ @滪  8h H x %0l@ h @PX @T @D @4 @$ @* @` @b酤 @.瀨 @0軋 8 @@玄 `  @p烴 H @h叁 p @寧o  @逮 @  H@d旫 @h匎 @Xt p0@d X@T @D @4 0@$ X@ @@ h@ @o @" &@0酏 H'@X潺 p0'@劄 X'X)@凝 *@待 *,@8 @ 狚 @滮 @P岧 @| @l @\ @X @T 0 h8@PH(鎈sN*\R1*#1c8$*\Rffff*0=5700f411*\R1*#2ac*\R1*#e8*\R0*#14*\R1*#d7*\R3*#8c*\R3*#4d*\R3*#4e*\R3*#4f4J00PJX0J0 @  H X ` p 1 J 0  J 0p  J 0  J 0`  J 0     8 X x  <X      % <+  !  *@&P h%p%%%8H%Pp <7 ! 0 &( @ 1X x 00% "8 @P Xh8 8 (8@`p x8  $ 67  !Xhp x 0 21  0 0@%` "x8 88H P`8x 8  88Xh p $ 67 !   ( "  0 80Ppx0& && + 0@H `px   " <&1:8 X&*`:  + " 0@H P&1X: &*:  &  ( 0 H jh  : (0gH:xHl:HmX` h x]h 加速創建報名$If Range("P37").Value <> "比賽" Then Exit SubEnd If鏇curline = ActiveCell.Rowc∴curxmname = ActiveCell.Value !If Range("B" & curline) = "" ThenActiveCell.Value = ""Range("B" & curline) = ""0MsgBox "輸入運動員姓名,然後才可以選擇參賽項目！"End If -------------T2$!,'* *----------查找關鍵字的行號 . 0!2 .!,男子姓名!Sheet2.Cells(i, 1).Value = cc.Row .!4'k .!,女子姓名!Sheet2.Cells(i, 1).Value = cc.Row .!4' kH .!,電子報名補充說明:!Sheet2.Cells(i, 1).Value = cc.Row .!4'"yk 6!4'$ 6!,'&MsgBox "男子開始行:" & manstart!MsgBox "女子開始行:" & womenstartMsgBox "結束行:" & endline$MsgBox "當前單元格的行號:" & curlineMsgBox "當前值:" & curxmname'-----------------當前行項目名稱重復次數 &'(C $$ & ( '(khD $$ & ( '(k0E $$ & ( '(kF $$ & ( '(kG $$ & ( '(k ( "同一名運動員重復報相同的比賽項目！A@8 6(,'(k(k -----------------是否與全能沖突]':'<](@Xp'>'@'B'D'F]0男子 $  $   H " " N H$!,C $$N H$!,Q H$!,'>kN H$!,D $$N H$!,Q H$!,'@k N H$!,E $$N H$!,Q H$!,'BkN H$!,F $$N H$!,Q H$!,'Dk0N H$!,G $$N H$!,Q H$!,'Fk Hk女子 $  $ " H " " O H$!,C $$O H$!,R H$!,'>kO H$!,D $$O H$!,R H$!,'@khO H$!,E $$O H$!,R H$!,'BkO H$!,F $$O H$!,R H$!,'DkxO H$!,G $$O H$!,R H$!,'Fk HkMsgBox "xmid1:" & xmid1MsgBox "xmid2:" & xmid2MsgBox "xmid3:" & xmid3MsgBox "xmid4:" & xmid4MsgBox "xmid5:" & xmid5 > @  B  D  F ':k > >d @ @d B Bd D Dd F Fd'<k` : <2同一名運動員不能同時參加全能項目和其它單項的比賽！A@8 6(,k#-----------------運動員限報數量檢測]H`S3$!,'X'V > >d V 'VkX @ @d V 'Vk  B Bd V 'Vk D Dd V 'Vk F Fd V 'Vkx V X 每名參賽運動員限報： X個單項,可兼報接力!A@8 6(,k*-----------------參賽單位限報數量檢測-男子]xS2$!,'ZMsgBox dwxbmax H " " 'N'PN H$!,'JQ H$!,'\ J \dMsgBox "項目名稱:" & xmname R  C R$ J N 'Nk R R  D R$ J N 'NkH R R  E R$ J N 'Nk R R  F R$ J N 'Nk R R  G R$ J N 'Nk( RMsgBox "當前男dwmax:" & dwmax N Z 單項比賽，每個參賽單位限報： Z人!A@8 6(,k k H*-----------------參賽單位限報數量檢測-女子,Dim xmi, xmname, xmid, dwmax, ydymax, i1, i2 H " " 'N'PO H$!,'JR H$!,'\ J \dMsgBox "項目名稱:" & xmname R  "C R$ J N 'Nk R R  "D R$ J N 'Nk R R  "E R$ J N 'NkP R R  "F R$ J N 'Nk R R  "G R$ J N 'Nk RMsgBox "當前女dwmax:" & dwmax N Z 單項比賽，每個參賽單位限報： Z人!A@8 6(,kk Hko 加速創建報名P37$!,比賽|kT2$!,T2$!,'* *U2$!,'`U3$!,'b男子 . 0!2 .!,男子姓名 .!4'k .!,女子姓名 .!4' ykxMsgBox "行數:" & manstartMsgBox "行數:" & womenstart6MsgBox "行數:" & manlingsmax - (womenstart - manstart) d `      0%fB@h d     `  0%fB@jP女子 . 0!2 .!,女子姓名 .!4' k .!,電子報名補充說明: .!4'"yk d b "     0%fB@hX d "    b  0%fB@j l(nT2$(,kk禁止使用插入列功能On Error Resume NextcApplication.CommandBars("Worksheet Menu Bar").Controls("插入(I)").Controls("列(C)").Enabled = FalseOn Error GoTo 0禁止使用插入列功能Column l%p(r禁止使用插入行功能判斷U2$!,U3$!,row l%p(rh行(R)插入(I)Worksheet Menu Bar l%p%t%t(rdrow l%p(r行(R)插入(I)Worksheet Menu Bar l%p%t%t(rko毜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& 3Uxmid3 <= 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 覓喤畞唙'永,羐iFBL緄纮悕gsMT>Ux9翉, '訓C咵ach 燾c InS1.UsedA.KccっLike B"姓名U v=.Row%R,裑+鐳J?@1 盇+行+(GG&- (8 -O6"cei1鱭W魵 fs/3s(+ 2).Inser~t丄 壟-^ 罓2 wD齪2tre#v"鍩"觨4"a &電子A9補赤淥得鱬eN戰#or'(ob er3p脖endline - womenstart) + 1 ActiveSheet.Rows(2).Inser"tTNexFor ad = 1 To (1)俿max"tDeletetApplication.Scr@eenUpdn"gTru*Range("T2").Value End If '禁止使用插入列功能 'On ErrlResume v ' >CommandBars(@"Works仠 `Menu =C纎ntrol/(I) 列(CEnabledaQFals_@G:o0I慡朎Coplumn5,#;判斷 If MU M0 A繪E3匰0 T hen !ro>wJ Cf梀pV行(RKVL臮E耓0膅?11F1實Sub伕{瀨A4寧 瀨寧1(D旫逮麥4麥$(h麛匎ttT:逮(h麛4%T$ @T匎"裏#T64匎 旫T*(D旫逮麥4(h麥$麥匎4:逮(h麛4%T$ @T匎"裏$T64匎 旫4(+T$ @TW4$$瀨T瀨A4:h 鹽$54瀨A4瀨A4:h 鹽$54瀨A4 瀨1(D旫酤麥4麥$(h麛匎酏酏劄{:(h麛4%T$ @T匎"裏#T64匎 旫劄6*(D旫麥4(h麥$酤麥匎待:(h麛4%T$ @T匎"裏$T64匎 旫待 T! T %T&(D%T'X%:h%! T,T:滮:h&%狚T! T d%狚 H'滮 ()T狚滮gT'X%:h %! Ta4(D]/$狚'岧%:!%! 狚a匎(|]/l'\)T狚64匎:滮:h)%狚T! T d%狚 H'滮 ()T狚滮Klc岧%:D*%T:X+%X滮:h,%狚T! T d%狚 H'滮 (X ,-TrU 00) 1a! 9 Q i a ! 9 Q i  A  )Ii1YQyq 1 4a `` IW | l x&酤'%:%! 酤a軋瀨酤瀨(]3t+酤$ @酤W軋鞔逮寧酤寧A軋:鹽旫5軋寧A軋h寧A軋: 鹽旫5軋寧A軋X寧A軋: 鹽旫5軋寧A軋H 寧j*酤$ (酤a軋"齣8酤5軋!酤$ (酤a軋(酤(: ]鸃O (8酤'%: 8軋%! 酤a旫(3酤6軋旫(麛軋8酤'%: 8軋%! 酤a旫(3酤6軋旫(麛軋8酤'%:8軋%! 酤a旫(3酤6軋旫L(麛軋8酤'%:8軋%! 酤a旫(3酤6軋旫(麛軋8酤'%:8軋%! 酤a旫(3酤6軋旫(麛軋(]鹴M+'T'匎'旫:N軋軋 6軋旫匎T!: %酤$ (酤,酤 ( (D (4 ($ ( ( (酏 (潺(8h鹥軋8X(麥旫鸌匎'T 1H(麛軋TT劄H(麛旫ddh4 酤'%:劄軋%! 酤a匎0'd%:t 8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎T0酤'%:劄軋%! 酤a旫$酤5軋酤'%:劄軋%! 酤a匎0'd%:t 8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎T0酤'%:劄軋%! 酤a旫酤5軋酤'%:劄軋%! 酤a匎0'd%:t8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎Tb0酤'%:劄軋%! 酤a旫酤5軋酤'%:劄軋%! 酤a匎0'd%:t8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎T10酤'%:劄軋%! 酤a旫酏酤5軋酤'%:劄軋%! 酤a匎0'd%:t8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎T0酤'%:劄軋%! 酤a旫潺酤5軋 劄48X鹥軋8H鸌旫'匎u 1H(麛軋岦岦劄H(麛旫滭滭l黸 酤'%:劄軋%! 酤a匎0'd%:t 8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎T, 0酤'%:劄軋%! 酤a旫$酤5軋酤'%:劄軋%! 酤a匎0'd%:t 8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎T 0酤'%:劄軋%! 酤a旫酤5軋酤'%:劄軋%! 酤a匎0'd%:t8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎T 0酤'%:劄軋%! 酤a旫酤5軋酤'%:劄軋%! 酤a匎0'd%:t8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎T 0酤'%:劄軋%! 酤a旫酏酤5軋酤'%:劄軋%! 酤a匎0'd%:t8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎Th 0酤'%:劄軋%! 酤a旫潺酤5軋 劄l黖X$(]鹥軋(]鹥旫匎(t]鹥T 酏(d]鹥廳潺(龑]鹥鍵 (D$(]<軋$(d]鸌旫'匎(t]$ rlin@凘 "輸@凚 梢匝@凞酏 En@凢潺 ----@凥劄 !,@凧p凝 @凩@待 關鍵@凬 @凱旪 @凴匌 ,@凾t O@刅岥 @刋0| $@刏l h ^` T齩LGG) $ % %凗`%偁|%( X`8xH8`hX xP %(8068@ @ @酤 @*瀨 @軋 @.寧 @`逮 P@剝 x8@ `@ @o @旫 x@H匎 @0t @0d @T @d `L@T L@D L@4 L@x0 @H @` @ @瘺 @禳 @茳 @廳 @鍵 @ \@(滭 @`@P岦 h(`@x| P`@ l x` xp@\ @L @ < @X , @(  @@ @p @ 禧 @ 茺 @帖 @ 見 @ @滬 @ \ ( @8 L P  @` < x 8 @ , ` @\ @ @   @( 禚 @ @` 茭 P ( x ( @ 鐵 ` @ 賤 @ @ 滫  8 @H 岤 ` @ | p H H ` @ l @ \ @ L @0 < H  @X , p 0 @  X X @ @   @禊 0 @P薺 @h@x貼 P@踐 xx@ @滪  8h H x %0l@ h @PX @T @D @4 @$ @* @` @b酤 @.瀨 @0軋 8 @@玄 `  @p烴 H @h叁 p @寧o  @逮 @  H@d旫 @h匎 @Xt p0@d X@T @D @4 0@$ X@ @@ h@ @o @" &@0酏 H'@X潺 p0'@劄 X'X)@凝 *@待 *,@8 @ 狚 @滮 @P岧 @| @l @\ @X @T 0 h8@PH(鎈sN*\R1*#1c8$*\Rffff*0>5700f412*\R1*#2ac*\R1*#e8*\R0*#14*\R1*#d7*\R3*#8c*\R3*#4d*\R3*#4e*\R3*#4f4J00PJX0J0 @  H X ` p 1 J 0  J 0p  J 0  J 0`  J 0     8 X x  <X      % <+  !  *@&P h%p%%%8H%Pp <7 ! 0 &( @ 1X x 00% "8 @P Xh8 8 (8@`p x8  $ 67  !Xhp x 0 21  0 0@%` "x8 88H P`8x 8  88Xh p $ 67 !   ( "  0 80Ppx0& && + 0@H `px   " <&1:8 X&*`:  + " 0@H P&1X: &*:  &  ( 0 H jh  : (0gH:xHl:HmX` h x]h 加速創建報名$If Range("P37").Value <> "比賽" Then Exit SubEnd If鏇curline = ActiveCell.Rowc∴curxmname = ActiveCell.Value !If Range("B" & curline) = "" ThenActiveCell.Value = ""Range("B" & curline) = ""0MsgBox "輸入運動員姓名,然後才可以選擇參賽項目！"End If -------------T2$!,'* *----------查找關鍵字的行號 . 0!2 .!,男子姓名!Sheet2.Cells(i, 1).Value = cc.Row .!4'k .!,女子姓名!Sheet2.Cells(i, 1).Value = cc.Row .!4' kH .!,電子報名補充說明:!Sheet2.Cells(i, 1).Value = cc.Row .!4'"yk 6!4'$ 6!,'&MsgBox "男子開始行:" & manstart!MsgBox "女子開始行:" & womenstartMsgBox "結束行:" & endline$MsgBox "當前單元格的行號:" & curlineMsgBox "當前值:" & curxmname'-----------------當前行項目名稱重復次數 &'(C $$ & ( '(khD $$ & ( '(k0E $$ & ( '(kF $$ & ( '(kG $$ & ( '(k ( "同一名運動員重復報相同的比賽項目！A@8 6(,'(k(k -----------------是否與全能沖突]':'<](@Xp'>'@'B'D'F]0男子 $  $   H " " N H$!,C $$N H$!,Q H$!,'>kN H$!,D $$N H$!,Q H$!,'@k N H$!,E $$N H$!,Q H$!,'BkN H$!,F $$N H$!,Q H$!,'Dk0N H$!,G $$N H$!,Q H$!,'Fk Hk女子 $  $ " H " " O H$!,C $$O H$!,R H$!,'>kO H$!,D $$O H$!,R H$!,'@khO H$!,E $$O H$!,R H$!,'BkO H$!,F $$O H$!,R H$!,'DkxO H$!,G $$O H$!,R H$!,'Fk HkMsgBox "xmid1:" & xmid1MsgBox "xmid2:" & xmid2MsgBox "xmid3:" & xmid3MsgBox "xmid4:" & xmid4MsgBox "xmid5:" & xmid5 > @  B  D  F ':k > >d @ @d B Bd D Dd F Fd'<k` : <2同一名運動員不能同時參加全能項目和其它單項的比賽！A@8 6(,k#-----------------運動員限報數量檢測]H`S3$!,'X'V > >d V 'VkX @ @d V 'Vk  B Bd V 'Vk D Dd V 'Vk F Fd V 'Vkx V X 每名參賽運動員限報： X個單項,可兼報接力!A@8 6(,k*-----------------參賽單位限報數量檢測-男子]xS2$!,'ZMsgBox dwxbmax H " " 'N'PN H$!,'JQ H$!,'\ J \dMsgBox "項目名稱:" & xmname R  C R$ J N 'Nk R R  D R$ J N 'NkH R R  E R$ J N 'Nk R R  F R$ J N 'Nk R R  G R$ J N 'Nk( RMsgBox "當前男dwmax:" & dwmax N Z 單項比賽，每個參賽單位限報： Z人!A@8 6(,k k H*-----------------參賽單位限報數量檢測-女子,Dim xmi, xmname, xmid, dwmax, ydymax, i1, i2 H " " 'N'PO H$!,'JR H$!,'\ J \dMsgBox "項目名稱:" & xmname R  "C R$ J N 'Nk R R  "D R$ J N 'Nk R R  "E R$ J N 'NkP R R  "F R$ J N 'Nk R R  "G R$ J N 'Nk RMsgBox "當前女dwmax:" & dwmax N Z 單項比賽，每個參賽單位限報： Z人!A@8 6(,kk Hko 加速創建報名P37$!,比賽|kT2$!,T2$!,'* *U2$!,'`U3$!,'b男子 . 0!2 .!,男子姓名 .!4'k .!,女子姓名 .!4' ykxMsgBox "行數:" & manstartMsgBox "行數:" & womenstart6MsgBox "行數:" & manlingsmax - (womenstart - manstart) d `      0%fB@h d     `  0%fB@jP女子 . 0!2 .!,女子姓名 .!4' k .!,電子報名補充說明: .!4'"yk d b "     0%fB@hX d "    b  0%fB@j l(nT2$(,kk禁止使用插入列功能On Error Resume NextcApplication.CommandBars("Worksheet Menu Bar").Controls("插入(I)").Controls("列(C)").Enabled = FalseOn Error GoTo 0禁止使用插入列功能Column l%p(r禁止使用插入行功能判斷U2$!,U3$!,row l%p(rh行(R)插入(I)Worksheet Menu Bar l%p%t%t(rdrow l%p(r行(R)插入(I)Worksheet Menu Bar l%p%t%t(rko毜Attribute VB_Name = "She@et5" 鐱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& 3Uxmid3 <= 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 覓喤畞唙'永,羐iFBL緄纮悕gsMT>Ux9翉, '訓C咵ach 燾c InS1.UsedA.KccっLike B"姓名U v=.Row%R,裑+鐳J?@1 盇+行+(GG&- (8 -O6"cei1鱭W魵 fs/3s(+ 2).Inser~t丄 壟-^ 罓2 wD齪2tre#v"鍩"觨4"a &電子A9補赤淥得鱬eN戰#or'(ob er3p脖endline - womenstart) + 1 ActiveSheet.Rows(2).Inser"tTNexFor ad = 1 To (1)俿max"tDeletetApplication.Scr@eenUpdn"gTru*Range("T2").Value End If '禁止使用插入列功能 'On ErrlResume v ' >CommandBars(@"Works仠 `Menu =C纎ntrol/(I) 列(CEnabledaQFals_@G:o0I慡朎Coplumn5,#;判斷 If MU M0 A繪E3匰0 T hen !ro>wJ Cf梀pV行(RKVL臮E耓0膅?11F1實Sub伕__SRP_ae!__SRP_b&_VBA_PROJECT)WdirgL{瀨A4寧 瀨寧1(D旫逮麥4麥$(h麛匎ttT:逮(h麛4%T$ @T匎"裏#T64匎 旫T*(D旫逮麥4(h麥$麥匎4:逮(h麛4%T$ @T匎"裏$T64匎 旫4(+T$ @TW4$$瀨T瀨A4:h 鹽$54瀨A4瀨A4:h 鹽$54瀨A4 瀨1(D旫酤麥4麥$(h麛匎酏酏劄{:(h麛4%T$ @T匎"裏#T64匎 旫劄6*(D旫麥4(h麥$酤麥匎待:(h麛4%T$ @T匎"裏$T64匎 旫待 T! T %T&(D%T'X%:h%! T,T:滮:h&%狚T! T d%狚 H'滮 ()T狚滮gT'X%:h %! Ta4(D]/$狚'岧%:!%! 狚a匎(|]/l'\)T狚64匎:滮:h)%狚T! T d%狚 H'滮 ()T狚滮Klc岧%:D*%T:X+%X滮:h,%狚T! T d%狚 H'滮 (X ,-TrU `0) 1a! 9 Q i a ! 9 Q i  A  )Ii1YQy 1 4a ``  I  W | l x&酤'%:%! 酤a軋瀨酤瀨(]3t+酤$ @酤W軋鞔逮寧酤寧A軋:鹽旫5軋寧A軋h寧A軋: 鹽旫5軋寧A軋X寧A軋: 鹽旫5軋寧A軋H 寧j*酤$ (酤a軋"齣8酤5軋!酤$ (酤a軋(酤(: ]鸃O (8酤'%: 8軋%! 酤a旫(3酤6軋旫(麛軋8酤'%: 8軋%! 酤a旫(3酤6軋旫(麛軋8酤'%:8軋%! 酤a旫(3酤6軋旫L(麛軋8酤'%:8軋%! 酤a旫(3酤6軋旫(麛軋8酤'%:8軋%! 酤a旫(3酤6軋旫(麛軋(]鹴M+'T'匎'旫:N軋軋 6軋旫匎T!: %酤$ (酤,酤 ( (D (4 ($ ( ( (酏 (潺(8h鹥軋8X(麥旫鸌匎'T 1H(麛軋TT劄H(麛旫ddh4 酤'%:劄軋%! 酤a匎0'd%:t 8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎T0酤'%:劄軋%! 酤a旫$酤5軋酤'%:劄軋%! 酤a匎0'd%:t 8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎T0酤'%:劄軋%! 酤a旫酤5軋酤'%:劄軋%! 酤a匎0'd%:t8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎Tb0酤'%:劄軋%! 酤a旫酤5軋酤'%:劄軋%! 酤a匎0'd%:t8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎T10酤'%:劄軋%! 酤a旫酏酤5軋酤'%:劄軋%! 酤a匎0'd%:t8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎T0酤'%:劄軋%! 酤a旫潺酤5軋 劄48X鹥軋8H鸌旫'匎u 1H(麛軋岦岦劄H(麛旫滭滭l黸 酤'%:劄軋%! 酤a匎0'd%:t 8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎T, 0酤'%:劄軋%! 酤a旫$酤5軋酤'%:劄軋%! 酤a匎0'd%:t 8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎T 0酤'%:劄軋%! 酤a旫酤5軋酤'%:劄軋%! 酤a匎0'd%:t8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎T 0酤'%:劄軋%! 酤a旫酤5軋酤'%:劄軋%! 酤a匎0'd%:t8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎T 0酤'%:劄軋%! 酤a旫酏酤5軋酤'%:劄軋%! 酤a匎0'd%:t8旫%! 0齛T/ 禳'瘺%:劄%! 禳a廳:茳 ]<鍵')酤06 軋旫匎Th 0酤'%:劄軋%! 酤a旫潺酤5軋 劄l黖X$(]鹥軋(]鹥旫匎(t]鹥T 酏(d]鹥廳潺(龑]鹥鍵 (D$(]<軋$(d]鸌旫'匎(t]5700f412} Sheet5zx]FxH0`譁紁|旂J昦m"榝纝H$旿傊5豬﹄N6lG寫4礥`岔黔#繀L峃笡和|(#涶侍I珺祵R庅盳儵3D﹪i妉hPQ0 Excel+` VBA麾`Win16羱`Win32`Mac巢`VBA6#` VBAProject究`stdole揱`Officeu` ThisWorkbook|鉦 _evalsuate賎 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≡`Worksheet_SelectionChange4` manlingsmax糽` womenlinesmax骮addlinei8`Rows`Insert謗`Delete竫` Application*`ScreenUpdating! ` CommandBars `Enabled酈`Controls蘇` Sheet2` Sheet3` Sheet4` Sheet5`Sheet6`Sheet7`Sheet8`Workbookk` Worksheet窿`ChangeＧ`SelectionChange鉵`_B_var_addlinsvalid檫` _B_var_cco馺_Defaultj耟_B_var_xmnameid*琡_B_var_manlingsmax^`_B_var_womenlinesmax溓`_B_var_manstart閈`_B_var_womenstart擥`_B_var_addlineiS`_B_var_endline `Item讂` wy{}  lH瞼0* pHd VBAProje坈t4@j = r 鎈sN J< rstdole>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\OFFICE11\MSO.0DLL#僊 1@1.0 Ob伭 LibraryKE傇偍ThisWorkbookGT玦sW硆kbUo 2 QHB1Bx野B,!:"B+BB|Sheet1G S@#e@Xt1H2N]FTT 222I2v3U333歇a444R48m 5 55 5 5 釫z 揔*yrU~~~~~~~~~~~~~~~~6 /@嚠徻癸 儕a a儕a a!儕a a!__SRP_0q __SRP_1PROJECTwmPROJECT#)儕a a!A儕a a!Y儕a a!qqi VBAProject ThisWorkbookSheet1Sheet2Sheet3Sheet4Sheet5Sheet6Sheet7Sheet8F /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  a`F4C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXEExcel ip0FC:\WINDOWS\system32\stdole2.tlbstdole  QL續-鶾藉D轗?C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLLOffice qF2擬rJ9疎雇稾K栶 F\姿/3凜笰}壪$]DF WorksheetWorksheet_ChangeFFWorksheet_SelectionChange @ T2FFUsedRange Value 7uP[覻 TRow sYP[覻 T 5uP[ Te圗Q魦f:  C D E F G " TN T袕≧XT蛻 Y鴙 T剉詋[峺橆v 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 篘!VBE6.DLL A S E港拖Cぁ瓟：NU飮)萃oD晇#?(44j凲軺F-b1aK螺7vh〞綮俺 ,烉9q%{uL喍#iT刋颭癅A抌?+﨧霤鉉怶蟢鑥砨1?瓻塊_盩~ 楲繈圔洴婂1n*.?獳巕^W  虤昄塴ＵC@Uc1阿,IE渘E簵爓P楱"蠳軛鯫劰F/ㄢ旬J.I蟵MFX[`.任E尞+慢IDFWorkbook P37 詋[ U2 U3Rows Insert DeleteF Column F F row L(R) 襝eQ(I) $Worksheet Menu Bar FControlsEnabled&rU~~~y      Target (eThisWorkbookThisWorkbookSheet1Sheet1Sheet2Sheet2Sheet3Sheet3Sheet4Sheet4Sheet5Sheet5ID="{00000000-0000-0000-0000-000000000000}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Document=Sheet2/&H00000000 Document=Sheet3/&H00000000 Document=Sheet4/&H00000000 Document=Sheet5/&H00000000 HelpFile="" Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="8E8C22B63ECAC8CEC8CECDD3CDD3" DPB="1C1EB044B0CFCDCFCD3033D0CDEFBCB1BD3239DF38C303C612A4422C933D83D4B9DD1C26E2C4" GC="AAA806DA95DB95DB95" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=0, 0, 0, 0, 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, 鄥燆鵒h珣+'遲0 X`x 上海索美軟件上海索美軟件上海索美軟件UserMicrosoft ExcelSummaryInformation(,DocumentSummaryInformation8,CompObjj@E靖D@9q囕@り宄囆脹諟.摋+,0 PXd lt| slh'  學生本科組 研究生組 教工青年組 教工中年組 教工益壯組 工作表 FMicrosoft Office Excel 工作表Biff8Excel.Sheet.89瞦