邢唷> C}B  !"#$%&'()*+,-./0123456789:;<=>?@AxEFGHIJKLMO]QRSTUVWXYZ[\N^_`abcdefghijklmnopqrstuvwz{|Root Entry F贍阬娹 駧抻D<Workbook_VBA_PROJECT_CUR"蠱2飵抻 駧抻VBA 咅庌 I麴庌 T8衫\plenovo Ba= ThisWorkbook=hJ{9"8X@"1媅SO1媅SO1媅SO1媅SO1媅SO1媅SO1媅SO1 媅SO1媅SO1媅SO1 媅SO1 媅SO1媅SO1 媅SO1 媅SO1 媅SO1 媅SO1* MS Sans Serif1Arial1* MS Sans Serif1Arial1媅SO1媅SO1 媅SO1h8媅SO1,8媅SO18媅SO18媅SO1媅SO1媅SO1媅SO14媅SO1 媅SO1媅SO1 媅SO14媅SO1<媅SO1?媅SO1>媅SO""#,##0;""\-#,##0""#,##0;[Red]""\-#,##0""#,##0.00;""\-#,##0.00#""#,##0.00;[Red]""\-#,##0.007*2_ ""* #,##0_ ;_ ""* \-#,##0_ ;_ ""* "-"_ ;_ @_ .))_ * #,##0_ ;_ * \-#,##0_ ;_ * "-"_ ;_ @_ ?,:_ ""* #,##0.00_ ;_ ""* \-#,##0.00_ ;_ ""* "-"??_ ;_ @_ 6+1_ * #,##0.00_ ;_ * \-#,##0.00_ ;_ * "-"??_ ;_ @_ \$#,##0_);\(\$#,##0\)\$#,##0_);[Red]\(\$#,##0\) \$#,##0.00_);\(\$#,##0.00\)% \$#,##0.00_);[Red]\(\$#,##0.00\) yyyy/m/d;@""#,##0;\-""#,##0""#,##0;[Red]\-""#,##0""#,##0.00;\-""#,##0.00#""#,##0.00;[Red]\-""#,##0.0050_-""* #,##0_-;\-""* #,##0_-;_-""* "-"_-;_-@_-,'_-* #,##0_-;\-* #,##0_-;_-* "-"_-;_-@_-=8_-""* #,##0.00_-;\-""* #,##0.00_-;_-""* "-"??_-;_-@_-4/_-* #,##0.00_-;\-* #,##0.00_-;_-* "-"??_-;_-@_- 0.000000_  0.00000_  0.0000_  0.000_  0.00_ #,##0.00_ ;\-#,##0.00;;#,##0.00_ ;\-#,##0.00 0.00_ ;\-0.00"Yes";"Yes";"No""True";"True";"False""On";"On";"Off"],[$ -2]\ #,##0.00_);[Red]\([$ -2]\ #,##0.00\) "/f";"/f";"&T" "w";"w";"GP" "_";"_";"sQ" 000000 0.000000 0.00000 [$-804]aaa;@0_ 0_);[Red]\(0\) 0.0000% 0.0_  0.0% #,##0.00_  #,##0.0_  0.E+00 0.0000000_  0;_< 0;_>9_ ""* #,##0.00_ ;_ ""* \-#,##0.00_ ;_ ""* \-??_ ;_ @_ 61_ ""* #,##0_ ;_ ""* \-#,##0_ ;_ ""* \-_ ;_ @_ 0.00_ ;[Red]\-0.00\ 0.00_);[Red]\(0.00\) 0;_ 0;_ 0_ ;[Red]\-0\  0;_@ 0;_ 0;_0.0_);[Red]\(0.0\) 0;_ 0;_ 0;_ 0;_ 0;_ 0;_h0.00;[Red]0.00[DBNum2][$-804]General 0_);\(0\)0.0;_ 0;[Red]0 #,##0_                                      P P       a> , *    !攆f " # $` + ) % & '             @ @  x@ @  0@ @  @ @ 0@ @   1  1|@ @  14@ @ 1 1 14@ @     x@@   x@   x @  8@@ 8@ 8 @  x@@   x @  8  1|@@   1|@   1| @  8@@  8@  8@  8  8@  8 0@    0 0 0@ 0 0 x@@  x@  x @   x@@   x@   x @  ||p.C4銄A} #0_ ;_ "ef_ @_ -}A} #0_ ;_ "ef_ @_ -}A} #0_ ;_ "ef_ @_ -}A} #0_ ;_ "ef_ @_ -}A} #0_ ;_ "ef_ @_ -}A} #0_ ;_ "ef _ @_ -}A} #0_ ;_ "蘈_ @_ -}A} #0_ ;_ "蘈_ @_ -}A} #0_ ;_ "蘈_ @_ -}A} #0_ ;_ "蘈_ @_ -}A} #0_ ;_ "蘈_ @_ -}A} #0_ ;_ "蘈 _ @_ -}A} #0_ ;_ "23_ @_ -}A} #0_ ;_ "23_ @_ -}A} #0_ ;_ "23_ @_ -}A} #0_ ;_ "23_ @_ -}A}  #0_ ;_ "23_ @_ -}A}! #0_ ;_ "23 _ @_ -}-}# #0_ ;_ "}A}$ #0_ ;_ "_ @_ -}A}% #0_ ;_ "?_ @_ -}A}& #0_ ;_ "23_ @_ -}-}' #0_ ;_ "}A}( #0_ ;_ "俏_ @_ -}A}* a#0_ ;_ "騎_ @_ -}U}+ #0_ ;_ "_ @_ -##0.}}. 鷠#0_ ;_ "蝌_ @_ -##0.  }}/ #0_ ;_ "ゥ_ @_ -???##0.??? ??? ???}-}0 #0_ ;_ "}-}1 #0_ ;_ "}A}2 鷠#0_ ;_ "_ @_ -}A}5 渆#0_ ;_ "霚_ @_ -}}6 ???#0_ ;_ "蝌_ @_ -???##0.??? ??? ???}}7 ??v#0_ ;_ "虣_ @_ -##0.  }A}9 #0_ ;_ "_ @_ -}A}: #0_ ;_ "_ @_ -}A}; #0_ ;_ "_ @_ -}A}< #0_ ;_ "_ @_ -}A}= #0_ ;_ "_ @_ -}A}> #0_ ;_ " _ @_ -}x}?#0_ ;_ "膊 _ @膊## 膊 膊 20% - @wr 1G 20% - @wr 1 ef苕 % 20% - @wr 2G" 20% - @wr 2 ef蜍 % 20% - @wr 3G& 20% - @wr 3 ef腭 % 20% - @wr 4G* 20% - @wr 4 ef溥 % 20% - @wr 5G. 20% - @wr 5 ef陬 % 20% - @wr 6G2 20% - @wr 6  ef % 40% - @wr 1G 40% - @wr 1 蘈柑 % 40% - @wr 2G# 40% - @wr 2 蘈娓 % 40% - @wr 3G' 40% - @wr 3 蘈劁 % 40% - @wr 4G+ 40% - @wr 4 蘈湯 % 40% - @wr 5G/ 40% - @wr 5 蘈忿 % 40% - @wr 6G3 40% - @wr 6  蘈 % 60% - @wr 1G 60% - @wr 1 23暢 % 60% - @wr 2G$ 60% - @wr 2 23跂 % 60% - @wr 3G( 60% - @wr 3 23淖 % 60% - @wr 4G, 60% - @wr 4 23睜 % 60% - @wr 5G0 60% - @wr 5 23捦 %! 60% - @wr 6G4 60% - @wr 6  23 %* ColLevel_1* ColLevel_2* ColLevel_3* ColLevel_4 * ColLevel_5 * ColLevel_6* ColLevel_7* RowLevel_1* RowLevel_2* RowLevel_3* RowLevel_4 * RowLevel_5 * RowLevel_6 * RowLevel_7"~vR詋 #h槝+h槝 I}% $h槝 1=h槝 1 I}%O伣 %h槝 2=h槝 2 I}%?Э &h槝 3=h槝 3 I}%23暢 'h槝 4/h槝 4 I}%(頬5頬 俏 %8^膲)厤*}Y5}Y 騎 a% +Gl;`GGl;` %O伣O伣,'^- '^[0] .梴o梴 蝌 鷠% /纇錱USCQ@wr 6;1@wr 6  鳀F % ?鑜蕬^ 鑜蕬 膊膊膊 膊XTableStyleMedium9PivotStyleLight16`誃f[u膥碯Ye錧膥耺Ye錧蕍頧膥VVgd D詋[嵞~+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@xq@ ccjB杶-z4n欰甠)k:~yw T8衫 /\H@.*  ## $$      !!   !$"" '' (( -- )) ** ++ ,, 77  %$%  /  %$  /  %$  Sheet1b(b(  gghPh  (-  :S遅1_1 T8衫 /鎇芿k  d褚MbP?_*+%&?'?(?)?"?? &c勌U} ` J}  } @ }  } }  J} } } } } @ }  } /wwwwww                      O;OOOOOOOOOOO E E EG F( X)XXXXXXXXX E@E?E  VWPQQQQQQQQR ~ E@E~ E  VWPQQQQQQQQR VWPQQQQQQQQR VWmnnnnnnnno VWPQQQQQQQQR VW j=kkkkkkkkl H A A A A A A A H  A  A  A IB@@@@@@IBBB  IB@@@@@@IBBB  IB@@@@@@IBBB  IB@@@@@@IBBB  IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB H A A A A A A A H  A  A  AIB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IBCCCCCCLDDD DlXzp....B""""""""""""""""""""" !"#$%&'()*+,-. IB@@@@@@IBBB !\!] !S<!TTTTTTTTU "^_ "b"ccccccccd #^_ #b#eeeeeeeef # ! #" ## #$ #% $`a $g$hhhhhhhhi $ . $. $9$@@ % / %/ %:%5@5@ &K & 0 &2&7@N@ 'M'MMMMMMMMMM ' 2 '3'N@繯@ (M(MMMMMMMMMM ( 3 (4(繯@@R@)NNNNNNNNNNN ) 4 )5)@R@@Y@*MMMMMMMMMMM * 5~ *@Y@+MMMMMMMMMMM + >~ +`@,MMMMMMMMMMM -NNNNNNNNNNN ""B8~x@@^^R<< >@NJ?''    !$!!    ++ ,, --  (( )) ** "" ## $$ 7/  %$ /  %$  7  %$%   Sheet2b(b(44gghTh  (-  :S遅1_1_1 T8衫 /鬾詘顋  d褚MbP?_*+%&?'?(?)?"?? &c勌U} ` J}  } @ }  } }  J} } } } } @ }  } /wwwwww                      O@OOOOOOOOOOO E E EG F& X*XXXXXXXXX E@E?E  VWPQQQQQQQQR ~ E@E~ E  VWPQQQQQQQQR VWPQQQQQQQQR VWmnnnnnnnno VWPQQQQQQQQR VW jAkkkkkkkkl H A A A A A A A H  A  A  A IB@@@@@@IBBB  IB@@@@@@IBBB  IB@@@@@@IBBB  IB@@@@@@IBBB  IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB H A A A A A A A H  A  A  AIB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IBCCCCCCLDDD DlXzp....B""""""""""""""""""""" !"#$%&'()*+,-. IB@@@@@@IBBB !\!] !S?!TTTTTTTTU "^_ "b"ccccccccd #^_ #b#eeeeeeeef # ! #" ## #$ #% $`a $g$hhhhhhhhi $ B $C $9$S@@S@ %: &K 'M'MMMMMMMMMM (M(MMMMMMMMMM )NNNNNNNNNNN *MMMMMMMMMMM +MMMMMMMMMMM ,MMMMMMMMMMM -NNNNNNNNNNN ""B8~x,, >@NJ?''    !$!!    ++ ,, --  (( )) ** "" ## $$ 7/  %$ /  %$  7  %$%   Sheet3b(b(22gghTh  (-  :S遅1_1_1 ThisWorkbook + __SRP_25r__SRP_3 KSheet1 PZS  !"#$%&'()*+,-./012346789:;<=>?@ABCDEFGHIJLMNOQRSTVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~8:H 枈:#xOX嚻w霳呈9F1^棎C敁p躍N抈x1^棎C敁p躍N抈OX嚻w霳呈9ME0P[LSS>"<8<N0{00020819-0000-0000-C000-000000000046}p  *p`Xo 2`Xo i4  %j(`p@凗%偁$%x`,@ @ @8 @ @ @ @ x @` @X ($6 p Pp_)S$*\Rffff*055cbd870e*\R1*#275*\R1*#274h  "  8 " @ H"P "`   ( V08 @ X x    x]  ` ,!.$,(0o@p0 ( '(ActiveWindow.Visible = Falsex ( $B@6!MsgBox "比賽報名表自動保存成功!"d(PMsgBox "請確認報名信息,然後發送至比賽規定的郵箱!", vbOKOnly, "歡迎使用索美軟件"koPublic a As StringSub aa(bb As Integer) a = "public1"MsgBox aEnd SubMsgBox Str(bbbbb + 1) Call aa(1)IAttribute VB_Name = "ThisWorkbook" 孊as0{00020P819-0C$0046} |GlobalSpac扚alse dCreatablPred恊claIdTru BExposeTemplateDeriv払ustomizD2Option /licit Pub b As I纍teger /A3 Sub 叏_Open() O#rror R坋su糔ex'Windows(.Count)`.Visi垉CE nd*2BeforeCl(CancelMBoo發ean>0=2+ 1 'Ac瀟I#!DLIf = 1 Then 墢.Savf'MsgBox "比賽報磣遠4娉曬Γ±塃聛F 請啡狹 信息,然後發橢羴規定@的郵箱, vbOKOnly, "歡迎使用索美0軟件JIf\ 圠5Dma丒S羘g羒aa(渂bA膓K'a伵jp聐1@ *a縺 F@S 繮ACall @1rU@@8PQ (p/hAq` `iIY)gg gxvlVXX.Xg?82Xgg g"`q`g`q>pg Z0vggg8 `h Z Zh"a"arU@@@8Q`8@!`@C*@p`b*\R0*#17`; " & 0 *H x  " (  ( 6H  B  J0 (  HX0` (x "0 (  ( D0 6@ &P (x  * " . HXb` b b b (8b@ `p x,L 6 &  (HPX`h,p F2!〧枈T #p▽}逼L何疘U F冊噝疞醈l蒖x冊噝疞醈l蒖擗岡}逼L何疘U MEh[LSS8>6"LLLLLR@ @ @ @ @@ @x @L` @H @0 @P @  @  @0瘙 H @(棹 p0 @x幗o X @@叁 @B剝 X@橚 @( @h 0@@P X@x8 h@@@ x@ @瘕 @槧 @@P幘 h(@佚 P@旋o x@D庚 x&@狚  '@ 堼 0 '@P p @  'h  )@x X P *@@ x *x ,@ ( @ @X  @ @櫝 @@ 懸 @更 @p 包 @ @xp0x ( ` p ( P X H <@ % ( >RXZ@ P @ 8 @ 0 @L @ @P棹 @P 玄 @ @叁 h ( @x 俐 P @羹 x @剝o @ 橚 h @8 @ h @ P @8 @x 懸 P L@ 更 x L@ 狘 L@堻  L@h @8h @PP @8 @ @ @ @棼 @宣 @耕  \@狖 0`@@堺 X`@hp @`@X h`hp@@ @( @ @H @帔 @0鰓 @`苞 @x橔 @ @h @P @8 @ @礫 @( @@P慁 h(@x P@~` @H @0 @ 0@P @h@x桫 P@續 xx@給 @狓 (@8堷 P@p `8p8P@X @@ @( @  8@H ` @圜 pHH@灑 @鎊 @橑 @@ 0X@hh @@P hh@8 @   ((px`_)S*\R1*#278$*\Rffff*065cbd8711*\R1*#3c7*\R1*#12d*\R1*#11c*\R3*#8c*\R3*#4d*\R3*#4e*\R3*#4fVJ T@`J hTJ T0PJ XTJ T @  H X ` 8p V J  T  J  Tp  J  T  J  T`  J  T      8 X x  <       @ <L  6  *@BPh@p @ @ @ 8H@P p <^ 6 0 B( @ VXxTT@ ""b  @P X"hb  "b  "(b@ `p x"b   $ 6^  6Xhp x 0 2VT T@@` "x"b  "b 8H P"`bx  "b  " b8 Xh p $ 6^ 6   ( " 0 8TPpxTB BB J0 0@0H `px  " <&VZ8X&J`Z J0 "0 0@HP&VXZ&JZ 0B  ( 0 H jh  ` (0Hbx H  ` H X` h x] 加速創建報名p$If Range("P37").Value <> "比賽" Then,Exit SubEnd Ifcurline = ActiveCell.Rowcurxmname = ActiveCell.Value!If Range("B" & curline) = "" ThenActiveCell.Value = ""Range("B" & curline) = ""0MsgBox "輸入運動員姓名,然後才可以選擇參賽項目!"End If -------------T2$>!N'L L----------查找關鍵字的行號 P R!T P!N男子姓名!Sheet2.Cells(i, 1).Value = cc.Row P!V'@k P!N女子姓名!Sheet2.Cells(i, 1).Value = cc.Row P!V'BkH P!N電子報名補充說明:!Sheet2.Cells(i, 1).Value = cc.Row P!V'Dyk X!V'F X!N'HMsgBox "男子開始行:" & manstart!MsgBox "女子開始行:" & womenstartMsgBox "結束行:" & endline$MsgBox "當前單元格的行號:" & curlineMsgBox "當前值:" & curxmname'-----------------當前行項目名稱重復次數 H'JC F$> H J 'JkhD F$> H J 'Jk0E F$> H J 'JkF F$> H J 'JkG F$> H J 'Jk J "同一名運動員重復報相同的比賽項目!A@Z X(N'Jk(k -----------------是否與全能沖突]('\'^]@Xp'`'b'd'f'h]0H男子 F @ F B  j D D N j$>!NC F$>N j$>!NQ j$>!N'`kN j$>!ND F$>N j$>!NQ j$>!N'bk N j$>!NE F$>N j$>!NQ j$>!N'dkN j$>!NF F$>N j$>!NQ j$>!N'fk0N j$>!NG F$>N j$>!NQ j$>!N'hk jk女子 F B F D j D D O j$>!NC F$>O j$>!NR j$>!N'`kO j$>!ND F$>O j$>!NR j$>!N'bkhO j$>!NE F$>O j$>!NR j$>!N'dkO j$>!NF F$>O j$>!NR j$>!N'fkxO j$>!NG F$>O j$>!NR j$>!N'hk jkMsgBox "xmid1:" & xmid1MsgBox "xmid2:" & xmid2MsgBox "xmid3:" & xmid3MsgBox "xmid4:" & xmid4MsgBox "xmid5:" & xmid5 ` b  d  f  h '\k ` `d b bd d dd f fd h hd'^k` \ ^2同一名運動員不能同時參加全能項目和其它單項的比賽!A@Z X(Nk#-----------------運動員限報數量檢測]`xS3$>!N'z'x ` `d x 'xkX b bd x 'xk  d dd x 'xk f fd x 'xk h hd x 'xkx x z 每名參賽運動員限報: z個單項,可兼報接力!A@Z X(Nk*-----------------參賽單位限報數量檢測-男子]S2$>!N'|MsgBox dwxbmax j D D 'p'rN j$>!N'lQ j$>!N'~ l ~dMsgBox "項目名稱:" & xmname t @ BC t$> l p 'pk t t @ BD t$> l p 'pkH t t @ BE t$> l p 'pk  t t @ BF t$> l p 'pk  t t @ BG t$> l p 'pk(  tMsgBox "當前男dwmax:" & dwmax p | 單項比賽,每個參賽單位限報: |人!A@Z X(Nk k  j*-----------------參賽單位限報數量檢測-女子,Dim xmi, xmname, xmid, dwmax, ydymax, i1, i2 j D D 'p'rO j$>!N'lR j$>!N'~ l ~dMsgBox "項目名稱:" & xmname t B DC t$> l p 'pk  t t B DD t$> l p 'pk  t t B DE t$> l p 'pkP  t t B DF t$> l p 'pk  t t B DG t$> l p 'pk  tMsgBox "當前女dwmax:" & dwmax p | 單項比賽,每個參賽單位限報: |人!A@Z X(Nkk jko 加速創建報名P37$>!N比賽|kT2$>!NT2$>!N'L LU2$>!N'U3$>!N'男子 P R!T P!N男子姓名 P!V'@k P!N女子姓名 P!V'BykxMsgBox "行數:" & manstartMsgBox "行數:" & womenstart6MsgBox "行數:" & manlingsmax - (womenstart - manstart)   B @   @ R%B@  B @    @ R%B@P女子 P R!T P!N女子姓名 P!V'Bk P!N電子報名補充說明: P!V'Dyk   D B   B R%B@X  D B    B R%B@ (T2$>(Nkk禁止使用插入列功能On Error Resume NextcApplication.CommandBars("Worksheet Menu Bar").Controls("插入(I)").Controls("列(C)").Enabled = FalseOn Error GoTo 0禁止使用插入列功能Column %(禁止使用插入行功能判斷U2$>!NU3$>!Nrow %(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_4~:__SRP_5PSheet2J?Sheet3K?0gJZH幗g0xl@g叁gg0xlg剝g幗gg幗gV橚H剝叁xhh8gZ叁Zg橚8gJ橚剝叁xH<gZ叁Zg橚gJZH瘕瘕旋Lg0xlg剝gg0xl0g庚g旋Lgg旋gV橚0庚剝x狚狚pgZ剝Zg橚pgJ橚庚剝x0@gZ剝Zg橚@\g0 8gB  ggg`p 8   g  Cx (   櫝C懸7更l  gb 8   g g包 8 包X 包g  gg`pyrU@@803A aQ  !Q"Aa!Q!!#1"Q"q"""""a%%%%%a&&&1'a'' ! Q ` 1  ``ii9 *'ggB08P  00gPK'gJ0Z0H玄玄棹0剝g0棹P橚lg棹gg0棹P橚lVg棹gg0棹P橚lg棹g剝gg棹剝gD0ZP0lP0g60ZP00gP!\gPhgb08P"O 0橚K0橚g hPhggb08P#O 0橚K0橚g hPhggb08P$O 0橚K0橚g hPhggb08P%O 0橚K0橚g hPhggb08P&O 0橚K0橚 g hPhgghPgL8橚P'I (橚8g6P!0ZP00gPhgggP gPgP瘕gP佚gP例gPgP慅gFP橚e78lgVP更更x8橚懸懸堻g 08P(xO 0Ph"O橚 8Ch P(xO8 棼!T宣7耕l0 橚88棼lgT08P)xO 0橚瘕0gg 08P(xO 0Ph#O橚 8Ch P(xO8 棼!T宣7耕l0 橚88棼 gT08P)xO 0橚佚0gg 08P(xO 0Ph$O橚 8Ch P(xO8 棼!T宣7耕l0 橚88棼4 gT08P)xO 0橚例0gg 08P(xO 0Ph%O橚 8Ch P(xO8 棼!T宣7耕l0 橚88棼 gT08P)xO 0橚0gg 08P(xO 0Ph&O橚 8Ch P(xO8 棼!T宣7耕l0 橚88棼 gT08P)xO 0橚慅0ggx堻gg8e橚7lgVP堺堺x8橚狖狖Xg 08P*xO 0Ph"O橚 8Ch P*xO8 棼!T宣7耕l0 橚88棼 gT08P+xO 0橚瘕0gg 08P*xO 0Ph#O橚 8Ch P*xO8 棼!T宣7耕l0 橚88棼ngT08P+xO 0橚佚0gg 08P*xO 0Ph$O橚 8Ch P*xO8 棼!T宣7耕l0 橚88棼gT08P+xO 0橚例0gg 08P*xO 0Ph%O橚 8Ch P*xO8 棼!T宣7耕l0 橚88棼6gT08P+xO 0橚0gg 08P*xO 0Ph&O橚 8Ch P*xO8 棼!T宣7耕l0 橚88棼gT08P+xO 0橚慅0ggxXgg瘕P佚8橚+例h8+hP8+棼慅P宣+耕ldgP gg 瘕PT瘕8de橚7佚hT8佚Pdeh78+棼例PT宣例 de耕7@+(Tde帔7鰓+苞慅橔T慅hdeP78+ lgPgg@ PC8C橚7lfgL8橚P,I (橚8g6P!0ZP00ggB08P- 0瘞0gPg@瘕PT瘕8de橚7l"g Pgg@佚PT佚8de橚7lg Pgg@例PT例8de橚7lg Pgg@PT8de橚7lTg Pgg@慅PT慅8de橚7lg Pgg瘞ng^h8P.瘞O8/O橚 ( 橚8hg6P!0ZP00ggB08P0 0佇0gVPx8橚礫礫x!gP0gPgT08P(xO 0橚`0gT08P)xO 0橚`0g@`P!T`8de橚7l!g"0gb08P"O 0橚`K0橚g 0P0gg0>g"gb08P#O 0橚`K0橚g 0P0ggg"續\gb08P$O 0橚`K0橚@g 0P0gg續g"狓 gb08P%O 0橚`K0橚 g 0P0gg狓~g"p gb08P&O 0橚`K0橚 g 0P0ggp> g0佇!g^h8P1佇O82O橚 ( 橚8hg6P!0ZP00gggxx gVP@@x8橚XX'gP0gPgT08P*xO 0橚`0gT08P+xO 0橚`0g@`P!T`8de橚7l'g"圜#gb08P"O 0橚`K0橚#g 0P0gg圜4#g"鎊$gb08P#O 0橚`K0橚v$g 0P0gg鎊#g"R%gb08P$O 0橚`K0橚6%g 0P0gg$g"P&gb08P%O 0橚`K0橚%g 0P0ggPt%g" &gb08P&O 0橚`K0橚&g 0P0gg 4&g0佇'g^h8P1佇O82O橚 ( 橚8hg6P!0ZP00gggx"gg'B剝叁玄懸更狘堻狖堺pX礫慁xH0桫續給狓堷pX@(圜灑鎊橑hP8 瘕`H佚例` 瘞櫝慅h棹x0佇0橚8h8棼宣耕@(帔鰓苞P8  ggT   \ngggT  KDgB  `g`K>gB  HgB   8   g g包 8 包X 包g ggX 幗旋槧hP8 瘕狚堼pX@庚叁剝橚H`0P  包x懸更`"a "a`"a "aZrU@@@xH`8qH1`@qb蘟 *\G{000204EF-0000-0000-C000-000000000046}#4.2#9#C:\PROGRA~1\COMMON~1\MICROS~1\!If Range("B" & curline) = "" ThenActiveCell.Value = ""Range("B" & curline) = ""0MsgBox "輸入運動員姓名,然後才可以選擇參賽項目!"End If -------------T2$>!N'L L----------查找關鍵字的行號 P R!T P!N男子姓名!Sheet2.Cells(i, 1).Value = cc.Row P!V'@k P!N女子姓名!Sheet2.Cells(i, 1).Value = cc.Row P!V'BkH P!N電子報名補充說明:!Sheet2.Cells(i, 1).Value = cc.Row P!V'Dyk X!V'F X!N'HMsgBox "男子開始行:" & manstart!MsgBox "女子開始行:" & womenstartMsgBox "結束行:" & endline$MsgBox "當前單元格的行號:" & curlineMsgBox "當前值:" & curxmname'-----------------當前行項目名稱重復次數 H'JC F$> H J 'JkhD F$> H J 'Jk0E F$> H J 'JkF F$> H J 'JkG F$> H J 'Jk J "同一名運動員重復報相同的比賽項目!A@Z X(N'Jk(k -----------------是否與全能沖突]('\'^]@Xp'`'b'd'f'h]0H男子 F @ F B  j D D N j$>!NC F$>N j$>!NQ j$>!N'`kN j$>!ND F$>N j$>!NQ j$>!N'bk N j$>!NE F$>N j$>!NQ j$>!N'dkN j$>!NF F$>N j$>!NQ j$>!N'fk0N j$ 2枈v#xME(SLSS<>N0{00020820-0000-0000-C000-000000000046}x :X)<x%@凘 @凚 @凞 @凢 @凥 @凧 @刓 @刕 @刞 @刡 @刣 @刦 @刪 @刯 @刲 @刵 @刾 @剅 @則 @剉 @剎 @剒 @剕 GG)< % X(%((`_)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] 加速創建報名$If Range("P37").Value <> "比賽" ThenExit SubEnd Ifcurline = ActiveCell.Rowcurxmname = ActiveCell.Value>!NG F$>N j$>!NQ j$>!N'hk jk女子 F B F D j D D O j$>!NC F$>O j$>!NR j$>!N'`kO j$>!ND F$>O j$>!NR j$>!N'bkhO j$>!NE F$>O j$>!NR j$>!N'dkO j$>!NF F$>O j$>!NR j$>!N'fkxO j$>!NG F$>O j$>!NR j$>!N'hk jkMsgBox "xmid1:" & xmid1MsgBox "xmid2:" & xmid2MsgBox "xmid3:" & xmid3MsgBox "xmid4:" & xmid4MsgBox "xmid5:" & xmid5 ` b  d  f  h '\k ` `d b bd d dd f fd h hd'^k` \ ^2同一名運動員不能同時參加全能項目和其它單項的比賽!A@Z X(Nk#-----------------運動員限報數量檢測]`xS3$>!N'z'x ` `d x 'xkX b bd x 'xk  d dd x 'xk f fd x 'xk h hd x 'xkx x z 每名參賽運動員限報: z個單項,可兼報接力!A@Z X(Nk*-----------------參賽單位限報數量檢測-男子]S2$>!N'|MsgBox dwxbmax j D D 'p'rN j$>!N'lQ j$>!N'~ l ~dMsgBox "項目名稱:" & xmname t @ BC t$> l p 'pk t t @ BD t$> l p 'pkH t t @ BE t$> l p 'pk  t t @ BF t$> l p 'pk  t t @ BG t$> l p 'pk(  tMsgBox "當前男dwmax:" & dwmax p | 單項比賽,每個參賽單位限報: |人!A@Z X(Nk k  j*-----------------參賽單位限報數量檢測-女子,Dim xmi, xmname, xmid, dwmax, ydymax, i1, i2 j D D 'p'rO j$>!N'lR j$>!N'~ l ~dMsgBox "項目名稱:" & xmname t B DC t$> l p 'pk  t t B DD t$> l p 'pk  t t B DE t$> l p 'pkP  t t B DF t$> l p 'pk  t t B DG t$> l p 'pk  tMsgBox "當前女dwmax:" & dwmax p | 單項比賽,每個參賽單位限報: |人!A@Z X(Nkk jko 加速創建報名P37$>!N比賽|kT2$>!NT2$>!N'L LU2$>!N'U3$>!N'男子 P R!T P!N男子姓名 P!V'@k P!N女子姓名 P!V'BykxMsgBox "行數:" & manstartMsgBox "行數:" & womenstart6MsgBox "行數:" & manlingsmax - (womenstart - manstart)   B @   @ R%B@  B @    @ R%B@P女子 P R!T P!N女子姓名 P!V'Bk P!N電子報名補充說明: P!V'Dyk   D B   B R%B@X  D B    B R%B@ (T2$>(Nkk禁止使用插入列功能On Error Resume NextcApplication.CommandBars("Worksheet Menu Bar").Controls("插入(I)").Controls("列(C)").Enabled = FalseOn Error GoTo 0禁止使用插入列功能Column %(禁止使用插入行功能判斷U2$>!NU3$>!Nrow %(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伕!If Range("B" & curline) = "" ThenActiveCell.Value = ""Range("B" & curline) = ""0MsgBox "輸入運動員姓名,然後才可以選擇參賽項目!"End If -------------T2$>!N'L L----------查找關鍵字的行號 P R!T P!N男子姓名!Sheet2.Cells(i, 1).Value = cc.Row P!V'@k P!N女子姓名!Sheet2.Cells(i, 1).Value = cc.Row P!V'BkH P!N電子報名補充說明:!Sheet2.Cells(i, 1).Value = cc.Row P!V'Dyk X!V'F X!N'HMsgBox "男子開始行:" & manstart!MsgBox "女子開始行:" & womenstartMsgBox "結束行:" & endline$MsgBox "當前單元格的行號:" & curlineMsgBox "當前值:" & curxmname'-----------------當前行項目名稱重復次數 H'JC F$> H J 'JkhD F$> H J 'Jk0E F$> H J 'JkF F$> H J 'JkG F$> H J 'Jk J "同一名運動員重復報相同的比賽項目!A@Z X(N'Jk(k -----------------是否與全能沖突]('\'^]@Xp'`'b'd'f'h]0H男子 F @ F B  j D D N j$>!NC F$>N j$>!NQ j$>!N'`kN j$>!ND F$>N j$>!NQ j$>!N'bk N j$>!NE F$>N j$>!NQ j$>!N'dkN j$>!NF F$>N j$>!NQ j$>!N'fk0N j$ 2枈衋#xME(SLSS<>N0{00020820-0000-0000-C000-000000000046}x :X)<x%@凘 @凚 @凞 @凢 @凥 @凧 @刓 @刕 @刞 @刡 @刣 @刦 @刪 @刯 @刲 @刵 @刾 @剅 @則 @剉 @剎 @剒 @剕 GG)< % X(%((`_)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] 加速創建報名$If Range("P37").Value <> "比賽" ThenExit SubEnd Ifcurline = ActiveCell.Rowcurxmname = ActiveCell.Value>!NG F$>N j$>!NQ j$>!N'hk jk女子 F B F D j D D O j$>!NC F$>O j$>!NR j$>!N'`kO j$>!ND F$>O j$>!NR j$>!N'bkhO j$>!NE F$>O j$>!NR j$>!N'dkO j$>!NF F$>O j$>!NR j$>!N'fkxO j$>!NG F$>O j$>!NR j$>!N'hk jkMsgBox "xmid1:" & xmid1MsgBox "xmid2:" & xmid2MsgBox "xmid3:" & xmid3MsgBox "xmid4:" & xmid4MsgBox "xmid5:" & xmid5 ` b  d  f  h '\k ` `d b bd d dd f fd h hd'^k` \ ^2同一名運動員不能同時參加全能項目和其它單項的比賽!A@Z X(Nk#-----------------運動員限報數量檢測]`xS3$>!N'z'x ` `d x 'xkX b bd x 'xk  d dd x 'xk f fd x 'xk h hd x 'xkx x z 每名參賽運動員限報: z個單項,可兼報接力!A@Z X(Nk*-----------------參賽單位限報數量檢測-男子]S2$>!N'|MsgBox dwxbmax j D D 'p'rN j$>!N'lQ j$>!N'~ l ~dMsgBox "項目名稱:" & xmname t @ BC t$> l p 'pk t t @ BD t$> l p 'pkH t t @ BE t$> l p 'pk  t t @ BF t$> l p 'pk  t t @ BG t$> l p 'pk(  tMsgBox "當前男dwmax:" & dwmax p | 單項比賽,每個參賽單位限報: |人!A@Z X(Nk k  j*-----------------參賽單位限報數量檢測-女子,Dim xmi, xmname, xmid, dwmax, ydymax, i1, i2 j D D 'p'rO j$>!N'lR j$>!N'~ l ~dMsgBox "項目名稱:" & xmname t B DC t$> l p 'pk  t t B DD t$> l p 'pk  t t B DE t$> l p 'pkP  t t B DF t$> l p 'pk  t t B DG t$> l p 'pk  tMsgBox "當前女dwmax:" & dwmax p | 單項比賽,每個參賽單位限報: |人!A@Z X(Nkk jko 加速創建報名P37$>!N比賽|kT2$>!NT2$>!N'L LU2$>!N'U3$>!N'男子 P R!T P!N男子姓名 P!V'@k P!N女子姓名 P!V'BykxMsgBox "行數:" & manstartMsgBox "行數:" & womenstart6MsgBox "行數:" & manlingsmax - (womenstart - manstart)   B @   @ R%B@  B @    @ R%B@P女子 P R!T P!N女子姓名 P!V'Bk P!N電子報名補充說明: P!V'Dyk   D B   B R%B@X  D B    B R%B@ (T2$>(Nkk禁止使用插入列功能On Error Resume NextcApplication.CommandBars("Worksheet Menu Bar").Controls("插入(I)").Controls("列(C)").Enabled = FalseOn Error GoTo 0禁止使用插入列功能Column %(禁止使用插入行功能判斷U2$>!NU3$>!Nrow %(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_PROJECTUdir,__SRP_0 N__SRP_1sVBA\VBA7.1\VBE7.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.8#0#C:\Program Files\Microsoft Office\Office15\EXCEL.EXE#Microsoft Excel 15.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.7#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE15\MSO.DLL#Microsoft Office 15.0 Object Library_)S枈ThisWorkbook055cbd870e%ThisWorkbook: Sheet1065cbd87119 Sheet1T 疐 Sheet2035cbd870e Sheet2v02 Sheet3045cbd870e Sheet3衋H2h0H妼獺峺竼3R\醻煱jU@J瀡s┠!5諐@扗.(Ao^w[35Jwj閕]Wp7 Excel+` VBA麾`Win16羴~`Win32`Win64x`Mac巢`VBA6#`VBA7#` VBAProject究`stdole揱`Officeu` ThisWorkbook|鉦 _evalsuate賎bbbbb6s` Workbook_Open涐`Windows`Count0v`Visible隊`Workbook_BeforeClose滄`Cancel駱`Save捫` Sheet1`Worksheet_Change烻`Target現`Range `manstart釘` womenstarti賎endlineq `curline$` curxmname甘` linemaxxmr` addlinsvalid崷`Value銴`cc荺` ActiveSheet%N` UsedRange葔`Row壪` ActiveCell椒`MsgBox桼`qnexist笪`dxexist8宍xmid1Pxmid2Qxmid3Rxmid4Sxmid5TxmiH颼xmname矪`xmid1隸dwmax)C`ydymax獌`i1揮`i2擼` ydydxbmzs煪`ydyxbmax`dwxbmax I`xmnameid≡`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讂`_B_var_xmnameid*琡l "%9 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\OFFICE15\MSO.0DLL#僊 1@5.0 Ob伭 LibraryKE傇偍ThisWorkbookGT玦sW硆kbUo 2 QHB1Bx-B,!:*"B+BB|Sh爀et1GS@#俥@Xt1H2N疐TT 222I22v333R3衋BU揔*rU@@@~ ~~~~~ ~~~B"QPAc摂CM堬F 蘳 儕a 儕a    Q VBAProject ThisWorkbookSheet1Sheet2Sheet3F1C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLLVBA  AFOX嚻w霳呈9F4C:\Program Files\Microsoft Office\Office15\EXCEL.EXEExcel q0FC:\Windows\System32\stdole2.tlbstdole AqL續-鶾藉D轗?C:\Program Files\Common Files\Microsoft Shared\OFFICE15\MSO.DLLOffice q1F1^棎C敁p躍N抈DFWorkbook Workbook_OpenWorkbook_BeforeClose &mFF▽}逼L何疘U  F冊噝疞醈l蒖DF WorksheetFWorksheet_ChangeFFWorksheet_SelectionChange x P37:  詋[ T2 U2 U3F &m UsedRange Value 7uP[覻 TRow sYP[覻 TRows Insert Delete 5uP[ Te圗Q魦f:&m F&t Q Column &mQ F.Q F&m  row L(R) 襝eQ(I) $Worksheet Menu Bar&m F.ControlsEnabled  C D E F G " TN T袕≧XT蛻 Y鴙 T剉詋[峺橆vVBE7.DLLQ#S $(~ 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 篘!&mVrU@@@@~~~r AbbbbbCancel  0 Q PTargetFThisWorkbookThisWorkbookSheet1Sheet1Sheet2Sheet2Sheet3Sheet3ID="{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="2C2E809780E084E084E488E488" DPB="797BD53AF23AF2C50E3BF28F8F1584E028PROJECTwmhPROJECTSummaryInformation(,DocumentSummaryInformation8A20FB0BE742A7889D9F8DEB1AA716F5A45CA2E" GC="C6C46A3DFAC746C846C8B9" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=44, 58, 716, 502, Z 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 上海索美軟件上海索美軟件上海索美軟件lenovoMicrosoft Excel@E靖D@9q囕@_釀庌 脹諟.摋+,0 PXd lt| slh 學生組教工組 教工益壯組 工作表 FMicrosoft Excel 2003 工作表Biff8Excel.Sheet.89瞦CompObjh