ࡱ> XzW  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVZ[\]^_`abdrfghijklmnopqcstuvwxy{|}~Root Entry F6/0-@Y-Workbook_VBA_PROJECT_CUR"@>0-@VBAP>P @  \pSTarPoLo Ba=  ThisWorkbook=hJ{9"9X@"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> , *    !ff " # $` + )       % & '       @ @  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 @  !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;`,- .{/hgUSCQ  ?lʑ`PEؚN~\ؚN~oؚ N~qYe]Rt^~͕Ye]-Nt^~VV"zr8 3 A@@   bGk[~+R 7T|e_ 7S[USMO 7  7Ye ~ 7]\ONXT 7IDS 77uP[Y T 7S[yv1 7S[yv2 7S[yv3 7S[yv4 7S[yv5 7{|W 7Queg 7ؚ 7SO͑ 7 7sYP[Y T 7 5uP[b TeEQf: 720Y TTS[yv/f_kXvyv vQ[Oo`SN b'`kXQ0 730b TpQS[yv NbFhsSS0{|W NkXQ؞:N<k[>0 740 NmRRbO9eb Th@              ""    !! 77  % /  %/  %   Sheet1b(b(  gghPh "   :SW1_1&`J   /]Uik  dMbP?_*+%"J??cU} ` 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 H A A A A A A A H  A  A  AIB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IBCCCCCCLDDD IB@@@@@@IBBB \] S,TTTTTTTTU ^_ bccccccccd ^_ beeeeeeeef  ! " # $ % `a ghhhhhhhhi  . . 9@@  / / :5@5@ K  0 06@6@ MMMMMMMMMMM  1 1D@D@ MMMMMMMMMMM  2 2E@E@NNNNNNNNNNN  3 3E@E@MMMMMMMMMMM  4 4N@N@D lXzp....B""""""""""""B8~x@@^^R !"#$@%@&@'@(@)@*@+@,@-@.@ MMMMMMMMMMM 5 5 Q@Q@!MMMMMMMMMMM ! 6 !7!R@@R@"NNNNNNNNNNN " 8 "8"Y@Y@""RRR (  R  C ]F!< S d \>@         !! ""        7/  %7  % /  %   Sheet2b(b(444gghTh "   :SW1_1_1&J   /ip5|~  dMbP?_*+%"J??cU} ` 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 H A A A A A A A H  A  A  AIB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IB@@@@@@IBBB IBCCCCCCLDDD IB@@@@@@IBBB \] S=TTTTTTTTU ^_ bccccccccd ^_ beeeeeeeef  ! " # $ % `a ghhhhhhhhi  . . 9@@  / / :5@5@ K  0 06@6@ MMMMMMMMMMM  1 1D@D@ MMMMMMMMMMM  2 2E@E@NNNNNNNNNNN  3 3E@E@MMMMMMMMMMM  4 4N@N@D lXzp....B""""""""""""B8~x@@^^R !"#$@%@&@'@(@)@*@+@,@-@.@ MMMMMMMMMMM 5 5 Q@Q@!MMMMMMMMMMM ! 7 !6!@R@R@"NNNNNNNNNNN " 8 "8"Y@Y@""RRR0 (   R  C  ]F! S d \>@           !! ""        7/  %7  % /  %   Sheet3b(b(222gghTh "   :SW1_1_1&J   /I  dMbP?_*+%"J??cU} ` J}  } @ }  } }  J} } } } } @ }  /wwwwww                      O;OOOOOOOOOOO E E EG F& X*XXXXXXXXX EI@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 %:%Q@Q@ &K & 7 &6&@R@R@ 'M'MMMMMMMMMM ' A 'A'R@R@ (M(MMMMMMMMMM ( B (B(@^@@^@)NNNNNNNNNNN *MMMMMMMMMMM +MMMMMMMMMMM ,MMMMMMMMMMM -NNNNNNNNNNN ""B8~x@@^^ @(  R  C ]F!S d \>@''    !$!!    ++ ,, --  (( )) ** "" ## $$ 7/  %$ /  %$  7  %$%   Sheet4b(b(999gghTh  (-  :SW1_1_1&J   /u  dMbP?_*+%"J??cU} ` J}  } @ }  } }  J} } } } } @ }  /wwwwww                      O;OOOOOOOOOOO E E EG F( X)XXXXXXXXX EI@E?E  VWPQQQQQQQQR ~ E@E~ E  VWPQQQQQQQQR VWPQQQQQQQQR VWmnnnnnnnno VWPQQQQQQQQR VW jDkkkkkkkkl 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 !\!] !SC!TTTTTTTTU "^_ "b"ccccccccd #^_ #b#eeeeeeeef # ! #" ## #$ #% $`a $g$hhhhhhhhi $ E $E $9$@@ % F %F %:%R@R@ &K 'M'MMMMMMMMMM (M(MMMMMMMMMM )NNNNNNNNNNN *MMMMMMMMMMM +MMMMMMMMMMM ,MMMMMMMMMMM -NNNNNNNNNNN ""B8~x@,, P(  R  C ]F!(S d \>@''    !$!!    ++ ,, --  (( )) ** "" ## $$ 7/  %$ /  %$  7  %$%   Sheet5b(b(111gghTh  (-  :SW1_1_1&J ThisWorkbook(__SRP_29__SRP_3 HSheet1eS  !"#$%&'()*+,-./012345678:;<=>?@ABCDEFGIJLMOPRSUVXY[\]^_`abcefghijklmnopqrstuvwxyz{|}~Xf :#@؃׾Ly@Fl'7*J[gHxl'7*J[gHϤ؃׾Ly@ME([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 @8X @ H @P8 @h( @ @ @ pX@DdT _)S$*\Rffff*0:57bd61af*\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@("DkoPublic a As StringSub aa(bb As Integer) a = "public1"MsgBox aEnd SubMsgBox Str(bbbbb + 1) Call aa(1)8HAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2Option /licit Pub b As Integer /A3 Sub _Open() O#rror ResuNex'Windows(.Count)`.VisiCE nd*2BeforeCl(CancelMBoolean>0=2+ 1fctHC#H!LIf = 1 Then I.Sav@fMsgBox "Զ泠ɹ@EB ȷρ Ϣ,ȻA涨@, vbOKOnly, "ӭʹCIIf K T 'laDS@ngiaa(bbAq@J'apy1@ '*a FR PCall @1rU 0 Y y @  q Ai#8a` `a/o`KUc$%x! xahv"iT%d! d4,.)xd6h4"l`$ xdh4K44 fh%x$ Dx,.x4 $ +'''8:hNHH 6H83'':X N88:h NHH 6H8$ xH8 488ErU D$Y`\(`` #@T4nrU @,`H,A`L n 1 rU @,`H,A`L ; "  & 0 *H x  " (  ( 6H  &  + (  HX` (x " (   ( *0 !@ &P (x  * " . H X8`888(88@`p x,+ !  &   ( H P X ` h,p (1J0@`Jh0WFT #<v=j@=W FD|K/:LxD|K/:Lv=j@=WME4 [LSS826"LLLLL<8<<<N0{00020820-0000-0000-C000-000000000046} .`k@H)0 ` %@4h @6X @8hH @:8 @<( @> @ND @P4 @R$ @T @V @X @Z @\ @^p @`@ @b @d @f @ht @j @l0| @nl r` ToLGG)0  % %`%,%( X`8xH8`hX 0xP %(82FL(@ @ @ @@ @ @D @` P@ x8@ `@ @o \SLo\@ amxicr@H ce@0t !jHr@0d @T @d `L@T L@D L@4 L@x0 @H @` @ @ @ @ @ @@ @ \@( @`@P h(`@x| P`@ l x` xp@\ @L @ < @X , @(  @@ @p @ @ @ @ @ @ @ \ ( @8 L P  @` < x 8 @ , ` @p @ @   @( @ @`  P ( x ( @ ` @  @ @   8 @H ` @ | p H H ` @ l @ \ @ L @0 < H  @X , p 0 @  X X @ @   6D@ 0 @P @h@x P@ xx@ @  8h H 0x %2F----@ h @PX !B@T dwx@D @4 'b@$ $2@@ Q @t @v @D :"@0 f8 @@ ^`  b@p fH f@h D p ^@o b f@4 6@6 $2H@x @h f@Xt F p0 ^@d bX f@T 6G  ^@D b f@4 "" & dw0b n@$ ÿXޱ@ @B@ \h*--@ λ-Ů@o e, x, ydym@8 \ & 8@0 'dH'$2@X R p0'!B'@ pX'MsX):"@ f*@ ^*b, @8 f@  D @ @P @| f@l E @\ @X P @T f0 h8@PH(_)S*\R1*#1c8$*\Rffff*0;57bd61af*\R1*#2ac*\R1*#e8*\R0*#14*\R1*#d7*\R3*#8c*\R3*#4d*\R3*#4e*\R3*#4f4J00PJX0J0 @  H X ` p 1 J 0  J 0p  J 0  J 0`  J 0     8 X x  <X      % <+  !  *@&P h%p%%%8H%Pp <7 ! 0 &( @ 1X x 00% "8 @P Xh8 8 (8@`p x8  $ 67  !Xhp x 0 21  0 0@%` "x8 88H P`8x 8  88Xh p $ 67 !   ( "  0 80Ppx0& && + 0@H `px   " <&1:8 X&*`:  + " 0@H P&1X: &*:  &  ( 0 H jh  : (0gH:xHl:HmX` h x]h ٴ$If Range("P37").Value <> "" ThenExit SubEnd Ifcurline = ActiveCell.Rowcurxmname = ActiveCell.Value!If Range("B" & curline) = "" ThenActiveCell.Value = ""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!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 %%%(koAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$BustomizD2 P Sub Works_Change(ByVal Target As R ) Dim manstart, womeendline, curxmn, maxxm 'ٴIf.("P37").;ue <> "" ThenExitUnd If4ActCell.Row B" &,) "F$2'B("MsgBox "˶Ա,ȻſϠĿEE3B- adSs0valiADT2مH 1 1EKҹؼֵк For Each cc In 9.U@cccLike "A3H 2.A]s(i, 1o=aV@ςf;@/ Ů/G!N˵:$\ R) Next S RGa-ʼ &&n(L%( h$dǰԪ<C ֵ?ciUb Zظ Hurdz%.F)0D\>C,rG&C g+ 10`K D e E F ; G > E%Rͬһc;xāT+=. @=ee'IȫͻqneHxisdx > $GQjxmid1, a2c3c4c5 "Wb3457anm, dw$, ydyrii221___=?1__RJ81___W?1__R817_V?1'v[d1R`d2f33<44>50q92A40 Or 23z45:wz+(cP50h= 100)q2& 3Uxmid3 <= 100) Or (4 <> 0 And 8 5 @Then dxexisDt ( EIf If qn.N 9MsgBox "ͬ˶ͬμȫĿı" ActiveCell.Val4ue"'- _ޱ Dim ydydxbmzs,pax *Range("S3")40v1  4+ 1 $2$$`$։n7$G >m̕ÿ@G~" & & ",ɼ怱!!AλI-ӃdwE2G'F ` For endline +@ 3 To 15@dwmax@ Exmnam{ADN|Yid@DQM y"" c."av:c Aa i1` manstart!womeb $Ci1)M "hE@Next ik` DlEFGMǰb"N" > ?jDUʬx y`ˁ`t ePQ n ҒŮv',giFBLgsMT>Ux9, 'ӖCEach cc InS1.UsedA.KccLike B"U v=.Row%R,[+DJ?@1 A++(GG&- (8 -O6"cei1qW fs/3s(+ 2).Inser~tA ¢-^ 2 wDp2tre#v""oo4"a &A9˵peNս#or'(ob er3pendline - womenstart) + 1 ActiveSheet.Rows(2).Inser"tTNexFor adi = 1 To (1)smax"tDeletetApplication.Scr@eenUpdn"gTru*Range("T2").Value End If 'ֹʹòй 'On ErrlResume v ' >CommandBars(@"Works `Menu =Control/(I) (CEnabledaQFals_@G:o0ISECoplumn5,#;ж If MU M0 ALE3S0 T hen !ro>wJ CfVpV(RKVLUE[0g?11F1ʵSub__SRP_4!__SRP_5 KSheet2 S__SRP_6!{A4 1(D4$(htthT:(h4%T$ @T"#T64 ~T*(D4(h$h4m:(h4%T$ @T"$T64 ~4(+T$ @TW4$$TA4:h }$54A4A4:h }$54A4 1(D4$(hh{:(h4%T$ @T"#T64 ~6*(D4(h$h:(h4%T$ @T"$T64 ~ T! T %T&(D%T'X%:h%! T,T::h&%T! T d% H' ()TgT'X%:h %! Ta4(D]/$'%:!%! a(|]/l'\)T64::h)%T! T d% H' ()TKlc%:D*%T:X+%X:h,%T! T d% H' (X ,-TrU 01  y  A Y   1 I ! A  )IqAa9i 41Y `` IW | l x&'%:%! a(]3t+$ @WA:}5AhA: }5AXA: }5AHϤ j*$ (a"i85!$ (a((: ]@O (8'%: 8%! a(36(8'%: 8%! a(36(8'%:8%! a(36L(8'%:8%! a(36(8'%:8%! a(36((]tM+'T'':N 6T!: %$ (, ( (D (4 ($ ( ( ( ((8hp8X(I'T 1H(TTH(ddh4 '%:%! a0'd%:t 8%! 0aT/ '%:%! a: ]<')06 T0'%:%! a$5'%:%! a0'd%:t 8%! 0aT/ '%:%! a: ]<')06 T0'%:%! a5'%:%! a0'd%:t8%! 0aT/ '%:%! a: ]<')06 Tb0'%:%! a5'%:%! a0'd%:t8%! 0aT/ '%:%! a: ]<')06 T10'%:%! a5'%:%! a0'd%:t8%! 0aT/ '%:%! a: ]<')06 T0'%:%! a5 ~48Xp8HI'u 1H(H(hlu '%:%! a0'd%:t 8%! 0aT/ '%:%! a: ]<')06 T, 0'%:%! a$5'%:%! a0'd%:t 8%! 0aT/ '%:%! a: ]<')06 T 0'%:%! a5'%:%! a0'd%:t8%! 0aT/ '%:%! a: ]<')06 T 0'%:%! a5'%:%! a0'd%:t8%! 0aT/ '%:%! a: ]<')06 T 0'%:%! a5'%:%! a0'd%:t8%! 0aT/ '%:%! a: ]<')06 Th 0'%:%! a5 ~l_X$(]p(]p(t]pT (d]p(]p (D$(]<$(d]I'(t] @ND ?D@P4 @R$ @T $If@V <> "@X Ex@Z 4@\ veCe@^p ame @`@ $2@b 2@d @f @ht @j @l0| @nl r` ToLGG)0  % %`%%( X`8xH8`hX 0xP %(8 2FL( ]<@ @ @ $@@ @ 0'@D 0@` P@ x8 @ :` @ @o 0'd%!@ 'x%!@H ]<@0t @0d @T @d %:`L! @T 8L0a@D La@4 )L@x0 @H @` :@ @ %! @ '%@ a@ )@ @ %! \@( @`8H@P h(`H@x| u P`@ l 0x`8 xpaT@\ @L ]@ < @X , %:@(  @@ %:@p a@ %@ '@ @ @ @ @ \ ( '%:@8 L aP  :t@` < x 8 :@ , : ` ')@p @ % @  %: !  0'd@( 0a@ '@`  aP ( ] "" ThenExit SubEnd If 4curline = ActiveCell.Rowcurxmname = ActiveCell.Value$2!If Range("B" & curline) = "" ThenActiveCell.Value = ""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!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!H6 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 %%%(koAttribute VB_Name = "She@et2" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$BustomizD2 P Sub Works_Change(ByVal Target As R ) Dim manstart, womeendline, curxmn, maxxm 'ٴIf.("P37").;ue <> "" ThenExitUnd If4ActCell.Row B" &,) "F$2'B("MsgBox "˶Ա,ȻſϠĿEE3B- adSs0valiADT2مH 1 1EKҹؼֵк For Each cc In 9.U@cccLike "A3H.A]s(i, 1o=aV@f;@/ Ů/GN˵:O$\ R) Next S RGa-ʼ &&n(L%( hp$dǰԪC ֵciUb ZظHurdoz%.F)0D\C,rG&C g+ 1ק0`K D eݞ E F  G > E%Rͬһc;ͬ<āT+= @=ee'IǷȫܳͻqnex$isdx $GQjxmiPd1, a2c3c4c5 "b345anm, dw$, ydyrii221___=?1__RJ81___W?1__R81_V?1'v[d1Rw`d2f3U3<4450q92A40 TOr 2345:wz+(c P50h= 100)q2& 3Uxmid3 <= 100) Or (4 <> 0 And 8 5 @Then dxexisDt ( EIf If qn.N 9MsgBox "ͬ˶ͬμȫĿı" ActiveCell.Val4ue"'- _ޱ Dim ydydxbmzs,pax *Range("S3")40v1  4+ 1 $2$$`$։n7$G >m̕ÿ@G~" & & ",ɼ怱!!AλI-ӃdwE2G'F ` For endline +@ 3 To 15@dwmax@ Exmnam{ADN|Yid@DQM y"" c."av:c Aa i1` manstart!womeb $Ci1)M "hE@Next ik` DlEFGMǰb"N" > ?jDUʬx y`ˁ`t ePQ n ҒŮv',giFBLgsMT>Ux9, 'ӖCEach cc InS1.UsedA.KccLike B"U v=.Row%R,[+DJ?@1 A++(GG&- (8 -O6"cei1qW fs/3s(+ 2).Inser~tA ¢-^ 2 wDp2tre#v""oo4"a &A9˵peNս#or'(ob er3pendline - womenstart) + 1 ActiveSheet.Rows(2).Inser"tTNexFor adi = 1 To (1)smax"tDeletetApplication.Scr@eenUpdn"gTru*Range("T2").Value End If 'ֹʹòй 'On ErrlResume v ' >CommandBars(@"Works `Menu =Control/(I) (CEnabledaQFals_@G:o0ISECoplumn5,#;ж If MU M0 ALE3S0 T hen !ro>wJ CfVpV(RKVLUE[0g?11F1ʵSub{A4 1(D4$(htthT:(h4%T$ @T"#T64 ~T*(D4(h$h4m:(h4%T$ @T"$T64 ~4(+T$ @TW4$$TA4:h }$54A4A4:h }$54A4 1(D4$(hh{:(h4%T$ @T"#T64 ~6*(D4(h$h:(h4%T$ @T"$T64 ~ T! T %T&(D%T'X%:h%! T,T::h&%T! T d% H' ()TgT'X%:h %! Ta4(D]/$'%:!%! a(|]/l'\)T64::h)%T! T d% H' ()TKlc%:D*%T:X+%X:h,%T! T d% H' (X ,-TrU 01  y  A Y   1 I ! A  )IqAa9iY41Y `` IW | l x&'%:%! a(]3t+$ @WA:}5AhA: }5AXA: }5AHϤ j*$ (a"i85!$ (a((: ]@O (8'%: 8%! a(36(8'%: 8%! a(36(8'%:8%! a(36L(8'%:8%! a(36(8'%:8%! a(36((]tM+'T'':N 6T!: %$ (, ( (D (4 ($ ( ( ( ((8hp8X(I'T 1H(TTH(ddh4 '%:%! a0'd%:t 8%! 0aT/ '%:%! a: ]<')06 T0'%:%! a$5'%:%! a0'd%:t 8%! 0aT/ '%:%! a: ]<')06 T0'%:%! a5'%:%! a0'd%:t8%! 0aT/ '%:%! a: ]<')06 Tb0'%:%! a5'%:%! a0'd%:t8%! 0aT/ '%:%! a: ]<')06 T10'%:%! a5'%:%! a0'd%:t8%! 0aT/ '%:%! a: ]<')06 T0'%:%! a5 ~48Xp8HI'u 1H(H(hlu '%:%! a0'd%:t 8%! 0aT/ '%:%! a: ]<')06 T, 0'%:%! a$5'%:%! a0'd%:t 8%! 0aT/ '%:%! a: ]<')06 T 0'%:%! a5'%:%! a0'd%:t8%! 0aT/ '%:%! a: ]<')06 T 0'%:%! a5'%:%! a0'd%:t8%! 0aT/ '%:%! a: ]<')06 T 0'%:%! a5'%:%! a0'd%:t8%! 0aT/ '%:%! a: ]<')06 Th 0'%:%! a5 ~l_X$(]p(]p(t]pT (d]p(]p (D$(]<$(d]I'(t] Q @ND Ac@P4 @R$ rlin@T "@V @X En@Z ----@\ !B@^p @`@ ؼ@b @d @f B@ht O@j @l0| $2@nl h r` ToLGG)0 $2 % %`%%( X`8xH8`hX 0xP %(8 2FL( ]<@ @ @ $@@ @ 0'@D 0@` P@ x8 @ :` @ @o 0'd%!@ 'x%!@H ]<@0t @0d @T @d %:`L! @T 8L0a@D La@4 )L@x0 @H @` :@ @ %! @ '%@ a@ )@ @ %! \@( @`8H@P h(`H@x| u P`@ l 0x`8 xpaT@\ @L ]@ < @X , %:@(  @@ %:@p a@ %@ '@ @ @ @ @ \ ( '%:@8 L aP  :t@` < x 8 :@ , : ` ')@p @ % @  %: !  0'd@( 0a@ '@`  aP ( ] "" ThenExit SubEnd Ifcurline = ActiveCell.Rowcurxmname = ActiveCell.Value!If Range("B" & curline) = "" ThenActiveCell.Value = ""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 <    ) !"#$%&'(*+,-./0123456789:;<=>?@ABCETGHIJKLMNOPQRSDVdXYZ[\]^_`abcUefghijklmnopqrstuvwxyz{|}~ > '>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 %%%(koAttribute VB_Name = "She@et3" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$BustomizD2 P Sub Works_Change(ByVal Target As R ) Dim manstart, womeendline, curxmn, maxxm 'ٴIf.("P37").;ue <> "" ThenExitUnd If4ActCell.Row B" &,) "F$2'B("MsgBox "˶Ա,ȻſϠĿEE3B- adSs0valiADT2مH 1 1EKҹؼֵк For Each cc In 9.U@cccLike "A3H 2.A]s(i, 1o=aV@ςf;@/ Ů/G!N˵:$\ R) Next S RGa-ʼ &&n(L%( h$dǰԪ<C ֵ?ciUb Zظ Hurdz%.F)0D\>C,rG&C g+ 10`K D e E F ; G > E%Rͬһc;xāT+=. @=ee'IȫͻqneHxisdx > $GQjxmid1, a2c3c4c5 "Wb3457anm, dw$, ydyrii221___=?1__RJ81___W?1__R817_V?1'v[d1R`d2f33<44>50q92A40 Or 23z45:wz+(cP50h= 100)q2& 3Uxmid3 <= 100) Or (4 <> 0 And 8 5 @Then dxexisDt ( EIf If qn.N 9MsgBox "ͬ˶ͬμȫĿı" ActiveCell.Val4ue"'- _ޱ Dim ydydxbmzs,pax *Range("S3")40v1  4+ 1 $2$$`$։n7$G >m̕ÿ@G~" & & ",ɼ怱!!AλI-ӃdwE2G'F ` For endline +@ 3 To 15@dwmax@ Exmnam{ADN|Yid@DQM y"" c."av:c Aa i1` manstart!womeb $Ci1)M "hE@Next ik` DlEFGMǰb"N" > ?jDUʬx y`ˁ`t ePQ n ҒŮv',giFBLgsMT>Ux9, 'ӖCEach cc InS1.UsedA.KccLike B"U v=.Row%R,[+DJ?@1 A++(GG&- (8 -O6"cei1qW fs/3s(+ 2).Inser~tA ¢-^ 2 wDp2tre#v""oo4"a &A9˵peNս#or'(ob er3pendline - womenstart) + 1 ActiveSheet.Rows(2).Inser"tTNexFor adi = 1 To (1)smax"tDeletetApplication.Scr@eenUpdn"gTru*Range("T2").Value End If 'ֹʹòй 'On ErrlResume v ' >CommandBars(@"Works `Menu =Control/(I) (CEnabledaQFals_@G:o0ISECoplumn5,#;ж If MU M0 ALE3S0 T hen !ro>wJ CfVpV(RKVLUE[0g?11F1ʵSub{A4 1(D4$(htthT:(h4%T$ @T"#T64 ~T*(D4(h$h4m:(h4%T$ @T"$T64 ~4(+T$ @TW4$$TA4:h }$54A4A4:h }$54A4 1(D4$(hh{:(h4%T$ @T"#T64 ~6*(D4(h$h:(h4%T$ @T"$T64 ~ T! T %T&(D%T'X%:h%! T,T::h&%T! T d% H' ()TgT'X%:h %! Ta4(D]/$'%:!%! a(|]/l'\)T64::h)%T! T d% H' ()TKlc%:D*%T:X+%X:h,%T! T d% H' (X ,-TrU 001  y  A Y   1 I ! A  )IqAa9i41Y `` IW | l x&'%:%! a(]3t+$ @WA:}5AhA: }5AXA: }5AHϤ j*$ (a"i85!$ (a((: ]@O (8'%: 8%! a(36(8'%: 8%! a(36(8'%:8%! a(36L(8'%:8%! a(36(8'%:8%! a(36((]tM+'T'':N 6T!: %$ (, ( (D (4 ($ ( ( ( ((8hp8X(I'T 1H(TTH(ddh4 '%:%! a0'd%:t 8%! 0aT/ '%:%! a: ]<')06 T0'%:%! a$5'%:%! a0'd%:t 8%! 0aT/ '%:%! a: ]<')06 T0'%:%! a5'%:%! a0'd%:t8%! 0aT/ '%:%! a: ]<')06 Tb0'%:%! a5'%:%! a0'd%:t8%! 0aT/ '%:%! a: ]<')06 T10'%:%! a5'%:%! a0'd%:t8%! 0aT/ '%:%! a: ]<')06 T0'%:%! a5 ~48Xp8HI'u 1H(H(hlu '%:%! a0'd%:t 8%! 0aT/ '%:%! a: ]<')06 T, 0'%:%! a$5'%:%! a0'd%:t 8%! 0aT/ '%:%! a: ]<')06 T 0'%:%! a5'%:%! a0'd%:t8%! 0aT/ '%:%! a: ]<')06 T 0'%:%! a5'%:%! a0'd%:t8%! 0aT/ '%:%! a: ]<')06 T 0'%:%! a5'%:%! a0'd%:t8%! 0aT/ '%:%! a: ]<')06 Th 0'%:%! a5 ~l_X$(]p(]p(t]pT (d]p(]p (D$(]<$(d]I'(t] @ND T@P4 V@R$  @T @V @X @Z ͬһ@\ ȫ@^p A@@`@ @b ----@d @f @ht @j R@l0| @nl r` ToLGG)0 j % %`%%( X`8xH8`hX 0xP %(8 2FL( ]<@ @ @ $@@ @ 0'@D 0@` P@ x8 @ :` @ @o 0'd%!@ 'x%!@H ]<@0t @0d @T @d %:`L! @T 8L0a@D La@4 )L@x0 @H @` :@ @ %! @ '%@ a@ )@ @ %! \@( @`8H@P h(`H@x| u P`@ l 0x`8 xpaT@\ @L ]@ < @X , %:@(  @@ %:@p a@ %@ '@ @ @ @ @ \ ( '%:@8 L aP  :t@` < x 8 :@ , : ` ')@p @ % @  %: !  0'd@( 0a@ '@`  aP ( ]57bd61b1*\R1*#2ac*\R1*#e8*\R0*#14*\R1*#d7*\R3*#8c*\R3*#4d*\R3*#4e*\R3*#4f4J00PJX0J0 @  H X ` p 1 J 0  J 0p  J 0  J 0`  J 0     8 X x  <X      % <+  !  *@&P h%p%%%8H%Pp <7 ! 0 &( @ 1X x 00% "8 @P Xh8 8 (8@`p x8  $ 67  !Xhp x 0 21  0 0@%` "x8 88H P`8x 8  88Xh p $ 67 !   ( "  0 80Ppx0& && + 0@H `px   " <&1:8 X&*`:  + " 0@H P&1X: &*:  &  ( 0 H jh  : (0gH:xHl:HmX` h x]h ٴ0$If Range("P37").Value <> "" Then Exit SubEnd If\curline = ActiveCell.Row curxmname = ActiveCell.ValueN!If Range("B" & curline) = "" ThenActiveCell.Value = ""Range("B" & curline) = ""0MsgBox "˶Ա,ȻſѡĿ"ԱEnd If ------------- LT2$2!B'@( @------------ҹؼֵк D F!Hs D!B!Sheet2.Cells(i, 1).Value = cc.Row D!J'4'Zk D!BŮ!Sheet2.Cells(i, 1).Value = cc.Row D!J'6 kH D!Bӱ˵:N !Sheet2.Cells(i, 1).Value = cc.Row D!J'8!Byk L!J':B' L!B'<MsgBox "ӿʼ:" & manstart!MsgBox "Ůӿʼ:" & womenstartMsgBox ":" & endline$MsgBox "ǰԪк:" & curline$2MsgBox "ǰֵ:" & curxmname'-----------------ǰĿظ <B'>C :$2 <!B > '>khD :$2 <0 > '>2k0E :$2 <\$ > '>kF :$2 < > '>kG :$2 <: 6 > '>k > 8"ͬһ˶ԱظͬıĿA@(2 L(B$'>k(k -----------------Ƿȫܳͻ]2'N'P](@Xp'R'T'V'X'Z]0 :ӶO : 4 : 6  \ 8 8 N \$2!BC :$2N \$2!BQ \$2!B'R!B'kN \$2!BD :$2N \$2!BQ \$2!B'T!B'k 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 %%%(koAttribute VB_Name = "She@et4" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$BustomizD2 P Sub Works_Change(ByVal Target As R ) Dim manstart, womeendline, curxmn, maxxm 'ٴIf.("P37").;ue <> "" ThenExitUnd If4ActCell.Row B" &,) "F$2'B("MsgBox "˶Ա,ȻſϠĿEE3B- adSs0valiADT2مH 1 1EKҹؼֵк For Each cc In 9.U@cccLike "A3H 2.A]s(i, 1o=aV@ςf;@/ Ů/G!N˵:$\ R) Next S RGa-ʼ &&n(L%( h$dǰԪ<C ֵ?ciUb Zظ Hurdz%.F)0D\>C,rG&C g+ 10`K D e E F ; G > E%Rͬһc;xāT+=. @=ee'IȫͻqneHxisdx > $GQjxmid1, a2c3c4c5 "Wb3457anm, dw$, ydyrii221___=?1__RJ81___W?1__R817_V?1'v[d1R`d2f33<44>50q92A40 Or 23z45:wz+(cP50h= 100)q2& 3Uxmid3 <= 100) Or (4 <> 0 And 8 5 @Then dxexisDt ( EIf If qn.N 9MsgBox "ͬ˶ͬμȫĿı" ActiveCell.Val4ue"'- _ޱ Dim ydydxbmzs,pax *Range("S3")40v1  4+ 1 $2$$`$։n7$G >m̕ÿ@G~" & & ",ɼ怱!!AλI-ӃdwE2G'F ` For endline +@ 3 To 15@dwmax@ Exmnam{ADN|Yid@DQM y"" c."av:c Aa i1` manstart!womeb $Ci1)M "hE@Next ik` DlEFGMǰb"N" > ?jDUʬx y`ˁ`t ePQ n ҒŮv',giFBLgsMT>Ux9, 'ӖCEach cc InS1.UsedA.KccLike B"U v=.Row%R,[+DJ?@1 A++(GG&- (8 -O6"cei1qW fs/3s(+ 2).Inser~tA ¢-^ 2 wDp2tre#v""oo4"a &A9˵peNս#or'(ob er3pendline - womenstart) + 1 ActiveSheet.Rows(2).Inser"tTNexFor adi = 1 To (1)smax"tDeletetApplication.Scr@eenUpdn"gTru*Range("T2").Value End If 'ֹʹòй 'On ErrlResume v ' >CommandBars(@"Works `Menu =Control/(I) (CEnabledaQFals_@G:o0ISECoplumn5,#;ж If MU M0 ALE3S0 T hen !ro>wJ CfVpV(RKVLUE[0g?11F1ʵSub{A4 1(D4$(htthT:(h4%T$ @T"#T64 ~T*(D4(h$h4m:(h4%T$ @T"$T64 ~4(+T$ @TW4$$TA4:h }$54A4A4:h }$54A4 1(D4$(hh{:(h4%T$ @T"#T64 ~6*(D4(h$h:(h4%T$ @T"$T64 ~ T! T %T&(D%T'X%:h%! T,T::h&%T! T d% H' ()TgT'X%:h %! Ta4(D]/$'%:!%! a(|]/l'\)T64::h)%T! T d% H' ()TKlc%:D*%T:X+%X:h,%T! T d% H' (X ,-TrU `01  y  A Y   1 I ! A  )IqAa9i!41Y ``  I  W | l x&'%:%! a(]3t+$ @WA:}5AhA: }5AXA: }5AHϤ j*$ (a"i85!$ (a((: ]@O (8'%: 8%! a(36(8'%: 8%! a(36(8'%:8%! a(36L(8'%:8%! a(36(8'%:8%! a(36((]tM+'T'':N 6T!: %$ (, ( (D (4 ($ ( ( ( ((8hp8X(I'T 1H(TTH(ddh4 '%:%! a0'd%:t 8%! 0aT/ '%:%! a: ]<')06 T0'%:%! a$5'%:%! a0'd%:t 8%! 0aT/ '%:%! a: ]<')06 T0'%:%! a5'%:%! a0'd%:t8%! 0aT/ '%:%! a: ]<')06 Tb0'%:%! a5'%:%! a0'd%:t8%! 0aT/ '%:%! a: ]<')06 T10'%:%! a5'%:%! a0'd%:t8%! 0aT/ '%:%! a: ]<')06 T0'%:%! a5 ~48Xp8HI'u 1H(H(hlu '%:%! a0'd%:t 8%! 0aT/ '%:%! a: ]<')06 T, 0'%:%! a$5'%:%! a0'd%:t 8%! 0aT/ '%:%! a: ]<')06 T 0'%:%! a5'%:%! a0'd%:t8%! 0aT/ '%:%! a: ]<')06 T 0'%:%! a5'%:%! a0'd%:t8%! 0aT/ '%:%! a: ]<')06 T 0'%:%! a5'%:%! a0'd%:t8%! 0aT/ '%:%! a: ]<')06 Th 0'%:%! a5 ~l_X$(]p(]p(t]pT (d]p(]p (D$(]<$(d]I'(t] @ND Ac@P4 (@R$ rlin@T "@V @X En@Z ----@\ !B@^p \@`@ ؼ@b B@d @f @ht @j @l0| @nl r` ToLGG)0  % %`%%( X`8xH8`hX 0xP %(8X2FL('%:@ @ (@ q@@ '@ @D #@`  PX@ x8@ `@ 8'@o 36@ x~@H '@0t @0d !:@T ,@d `L|@T Ld@D |L<@4 L@x0 ,@H @` @ @ @ @ @ @ @ <\@( @`8H@P h(`H@x| u P`@ l 0x`8 xpaT@\ @L ]@ < @X , %:@(  @@ %:@p a@ %@ '@ @ @ @ @ \ ( '%:@8 L aP  :t@` < x 8 :@ , : ` ')@p @ % @  %: !  0'd@( 0a@ '@`  aP ( ] "" Then Exit SubEnd Ifcurline = ActiveCell.Rowcurxmname = ActiveCell.Value!If Range("B" & curline) = "" ThenActiveCell.Value = ""(Range("B" & curline) = ""0MsgBox "˶Ա,ȻſѡĿ"End If -------------OT2$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'6`kH D!Bӱ˵:!Sheet2.Cells(i, 1).Value = cc.Row D!J'8yk L!J':?D L!B'< MsgBox "ӿʼ:" & manstart!MsgBox "Ůӿʼ:" & womenstartMsgBox ":" & endline$MsgBox "ǰԪк:" & curlineZMsgBox "ǰֵ:" & curxmname!B'-----------------ǰĿظ < '>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 %%%(koAttribute VB_Name = "She@et5" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$BustomizD2 P Sub Works_Change(ByVal Target As R ) Dim manstart, womeendline, curxmn, maxxm 'ٴIf.("P37").;ue <> "" ThenExitUnd If4ActCell.Row B" &,) "F$2'B("MsgBox "˶Ա,ȻſϠĿEE3B- adSs0valiADT2مH 1 1EKҹؼֵк For Each cc In 9.U@cccLike "A3H 2.A]s(i, 1o=aV@ςf;@/ Ů/G!N˵:$\ R) Next S RGa-ʼ &&n(L%( h$dǰԪ<C ֵ?ciUb Zظ Hurdz%.F)0D\>C,rG&C g+ 10`K D e E F ; G > E%Rͬһc;xāT+=. @=ee'IȫͻqneHxisdx > $GQjxmid1, a2c3c4c5 "Wb3457anm, dw$, ydyrii221___=?1__RJ81___W?1__R817_V?1'v[d1R`d2f33<44>50q92A40 Or 23z45:wz+(cP50h= 100)q2& 3Uxmid3 <= 100) Or (4 <> 0 And 8 5 @Then dxexisDt ( EIf If qn.N 9MsgBox "ͬ˶ͬμȫĿı" ActiveCell.Val4ue"'- _ޱ Dim ydydxbmzs,pax *Range("S3")40v1  4+ 1 $2$$`$։n7$G >m̕ÿ@G~" & & ",ɼ怱!!AλI-ӃdwE2G'F ` For endline +@ 3 To 15@dwmax@ Exmnam{ADN|Yid@DQM y"" c."av:c Aa i1` manstart!womeb $Ci1)M "hE@Next ik` DlEFGMǰb"N" > ?jDUʬx y`ˁ`t ePQ n ҒŮv',giFBLgsMT>Ux9, 'ӖCEach cc InS1.UsedA.KccLike B"U v=.Row%R,[+DJ?@1 A++(GG&- (8 -O6"cei1qW fs/3s(+ 2).Inser~tA ¢-^ 2 wDp2tre#v""oo4"a &A9˵peNս#or'(ob er3pendline - womenstart) + 1 ActiveSheet.Rows(2).Inser"tTNexFor adi = 1 To (1)smax"tDeletetApplication.Scr@eenUpdn"gTru*Range("T2").Value End If 'ֹʹòй 'On ErrlResume v ' >CommandBars(@"Works `Menu =Control/(I) (CEnabledaQFals_@G:o0ISECoplumn5,#;ж If MU M0 ALE3S0 T hen !ro>wJ CfVpV(RKVLUE[0g?11F1ʵSub__SRP_c!__SRP_dW_VBA_PROJECT%dirZT{A4 1(D4$(htthT:(h4%T$ @T"#T64 ~T*(D4(h$h4m:(h4%T$ @T"$T64 ~4(+T$ @TW4$$TA4:h }$54A4A4:h }$54A4 1(D4$(hh{:(h4%T$ @T"#T64 ~6*(D4(h$h:(h4%T$ @T"$T64 ~ T! T %T&(D%T'X%:h%! T,T::h&%T! T d% H' ()TgT'X%:h %! Ta4(D]/$'%:!%! a(|]/l'\)T64::h)%T! T d% H' ()TKlc%:D*%T:X+%X:h,%T! T d% H' (X ,-TrU 01  y  A Y   1 I ! A  )IqAa9iIq41Y ``  I  W | l x&'%:%! a(]3t+$ @WA:}5AhA: }5AXA: }5AHϤ j*$ (a"i85!$ (a((: ]@O (8'%: 8%! a(36(8'%: 8%! a(36(8'%:8%! a(36L(8'%:8%! a(36(8'%:8%! a(36((]tM+'T'':N 6T!: %$ (, ( (D (4 ($ ( ( ( ((8hp8X(I'T 1H(TTH(ddh4 '%:%! a0'd%:t 8%! 0aT/ '%:%! a: ]<')06 T0'%:%! a$5'%:%! a0'd%:t 8%! 0aT/ '%:%! a: ]<')06 T0'%:%! a5'%:%! a0'd%:t8%! 0aT/ '%:%! a: ]<')06 Tb0'%:%! a5'%:%! a0'd%:t8%! 0aT/ '%:%! a: ]<')06 T10'%:%! a5'%:%! a0'd%:t8%! 0aT/ '%:%! a: ]<')06 T0'%:%! a5 ~48Xp8HI'u 1H(H(hlu '%:%! a0'd%:t 8%! 0aT/ '%:%! a: ]<')06 T, 0'%:%! a$5'%:%! a0'd%:t 8%! 0aT/ '%:%! a: ]<')06 T 0'%:%! a5'%:%! a0'd%:t8%! 0aT/ '%:%! a: ]<')06 T 0'%:%! a5'%:%! a0'd%:t8%! 0aT/ '%:%! a: ]<')06 T 0'%:%! a5'%:%! a0'd%:t8%! 0aT/ '%:%! a: ]<')06 Th 0'%:%! a5 ~l_X$(]p(]p(t]pT (d]p(]p (D$(]<$(d]I'(t]stdole h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\SysW OW64\e2.tlb#OLE Automation`EOffDicEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files (x86)\Common \Microsoft Shared\OFFICE11\MSO.DLL#P 11 .0 Ob LibraryN"46}#1.5#0#C:\Program Files (x86)\Microsoft Office\OFFICE11\EXCEL.EXE#Microsoft Excel 11.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation4*\G{2DF8D04C-5BFA-101B-BDThisWorkbookG TisWrkbo 2 (HB1y XB,!:T"B+B}S@heet1GS@#eYt1MH2N]FT 2222v3*333aU44448m 5 5 5 5 Ez Fice 11.0 Object LibrarK*yrU~~~~~~~~~~~~~~~~6 __SRP_0d __SRP_1PROJECTwmPROJECT\N!J]Fҹ a 9a  ya  y)a  yAa  yYa  yqqi VBAProject ThisWorkbookSheet1Sheet2Sheet3Sheet4Sheet5Sheet6Sheet7Sheet8F /C:\PROGRA~2\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  a`F:C:\Program Files (x86)\Microsoft Office\OFFICE11\EXCEL.EXEExcel qp0FC:\Windows\SysWOW64\stdole2.tlbstdole  QL-[DREC:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE11\MSO.DLLOffice F؃׾Ly@Fl'7*J[gHDFWorkbook Workbook_OpenWorkbook_BeforeClose DFFv=j@=W FD|K/:LDF ay (*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\Program Files (x86)\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.5#0#C:\Program Files (x86)\Microsoft Office\OFFICE11\EXCEL.EXE#Microsoft Excel 11.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation4*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.3#0#C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE11\MSO.DLL#Microsoft Office 11.0 Object Library  _)SThisWorkbook0:57bd61afThisWorkbook: Sheet10;57bd61af- Sheet1T ]F Sheet20<57bd61af Sheet2v0]F Sheet30=57bd61b0 Sheet3aH]F Sheet40>57bd61b1 Sheet48m`]F Sheet50?57bd61b1 Sheet5zx]FHx`05⍎HB]MhxwIsM:>J&^C/j+V!$.E@ؑ?$p4mF#g7~ Fv Wh[\1 Excel+` VBA`Win16~`Win32`Mac`VBA6#` VBAProject`stdole``Officeu` ThisWorkbook|` _Evaluate`bbbbb6s` Workbook_Open`Windowsd`Count0v`Visible`Workbook_BeforeClose`Cancel` ActiveWindow+`Save`MsgBoxR`vbOKOnly` Sheet1`Worksheet_ChangeS`TargetF`Range `manstart` womenstarti`endlineq `curline$` curxmname` linemaxxmr` addlinsvalid`ValueK`cc\` ActiveSheet%N` UsedRangeȉ`Row` ActiveCell`qnexist`dxexist8`xmid1P`xmid2Q`xmid3R`xmid4S`xmid5T`xmiH`xmnameB`xmid1`dwmax)C`ydymax`i1]`i2]` ydydxbmzs`ydyxbmax`dwxbmax I`xmnameid`Worksheet_SelectionChange4` manlingsmaxl` womenlinesmax`addlinei8`RowsU`Insertr`Deletex` Application*`ScreenUpdating! ` CommandBars `Enabled۪`ControlsK` Sheet2` Sheet3` Sheet4` Sheet5`Sheet6`Sheet7`Sheet8`Workbookk` BeforeClose~;`_Defaultj` Worksheet`Change`SelectionChangen`_B_var_addlinsvalid` _B_var_cco`_B_var_xmnameid*`_B_var_manlingsmax^`_B_var_womenlinesmax`_B_var_manstart\`_B_var_womenstartG`_B_var_addlineiS`_B_var_endline `Itemz`- lWorksheetWorksheet_ChangeFFWorksheet_SelectionChange @ T2FFQ y UsedRange Value 7uP[Y TRow sYP[Y T 5uP[b TeEQf:  C D E F G " TN TЏRXT͑ Ybv Tvk[yv N Q O R 2 TN TЏRXT N TeSRhQyvTvQ[USyvk[ S3 k TS[ЏRXTPb *NUSy,S|QbcR! S2 USyk[ k*NS[USMOPb N!Q VBE6.DLL  S )AcBX9c?`۴LDc