邢唷> 
?
>   !"#$%&'()*+,-./0123456789:;<�=n}
ABCESGHIJKLMNOPQRDTUVWXYZ[\]^_`abcdefghijklmprstuvwxyz{|}~oRoot Entry F鎚鋒~c
餺c
@0Workbook
蘶_VBA_PROJECT_CUR"


p<軏c
嚅=輯c
VBA
PfH軏c
*輯c
 衫\pUser Ba

=


ThisWorkbook

=h
J
{9"8
X@"

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 @  `
;
f[u,g褃膥.
xvzu膥A
Ye錧R梩^膥
Ye錧-Nt^膥^e
Ye錧蕍頧膥VV




"
Z餜


3
A
@@  [
N詋[嵞~+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:
72
0覻 T孴耂[峺橆v/f臺kX剉y橆vvQ僛酧o`颯錘 愰b'`kX橯0
73
0 T筽鸔耂[峺橆vN蒪FhsS颯0{|媁 NkX橯貫:N<�詋[>0
74
0鲖 N亯鹠燫Rb頞9e Th>>>>>>>? 7

81222222223 7

8 :-;;;;;;;;<�  
                 
            DlXzp....B""""""""""""""""""""" 

!

"

#

$

%

&

'

(

)

*

+

,

-

.

/

0 

1 

2 

3 

4 

5 

  !"
!
# !4,!555555556 "$%
"("))))))))* #$%
#(#++++++++, # ! #" ## #$ #% $&'
$-$......../ $ . $. $@$@@ % / %/ %A%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@ . 8~ .@Y@ / 9~ /Y@ 0 :~ 0@^@ 1 ;~ 1^@ 2 <�~ 2繼@ 3 =~ 3_@ 4 >~ 4@_@ 5 ?~ 5_@0
"B8~x@@^^RRRRRP餒

0(
 >@



!!




!$
""##$$''
((
--
))
**
++
,,
7

7




%$%  
/




%$ 

/




%$
 
Sheet1gg
hPh (-
 
:S遅1_1  衫//~9> 
d
褚MbP?_
*+
%
"



??

c
勌U}` }

}@}}} } } }}} @}}
/




w

w

w

w

w

w



 

 





 





































 0+
00000000000   



(
9)
999999999

@?
 7
81222222223 ~ @
~   7
81222222223 7
81222222223 7
8=>>>>>>>>? 7

81222222223 7

8 :B;;;;;;;;<�  
                 
            DlXzp....B""""""""""""""""""""" 

!

"

#

$

%

&

'

(

)

*

+

,

-

.

  !"
!
# !4,!555555556 "$%
"("))))))))* #$%
#(#++++++++, # ! #" ## #$ #% $&'
$-$......../ $ . $. $@$@@ % / %1 %A%5@7@ & & 1 &4&7@N@ '
'  ' 4 '5'N@繯@ (
(  ( 5 (7(繯@@R@)
!!!!!!!!!!! ) 7 )8)@R@@Y@*
 * 8~ *@Y@+
,
-
!!!!!!!!!!!"
"B8~x@@^^R<� >@
''




!$
!!

++
,,
--


((
))
**
""##$$7

/




%$
 
/




%$ 

7




%$%  
Sheet2gg
hTh (-
 
:S遅1_1_1  衫/餉蠯8Q 
d
褚MbP?_
*+
%
"



??

c
勌U}` }

}@}}} } } }}} @}}
/




w

w

w

w

w

w



 

 





 





































 0+
00000000000   



&
9*
999999999

@?
 7
81222222223 ~ @
~   7
81222222223 7
81222222223 7
8=>>>>>>>>? 7

81222222223 7

8 :D;;;;;;;;<�  
                 
            DlXzp....B""""""""""""""""""""" 

!

"

#

$

%

&

'

(

)

*

+

,

-

.

  !"
!
# !4C!555555556 "$%
"("))))))))* #$%
#(#++++++++, # ! #" ## #$ #% $&'
$-$......../ $ . $. $@$@@ % / %/ %A%5@5@ & & 1 &4&7@N@ '
'  ' 4 '5'N@繯@ (
(  ( 5 (7(繯@@R@)
!!!!!!!!!!! ) 7 )8)@R@@Y@*
 * 8~ *@Y@+
 + E~ +繽@,
 , F~ ,`@-
!!!!!!!!!!!" 
"B8~x@@^^R<�<�<� >@
''




!$
!!

++
,,
--


((
))
**
""##$$7

/




%$
 
/




%$ 

7




%$%  
Sheet3gg
hTh (-
 
:S遅1_1_1  衫/zTZ^鬮 
d
褚MbP?_
*+
%
"



??

c
勌U}` }

}@}}} } } }}} @}}
/




w

w

w

w

w

w



 

 





 





































 0+
00000000000   



&
9*
999999999

@?
 7
81222222223 ~ @
~   7
81222222223 7
81222222223 7
8=>>>>>>>>? 7

81222222223 7

8 :H;;;;;;;;<�  
                 
            DlXzp....B""""""""""""""""""""" 

!

"

#

$

%

&

'

(

)

*

+

,

-

.

  !"
!
# !4G!555555556 "$%
"("))))))))* #$%
#(#++++++++, # ! #" ## #$ #% $&'
$-$......../ $ . $. $@$@@ % 1 %5 %A%7@繯@ & & 5 &7&繯@@R@ '
'  ' 7~ '@R@ (
( )
!!!!!!!!!!!*
+
,
-
!!!!!!!!!!!"R
"B8~x@@H, >@
''




!$
!!

++
,,
--


((
))
**
""##$$7

/




%$
 
/




%$ 

7




%$%  
Sheet4gg
hTh (-
 
:S遅1_1_1  衫/6fpbt 
d
褚MbP?_
*+
%
"



??

c
勌U}` }

}@}}} } } }}} @}}
/




w

w

w

w

w

w



 

 





 





































 0+
00000000000   



(
9)
999999999

@?
 7
81222222223 ~ @
~   7
81222222223 7
81222222223 7
8=>>>>>>>>? 7

81222222223 7

8 :J;;;;;;;;<�  
                 
            DlXzp....B""""""""""""""""""""" 

!

"

#

$

%

&

'

(

)

*

+

,

-

.

  !"
!
# !4I!555555556 "$%
"("))))))))* #$%
#(#++++++++, # ! #" ## #$ #% $&'
$-$......../ $ K $K $@$繰@繰@ % L %M %A%S@@S@ & '
'  (
( )
!!!!!!!!!!!*
+
,
-
!!!!!!!!!!!"
"B8~x@,, >@
''




!$
!!

++
,,
--


((
))
**
""##$$7

/




%$
 
/




%$ 

7




%$%  
Sheet5gg
hTh (-
 
:S遅1_1_1 ThisWorkbook
__SRP_d
0
__SRP_c
BSheet1
FS
  !"$%'(*+,-./0123456789:;<�=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefhijklmnoprstuvwxyz{|}~


<jx
枈:#

<�r挘AO稌ZF
瘬!NG綅.5姼

x 瘬!NG綅.5姼r挘AO稌ZME

(SL
S
S6"


N0{00020819-0000-0000-C000-000000000046}

(
%H凗`%偁%`
h8@TT
0鎈sN
$*\Rffff*0H55157af2
4


x
鞍Attribute VB_Name = "ThisWorkbook" 孊as
0{00020P819-0C
$0046} |Global
Spac
扚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  * " .HX8`888(88@`px,+! &  (HPX`h,p (1J0@`Jh0


WF
枈T #

<�:摙JTL皊;0+( F
ktq邔J籲舾 

xktq邔J籲舾 聢:摙JTL皊;0+(ME

4[L
S
S86"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齩L
GG

)% 
%凗`%偁%(
X
`

8xH8`hX xP%(8068@ @ @酤 @*瀨@軋 @.寧@`逮 P@剝 x8@ `@ @o @旫 x@H匎 @0t @0d @T @d `L@T L@D L@4 L@x0 @H  @` @ @瘺 @禳 @茳 @廳 @鍵 @ \@(滭 0 @` xmna@P岦 ).Vah(`eid = @x| ue P`<> "" @ l Thenx`"項目 xpname @\ rt T@L ge("@ < en @X , @(  @@  To e@p  "D" @ 禧 @ 茺 En@帖 For@ 見 endl@  & i@滬 dwm@ \ nd I( i1 @8 L t ToP  If @` < namex 8 dwmax @ , If ` F@\
o en@  G" & ame Th@ + 1 f  'Msg@(禚 dwm@dwmax @`茭 sgBoP(扛x(薇ǎ"@鐵 A`Value @賤 If  E Sub @ eet_hange(@ 滫 e)  I837").V@H岤 Exi`  If I@| = 0 pHinsvalH("T2")` addli@l nlinnge("U@\ smaxU3").V@ L Eac tiveSh@0 < cc.VH  "男子蠤X , t = p 0 End If@  "女 X en X = cc.@  nd I 'Ms@  art "行數 start @禊 man0 (wome@P薺 Fo@ = 1 Thmax - @x貼 rt) PiveShe@踐 ).Inxxt xei = 1@ nstamanlin@滪 .Row + 2).Next  For E8h H x End% addli0l women@ 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:55157aca
*\R1*#2ac
*\R1*#e8
*\R0*#14
*\R1*#d7
*\R3*#8c
*\R3*#4d
*\R3*#4e
*\R3*#4f
4
J00PJX0J0 @  H X ` p 1 J 0  J 0p  J 0 J0`J0   8 X x  <�X    % <�+ !  *@&Ph%p%%%8H%Pp <�7! 0 &( @ 1Xx00% "8 @P Xh8 8 (8@`p x8  $ 67 !Xhp x 0 210 0@%` "x8 88H P`8x 8  88Xh p $ 67!   ( " 0 80Ppx0&&& +0@H`px  " <�&1:8X&*`: +"0@HP&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 $$
& (
'(kh
D $$
& (
'(k0
E $$
& (
'(k
F $$
& (
'(k
G $$
& (
'(k (
"同一名運動員重復報相同的比賽項目🫀！A@8
6(,'(k(k -----------------是否與全能沖突]
':'<](
@
X
p

'>'@'B'D'F]



0男子 $  $ 
 H " "
N H$
!,
C $$

N H$
!,
Q H$
!,'>k
N H$
!,
D $$

N H$
!,
Q H$
!,'@k
N H$
!,
E $$

N H$
!,
Q H$
!,'Bk
N H$
!,
F $$

N H$
!,
Q H$
!,'Dk0
N H$
!,
G $$

N H$
!,
Q H$
!,'Fk Hk女子 $  $ " H " "
O H$
!,
C $$

O H$
!,
R H$
!,'>k
O H$
!,
D $$

O H$
!,
R H$
!,'@kh
O H$
!,
E $$

O H$
!,
R H$
!,'Bk
O H$
!,
F $$

O H$
!,
R H$
!,'Dkx
O 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'P
N H$
!,'J
Q 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'P
O H$
!,'J
R 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%f
B@h d
 
 `  0%f
B@jP女子 . 0!2 .!,女子姓名 .!4' k .!,電子報名補充說明: .!4'"yk d
b " 
  0%f
B@hX d
" 
 b  0%f
B@j l(n
T2$
(,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別nExit
U
nd If4淎ctCel鄉.RowB" &,)"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颮棐`d
2

f
3
3<4
4
>5
0q92A40 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!wome
b $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盇
+行+
(G
G
&- (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"t
TNexFor ad = 1 To (1)
俿max"tDelete
tApplication.Scr@eenUpdn"gTru*Range("T2").Value
End If '禁止使用插入列功能 'On ErrlResume v ' >CommandBars(@"Works仠 `Menu =C纎ntrol/(I) 列(C
EnabledaQFals_@G:o0I慡朎Coplumn5,#
;判斷 If MU M0 A繪E3匰0 T hen !ro>wJ Cf梀pV行(RKVL臮E耓0膅?11F1實Sub伕__SRP_2
 q!__SRP_3
Sheet2
 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 ,-TrU 00) 1a! 9 Q i a ! 9 Q i
A  )Ii
1YQy


1Y4a
 `
`
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軋旫匎T0酤'%:劄軋%!

酤a旫酏酤5軋酤'%:劄軋%!

酤a匎0'd%:t8旫%!

0齛T/ 禳'瘺%:劄%!

禳a廳:茳]<鍵')酤06軋旫匎Th0酤'%:劄軋%!

酤a旫潺酤5軋劄l黖X$(]鹥軋(]鹥旫匎(t]鹥T 酏(d]鹥廳潺(龑]鹥鍵(
D$(]<軋$(d]鸌旫'匎(t]$@凘@凚@凞酏@凢潺@凥
劄@凧p
凝@凩@
待@凬@凱旪@凴
匌@凾
t@刅岥@刋0|@刏l^
` T齩L
GG

)% 
%凗`%偁v%(
X
`

8xH8`hX xP軋%(8!:068酤,@ @ @酤 兀*瀨潺(@軋 麥擛.寧@`逮 麛Ph4@剝 %! 恱80鼲

`/ 禳@
茳]鸃o 軋旔0鬇旫

x$鬇H匎 劄鸃0t 0'@0d
0@T @d `L'@T L%:@D L@4

L0'd@x0 0鼲H  @` :@ 0麫瘺 酤'@禳
鬇茳 鬇廳

@鍵 8@ /\訞(滭 @`@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;55157acd
*\R1*#2ac
*\R1*#e8
*\R0*#14
*\R1*#d7
*\R3*#8c
*\R3*#4d
*\R3*#4e
*\R3*#4f
4
J00PJX0J0 @  H X ` p 1 J 0  J 0p  J 0 J0`J0   8 X x  <�X    % <�+ !  *@&Ph%p%%%8H%Pp <�7! 0 &( @ 1Xx00% "8 @P Xh8 8 (8@`p x8  $ 67 !Xhp x 0 210 0@%` "x8 88H P`8x 8  88Xh p $ 67!   ( " 0 80Ppx0&&& +0@H`px  " <�&1:8X&*`: +"0@HP&1X:&*: &  ( 0 H jh  : (0gH:xHl:HmX` h

x]h加速創建報名$If Range("P37").Value <> "比賽" ThenExit SubEnd If鏇curline = ActiveCell.Rowcurxmname = 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 $$
& (
'(kh
D $$
& (
'(k0
E $$
& (
'(k
F $$
& (
'(k
G $$
& (
'(k (
"同一名運動員重復報相同的比賽項目！A@8
6(,'(k(k -----------------是否與全能沖突]
':'<](
@
X
p

'>'@'B'D'F]



0男子 $  $ 
 H " "
N H$
!,
C $$

N H$
!,
Q H$
!,'>k
N H$
!,
D $$

N H$
!,
Q H$
!,'@k
N H$
!,
E $$

N H$
!,
Q H$
!,'Bk
N H$
!,
F $$

N H$
!,
Q H$
!,'Dk0
N H$
!,
G $$

N H$
!,
Q H$
!,'Fk Hk女子 $  $ " H " "
O H$
!,
C $$

O H$
!,
R H$
!,'>k
O H$
!,
D $$

O H$
!,
R H$
!,'@kh
O H$
!,
E $$

O H$
!,
R H$
!,'Bk
O H$
!,
F $$

O H$
!,
R H$
!,'Dkx
O 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'P
N H$
!,'J
Q 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'P
O H$
!,'J
R 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%f
B@h d
 
 `  0%f
B@jP女子 . 0!2 .!,女子姓名 .!4' k .!,電子報名補充說明: .!4'"yk d
b " 
  0%f
B@hX d
" 
 b  0%f
B@j l(n
T2$
(,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別nExit
U
nd If4淎ctCel鄉.RowB" &,)"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梬`d
2

f
3U
3<4
4
5
0q92A40 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!wome
b $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盇
+行+
(G
G
&- (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"t
TNexFor ad = 1 To (1)
俿max"tDelete
tApplication.Scr@eenUpdn"gTru*Range("T2").Value
End If '禁止使用插入列功能 'On ErrlResume v ' >CommandBars(@"Works仠 `Menu =C纎ntrol/(I) 列(C
EnabledaQFals_@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  )Ii
1YQy


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軋旫匎T0酤'%:劄軋%!

酤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@刅岥@刋0|@刏l^
` T齩L
GG

)% 
%凗`%偁x%(
X
`

8xH8`hX xP軋%(8!:068酤,@ @ @酤 兀*瀨潺(@軋 麥擛.寧@`逮 麛Ph4@剝 %! 恱80鼲

`/ 禳@
茳]鸃o 軋旔0鬇旫

x$鬇H匎 劄鸃0t 0'@0d
0@T @d `L'@T L%:@D L@4

L0'd@x0 0鼲H  @` :@ 0麫瘺 酤'@禳
鬇茳 鬇廳

@鍵 8@ /\訞(滭 @`@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<�55157acf
*\R1*#2ac
*\R1*#e8
*\R0*#14
*\R1*#d7
*\R3*#8c
*\R3*#4d
*\R3*#4e
*\R3*#4f
4
J00PJX0J0 @  H X ` p 1 J 0  J 0p  J 0 J0`J0   8 X x  <�X    % <�+ !  *@&Ph%p%%%8H%Pp <�7! 0 &( @ 1Xx00% "8 @P Xh8 8 (8@`p x8  $ 67 !Xhp x 0 210 0@%` "x8 88H P`8x 8  88Xh p $ 67!   ( " 0 80Ppx0&&& +0@H`px  " <�&1:8X&*`: +"0@HP&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 $$
& (
'(kh
D $$
& (
'(k0
E $$
& (
'(k
F $$
& (
'(k
G $$
& (
'(k (
"同一名運動員重復報相同的比賽項目👨‍🦱！A@8
6(,'(k(k -----------------是否與全能沖突]
':'<](
@
X
p

'>'@'B'D'F]



0男子 $  $ 
 H " "
N H$
!,
C $$

N H$
!,
Q H$
!,'>k
N H$
!,
D $$

N H$
!,
Q H$
!,'@k
N H$
!,
E $$

N H$
!,
Q H$
!,'Bk
N H$
!,
F $$

N H$
!,
Q H$
!,'Dk0
N H$
!,
G $$

N H$
!,
Q H$
!,'Fk Hk女子 $  $ " H " "
O H$
!,
C $$

O H$
!,
R H$
!,'>k
O H$
!,
D $$

O H$
!,
R H$
!,'@kh
O H$
!,
E $$

O H$
!,
R H$
!,'Bk
O H$
!,
F $$

O H$
!,
R H$
!,'Dkx
O 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'P
N H$
!,'J
Q 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'P
O H$
!,'J
R 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%f
B@h d
 
 `  0%f
B@jP女子 . 0!2 .!,女子姓名 .!4' k .!,電子報名補充說明: .!4'"yk d
b " 
  0%f
B@hX d
" 
 b  0%f
B@j l(n
T2$
(,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別nExit
U
nd If4淎ctCel鄉.RowB" &,)"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颮棐`d
2

f
3
3<4
4
>5
0q92A40 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!wome
b $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盇
+行+
(G
G
&- (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"t
TNexFor ad = 1 To (1)
俿max"tDelete
tApplication.Scr@eenUpdn"gTru*Range("T2").Value
End If '禁止使用插入列功能 'On ErrlResume v ' >CommandBars(@"Works仠 `Menu =C纎ntrol/(I) 列(C
EnabledaQFals_@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  )Ii
1YQy


! 1I 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軋旫匎T0酤'%:劄軋%!

酤a旫酏酤5軋酤'%:劄軋%!

酤a匎0'd%:t8旫%!

0齛T/ 禳'瘺%:劄%!

禳a廳:茳]<鍵')酤06軋旫匎Th0酤'%:劄軋%!

酤a旫潺酤5軋劄l黖X$(]鹥軋(]鹥旫匎(t]鹥T 酏(d]鹥廳潺(龑]鹥鍵(
D$(]<軋$(d]鸌旫'匎(t]
?
@
A
B
C
D
6
F
G
H
I
J
K
L
M
N
O
P
Q
R
S
T
U
V
W
X
Y
Z
[
\
]
^
_
|
b
q
d
e
f
g
h
i
j
k
l
m
n
o
p
a
s
t
u
v
w
x
y
z
{
~






WF
枈8m#

<�糏餧腆綥妶 3 F
`7L骿E縸磶<蕟

x `7L骿E縸磶<蕟糏餧腆綥妶 3ME

4[L
S
S86"LLLLL<8<<�<�


N0{00020820-0000-0000-C000-000000000046}

`滪k@H


)`!,%@h$@ X顯"hHveCe@$8ame @&(@(jHr@:DAc@<4@>$rlin@凘 "輸@凚梢匝@凞酏En@凢潺----@凥
劄!,@凧p
凝@凩@
待關鍵@凬@凱旪男子@凴
匌.Cel@凾
tRow@刅岥
@刋0|@刏l, 1)^
` T齩L
GG

).Cel% 
%凗`%偁z%(
X
`

8xH8`hX xP禳%(8

068]<鍵@ @ 鐫@酤 $鬇*瀨劄鸃軋 0'@.寧
0@`逮 P

霡剝 x8軋旫@ :`

@ 劄@o 0'd旫%!@旫 禳'饃%!@H匎 ]<粿0t @0d @T @d %:`L!

@T 8L
0齛@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@ 滫 劄
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=55157ad0
*\R1*#2ac
*\R1*#e8
*\R0*#14
*\R1*#d7
*\R3*#8c
*\R3*#4d
*\R3*#4e
*\R3*#4f
4
J00PJX0J0 @  H X ` p 1 J 0  J 0p  J 0 J0`J0   8 X x  <�X    % <�+ !  *@&Ph%p%%%8H%Pp <�7! 0 &( @ 1Xx00% "8 @P Xh8 8 (8@`p x8  $ 67 !Xhp x 0 210 0@%` "x8 88H P`8x 8  88Xh p $ 67!   ( " 0 80Ppx0&&& +0@H`px  " <�&1:8X&*`: +"0@HP&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!2id
.!,男子姓名!Sheet2.Cells(i, 1).Value = cc.Row .!4' k
.!,女子姓名!Sheet2.Cells(i, 1).Value = cc.Row .!4' BkH
.!,電子報名補充說明: !Sheet2.Cells(i, 1).Value = cc.Row .!4'"
yk 6!4'$同時 6!,'&和其MsgBox "男子開始行:" & manstart!MsgBox "女子開始行:" & womenstartMsgBox "結束行:" & endline$MsgBox "當前單元格的行號:" & curline >MsgBox "當前值:" & curxmname'-----------------當前行項目名稱重復次數 &'(
C $$
& (
'(kh
D $$
& (
'(k0
E $$
& (
'(k
F $$
& (
'(k
G $$
& (
'(k (
"同一名運動員重復報相同的比賽項目！A@8
6(,'(k(k -----------------是否與全能沖突]
':'<](
@
X
p

'>'@'B'D'F]



0男子 $  $ 
 H " "
N H$
!,
C $$

N H$
!,
Q H$
!,'>k
N H$
!,
D $$

N H$
!,
Q H$
!,'@k
N H$
!,
E $$

N H$
!,
Q H$
!,'Bk
N H$
!,
F $$

N H$
!,
Q H$
!,'Dk0
N H$
!,
G $$

N H$
!,
Q H$
!,'Fk Hk女子 $  $ " H " "
O H$
!,
C $$

O H$
!,
R H$
!,'>k
O H$
!,
D $$

O H$
!,
R H$
!,'@kh
O H$
!,
E $$

O H$
!,
R H$
!,'Bk
O H$
!,
F $$

O H$
!,
R H$
!,'Dkx
O 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'P
N H$
!,'J
Q 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'P
O H$
!,'J
R 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%f
B@h d
 
 `  0%f
B@jP女子 . 0!2 .!,女子姓名 .!4' k .!,電子報名補充說明: .!4'"yk d
b " 
  0%f
B@hX d
" 
 b  0%f
B@j l(n
T2$
(,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別nExit
U
nd If4淎ctCel鄉.RowB" &,)"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颮棐`d
2

f
3
3<4
4
>5
0q92A40 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!wome
b $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盇
+行+
(G
G
&- (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"t
TNexFor ad = 1 To (1)
俿max"tDelete
tApplication.Scr@eenUpdn"gTru*Range("T2").Value
End If '禁止使用插入列功能 'On ErrlResume v ' >CommandBars(@"Works仠 `Menu =C纎ntrol/(I) 列(C
EnabledaQFals_@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
0) 1a! 9 Q i a ! 9 Q i
A  )Ii
1YQy


q 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軋旫匎T0酤'%:劄軋%!

酤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@刅岥@刋0|@刏l^
` T齩L
GG

)% 
%凗`%偁|%(
X
`

8xH8`hX xP禳%(8

068]<鍵@ @ 鐫@酤 $鬇*瀨劄鸃軋 0'@.寧
0@`逮 P

霡剝 x8軋旫@ :`

@ 劄@o 0'd旫%!@旫 禳'饃%!@H匎 ]<粿0t @0d @T @d %:`L!

@T 8L
0齛@D 責L
禳a@4 )L軋旫匎@x0 @H  麫` :@ @瘺 %! 怈禳 '瘺%@茳 禳a藹廳 )@鍵 @ %! \@(滭 @`@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>55157ad1
*\R1*#2ac
*\R1*#e8
*\R0*#14
*\R1*#d7
*\R3*#8c
*\R3*#4d
*\R3*#4e
*\R3*#4f
4
J00PJX0J0 @  H X ` p 1 J 0  J 0p  J 0 J0`J0   8 X x  <�X    % <�+ !  *@&Ph%p%%%8H%Pp <�7! 0 &( @ 1Xx00% "8 @P Xh8 8 (8@`p x8  $ 67 !Xhp x 0 210 0@%` "x8 88H P`8x 8  88Xh p $ 67!   ( " 0 80Ppx0&&& +0@H`px  " <�&1:8X&*`: +"0@HP&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 $$
& (
'(kh
D $$
& (
'(k0
E $$
& (
'(k
F $$
& (
'(k
G $$
& (
'(k (
"同一名運動員重復報相同的比賽項目👩🏿‍🎨！A@8
6(,'(k(k -----------------是否與全能沖突]
':'<](
@
X
p

'>'@'B'D'F]



0男子 $  $ 
 H " "
N H$
!,
C $$

N H$
!,
Q H$
!,'>k
N H$
!,
D $$

N H$
!,
Q H$
!,'@k
N H$
!,
E $$

N H$
!,
Q H$
!,'Bk
N H$
!,
F $$

N H$
!,
Q H$
!,'Dk0
N H$
!,
G $$

N H$
!,
Q H$
!,'Fk Hk女子 $  $ " H " "
O H$
!,
C $$

O H$
!,
R H$
!,'>k
O H$
!,
D $$

O H$
!,
R H$
!,'@kh
O H$
!,
E $$

O H$
!,
R H$
!,'Bk
O H$
!,
F $$

O H$
!,
R H$
!,'Dkx
O 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'P
N H$
!,'J
Q 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'P
O H$
!,'J
R 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%f
B@h d
 
 `  0%f
B@jP女子 . 0!2 .!,女子姓名 .!4' k .!,電子報名補充說明: .!4'"yk d
b " 
  0%f
B@hX d
" 
 b  0%f
B@j l(n
T2$
(,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別nExit
U
nd If4淎ctCel鄉.RowB" &,)"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颮棐`d
2

f
3
3<4
4
>5
0q92A40 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!wome
b $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盇
+行+
(G
G
&- (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"t
TNexFor ad = 1 To (1)
俿max"tDelete
tApplication.Scr@eenUpdn"gTru*Range("T2").Value
End If '禁止使用插入列功能 'On ErrlResume v ' >CommandBars(@"Works仠 `Menu =C纎ntrol/(I) 列(C
EnabledaQFals_@G:o0I慡朎Coplumn5,#
;判斷 If MU M0 A繪E3匰0 T hen !ro>wJ Cf梀pV行(RKVL臮E耓0膅?11F1實Sub伕__SRP_ac
!__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  )Ii
1YQy


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軋旫匎T0酤'%:劄軋%!

酤a旫酏酤5軋酤'%:劄軋%!

酤a匎0'd%:t8旫%!

0齛T/ 禳'瘺%:劄%!

禳a廳:茳]<鍵')酤06軋旫匎Th0酤'%:劄軋%!

酤a旫潺酤5軋劄l黖X$(]鹥軋(]鹥旫匎(t]鹥T 酏(d]鹥廳潺(龑]鹥鍵(
D$(]<軋$(d]鸌旫'匎(t]55157ad1}Sheet5zx]F

`H0xx儈諳叀曪 K/
SSp?鰘驛Ь忖`
⒂鸌k訥磸hㄢ2
-薟衇抦F內$$z
5%:坣Iё01l悍R
髳S"鵒7?
hP
Q0Excel+`VBA麾`Win16羱`Win32`Mac巢`VBA6#` VBAProject究`stdole揱`Officeu`ThisWorkbook|鉦 
_Evaluate賎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讂`



w
y{} 

l






H瞼

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硆kbU
o
2QHB
1Bx野B
,!:"B+B
B|Sheet1G S@#e@Xt1H2N]FTT 222I2v3U333歇a444R48m 5 55 5 5 釫z 揔*y
















rU~~
~
~
~
~
~~~~~~~~~~6
マ隩H杙*,S
儕a a儕a a!
儕a a!__SRP_0
q__SRP_1PROJECTwmPROJECT
)
儕a a!A
儕a a!Y
儕a a!q
qi
 VBAProjectThisWorkbookSheet1Sheet2Sheet3Sheet4Sheet5Sheet6Sheet7Sheet8F/C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL
VBA

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 qF





:摙JTL皊;0+( Fktq邔J籲舾 DF WorksheetWorksheet_ChangeFFWorksheet_SelectionChange @T2FF
UsedRange
Value7uP[覻 T
RowsYP[覻 T5uP[ Te圗Q魦f:CDEFG "TN T袕≧XT蛻 Y鴙T剉詋[峺橆v
NQOR2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@＄[贏鬔瀏o|1m啨O兓荴辶嗻5o猘嫡A3+帡萬隰 ]碞穨hh/糏餧腆綥妶 3 `7L骿E縸磶<蕟f胈