ࡱ> XW  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUV Z[\]^_`abdefrhijklmnopqcstuvwxyz{|}~Root Entry FcX! YY2WorkbookW_VBA_PROJECT_CUR"¯ Y! YVBA Y0 Y \pWangyan 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>[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 @  ||p}^}A} #0_ ;_ "ef_ @_ -}A} #0_ ;_ "ef_ @_ -}A} #0_ ;_ "ef_ @_ -}A} #0_ ;_ "ef_ @_ -}A} #0_ ;_ "ef_ @_ -}A} #0_ ;_ "ef _ @_ -}A} #0_ ;_ "L_ @_ -}A} #0_ ;_ "L_ @_ -}A} #0_ ;_ "L_ @_ -}A} #0_ ;_ "L_ @_ -}A} #0_ ;_ "L_ @_ -}A} #0_ ;_ "L _ @_ -}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_ ;_ "_ @_ -}A}6 #0_ ;_ "_ @_ -}A}7 #0_ ;_ "_ @_ -}A}8 #0_ ;_ "_ @_ -}A}9 #0_ ;_ "_ @_ -}A}: #0_ ;_ " _ @_ -}A}; e#0_ ;_ "_ @_ -}}< ???#0_ ;_ "_ @_ -???##0.??? ??? ???}}= ??v#0_ ;_ "̙_ @_ -##0.  }x}?#0_ ;_ "̙_ @##  !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ʑ  XTableStyleMedium9PivotStyleLight16`LEؚN~\ؚN~9oؚ N~YYe]Rt^~Ye]-Nt^~VVgzr8 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?@GBlBCccjBĘ7ɹq1  /JVY  dMbP?_*+%;&R&6 Nwm"}oN www.softmay.com&~?'~?(M&d2?)M&d2?MEPSON LQ-630K ESC/P28C 4dA4DINU"$XoiqSMTJEPSON LQ-630K ESC/P2InputBinMANUALRESDLLUniresDLLOrientationPORTRAITResolutionOption2PaperSizeA4PrintQualityOption1HalftoneHT_PATSIZE_AUTOISPE" dXX `? `?&`cU} ` J}  } @ }  } }  J} } } } } @ }  } /wwwwww      O+OOOOOOOOOOO E E EG F& X'XXXXXXXXX E@E?E@  VWPQQQQQQQQR ~ E@E~ E@  VWPQQQQQQQQR VWPQQQQQQQQR VWmnnnnnnnno VWYZZZZZZZZ[ 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@""RRRPH0(  >@               ""    !! 77  % /  %/  %   Sheet1b(b(  gghPh "   :SW1_1  /K]'ik  dMbP?_*+%&?'?(?)?"?? &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! gU d \>@ g"g         !! ""        7/  %7  % /  %   Sheet2b(b(444gghTh "   :SW1_1_1  /kpG|~  dMbP?_*+%&?'?(?)?"?? &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@""RRR0 (   R  C ]F!hU d \>@hh         !! ""        7/  %7  % /  %   Sheet3b(b(222gghTh "   :SW1_1_1  /kM  dMbP?_*+%&?'?(?)?"?? &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 & 6 &7&R@R@ 'M'MMMMMMMMMM ' A 'A'@Y@@Y@ (M(MMMMMMMMMM ( B (B(@^@@^@)NNNNNNNNNNN *MMMMMMMMMMM +MMMMMMMMMMM ,MMMMMMMMMMM -NNNNNNNNNNN ""B8~x@@^^ @(  R  C ]F!`|U d \>@`|b|''    !$!!    ++ ,, --  (( )) ** "" ## $$ 7/  %$ /  %$  7  %$%   Sheet4b(b(999gghTh  (-  :SW1_1_1  /'S  dMbP?_*+%&?'?(?)?"?? &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$Y@Y@ % F %F %:%Z@Z@ &K 'M'MMMMMMMMMM (M(MMMMMMMMMM )NNNNNNNNNNN *MMMMMMMMMMM +MMMMMMMMMMM ,MMMMMMMMMMM -NNNNNNNNNNN ""B8~x@,, PHP0(  > @### ''    !$!!    ++ ,, --  (( )) ** "" ## $$ 7/  %$ /  %$  7  %$%   Sheet5b(b(111gghTh  (-  :SW1_1_1 ThisWorkbook "__SRP_29__SRP_3HSheet1 g ?  !"#$%&'()*+,-./012345678:;<=>?@ABCDEFGIJLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~R` :#@Y,M3LF^?LXgx^?LXgƏY,M3LME([LSS>"L<,<0<4<8<<<N0{00020819-0000-0000-C000-000000000046}X X`po  `o i" xs%j4@8 %h %(@p@Xx @h @d @T @D @4 @$ @ @ $&(*@x @h @0X @H /> @H8 on> @`( ent>@x > @ e="R@ mplehX@D _)S$*\Rffff*0755cb6291*\R1*#21d*\R1*#21c*\R1*#337*\R1*#10d*\R0*#14*\R0*#18  "U 8 " @HP ` p "+L3   8 X p   x] ` !$(o@X0  ' $(  B@&3Զɹ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" 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 yQ@ q $89aa` `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`(` #@4na *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{000208ue = ""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\2T #xME (SLSS<2N0{00020820-0000-0000-C000-000000000046}@ .@)0` %@4 @6 @8 @: @< @> @N @P @R @T @V @X @Z @\ @^ @` @b @d @f @h @j @l @n 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]h ٴ$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 %%%(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 ?Sheet3 ?Sheet4 ?Sheet5 ?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\2v#xME (SLSS<2N0{00020820-0000-0000-C000-000000000046}@ .@)0` %@4 @6 @8 @: @< @> @N s@P @R @T $If@V <> "@X Ex@Z @\ veCe@^ ame @` @b @d @f @h @j @l @n 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]h ٴ$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 %%%(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ʵSubue = ""Range("B" & curline) = ""0MsgBox "˶Ա,ȻſѡĿ"End If -------------T2$2!B'@ @----------ҹؼֵк D F!H' D!B!Sheet2.Cells(i, 1).Value = cc.Row D!J'4 Lk 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'< 4MsgBox "ӿʼ:" & manstart!MsgBox "Ůӿʼ:" & womenstartMsgBox ":" & endline$MsgBox "ǰԪк:" & curline!B'MsgBox "ǰֵ:" & 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\2a#xME (SLSS<2N0{00020820-0000-0000-C000-000000000046}@ .@)0` %@4 @6 N@8 @: $2@< @> B@N Ac@P @R rlin@T "@V @X En@Z ----@\ !B@^ @` ؼ@b @d @f .Cel@h Row@j @l @n , 1) rGG)0.Cel % %(_)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]h ٴ$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 %%%(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ʵSubue = ""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\28m#xME (SLSS<2N0{00020820-0000-0000-C000-000000000046}@ .@)0` %@4 @6 @8 @: @< 0@> @N Ac@P @R rlin@T "@V @X En@Z ----@\ !B@^ @` ؼ@b @d @f @h @j @l @n 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]h ٴ0$If Range("P37").Value <> "" Then Exit SubEnd IfNcurline = 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 %%%(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ʵSubue = ""Range("B" & curline) = ""0MsgBox "˶Ա,ȻſѡĿ"OEnd If!B -------------R T2$2!B'@ @\----------ҹؼֵк D F!H D!B!Sheet2.Cells(i, 1).Value = cc.Row D!J'4" & k D!BŮ!Sheet2.Cells(i, 1).Value = cc.Row D!J'6 kH D!Bӱ˵: R!Sheet2.Cells(i, 1).Value = cc.Row D!J'8yk L!J': L!B'<MsgBox "ӿʼ:" & manstart!MsgBox "Ůӿʼ:" & womenstartMsgBox ":" & endline$MsgBox "ǰԪк:" & curline-----MsgBox "ǰֵ:" & 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\2z#xME (SLSS<2N0{00020820-0000-0000-C000-000000000046}@ .@)0` %@4 @6 @8 @: @< 0@> @N Ac@P @R rlin@T "@V @X En@Z ----@\ !B@^ \@` ؼ@b !H@d @f .Cel@h Row@j @l @n , 1) rGG)0.Cel % %(_)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]h ٴ0$If Range("P37").Value <> "" Then Exit 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 %%%(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_VBA_PROJECTK{dirL__SRP_0 b__SRP_113-0000-0000-C000-000000000046}#1.6#0#C:\Program Files\Microsoft Office\Office12\EXCEL.EXE#Microsoft Excel 12.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.4#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE12\MSO.DLL#Microsoft Office 11.0 Object Library  _)SThisWorkbook0755cb6291ThisWorkbook: Sheet10255cb6291- Sheet1T b2 Sheet20355cb6291 Sheet2v0b2 Sheet30455cb6291 Sheet3aHb2 Sheet40555cb6291 Sheet48m`b2 Sheet50655cb6291 Sheet5zxb2Hx0`ԵU2Gr9I?-@lTd-A|/կEl N\lAS3%#Y:-t$BTMhKL/ 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`Workbookk` BeforeClose~;`_Defaultj`- lH0* pHd VBAProject4@j = r _)S 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\OFFICE12\MSO.0DLL#M 1@1.0 Ob LibraryKEThisWorkbookGTisWrkbUo 2 QHB1Bxְ B,!:"B+BB|Sheet1G S@#e@Xt1H2Nb2TT 222I2v3U333Ъa444R48m 5 55 5 5 Ez FK*rU~~~~~~~~f 1>H^!"@jǎ a   ) A Y q)9!A VBAProject ThisWorkbookSheet1Sheet2Sheet3Sheet4Sheet5F /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  `F4C:\Program Files\Microsoft Office\Office12\EXCEL.EXEExcel !p0F C:\Windows\system32\stdole2.tlbstdole  L-[DR?C:\Program Files\Common Files\Microsoft Shared\OFFICE12\MSO.DLLOffice y)FY,M3LF^?LXgDFWorkbook Workbook_OpenWorkbook_BeforeClose DFFF)Q k[b ThꁨROX[bR *nxb TOo`,6qTSk[ĉ[v{ "kΏO(u"}oN)VBE6.DLL S VrU~}  99bbbbbCanceljThisWorkbookThisWorkbookSheet1Sheet1Sheet2Sheet2Sheet3Sheet3Sheet4Sheet4Sheet5Sheet5ID="{00000000-0000-0000-0000-000000000000}" Document=ThisWorkboPROJECTwmPROJECTSummaryInformation(,DocumentSummaryInformation8$ok/&H00000000 Document=Sheet1/&H00000000 Document=Sheet2/&H00000000 Document=Sheet3/&H00000000 Document=Sheet4/&H00000000 Document=Sheet5/&H00000000 HelpFile="" Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="6062CC0AD00AD00ED40ED4" DPB="C0C26C738973898C777489C6164C0D2BB175966D31B9B93DFE86770B3E5904BEC71279FB" GC="20228CCF8DCF8D30" [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, Oh+'0 X`x ϺϺϺWangyanMicrosoft Excel@ED@9q@ Y՜.+,0 PXd lt| slh һ߶ ̹ ̹  F#Microsoft Office Excel 2003 Biff8Excel.Sheet.89qCompObjo