ࡱ> <j;  !"#$%&'()*+,-./0123456789:g>?@ABCDEFHIJVLMNOPQRSTUGWXYZ[\]^_`abcdefikwmnopqrstuvhxyz{|}~Root Entry F5HAH=2Workbookp_VBA_PROJECT_CUR"`\9H@k;HVBA `E:Hp2V;H g2ɀ\pUser 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[SO1h8[SO1,8[SO18[SO18[SO1[SO1[SO1<[SO1>[SO1?[SO14[SO14[SO1 [SO1 [SO1[SO1[SO1 [SO1[SO+""#,##0;\-""#,##05""#,##0;[Red]\-""#,##07""#,##0.00;\-""#,##0.00A""#,##0.00;[Red]\-""#,##0.00e*0_-""* #,##0_-;\-""* #,##0_-;_-""* "-"_-;_-@_-,)'_-* #,##0_-;\-* #,##0_-;_-* "-"_-;_-@_-u,8_-""* #,##0.00_-;\-""* #,##0.00_-;_-""* "-"??_-;_-@_-4+/_-* #,##0.00_-;\-* #,##0.00_-;_-* "-"??_-;_-@_-\$#,##0_);\(\$#,##0\)\$#,##0_);[Red]\(\$#,##0\) \$#,##0.00_);\(\$#,##0.00\)% \$#,##0.00_);[Red]\(\$#,##0.00\)+""#,##0;""\-#,##05""#,##0;[Red]""\-#,##07""#,##0.00;""\-#,##0.00A""#,##0.00;[Red]""\-#,##0.00i2_ ""* #,##0_ ;_ ""* \-#,##0_ ;_ ""* "-"_ ;_ @_ .)_ * #,##0_ ;_ * \-#,##0_ ;_ * "-"_ ;_ @_ y:_ ""* #,##0.00_ ;_ ""* \-#,##0.00_ ;_ ""* "-"??_ ;_ @_ 61_ * #,##0.00_ ;_ * \-#,##0.00_ ;_ * "-"??_ ;_ @_  yyyy/m/d;@ 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;_w9_ ""* #,##0.00_ ;_ ""* \-#,##0.00_ ;_ ""* \-??_ ;_ @_ g1_ ""* #,##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@ @ 4@ @  @ @ 0@ @   1  1|@ @  14@ @ 1 1 0@ 0 0   8@@ 8@ 8 @  x@@   x @   x@@   x@   x @  8@@  8@  8@  8  8@  8 0@    0 0 8  1|@@   1|@   1| @  x@@  x@  x @   x@@   x@   x @   ||px}A} ;_ "ef##0_}A} ;_ "ef##0_}A} ;_ "ef##0_}A} ;_ "ef##0_}A} ;_ "ef##0_}A} ;_ "ef ##0_}A} ;_ "L##0_}A} ;_ "L##0_}A} ;_ "L##0_}A} ;_ "L##0_}A} ;_ "L##0_}A} ;_ "L ##0_}A} ;_ "23##0_}A} ;_ "23##0_}A} ;_ "23##0_}A} ;_ "23##0_}A}  ;_ "23##0_}A}! ;_ "23 ##0_}-}# ;_ "}A}$ ;_ "##0_}A}% ;_ "?##0_}A}& ;_ "23##0_}-}' ;_ "}A}( ;_ "##0_}A}* a;_ "##0_}U}+ ;_ "##0_"* \}}. };_ "##0_"* \@_ _  }}/ ;_ "##0_???"* \???@_ _ ??? ???}-}0 ;_ "}-}1 ;_ "}A}2 };_ "##0_}A}5 ;_ "##0_}A}6 ;_ "##0_}A}7 ;_ "##0_}A}8 ;_ "##0_}A}9 ;_ "##0_}A}: ;_ " ##0_}A}; e;_ "##0_}}< ???;_ "##0_???"* \???@_ _ ??? ???}}= ??v;_ "̙##0_"* \@_ _  }x}?;_ "̙##"* @_  !20% - :_eW[r 1O20% - :_eW[r 1 ef %!20% - :_eW[r 2O"20% - :_eW[r 2 ef %!20% - :_eW[r 3O&20% - :_eW[r 3 ef %!20% - :_eW[r 4O*20% - :_eW[r 4 ef %!20% - :_eW[r 5O.20% - :_eW[r 5 ef %!20% - :_eW[r 6O220% - :_eW[r 6  ef %!40% - :_eW[r 1O40% - :_eW[r 1 L %!40% - :_eW[r 2O#40% - :_eW[r 2 L渷 %!40% - :_eW[r 3O'40% - :_eW[r 3 L %!40% - :_eW[r 4O+40% - :_eW[r 4 L %!40% - :_eW[r 5O/40% - :_eW[r 5 L %!40% - :_eW[r 6O340% - :_eW[r 6  Lմ %!60% - :_eW[r 1O 60% - :_eW[r 1 23 %!60% - :_eW[r 2O$60% - :_eW[r 2 23ږ %!60% - :_eW[r 3O(60% - :_eW[r 3 23כ %!60% - :_eW[r 4O,60% - :_eW[r 4 23 %! 60% - :_eW[r 5O060% - :_eW[r 5 23 %!!60% - :_eW[r 6O460% - :_eW[r 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"~vRk #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^ĉ)c*}Y5}Y  a% +Gl;`GGl;` %OO,'^- '^[0] .{o{  }% /hgUSCQ $ ]vc ?lʑ^ lʑ  XTableStyleMedium2PivotStyleLight16`DStartUpE'YN~\'YN~VV"?k[~+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? A BXC:CccjBOUj_ KU g2ɀ&ffffff?'ffffff?(?)?"??&>  g2ɀ 1fIFSY  dMbP?_*+%;&R&6 Nwm"}oN www.softmay.com&~?'~?(M&d2?)M&d2?MTEPSON Stylus C43 Series| pv 4dhh4 *** qhhDLLName32=E_DU16YE.DLL L dL 2EPSON Stylus C43 Series***" dXX `? `?&`cU} ` K}  } @ }  } }  } } } } } @ }  } 1wwwwww                      o*ooooooooooo F F FH G& e'eeeeeeeee F@F?F  UVWXXXXXXXXY ~ F@F~ F  UVWXXXXXXXXY UVWXXXXXXXXY UVlmmmmmmmmn UVfggggggggh UV i,jjjjjjjjk I A A A A A A A A  A  A  A JB@@@@@@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  AJB@@@@@@BBBB JB@@@@@@BBBB JB@@@@@@BBBB JB@@@@@@BBBB JB@@@@@@BBBB JB@@@@@@BBBB JB@@@@@@BBBB JB@@@@@@BBBB JB@@@@@@BBBB JBDDDDDDEEEE DlXzp....B""""""""""""""""""""" !"#$%&'()*+,-./ 0   JB@@@@@@BBBB !Z![ !R+!SSSSSSSST "\] "`"aaaaaaaab #\] #`#ccccccccd # ! #" ## #$ #% $^_ $M$NNNNNNNNO $ - $- $;$@@ % . %. %<%5@5@ &L & / &/&6@6@ 'P'PPPPPPPPPP ' 0 '0'7@7@ (P(PPPPPPPPPP ( 1 (1(D@D@)QQQQQQQQQQQ ) 2 )3)E@N@*PPPPPPPPPPP * 3 *4*N@Q@+PPPPPPPPPPP + 4 +5+Q@R@,PPPPPPPPPPP , 5 ,6,R@@R@-QQQQQQQQQQQ - 7 -7-@Y@@Y@ . 8 .8.Y@Y@ / 9 /9/@^@@^@ 0 : 0:0^@^@&R@"B8~x@@^^RRRRR22>@        !!  !$"" ## $$ '' (( -- )) ** ++ ,, 77  %$%  /  %$  /  %$  Sheet1b(b(  gghPh  (-  :SW1_1 g2ɀ 1]gjjjjjjjjk I A A A A A A A A  A  A  A JB@@@@@@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  AJB@@@@@@BBBB JB@@@@@@BBBB JB@@@@@@BBBB JB@@@@@@BBBB JB@@@@@@BBBB JB@@@@@@BBBB JB@@@@@@BBBB JB@@@@@@BBBB JB@@@@@@BBBB JBDDDDDDEEEE DlXzp....B""""""""""""""""""""" !"#$%&'()*+,-./`0 ` JB@@@@@@BBBB !Z![ !R+!SSSSSSSST "\] "`"aaaaaaaab #\] #`#ccccccccd # ! #" ## #$ #% $^_ $M$NNNNNNNNO $ - $- $;$@@ % . %. %<%5@5@ &L & / &/&6@6@ 'P'PPPPPPPPPP ' 0 '0'7@7@ (P(PPPPPPPPPP ( 1 (1(D@D@)QQQQQQQQQQQ ) 2 )3)E@N@*PPPPPPPPPPP * 3 *4*N@Q@+PPPPPPPPPPP + 4 +5+Q@R@,PPPPPPPPPPP , 5 ,6,R@@R@-QQQQQQQQQQQ - 7 -7-@Y@@Y@ . 8 .8.Y@Y@ / 9 /9/@^@@^@ 0 : 0:0^@^@&R@"B8~x@@^^RRRRR22>@  ''    !$!!    ++ ,, --  (( )) ** "" ## $$ 7/  %$ /  %$  7  %$%   Sheet2b(b(444gghTh  (-  :SW1_1_1 ThisWorkbook "__SRP_2 9__SRP_3HSheet1 K ?  !"#$%&'()*+,-./012345678:;<=>?@ABCDEFGIJLMNOPQRSTUWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~R` :#@y5; 0.KLVcFo@3҂Ouxo@3҂Ouy5; 0.KLVcME([LSS>"L<,<0<4<8<<<N0{00020819-0000-0000-C000-000000000046}X $X`po ,`o  i. %j"4@8 %h %(@p&@Xx @h @d @T @D @4 @$ @ @ "0246@x @h @0X @H 69@H8 8B@`( -4@x 88@ of@ C8hX@D$ Q$*\Rffff*0554e89565*\R1*#250*\R1*#24f*\R1*#385*\R1*#125*\R0*#17*\R0*#18  "U 8 " @HP ` p "+L3   8 X p   x] ` &!($&(*o@X0 " '" 0(* " B@2ԶɹA@4d@)ȷϱϢ,Ȼ涨䣡 6ӭʹA@4koPublic 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 a9@ q +8!aI` `a/o`KUc$%x! xahv"iT%d! d4,.)xd6h4l`$ xdh4K44 fh%x$ Dx,.x4 $ +'''8:hNHH 6H83'':X N88:h NHH 6H8$ xH8 488ErU D$Y`(`  #@4n$+xMEue = ""Range("B" & curline) = ""0MsgBox "˶Ա,ȻſѡĿ"End If -------------T2$>!N'L L----------ҹؼֵк P R!TA 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@4 X(N'Jk(k -----------------Ƿȫܳͻ]'Z'\](@Xp'^'`'b'd'f]0 F @ F B  h D D N h$>!NC F$>N h$>!NQ h$>!N'^kN h$>!ND F$>N h$>!NQ h$>!N'`k N h$>!NE F$>N h$>!NQ h$>!N'bkN h$>!NF F$>N h$>!NQ h$>!N'dk0N h$>!NG F$>N h$>!N\2T #xME (SLSS<>N0{00020820-0000-0000-C000-000000000046}@ :@)<` %@@ @B @D A@4@F 8@H @J @Z Ac@\ @^ rlin@` "@b @d En@f ----@h !N@j @l ؼ@n !T@p @r .Cel@t Row@v @x @z , 1) ~GG)<.Cel % %(Q; " & 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]h ٴ$If Range("P37").Value <> "" ThenExit SubEnd Ifcurline = ActiveCell.Rowcurxmname = ActiveCell.Value!If Range("B" & curline) = "" ThenActiveCell.ValQ h$>!N'fk hkŮ F B F D h D D O h$>!NC F$>O h$>!NR h$>!N'^kO h$>!ND F$>O h$>!NR h$>!N'`khO h$>!NE F$>O h$>!NR h$>!N'bkO h$>!NF F$>O h$>!NR h$>!N'dkxO h$>!NG F$>O h$>!NR h$>!N'fk hkMsgBox "xmid1:" & xmid1MsgBox "xmid2:" & xmid2MsgBox "xmid3:" & xmid3MsgBox "xmid4:" & xmid4MsgBox "xmid5:" & xmid5 ^ `  b  d  f 'Zk ^ ^d ` `d b bd d dd f fd'\k` Z \2ͬһ˶ԱͬʱμȫĿıA@4 X(Nk#-----------------˶Աޱ]H`S3$>!N'x'v ^ ^d v 'vkX ` `d v 'vk  b bd v 'vk d dd v 'vk f fd v 'vkx v x ÿ˶Աޱ x,ɼ汨!A@4 X(Nk*-----------------λޱ-]xS2$>!N'zMsgBox dwxbmax h D D 'n'pN h$>!N'jQ h$>!N'| j |dMsgBox "Ŀ:" & xmname r @ BC r$> j n 'nk r r @ BD r$> j n 'nkH r r @ BE r$> j n 'nk r r @ BF r$> j n 'nk r r @ BG r$> j n 'nk( rMsgBox "ǰdwmax:" & dwmax n z ÿλޱ z!A@4 X(Nk k h*-----------------λޱ-Ů,Dim xmi, xmname, xmid, dwmax, ydymax, i1, i2 h D D 'n'pO h$>!N'jR h$>!N'| j |dMsgBox "Ŀ:" & xmname r B DC r$> j n 'nk r r B DD r$> j n 'nk r r B DE r$> j n 'nkP r r B DF r$> j n 'nk r r B DG r$> j n 'nk rMsgBox "ǰŮdwmax:" & dwmax n z ÿλޱ z!A@4 X(Nkk hko ٴ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 %%%(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ʵSubSheet2 l ?StartUpK_VBA_PROJECTV dirJue = ""Range("B" & curline) = ""0MsgBox "˶Ա,ȻſѡĿ"End If -------------T2$>!N'L L----------ҹؼֵк P R!TA 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@4 X(N'Jk(k -----------------Ƿȫܳͻ]'Z'\](@Xp'^'`'b'd'f]0 F @ F B  h D D N h$>!NC F$>\2v#xME (SLSS<>N0{00020820-0000-0000-C000-000000000046}@ :@)<` %@@ @B @D @F @H @J @Z @\ @^ @` @b @d @f @h @j @l @n @p @r @t @v @x @z ~GG)< % %(Q; " & 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]h ٴ$If Range("P37").Value <> "" ThenExit SubEnd Ifcurline = ActiveCell.Rowcurxmname = ActiveCell.Value!If Range("B" & curline) = "" ThenActiveCell.ValN h$>!NQ h$>!N'^kN h$>!ND F$>N h$>!NQ h$>!N'`k N h$>!NE F$>N h$>!NQ h$>!N'bkN h$>!NF F$>N h$>!NQ h$>!N'dk0N h$>!NG F$>N h$>!NQ h$>!N'fk hkŮ F B F D h D D O h$>!NC F$>O h$>!NR h$>!N'^kO h$>!ND F$>O h$>!NR h$>!N'`khO h$>!NE F$>O h$>!NR h$>!N'bkO h$>!NF F$>O h$>!NR h$>!N'dkxO h$>!NG F$>O h$>!NR h$>!N'fk hkMsgBox "xmid1:" & xmid1MsgBox "xmid2:" & xmid2MsgBox "xmid3:" & xmid3MsgBox "xmid4:" & xmid4MsgBox "xmid5:" & xmid5 ^ `  b  d  f 'Zk ^ ^d ` `d b bd d dd f fd'\k` Z \2ͬһ˶ԱͬʱμȫĿıA@4 X(Nk#-----------------˶Աޱ]H`S3$>!N'x'v ^ ^d v 'vkX ` `d v 'vk  b bd v 'vk d dd v 'vk f fd v 'vkx v x ÿ˶Աޱ x,ɼ汨!A@4 X(Nk*-----------------λޱ-]xS2$>!N'zMsgBox dwxbmax h D D 'n'pN h$>!N'jQ h$>!N'| j |dMsgBox "Ŀ:" & xmname r @ BC r$> j n 'nk r r @ BD r$> j n 'nkH r r @ BE r$> j n 'nk r r @ BF r$> j n 'nk r r @ BG r$> j n 'nk( rMsgBox "ǰdwmax:" & dwmax n z ÿλޱ z!A@4 X(Nk k h*-----------------λޱ-Ů,Dim xmi, xmname, xmid, dwmax, ydymax, i1, i2 h D D 'n'pO h$>!N'jR h$>!N'| j |dMsgBox "Ŀ:" & xmname r B DC r$> j n 'nk r r B DD r$> j n 'nk r r B DE r$> j n 'nkP r r B DF r$> j n 'nk r r B DG r$> j n 'nk rMsgBox "ǰŮdwmax:" & dwmax n z ÿλޱ z!A@4 X(Nkk hko ٴ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 %%%(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ʵSubxpQx"Attribute VB_Name = "StartUp" a *\G{000204EF-0000-0000-C000-000000000046}#4.1#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7\VBE7.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.7#0#C:\Program Files\Microsoft Office\Office14\EXCEL.EXE#Microsoft Excel 14.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.5#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE14\MSO.DLL#Microsoft Office 11.0 Object Library QThisWorkbook0554e89565ThisWorkbook: Sheet10254e895659 Sheet1T b2 Sheet20354e89565 Sheet2v0b2StartUp0454e89565StartUpHh0H2_ޙOwWWQZAT1-NEoJ v-/q;@mqOL/ Excel+` VBA`Win16~`Win32`Win64x`Mac`VBA6#`VBA7#` 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` StartUp'`Workbookk` BeforeClose~;`_Defaultj`l 9 HF0* pHd VBAProject4@j = r Q J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\syst em32\e2.tlb#OLE Automation`EOffDicEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files\CommonMicrosoft Shared\OFFICE14\MSO.0DLL#M 1@1.0 Ob LibraryKEThisWorkbookGTisWrkbUo 2 QHB1Bxְ B,!:"B+BB|Sheet1G S@#e@Xt1H2Nb2TT 222I2v9StartUpGar@Up2OMU!CUK*rU~~~~~~~~f__SRP_0__SRP_1PROJECTwmkPROJECT 8n+"@?Ԫ a i  )A  ) VBAProject ThisWorkbookSheet1Sheet2StartUpF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7\VBE7.DLLVBA Y `F4C:\Program Files\Microsoft Office\Office14\EXCEL.EXEExcel Qyp0FC:\WINDOWS\system32\stdole2.tlbstdole aL-[DR?C:\Program Files\Common Files\Microsoft Shared\OFFICE14\MSO.DLLOffice aFy5; 0.KLVcFo@3҂OuDFWorkbook Workbook_OpenWorkbook_BeforeClose DFFF9 k[b ThꁨROX[bR *nxb TOo`,6qTSk[ĉ[v{ "kΏO(u"}oNVBE7.DLL S VrU~}  !bbbbbCanceljThisWorkbookThisWorkbookSheet1Sheet1Sheet2Sheet2StartUpStartUpID="{00000000-0000-0000-0000-000000000000}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Document=Sheet2/&H00000000 Module=StartUp HelpFile="" Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="4745EBB675BAB8BEB8BEBDC3BDC3" DPB="8E8C227F2E81689E689E9762699E48EF68F08B6A706B52CE37293559BD78AEB867E448C9D1B76F" GC="D5D779C4870A880A880A" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=44, 58, 716, 502, C Sheet1=22, 29, 697, 472, Sheet2=44, 58, 719, 501, Sheet3=66, 87, 741, 530, Sheet4=88, 116, 763, 559, Z Sheet5=110, 145, 785, 588, Sheet6=132, 174, 807, 617, Sheet7=154, 203, 829, 646, Sheet8=0, 0, 675, 443, StartUp=0, 0, 0, 0, C SummaryInformation(,DocumentSummaryInformation8CompObjhOh+'0 X`x ϺϺϺUserMicrosoft Excel@ED@9q@k;H՜.+,0 PXd lt| slh һ  FMicrosoft Excel 2003 Biff8Excel.Sheet.89q