邢唷> QP  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOSTUVWXYZ[]^_`akcdefghij\lmnopqrstuvwxyz{|}~Root Entry FNw影壑0聳孑窒R@>Workbook暃_VBA_PROJECT_CUR"0Q旀葜0聳孑窒VBA0Q旀葜0Q旀葜 \p* Ba= ThisWorkbook=hJ{9"9X@"1#媅SO1#媅SO1#媅SO1#媅SO1#媅SO1#媅SO1#媅SO1 #媅SO1#媅SO1#媅SO1 #媅SO1 #媅SO1 #媅SO1 #媅SO1 #媅SO1 #媅SO1*# MS Sans Serif1#Arial1*# MS Sans Serif1#Arial1#媅SO1#媅SO1 #媅SO1h8#媅SO1,8#媅SO18#媅SO18#媅SO1#媅SO1#媅SO1#媅SO14#媅SO1 #媅SO1#媅SO1 #媅SO14#媅SO1<#媅SO1?#媅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@ @ 4@ @  @ @ 0@ @   1  1|@ @  14@ @ 1 1 (8@ @  (@ @      'x@@  'x@  'x @   x@@   x@   x @  8@@ 8@ 8 @  x@@   x @  8 '1|@@  '1|@  '1| @  8@@  8@  8@  8  8@  8 0@    0 0 0@ 0 0 x@@  x@  x @  '@@  '@  ' @  '1@@  '1@  '1 @  !20% - :_寚eW[湗r 1!20% - :_寚eW[湗r 2!20% - :_寚eW[湗r 3!20% - :_寚eW[湗r 4!20% - :_寚eW[湗r 5!20% - :_寚eW[湗r 6!40% - :_寚eW[湗r 1!40% - :_寚eW[湗r 2!40% - :_寚eW[湗r 3!40% - :_寚eW[湗r 4!40% - :_寚eW[湗r 5!40% - :_寚eW[湗r 6!60% - :_寚eW[湗r 1!60% - :_寚eW[湗r 2!60% - :_寚eW[湗r 3!60% - :_寚eW[湗r 4! 60% - :_寚eW[湗r 5!!60% - :_寚eW[湗r 6     " #h槝 $h槝 1 %h槝 2 &h槝 3 'h槝 4(頬)*}Y +Gl;`,- .梴/纇錱USCQ  ?鑜蕬`訦貧L膥Ej-NL膥噧茐湒膥VVgZ餜3 A@@  M K詋[嵞~+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@dd   ## $$      !!   !$"" '' (( -- )) ** ++ ,, 77  %$%  /  %$  /  %$  Sheet1b(b(  gghPh  (-  :S遅1_1&腵d偼  0WoWz珋  d褚MbP?_*+%M6Microsoft XPS Document WriterX 4dXXA4DINU"L 室鰎 SMTJMicrosoft XPS Document WriterInputBinFORMSOURCERESDLLUniresDLLInterleavingOFFImageTypeJPEGMedOrientationPORTRAITCollateOFFResolutionOption1PaperSizeLETTERColorMode24bpp MXDW" dXX??c勌U} ` K}  } @ }  } }  } } } } } @ }  0wwwwww                      Q;QQQQQQQQQQQ F F FH G( ])]]]]]]]]] F$@F?F  [\ RJSSSSSSSST ~ F@F~ F  [\ rBsssssssst [\UVVVVVVVVW [\ rCsssssssst [\ uDvvvvvvvvw [\ o<ppppppppq I A A A A A A A A  A  A  A J NH @- @. @5 @8 @@CBBB  J NI @5 @6 @@@@CBBB  JB@@@@@@CBBB  JB@@@@@@CBBB  JB@@@@@@CBBB JB@@@@@@CBBB JB@@@@@@CBBB JB@@@@@@CBBB JB@@@@@@CBBB JB@@@@@@CBBB JB@@@@@@CBBB JB@@@@@@CBBB I A A A A A A A A  A  A  AJ NH @- @. @7 @8@@BBBB J NI @5 @6@@@@BBBB JB@@@@@@BBBB JB@@@@@@BBBB JB@@@@@@BBBB JB@@@@@@BBBB JB@@@@@@BBBB JB@@@@@@BBBB JB@@@@@@BBBB JBDDDDDDEEEE D( lXzB.BBBfN""""""""""fN""""""" !"#$%&'()*+,-./` JB@@@@@@BBBB !a!b !XA!YYYYYYYYZ "cd "g"hhhhhhhhi #cd #g#jjjjjjjjk # ! #" ## #$ #% $ef $l$mmmmmmmmn $ - $- $9$@@ % . %. %:%5@5@ &L & / &/&6@6@ 'O'OOOOOOOOOO ' 0 '0'D@D@ (O(OOOOOOOOOO ( 1 (1(E@E@)PPPPPPPPPPP ) 2 )2)N@N@*OOOOOOOOOOO * 3 *3*繯@繯@+OOOOOOOOOOO + 4 +4+R@R@,OOOOOOOOOOO , 5 ,5,@R@@R@-PPPPPPPPPPP - 6 -6-R@R@ . 7 .7.@Y@@Y@ / 8 /8/@^@@^@$ ,"B8~x@@^^RRRRR2>@<d ''    !$!!    ++ ,, --  (( )) ** "" ## $$ 7/  %$ /  %$  7  %$%   Sheet2b(b(444gghTh  (-  :S遅1_1_1&d  /檲粯  d褚MbP?_*+%M6Microsoft XPS Document WriterX 4dXXA4DINU"L 室鰎 SMTJMicrosoft XPS Document WriterInputBinFORMSOURCERESDLLUniresDLLInterleavingOFFImageTypeJPEGMedOrientationPORTRAITCollateOFFResolutionOption1PaperSizeLETTERColorMode24bpp MXDW" dXX??c勌U} ` K}  } @ }  } }  } } } } } @ }  /wwwwww                      Q;QQQQQQQQQQQ F F FH G& ]*]]]]]]]]] F@F?F  [\ rEsssssssst ~ F@F~ F  [\ rBsssssssst [\UVVVVVVVVW [\ rCsssssssst [\ uDvvvvvvvvw [\ o>ppppppppq I A A A A A A A A  A  A  A J~ M? @? @@ @@@@CBBB  JB@@@@@@CBBB  JB@@@@@@CBBB  JB@@@@@@CBBB  JB@@@@@@CBBB JB@@@@@@CBBB JB@@@@@@CBBB JB@@@@@@CBBB JB@@@@@@CBBB JB@@@@@@CBBB JB@@@@@@CBBB JB@@@@@@CBBB I A A A A A A A A  A  A  AJ~ M? @? @@@@@@BBBB JB@@@@@@BBBB JB@@@@@@BBBB JB@@@@@@BBBB JB@@@@@@BBBB JB@@@@@@BBBB JB@@@@@@BBBB JB@@@@@@BBBB JB@@@@@@BBBB JBDDDDDDEEEE D lXzB.BBBN"""""""""""N"""""""" !"#$%&'()*+,-. JB@@@@@@BBBB !a!b !X=!YYYYYYYYZ "cd "g"hhhhhhhhi #cd #g#jjjjjjjjk # ! #" ## #$ #% $ef $l$mmmmmmmmn $ - $- $9$@@ % ? %? %:%@@ &L & . &.&5@5@ 'O'OOOOOOOOOO ' / '/'6@6@ (O(OOOOOOOOOO ( 0 (0(D@D@)PPPPPPPPPPP ) 1 )1)E@E@*OOOOOOOOOOO * 4 *4*R@R@+OOOOOOOOOOO + @ +@+S@S@,OOOOOOOOOOO , 8 ,8,@^@@^@-PPPPPPPPPPP "b"B8~x@@^^RRRR >@<d''    !$!!    ++ ,, --  (( )) ** "" ## $$ 7/  %$ /  %$  7  %$%   Sheet3b(b(222gghTh  (-  :S遅1_1_1&dR ThisWorkbook __SRP_29__SRP_3 HSheet1 bmG  !"#$%&'()*+,-./012345678:;<=>?@ABCDEFGIJLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnoqrtuvwxyz{|}~P^ 枈:#@F\匋蜨懴磃dF識柺y疊栚傷_'媰x識柺y疊栚傷_'媰F\匋蜨懴磃dME([LSS>"L<,<0<4<8<<<N0{00020819-0000-0000-C000-000000000046}X X`po\  `o` i" %j4T@凗8 %偁h %(@p@Xx @h @d @T @D @4 @$ 衜@ @ $&(*@x @h @0X @H @H8 @`( P@x 8@ @ hX@DdT _)S$*\Rffff*0555d9ad54*\R1*#1c5*\R1*#1c4*\R1*#2ac*\R1*#e8*\R0*#14*\R0*#18  "U 8 " @HP ` p "+L3   8 X p   x] ` !$(o@X0  ' $(  B@&比賽報名表自動保存成功!A@(d@)請確認報名信息,然後發送至比賽規定的郵箱! *歡迎使用索美軟件A@(koPublic a As StringSub aa(bb As Integer) a = "public1"MsgBox aEnd SubMsgBox Str(bbbbb + 1) Call aa(1)8HAttribute 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+ 1fct繦C#H!LIf = 1 Then I.Sav@fMsgBox "比磣遠4娉犐功!@塃B亖 請確認 信息,然簚蠓⑺橢罙規定的郵箱@, vbOKOnly, "歡迎使用索美軟件C繧If 菿 T '刲a罝S@纍giaa(bbq@J'a聊py1@ '*a 逨R P燙all @1rU 0 9 @ Q Y #8!aI` `a/o`KUc$%x! xahv"齣T%d! d4,.)xd6h4l`$ xdh4K44 黤h%x$ Dx,.x4 $ +'''8:hNHH 6H83'':X N88:h NHH 6H8$ xH8 488ErU D$Y`\(`` #@T4nrU  ! A 9 ) Q i  9 a 1 Y  9aJ@`JhJ0PJXJ @  H X ` p  J   J p  J   J `  J      8 X x  <       <   *@Php8HPp <  0 ( @ Xx " @P Xh  (@`p x  $ 6  Xhp x 0 2 @` "x 8H P`x   8Xh p $ 6    ( "  0 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 Ifcurline = ActiveCell.Row\ &4:枈T #<Gxk b鼺炆坤儉鰌 F玻*ty霾Fぅ磎滽x玻*ty霾Fぅ磎滽Gxk b鼺炆坤儉鰌ME0 [LSS826"LLLLL<4<8<<<N0{00020820-0000-0000-C000-000000000046}H .` @H)0` %@4 @6 比賽@8 A@(@: 8@< @> @凬 @凱 @凴 @凾 @刅 @刋 @刏 @刓 @刕 @刞 @刡 @刣 @刦 @刪 @刯 @刲 @刵 r`T齩LGG)0  % %凗`%偁,%XXPx(@phX 0xP %82FC@h @X @ T @h D @4 @$ @@ @t8 @v酤 @D瀨 @軋 p @玄  @烴 g芠 @叁 ( @0寧o h @4逮 @6 a@x旫 @ 匎 @t @d 貫@0T H@XD p0@4 XXX@$ @ @ @ H@o p0@88 0&@酏 '@潺 '@ 劄 ' )@0 凝 H  *@待 X 0 *0 ,@ @ 狚 @ 滮 @ 岧 @| @ l @\ @( X @T h8@PH(_)S*\R1*#1c8$*\Rffff*0655d9ad5d*\R1*#2ac*\R1*#e8*\R1*#d7*\R3*#8c*\R3*#4d*\R3*#4e*\R3*#4f4; "  & 0 *H x  " (  ( 6H     (  HX` (x " (  ( 0 @ &P (x  * " . HX`(8@`p x,  &  (HPX`h,p curxmname = ActiveCell.Value!If Range("B" & curline) = "" ThenActiveCell.Value = ""Range("B" & curline) = ""0MsgBox "輸入運動員姓名,然後才可以選擇參賽項目!"End If -------------T2$2!B'@ @----------查找關鍵字的行號 D F!HS D!B男子姓名!Sheet2.Cells(i, 1).Value = cc.Row D!J'4k D!B女子姓名!Sheet2.Cells(i, 1).Value = cc.Row D!J'6kH D!B電子報名補充說明:!Sheet2.Cells(i, 1).Value = cc.Row D!J'8yk L!J': L!B'<MsgBox "男子開始行:" & manstart!MsgBox "女子開始行:" & womenstartMsgBox "結束行:" & endline$MsgBox "當前單元格的行號:" & curlineMsgBox "當前值:" & curxmname'-----------------當前行項目名稱重複次數 <'>C :$2 < > '>khD :$2 < > '>k0E :$2 < > '>kF :$2 < > '>kG :$2 < > '>k > "同一名運動員重複報相同的比賽項目!A@( L(B'>k(k -----------------是否與全能沖突]'N'P](@Xp'R'T'V'X'Z]0男子 : 4 : 6  \ 8 8 N \$2!BC :$2N \$2!BQ \$2!B'RkN \$2!BD :$2N \$2!BQ \$2!B'Tk N \$2!BE :$2N \$2!BQ \$2!B'VkN \$2!BF :$2N \$2!BQ \$2!B'Xk0N \$2!BG :$2N \$2!BQ \$2!B'Zk \k女子 : 6 : 8 \ 8 8 O \$2!BC :$2O \$2!BR \$2!B'RkO \$2!BD :$2O \$2!BR \$2!B'TkhO \$2!BE :$2O \$2!BR \$2!B'VkO \$2!BF :$2O \$2!BR \$2!B'XkxO \$2!BG :$2O \$2!BR \$2!B'Zk \kMsgBox "xmid1:" & xmid1MsgBox "xmid2:" & xmid2MsgBox "xmid3:" & xmid3MsgBox "xmid4:" & xmid4MsgBox "xmid5:" & xmid5 R T  V  X  Z 'Nk R Rd T Td V Vd X Xd Z Zd'Pk` N P2同一名運動員不能同時參加全能項目和其它單項的比賽!A@( L(Bk#-----------------運動員限報數量檢測]H`S3$2!B'l'j R Rd j 'jkX T Td j 'jk  V Vd j 'jk X Xd j 'jk Z Zd j 'jkx j l 每名參賽運動員限報: l個單項,可兼報接力!A@( L(Bk*-----------------參賽單位限報數量檢測-男子]xS2$2!B'nMsgBox dwxbmax \ 8 8 'b'dN \$2!B'^Q \$2!B'p ^ pdMsgBox "項目名稱:" & xmname f 4 6C f$2 ^ b 'bk f f 4 6D f$2 ^ b 'bkH f f 4 6E f$2 ^ b 'bk f f 4 6F f$2 ^ b 'bk f f 4 6G f$2 ^ b 'bk( fMsgBox "當前男dwmax:" & dwmax b n 單項比賽,每個參賽單位限報: n人!A@( L(Bk k \*-----------------參賽單位限報數量檢測-女子,Dim xmi, xmname, xmid, dwmax, ydymax, i1, i2 \ 8 8 'b'dO \$2!B'^R \$2!B'p ^ pdMsgBox "項目名稱:" & xmname f 6 8C f$2 ^ b 'bk f f 6 8D f$2 ^ b 'bk f f 6 8E f$2 ^ b 'bkP f f 6 8F f$2 ^ b 'bk f f 6 8G f$2 ^ b 'bk fMsgBox "當前女dwmax:" & dwmax b n 單項比賽,每個參賽單位限報: n人!A@( L(Bkk \ko 加速創建報名P37$2!B比賽|kT2$2!BT2$2!B'@ @U2$2!B'tU3$2!B'v男子 D F!H D!B男子姓名 D!J'4k D!B女子姓名 D!J'6ykxMsgBox "行數:" & manstartMsgBox "行數:" & womenstart6MsgBox "行數:" & manlingsmax - (womenstart - manstart) x t 6 4   4 F%zB@| x 6 4   t 4 F%zB@~P女子 D F!H D!B女子姓名 D!J'6k D!B電子報名補充說明: D!J'8yk x v 8 6   6 F%zB@|X x 8 6   v 6 F%zB@~ (T2$2(Bkk禁止使用插入列功能On Error Resume NextcApplication.CommandBars("Worksheet Menu Bar").Controls("插入(I)").Controls("列(C)").Enabled = FalseOn Error GoTo 0禁止使用插入列功能Column %(禁止使用插入行功能判斷U2$2!BU3$2!Brow %(h行(R)插入(I)Worksheet Menu Bar %%%(drow %(行(R)插入(I)Worksheet Menu Bar %%%(ko毜Attribute VB_Name = "She@et1" 鐱ast0{00020820- C$0046} |Global!腟pac扚alse dCreatablPre declaId玊ru BExposeTemplateDeriv$払ustom宨zD2 P Sub Works亾_Change(ByVal Target As R ) Dim manstart, womeendline, curxmn, maxxm '加速創建惐If.("P37").;ue <> "比賽" Th別nExitUnd If4淎ctCel鄉.Row B" &,) "F$罀2'侭("MsgBox "輸入運動員姓名,然蟛趴梢匝≡癲穩狀目!EE3B- ad罶s0valiADT2賲H 1 1EK查找關鍵字的行號 For Each cc In 9.U@cccLike "男子A3H 2.A]s(i, 1o=胊厞V@蟼f;@/ 女/G!電子醱補充說明:焽$\ 丷) 繬ext S 鵕錑a-開始喧 &&n(L%( 醜結束$d當前單元<格C 值?ciUb 行罿名稱重 創問Hur遜%.F傕)0D\>C,rG&C g+ 10`K D e摶 E F ; G Т > E%R同一鵐殹;報相蛒膩磫橳+=. @=ee'嶪是否與全能沖突NqneHxis蝑x > $鉍Qjxm爄d1, a2c3c4c5 "Wb3457an襪, dw$, ydy錼ii221___=?1__RJ81___W?1__R817_V?1'鍁癧d1颮棐`d2f33<44>50q92A40 Or 23z45:wz+(cP50抙= 100)q2& 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_4K@ __SRP_5pSheet2 ?Sheet3 ?4 `` IW0   @ l x0T'X%:h%! Ta4:D]鸃T54<0T'X%:h%! Ta4(D]3T54/&T'X%:h%! Ta4T(h]3-&T'X%:h%! Ta4T&T'X%:h%! Ta4酤T+T$ @TW4 髟軋瀨T寧瀨A4 :h 鹽$54F瀨A4 逮瀨A4 :h 鹽$54{瀨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 ,T4C) T狚滮X齌54K8:滮:h%狚T! T d狚 H滮 )T狚滮Km黤岧%:D%T:X%X滮:h%狚T! T d狚 H滮 X ,T4C) T狚滮X齌54Keee(@p寧玄 軋tdTD4$酏潺劄凝待逮瀨旫x酤4 T狚滮XT4$匎l\44PrU @,`H,A`L n蘟y *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applicationsue = ""Range("B" & curline) = ""0MsgBox "輸入運動員姓名,然後才可以選擇參賽項目!"End If -------------T2$2!B'@ @----------查找關鍵字的行號 D F!H廚 D!B男子姓名!Sheet2.Cells(i, 1).Value = cc.Row D!J'4k D!B女子姓名!Sheet2.Cells(i, 1).Value = cc.Row D!J'6kH D!B電子報名補充說明:!Sheet2.Cells(i, 1).Value = cc.Row D!J'8yk L!J': L!B'<MsgBox "男子開始行:" & manstart!MsgBox "女子開始行:" & womenstartMsgBox "結束行:" & endline$MsgBox "當前單元格的行號:" & curlineMsgBox "當前值:" & curxmname'-----------------當前行項目名稱重複次數 <'>C :$2 < > '>khD :$2 < > '>k0E :$2 < > '>kF :$2 < > '>kG :$2 < > '>k > "同一名運動員重複報相同的比賽項目!A@( L(B'>k(k -----------------是否與全能沖突]'N'P](@Xp'R'T'V'X'Z]0男子 : 4 : 6  \ 8 8 N \$2!BC :$2N \$2!BQ \$2!B'RkN \$2!BD :$2N \$2!BQ \$2!B'Tk N \$2!BE :$2N \$2!BQ \$2!B'VkN \$2!BF :$2N \$2!BQ \$2!B'Xk0N \$2!BG :$2N \$2!B\2枈v#xME (SLSS<2N0{00020820-0000-0000-C000-000000000046}@ .@)0` %@4 @6 比賽@8 A@(@: 8@< @> @凬 @凱 @凴 @凾 @刅 @刋 @刏 @刓 @刕 @刞 @刡 @刣 @刦 @刪 @刯 @刲 @刵 rGG)0 % %(_)S; " & 0 *H x  " (  ( 6H     (  HX` (x " (  ( 0 @ &P (x  * " . HX`(8@`p x,  &  (HPX`h,p J@`JhJ0PJXJ @  H X ` p  J   J p  J   J `  J      8 X x  <       <   *@Php8HPp <  0 ( @ Xx " @P Xh  (@`p x  $ 6  Xhp x 0 2 @` "x 8H P`x   8Xh p $ 6    ( " 0 8Ppx   0@H `px  " <&8X&`  " 0@HP&X&   ( 0 H jh   (0HxHHX` h x]hto 加速創建報名.xls$If Range("P37").Value <> "比賽" ThenExit SubEnd Ifcurline = ActiveCell.Rowcurxmname = ActiveCell.Value!If Range("B" & curline) = "" ThenActiveCell.ValQ \$2!B'Zk \k女子 : 6 : 8 \ 8 8 O \$2!BC :$2O \$2!BR \$2!B'RkO \$2!BD :$2O \$2!BR \$2!B'TkhO \$2!BE :$2O \$2!BR \$2!B'VkO \$2!BF :$2O \$2!BR \$2!B'XkxO \$2!BG :$2O \$2!BR \$2!B'Zk \kMsgBox "xmid1:" & xmid1MsgBox "xmid2:" & xmid2MsgBox "xmid3:" & xmid3MsgBox "xmid4:" & xmid4MsgBox "xmid5:" & xmid5 R T  V  X  Z 'Nk R Rd T Td V Vd X Xd Z Zd'Pk` N P2同一名運動員不能同時參加全能項目和其它單項的比賽!A@( L(Bk#-----------------運動員限報數量檢測]H`S3$2!B'l'j R Rd j 'jkX T Td j 'jk  V Vd j 'jk X Xd j 'jk Z Zd j 'jkx j l 每名參賽運動員限報: l個單項,可兼報接力!A@( L(Bk*-----------------參賽單位限報數量檢測-男子]xS2$2!B'nMsgBox dwxbmax \ 8 8 'b'dN \$2!B'^Q \$2!B'p ^ pdMsgBox "項目名稱:" & xmname f 4 6C f$2 ^ b 'bk f f 4 6D f$2 ^ b 'bkH f f 4 6E f$2 ^ b 'bk f f 4 6F f$2 ^ b 'bk f f 4 6G f$2 ^ b 'bk( fMsgBox "當前男dwmax:" & dwmax b n 單項比賽,每個參賽單位限報: n人!A@( L(Bk k \*-----------------參賽單位限報數量檢測-女子,Dim xmi, xmname, xmid, dwmax, ydymax, i1, i2 \ 8 8 'b'dO \$2!B'^R \$2!B'p ^ pdMsgBox "項目名稱:" & xmname f 6 8C f$2 ^ b 'bk f f 6 8D f$2 ^ b 'bk f f 6 8E f$2 ^ b 'bkP f f 6 8F f$2 ^ b 'bk f f 6 8G f$2 ^ b 'bk fMsgBox "當前女dwmax:" & dwmax b n 單項比賽,每個參賽單位限報: n人!A@( L(Bkk \ko 加速創建報名P37$2!B比賽|kT2$2!BT2$2!B'@ @U2$2!B'tU3$2!B'v男子 D F!H D!B男子姓名 D!J'4k D!B女子姓名 D!J'6ykxMsgBox "行數:" & manstartMsgBox "行數:" & womenstart6MsgBox "行數:" & manlingsmax - (womenstart - manstart) x t 6 4   4 F%zB@| x 6 4   t 4 F%zB@~P女子 D F!H D!B女子姓名 D!J'6k D!B電子報名補充說明: D!J'8yk x v 8 6   6 F%zB@|X x 8 6   v 6 F%zB@~ (T2$2(Bkk禁止使用插入列功能On Error Resume NextcApplication.CommandBars("Worksheet Menu Bar").Controls("插入(I)").Controls("列(C)").Enabled = FalseOn Error GoTo 0禁止使用插入列功能Column %(禁止使用插入行功能判斷U2$2!BU3$2!Brow %(h行(R)插入(I)Worksheet Menu Bar %%%(drow %(行(R)插入(I)Worksheet Menu Bar %%%(ko櫟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伕ue = ""Range("B" & curline) = ""0MsgBox "輸入運動員姓名,然後才可以選擇參賽項目!"End If -------------T2$2!B'@ @----------查找關鍵字的行號 D F!H D!B男子姓名!Sheet2.Cells(i, 1).Value = cc.Row D!J'4k D!B女子姓名!Sheet2.Cells(i, 1).Value = cc.Row D!J'6kH D!B電子報名補充說明:!Sheet2.Cells(i, 1).Value = cc.Row D!J'8yk L!J': L!B'<MsgBox "男子開始行:" & manstart!MsgBox "女子開始行:" & womenstartMsgBox "結束行:" & endline$MsgBox "當前單元格的行號:" & curlineMsgBox "當前值:" & curxmname'-----------------當前行項目名稱重複次數 <'>C :$2 < > '>khD :$2 < > '>k0E :$2 < > '>kF :$2 < > '>kG :$2 < > '>k > "同一名運動員重複報相同的比賽項目!A@( L(B'>k(k -----------------是否與全能沖突]'N'P](@Xp'R'T'V'X'Z]0男子 : 4 : 6  \ 8 8 N \$2!BC :$2N \$2!BQ \$2!B'RkN \$2!BD :$2N \$2!BQ \$2!B'Tk N \$2!BE :$2N \$2!BQ \$2!B'VkN \$2!BF :$2N \$2!BQ \$2!B'Xk0N \$2!BG :$2N \$2!B\2枈衋#xME (SLSS<2N0{00020820-0000-0000-C000-000000000046}@ .@)0` %@4 @6 比賽@8 A@(@: 8@< @> @凬 Ac@凱 @凴 rlin@凾 "輸@刅 梢匝@刋 En@刏 ----@刓 !B@刕 @刞 關鍵@刡 @刣 @刦 @刪 @刯 @刲 @刵 rGG)0 % %(_)S; " & 0 *H x  " (  ( 6H     (  HX` (x " (  ( 0 @ &P (x  * " . HX`(8@`p x,  &  (HPX`h,p J@`JhJ0PJXJ @  H X ` p  J   J p  J   J `  J      8 X x  <       <   *@Php8HPp <  0 ( @ Xx " @P Xh  (@`p x  $ 6  Xhp x 0 2 @` "x 8H P`x   8Xh p $ 6    ( " 0 8Ppx   0@H `px  " <&8X&`  " 0@HP&X&   ( 0 H jh   (0HxHHX` h x]hto 加速創建報名.xls$If Range("P37").Value <> "比賽" ThenExit SubEnd Ifcurline = ActiveCell.Rowcurxmname = ActiveCell.Value!If Range("B" & curline) = "" ThenActiveCell.ValQ \$2!B'Zk \k女子 : 6 : 8 \ 8 8 O \$2!BC :$2O \$2!BR \$2!B'RkO \$2!BD :$2O \$2!BR \$2!B'TkhO \$2!BE :$2O \$2!BR \$2!B'VkO \$2!BF :$2O \$2!BR \$2!B'XkxO \$2!BG :$2O \$2!BR \$2!B'Zk \kMsgBox "xmid1:" & xmid1MsgBox "xmid2:" & xmid2MsgBox "xmid3:" & xmid3MsgBox "xmid4:" & xmid4MsgBox "xmid5:" & xmid5 R T  V  X  Z 'Nk R Rd T Td V Vd X Xd Z Zd'Pk` N P2同一名運動員不能同時參加全能項目和其它單項的比賽!A@( L(Bk#-----------------運動員限報數量檢測]H`S3$2!B'l'j R Rd j 'jkX T Td j 'jk  V Vd j 'jk X Xd j 'jk Z Zd j 'jkx j l 每名參賽運動員限報: l個單項,可兼報接力!A@( L(Bk*-----------------參賽單位限報數量檢測-男子]xS2$2!B'nMsgBox dwxbmax \ 8 8 'b'dN \$2!B'^Q \$2!B'p ^ pdMsgBox "項目名稱:" & xmname f 4 6C f$2 ^ b 'bk f f 4 6D f$2 ^ b 'bkH f f 4 6E f$2 ^ b 'bk f f 4 6F f$2 ^ b 'bk f f 4 6G f$2 ^ b 'bk( fMsgBox "當前男dwmax:" & dwmax b n 單項比賽,每個參賽單位限報: n人!A@( L(Bk k \*-----------------參賽單位限報數量檢測-女子,Dim xmi, xmname, xmid, dwmax, ydymax, i1, i2 \ 8 8 'b'dO \$2!B'^R \$2!B'p ^ pdMsgBox "項目名稱:" & xmname f 6 8C f$2 ^ b 'bk f f 6 8D f$2 ^ b 'bk f f 6 8E f$2 ^ b 'bkP f f 6 8F f$2 ^ b 'bk f f 6 8G f$2 ^ b 'bk fMsgBox "當前女dwmax:" & dwmax b n 單項比賽,每個參賽單位限報: n人!A@( L(Bkk \ko 加速創建報名P37$2!B比賽|kT2$2!BT2$2!B'@ @U2$2!B'tU3$2!B'v男子 D F!H D!B男子姓名 D!J'4k D!B女子姓名 D!J'6ykxMsgBox "行數:" & manstartMsgBox "行數:" & womenstart6MsgBox "行數:" & manlingsmax - (womenstart - manstart) x t 6 4   4 F%zB@| x 6 4   t 4 F%zB@~P女子 D F!H D!B女子姓名 D!J'6k D!B電子報名補充說明: D!J'8yk x v 8 6   6 F%zB@|X x 8 6   v 6 F%zB@~ (T2$2(Bkk禁止使用插入列功能On Error Resume NextcApplication.CommandBars("Worksheet Menu Bar").Controls("插入(I)").Controls("列(C)").Enabled = FalseOn Error GoTo 0禁止使用插入列功能Column %(禁止使用插入行功能判斷U2$2!BU3$2!Brow %(h行(R)插入(I)Worksheet Menu Bar %%%(drow %(行(R)插入(I)Worksheet Menu Bar %%%(ko毜Attribute VB_Name = "She@et3" 鐱ast0{00020820- C$0046} |Global!腟pac扚alse dCreatablPre declaId玊ru BExposeTemplateDeriv$払ustom宨zD2 P Sub Works亾_Change(ByVal Target As R ) Dim manstart, womeendline, curxmn, maxxm '加速創建惐If.("P37").;ue <> "比賽" Th別nExitUnd If4淎ctCel鄉.Row B" &,) "F$罀2'侭("MsgBox "輸入運動員姓名,然蟛趴梢匝≡癲穩狀目!EE3B- ad罶s0valiADT2賲H 1 1EK查找關鍵字的行號 For Each cc In 9.U@cccLike "男子A3H 2.A]s(i, 1o=胊厞V@蟼f;@/ 女/G!電子醱補充說明:焽$\ 丷) 繬ext S 鵕錑a-開始喧 &&n(L%( 醜結束$d當前單元<格C 值?ciUb 行罿名稱重 創問Hur遜%.F傕)0D\>C,rG&C g+ 10`K D e摶 E F ; G Т > E%R同一鵐殹;報相蛒膩磫橳+=. @=ee'嶪是否與全能沖突NqneHxis蝑x > $鉍Qjxm爄d1, a2c3c4c5 "Wb3457an襪, dw$, ydy錼ii221___=?1__RJ81___W?1__R817_V?1'鍁癧d1颮棐`d2f33<44>50q92A40 Or 23z45:wz+(cP50抙= 100)q2& 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伕_VBA_PROJECTsdir+__SRP_0 __SRP_1*\G{00020813-0000-0000-C000-000000000046}#1.5#0#C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE#Microsoft Excel 11.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.3#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL#Microsoft Office 11.0 Object Library  _)S枈ThisWorkbook0555d9ad54ThisWorkbook: Sheet10655d9ad5d- Sheet1T : Sheet20355d9ad54 Sheet2v0b2 Sheet30455d9ad54 Sheet3衋Hb2h0H鶜 卌CJ緪愋嗛;櫻牗鞰臣sP]燺憇程6K庴蝿錴(C. 造B=岅,UV0 Excel+` VBA麾`Win16羱`Win32`Mac巢`VBA6#` VBAProject究`stdole揱`Officeu` ThisWorkbook|鉦 _evalsuate賎bbbbb6s` Workbook_Open涐`Windows`Count0v`Visible隊`Workbook_BeforeClose滄`Cancel駱` ActiveWindow+`Save捫`MsgBox桼`vbOKOnly醪` Sheet1`Worksheet_Change烻`Target現`Range `manstart釘` womenstarti賎endlineq `curline$` curxmname甘` linemaxxmr` addlinsvalid崷`Value銴`cc荺` ActiveSheet%N` UsedRange葔`Row壪` ActiveCell椒`qnexist笪`dxexist8宍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`Workbookk` BeforeClose~;`_Defaultj耟 Worksheet窿`ChangeG`SelectionChange鉵`_B_var_addlinsvalid檫`_B_var_manlingsmax^`_B_var_womenlinesmax溓` _B_var_cco馺_B_var_manstart閈`_B_var_womenstart擥`_B_var_addlineiS`_B_var_endline `Item讂`l - H'瞼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-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:TT 222I2b2v333R3衋BU揔*yrU~~~~~~~~~` 內鐳W@擬粽x C 儕a i儕a  a ) A  ) VBAProject ThisWorkbookSheet1Sheet2Sheet3F /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA Y `F4C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXEExcel Qyp0FC:\Windows\system32\stdole2.tlbstdole aL續-鶾藉D轗?C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLLOffice aFF\匋蜨懴磃dF識柺y疊栚傷_'媰DFWorkbook Workbook_OpenWorkbook_BeforeClose DFFGxk b鼺炆坤儉鰌 F玻*ty霾Fぅ磎滽DF WorksheetWorksheet_ChangeFFWorksheet_SelectionChange @ P37 詋[ T2 U2 U3FFa UsedRange Value 7uP[覻 TRow sYP[覻 TRows Insert Delete 5uP[ Te圗Q魦f:F Column F F row L(R) 襝eQ(I) $Worksheet Menu Bar FControlsEnableda  詋[崶b Th堦仺R軴X[b烺 *鮦nx T酧o`,6qT裇愺佋k[嵞墯[剉異眥 "k螐O(u"}o忲NVBE6.DLL 9S 'rU~~~y   !bbbbbCancel  9(Target_ThisWorkbookThisWorkbookSheet1Sheet1SheePROJECTwmhPROJECTSummaryInformation((DocumentSummaryInformation8t2Sheet2Sheet3Sheet3ID="{00000000-0000-0000-0000-000000000000}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Document=Sheet2/&H00000000 Document=Sheet3/&H00000000 HelpFile="" Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="B0B21C5A205A205E245E24" DPB="6062CC13E913E9EC1714E9A6B66CED0B9155B60D11D959DD5E66D76B9E39649E2772195B" GC="1012BCBFBDBFBD40" [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, 鄥燆鵒h珣+'遲0 X`x 上海索美軟件上海索美軟件上海索美軟件*Microsoft Excel@E靖D@9q囕@r{孑窒脹諟.摋+,0 PXd lt| slh 高職組中職組視障組 工作表 FMicrosoft Office Excel 工作表CompObjjBiff8Excel.Sheet.89瞦