ࡱ > c b T V
! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S U W _ X Y Z [ \ ] ^ a d e f g h x j k l m n o p q r s t u v w ` y z { | } ~ R o o t E n t r y F {z H B W o r k b o o k E T E x t D a t a Z _ V B A _ P R O J E C T _ C U R " G12
! # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U W X Y Z [ \ ] ^ _ ` a c d f g h i j k l m n o p q r s t u v w x y z { | } ~
6 . A A . A . A .
[SO1 [SO1 [SO1 [SO1 8 [SO1
[SO1 h 8 [SO1 [SO1 , 8 [SO1 8 [SO1 ? [SO1 4 [SO1 [SO1 4 [SO1 [SO1 [SO1 < [SO1 7 [SO1 [SO1 [SO ""#,##0;""\-#,##0 ""#,##0;[Red]""\-#,##0 ""#,##0.00;""\-#,##0.00 # ""#,##0.00;[Red]""\-#,##0.00 7 * 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\) - * . / , . , 3 $ 1 4 P P - % * $ a > , * ! " ff 7 # ` + ) >
9 $ 1 5 & + / 1 1
1 |@ @
x@ @ 1 4@ @ 0@ @ @ @ @ @ ' 1 1 1 4@ @ 0@ @ 8 x@ @ x @ x@ @ x @ x @ x@ @ x @ x @ 1 |@ @ 1 | @ 1 | @ x@ @ x @ x @ 8@ @ 8 @ 8 @ 0 @ 0 0 0@ 0 0 8@ @ 8 @ 8 @ 8 8@ 8 | | s %w}( } .00\)_ *} } ? ??v.00\)_ * ̙_ ?_ ;_
}( } .00\)_ *}< } * .00\)_ * _ ?_ ;_ }( } .00\)_ *}x } A .00\)_ * _ ?_ ;_
}< } .00\)_ * 23 _ ?_ ;_ }( } ) .00\)_ *}( } 3 .00\)_ *}( } % .00\)_ *}( } 2 .00\)_ *}< } & .00\)_ * _ ?_ ;_ }< } ' .00\)_ * ? _ ?_ ;_ }< } .00\)_ * 23 _ ?_ ;_ }< } ( .00\)_ * 23 _ ?_ ;_ }( } .00\)_ *} } > ???.00\)_ * _ ?_ ;_ ??? ??? ???
??? } } 0 } .00\)_ * _ ?_ ;_
} } 1 .00\)_ * _ ?_ ;_ ??? ??? ???
??? }< } .00\)_ * ef _ ?_ ;_ }< } 8 .00\)_ * _ ?_ ;_ }< } 4 } .00\)_ * _ ?_ ;_ }P } - .00\)_ * _ ?_ ;_ }< } , a .00\)_ * _ ?_ ;_ }< } = e .00\)_ * _ ?_ ;_ }< } .00\)_ * ef _ ?_ ;_ }< } 7 .00\)_ * _ ?_ ;_ }( } .00\)_ *}< } .00\)_ * L _ ?_ ;_ }( } .00\)_ *}< } .00\)_ * L _ ?_ ;_ }< } 9 .00\)_ * _ ?_ ;_ }< } : .00\)_ * _ ?_ ;_ }( } .00\)_ *}< } .00\)_ * L _ ?_ ;_ }< } ; .00\)_ * _ ?_ ;_ }< } .00\)_ * L _ ?_ ;_ }< } .00\)_ * 23 _ ?_ ;_ }< } < .00\)_ * _ ?_ ;_ }< } .00\)_ * L _ ?_ ;_ }( } ! .00\)_ *}( } K .00\)_ *! 2 0 % - :_eW[r 1 > 2 0 % - :_eW[r 1 ! 2 0 % - :_eW[r 2 > " 2 0 % - :_eW[r 2 ! 2 0 % - :_eW[r 3 > & 2 0 % - :_eW[r 3 ! 2 0 % - :_eW[r 4 > * 2 0 % - :_eW[r 4 ! 2 0 % - :_eW[r 5 J . 2 0 % - :_eW[r 5 ef ! 2 0 % - :_eW[r 6 J 2 2 0 % - :_eW[r 6 ef ! 4 0 % - :_eW[r 1 J 4 0 % - :_eW[r 1 L ! 4 0 % - :_eW[r 2 J # 4 0 % - :_eW[r 2 L湸 ! 4 0 % - :_eW[r 3 > ' 4 0 % - :_eW[r 3 ! 4 0 % - :_eW[r 4 J + 4 0 % - :_eW[r 4 L ! 4 0 % - :_eW[r 5 J / 4 0 % - :_eW[r 5 L ! 4 0 % - :_eW[r 6 J 3 4 0 % - :_eW[r 6 Lմ ! 6 0 % - :_eW[r 1 J 6 0 % - :_eW[r 1 23 ! 6 0 % - :_eW[r 2 J $ 6 0 % - :_eW[r 2 23ٗ ! 6 0 % - :_eW[r 3 > ( 6 0 % - :_eW[r 3 ! 6 0 % - :_eW[r 4 > , 6 0 % - :_eW[r 4 ! 6 0 % - :_eW[r 5 J 0 6 0 % - :_eW[r 5 23 ! ! 6 0 % - :_eW[r 6 > 4 6 0 % - :_eW[r 6 "
ColLevel_1 #
RowLevel_1 $ ~vRk % h& h I} & h 1 8 h 1 I} O ' h 2 8 h 2 I} ? ( h 3 8 h 3 I} 23 ) h 4 * h 4 I} * ]0 ] 8^ĉ + c , }Y0 }Y a - Gl;`B Gl;` O O . '^ / '^[ 0 ] 0 {j { } 1 hgUSCQ :_eW[r 1 O 8 :_eW[r 2 > ! :_eW[r 2 PM 9 :_eW[r 3 > % :_eW[r 3 Y : :_eW[r 4 > ) :_eW[r 4 d ; :_eW[r 5 > - :_eW[r 5 K < :_eW[r 6 > 1 :_eW[r 6 F = -N2 -N e > Qj Q ??? ??? ??? ??? ??? ? eQj eQ ̙ ??v @ $ ]vc A lʑ^
lʑ X T a b l e S t y l e M e d i u m 9 P i v o t S t y l e L i g h t 1 6 ` BB 2u~ W YN~ m Ye]-Nt^~ Ye]Rt^~ V V 4 ~ 8 S A @ @ M Q Ğq\f[b,{4 3 J\0u_ЏRO BM-Limit Vaild L-Nums la \[[hQ'`n:N -N Sb _,geNe b /T(u[ One-DW Man S[USMO One-ydy Women Ye ~ ]\ONXT T|e_ k[~+R 2u~ I D S 7uP[YT S[yv1 S[yv2 S[yv3 S[yv4 S[yv5 {|W Q ue g ؚ SO͑ sYP[YT 5uP[bTeEQf: ( 1 0bTĉR( k*NUSy) k*NUSMOPb4 N, kMOЏRXTPb2 y, S|QbcR0 2 0YTTS[yv/f_kXvyv vQ[Oo`SN b'`kXQ0 3 0bTpQS[yv NbFhsSS0{|WNkXQ؞:N< k[> 0 M-XM W-XM TYPE M-XM-ID W-XM-ID 4 0NmRRbO9ebTh3\`?/[G\!-Rk.sԻ..a濭? PK ! ֧ 6 _rels/.relsj0 }Q%v/C/} (h"O
= C?hv=Ʌ%[xp{۵_Pѣ<1H0ORBdJE4b$q_ 6LR7`0̞O,En7Lib/Se е PK ! ky theme/theme/themeManager.xml M
@}w7c(Ebˮ CAǠҟ7՛KY,e.|,H ,lxɴIsQ}#Ր ֵ+!,^$j=GW)E+&
8 PK ! n theme/theme/theme1.xmlYOo 5# MvlM6Цۢ 7&jHH q Jĥ|@_g{fvuHB#=$3{~\0aIyWj"i4ai=@RtOI;\|kxC$!֧rXlcyY0&\$X ݄-jk iR ; IY1*B&(qh\]Zkfr&LC!yİT0j,o^["NY[Y7|]`|bxhT2%}`jzI pV*F)hV@qv֬5\|̭NlXd Zck7V7` KȄ /| >GA4qYLxd$(^bF!Р?H°)RLp!/М;ʅ!PL3 1ŷ_O@HD/?/ox[!MD f JNFb+1
m鞊 f>\ƻ'7 Y*|3N .Å 7543*n C .N R#ٍ# éIBz >]wi(Sk! 94_C' ڱ=̧69ty *HqªUr0aד
< QoL#@ߊoB})=Ѽ9"A7IhWQw! S}g4rD
/o`&*ݩ Mllz9QO K6{bqz[V?_O˯R UZ76-xvx7Ԍ[tq 5s%,Q4rpf\}@U*ܢZ<_d${Gu"Vz`3Vd߀yTe8]7RgO#KRtZ͕fB 1REp*ad6Y>fPM:\X/(ԁLHelCL!Rʿ^jt>)V!1)kdBBUuveDξ楔Ox|Fl*1_*3>LE/pcm']8fYrSd 7Z`*n^ٍrWŤ%R*z?ˈձ@#) sBYLþi*69mY&LiHł=(K& V.KLDUĕ{D ꦚeNƟg(MN5ߜJV6&3(a/E4r; ,/ު"zbf58WV ="\pkAf! xqQc, !_C:P[| l lt#h&Mwjf})m%.В4vٜ\LcvlmN55xdФ8ǘh/]| /S &z%0Y PK ! ѐ ' theme/theme/_rels/themeManager.xml.relsM
0wooӺ&݈Э56?$Q,.aic21h:qm@RN;d`o7gK(M&$R(.1r'JЊT8V"AȻHu}|$b{ P8g/ ]QAsم(#L[ PK- ! [Content_Types].xmlPK- ! ֧ 6 + _rels/.relsPK- ! ky theme/theme/themeManager.xmlPK- ! n theme/theme/theme1.xmlPK- ! ѐ ' theme/theme/_rels/themeManager.xml.relsPK ]
Ę7ɹq 1
ɀ 4 C M T d MbP?_ * + % ; & R & 6
Nwm"}oN
w w w . s o f t m a y . c o m & ~?' ~?( M&d2?) M&d2? " d XX `? `? & ` c U } `
B } } @ } } } B } }
} } } @ } } 4 w w w w w w
P P P P P P P P P P P P
O
O
O C
D
Q Q Q Q Q Q Q Q Q Q
O @O ?O
R S T U U U U U U U U V
~
O @ O ~
O
R S T U U U U U U U U V
R S T U U U U U U U U V
R S W X X X X X X X X Y
R S Z [ [ [ [ [ [ [ [ \
R S
] ^ ^ ^ ^ ^ ^ ^ ^ _
E
F
F
F
F
F
F
F
E
F
F
F G H I I I I I I G H H H
G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H
E
F
F
F
F
F
F
F
E
F
F
F G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H J J J J J J M N N N D lX z p . . . . B " " " " " " " " " " " " " " " " " " " " " ! " # $ % & ' ( ) * + , - . / 0 1 2 3 G H I I I I I I G H H H
! m ! n
! ` ! a a a a a a a a b
" o p
" c " d d d d d d d d e
# o p
# c ! # f f f f f f f f g
# "
# #
# $
# %
# &
$ q r
$ h ' $ i i i i i i i i j
$ (
% K )
% *
% *
% + % @ @
& L ,
& -
& - & 5@ 5@
' k . ' k k k k k k k k k k
' /
' / ' 6@ 6@
( k 0 ( k k k k k k k k k k
( 1
( 1 ( 7@ 7@ ) l l l l l l l l l l l
) 2
) 2 ) D@ D@ * k k k k k k k k k k k * @ p@ * E@ E@ + k k k k k k k k k k k
+ 3
+ 3 + N@ N@ , k k k k k k k k k k k
, 4
, 4 , Q@ Q@ - l l l l l l l l l l l
- 5
- 6 - R@ @R@
. 6
. 7 . @R@ S@
/ 7
/ 8 / S@ @Y@
0 8
0 9 0 @Y@ Y@
1 9
1 : 1 Y@ @^@
2 :
2 ; 2 @^@ a@
3 < ~
3 a@ , |" B 8 ~ F N @ ^ ^ R L R R R 2 2 2 2 2 P H 0 (
> @ < d - - ! $ ' ' ( ( ) ) * * + + , , ! ! " " # # $ $ ) 7 7 -$ % / -$ / -$ Sheet1b( b (
g g hP h ( - :SW1 _ 1
ɀ 2 X b wi d MbP?_ * + % & ?' ?( ?) ? " ? ? & c U } `
B } } @ } } } B } }
} } } @ } } 2 w w w w w w
P P P P P P P P P P P P
O
O
O C
D
Q Q Q Q Q Q Q Q Q Q
O @O ?O
R S T U U U U U U U U V
~
O @ O ~
O
R S T U U U U U U U U V
R S T U U U U U U U U V
R S W X X X X X X X X Y
R S T U U U U U U U U V
R S
] = ^ ^ ^ ^ ^ ^ ^ ^ _
E
F
F
F
F
F
F
F
E
F
F
F G H I I I I I I G H H H
G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H
E
F
F
F
F
F
F
F
E
F
F
F G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H J J J J J J M N N N D lX z p . . . . B " " " " " " " " " " " " " " " " " " " " " ! " # $ % & ' ( ) * + , - . / ` 0 ` 1 ` G H I I I I I I G H H H
! m ! n
! ` > ! a a a a a a a a b
" o p
" c " d d d d d d d d e
# o p
# c ! # f f f f f f f f g
# "
# #
# $
# %
# &
$ q r
$ h ' $ i i i i i i i i j
$ (
% K )
% *
% *
% + % @ @
& L ,
& -
& - & 5@ 5@
' k . ' k k k k k k k k k k
' /
' / ' 6@ 6@
( k 0 ( k k k k k k k k k k
( 2
( 1 ( D@ 7@ ) l l l l l l l l l l l ) @ p@ ) E@ E@ * k k k k k k k k k k k
* 3
* 3 * N@ N@ + k k k k k k k k k k k
+ 4
+ 4 + Q@ Q@ , k k k k k k k k k k k
, 5
, 6 , R@ @R@ - l l l l l l l l l l l
- 6
- 8 - @R@ @Y@
. 8
. 9 . @Y@ Y@
/ 9
/ : / Y@ @^@
0 :
0 ; 0 @^@ a@
1 < ~
1 a@ ( X T" B 8 ~ F N @ ^ ^ L R R R R 2 2 2 (
L
3 ] F ! d H > @ < d - - ! $ ' ' ( ( ) ) * * + + , , ! ! " " # # $ $ ) 7 7 -$ % / -$ / -$ Sheet2b( b ( 4 4 4 g g hT h ( - :SW1 _ 1 _ 1
ɀ 2 Qn 1x ~ d MbP?_ * + % & ?' ?( ?) ? " ? ? & c U } `
B } } @ } } } B } }
} } } @ } } 2 w w w w w w
P P P P P P P P P P P P
O
O
O C
D
Q Q Q Q Q Q Q Q Q Q
O @O ?O
R S T U U U U U U U U V
~
O @ O ~
O
R S T U U U U U U U U V
R S T U U U U U U U U V
R S W X X X X X X X X Y
R S T U U U U U U U U V
R S
] ? ^ ^ ^ ^ ^ ^ ^ ^ _
E
F
F
F
F
F
F
F
E
F
F
F G H I I I I I I G H H H
G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H
E
F
F
F
F
F
F
F
E
F
F
F G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H J J J J J J M N N N D lX z p . . . . B " " " " " " " " " " " " " " " " " " " " " ! " # $ % & ' ( ) * + , - . / ` 0 ` 1 ` G H I I I I I I G H H H
! m ! n
! ` @ ! a a a a a a a a b
" o p
" c " d d d d d d d d e
# o p
# c ! # f f f f f f f f g
# "
# #
# $
# %
# &
$ q r
$ h ' $ i i i i i i i i j
$ (
% K )
% A
% A
% + % R@ R@
& L ,
& B
& B & R@ R@
' k . ' k k k k k k k k k k
' 7
' 7 ' S@ S@
( k 0 ( k k k k k k k k k k
( C
( C ( @S@ @S@ ) l l l l l l l l l l l
) D
) D ) S@ S@ * k k k k k k k k k k k
* E
* F * @T@ T@ + k k k k k k k k k k k
+ G
+ E + T@ @T@ , k k k k k k k k k k k
, H
, G , @U@ T@ - l l l l l l l l l l l
- 8
- 8 - @Y@ @Y@
. I
. I . ^@ ^@
/ J
/ J / ^@ ^@
0 K
0 K 0 _@ _@
1 L
1 L 1 @_@ @_@ ( t T" B 8 ~ F N @ ^ ^ R R R R R 2 2 2 0 (
L
3 ] F ! 2 d H > @ < 2 d 2 - - ! $ ' ' ( ( ) ) * * + + , , ! ! " " # # $ $ ) 7 7 -$ % / -$ / -$ Sheet3b( b ( 2 2 2 g g hT h ( - :SW1 _ 1 _ 1
ɀ 4 ǃ ٔ d MbP?_ * + % & ?' ?( ?) ? " ? ? & c U } `
B } } @ } } } B } }
} } } @ } } 4 w w w w w w
P P P P P P P P P P P P
O
O
O C
D
Q Q Q Q Q Q Q Q Q Q
O @O ?O
R S T U U U U U U U U V
~
O @ O ~
O
R S T U U U U U U U U V
R S T U U U U U U U U V
R S W X X X X X X X X Y
R S T U U U U U U U U V
R S
] M ^ ^ ^ ^ ^ ^ ^ ^ _
E
F
F
F
F
F
F
F
E
F
F
F G H I I I I I I G H H H
G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H
E
F
F
F
F
F
F
F
E
F
F
F G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H I I I I I I G H H H G H J J J J J J M N N N D lX z p . . . . B " " " " " " " " " " " " " " " " " " " " " ! " # $ % & ' ( ) * + , - . / ` 0 ` 1 ` 2 ` 3 ` G H I I I I I I G H H H
! m ! n
! ` @ ! a a a a a a a a b
" o p
" c " d d d d d d d d e
# o p
# c ! # f f f f f f f f g
# "
# #
# $
# %
# &
$ q r
$ h ' $ i i i i i i i i j
$ (
% K )
% *
% *
% + % @ @
& L ,
& 3
& 4 & N@ Q@
' k . ' k k k k k k k k k k
' 4
' 6 ' Q@ @R@
( k 0 ( k k k k k k k k k k
( 6
( A ( @R@ R@ ) l l l l l l l l l l l
) A
) B ) R@ R@ * k k k k k k k k k k k
* B
* 7 * R@ S@ + k k k k k k k k k k k
+ 7
+ N + S@ S@ , k k k k k k k k k k k
, N
, O , S@ T@ - l l l l l l l l l l l
- O
- P - T@ U@
. P
. 8 . U@ @Y@
/ 8
/ I / @Y@ ^@
0 I
0 J 0 ^@ ^@
1 J
1 K 1 ^@ _@
2 K
2 L 2 _@ @_@
3 L ~
3 @_@ , |" B 8 ~ F N @ ^ ^ R R R R R 2 2 2 2 2 @ (
L
3 ] F ! ` d H > @ < ` d b - - ! $ ' ' ( ( ) ) * * + + , , ! ! " " # # $ $ ) 7 7 -$ % / -$ / -$ Sheet4b( b ( 9 9 9 g g hT h ( - :SW1 _ 1 _ 1
1_1_1" rangeCreator="" othersAccessPermission="edit"/>
8 z
: # @ KuO+T F h&O*RTj N x h&O*RTj NKuO+T ME V B A 22 T h i s W o r k b o o k " _ _ S R P _ 2 V _ _ S R P _ 3 b P [L S S >" < < N 0 { 0 0 0 2 0 8 1 9 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } X X ` p o ` |o i" B_Pr % j4 @ 8 % h % ( @ p @X x @ h @ d @ T @ D @4 @ $ @ @ $ @ X @ D
_)S $ * \ R f f f f * 0 6 6 5 4 2 b 7 a a * \ R 1 * # 2 1 d * \ R 1 * # 2 1 c 8 " U 8 " @ H P " `
( V 0 8 @ X x x ] ` ! $ ( o @ X 0 ' l ActiveWindow.Visible = False x B@$ ! MsgBox "Զɹ" d ( P MsgBox "ȷϱϢ,Ȼ涨䣡", vbOKOnly, "ӭʹ" k o Public a As String Sub aa(bb As Integer) a = "public1" MsgBox ao End Sub 1 MsgBox Str(bbbbb + 1)
Call aa(1) I Attribut e VB_Nam e = "Thi sWorkbook"
Bas0{00020P819- 0C $0046}|GlobalSpacFalse dCreatabl Predecla Id TruBExpose Templ ateDerivBustomizD2Option /licit
Pub b As Integer/A3 Sub _ Open()
O #rror ResuNex' Windows(.Count)`.VisiCE nd*2BeforeCl (CancelMBoolean>0=2 + 1
'Act I#!DLIf = 1 Then
.Savf 'MsgBox " Զ ɹEF
Ϣ ,Ȼ涨@, vbOKOnl y, "ӭ ʹ0JIf\
L5DmaES ng iaa(bbAq K'ajpy1@ *aF @S PACall @1 rU 0 @ $ 8 1 a Y `
`a / o ` K Uc$%x! xahv "iT%d! d4 ,. ) xd6 h4 l ` $ @ x d h 4 t D K 4 4 4 ; $ = D $ @
4 8 8 E rU D $ Y ` ( ` # @ 4 n rU ! 1 Y !
9
a
S h e e t 1 i tM _ _ S R P _ 4 e _ _ S R P _ 5 S h e e t 2 GA End If curline = ActiveCell.Row curxmname = ActiveCell.Value ! If Range("B" & curline) = "" Then ActiveCell.Value = "" Range("B" & curline) = "" 0 MsgBox "˶Ա,ȻſѡĿ" End If ------------- T2$ , ! <' : : ----------ҹؼֵк > @! B >! < ! Sheet2.Cells(i, 1).Value = cc.Row >! D' . k >! < Ů ! Sheet2.Cells(i, 1).Value = cc.Row >! D' 0 k H >! < ӱ˵: ! Sheet2.Cells(i, 1).Value = cc.Row >! D' 2 y k F! D' 4 F! <' 6 MsgBox "ӿʼ:" & manstart ! MsgBox "Ůӿʼ:" & womenstart MsgBox ":" & endline $ MsgBox "ǰԪк:" & curline MsgBox "ǰֵ:" & curxmname ' -----------------ǰĿظ 6 ' 8 C 4 $ , 6 8 ' 8 k h D 4 $ , 6 8 ' 8 k 0 E 4 $ , 6 8 ' 8 k F 4 $ , 6 8 ' 8 k G 4 $ , 6 8 ' 8 k 8
" ͬһ˶ԱظͬıĿA@H F( < ' 8k ( k -----------------Ƿȫܳͻ ] ' J ' L] ( @ X p ' N ' P ' R ' T ' V] 0 4 .
4 0 X 2 2 N X $ , ! < C 4 $ , N X $ , ! < Q X $ , ! <' N k N X $ , ! < D 4 $ , N X $ , ! < Q X $ , ! <' P k N X $ , ! < E 4 $ , N X $ , ! < Q X $ , ! <' R k N X $ , ! < F 4 $ , N X $ , ! < Q X $ , ! <' T k 0 N X $ , ! < G 4 $ , N X $ , ! < Q X $ , ! <' V k X k Ů 4 0
4 2 X 2 2 O X $ , ! < C 4 $ , O X $ , ! < R X $ , ! <' N k O X $ , ! < D 4 $ , O X $ , ! < R X $ , ! <' P k h O X $ , ! < E 4 $ , O X $ , ! < R X $ , ! <' R k O X $ , ! < F 4 $ , O X $ , ! < R X $ , ! <' T k x O X $ , ! < G 4 $ , O X $ , ! < R X $ , ! <' V k X k MsgBox "xmid1:" & xmid1 MsgBox "xmid2:" & xmid2 MsgBox "xmid3:" & xmid3 MsgBox "xmid4:" & xmid4 MsgBox "xmid5:" & xmid5 N
P
R
T
V
' Jk N N d P P d R R d T T d V V d ' Lk ` J L 2 ͬһ˶ԱͬʱμȫĿıA@H F( < k # -----------------˶Աޱ ] H ` S3$ , ! <' h ' f N N d L 8 v? T # < cQKyD F k r>A{D x k r>A{DcQKyD ME P [L S S 8, 6" L L N 0 { 0 0 0 2 0 8 2 0 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } ( `
@ \ )*` r a % @. @0 @2 ! Ms@4 @6 @8 @J Ac@L @N rlin@P "@R @T En@V ----@X ! <@Z @\ ؼ@^ @` bb +@b sibl@d = 1 @f ave@h Զ@j MsgB | ` k ` J J )* b
' % % ` % & % X X P x ( @ p h X *xP Lpe % 8 i n g ,@- ( w o e @ h a n @ X F o @T = @h D i n @ 4 o m @ $ m a @: 1 @n8 h e @p n s @> I n @ x t p o r @ 1 w o m @ m a t - @ i n (
@0 o e t h ( m a @. ) . @0 N e ' sY@~ a c @ t i @ t e d
@ d u e " sY@0 T
n s t H c c @X D d p 0 I f @ 4 L i X P[bT X " T @ $ l i c c . @ t E @ e x nt @
@ bjec ) utionG + />
@0 escrH , bstitu@ 4 P h p
4 ! 8! j X! ! ! ! " ] h ٴ $ If Range("P37").Value <> "" Thenh Exit Sub f ' f k X P P d f ' f k R R d f ' f k T T d f ' f k V V d f ' f k x f h
ÿ˶Աޱ h ,ɼ汨! A@H F( < k * -----------------λޱ-] x S2$ , ! <' j MsgBox dwxbmax X 2 2 ' ^ ' ` N X $ , ! <' Z Q X $ , ! <' l Z l d MsgBox "Ŀ:" & xmname b . 0 C b $ , Z ^ ' ^ k b b . 0 D b $ , Z ^ ' ^ k H b b . 0 E b $ , Z ^ ' ^ k b b . 0 F b $ , Z ^ ' ^ k b b . 0 G b $ , Z ^ ' ^ k ( b MsgBox "ǰdwmax:" & dwmax ^ j
ÿλޱ j ! A@H F( < k k X * -----------------λޱ-Ů , Dim xmi, xmname, xmid, dwmax, ydymax, i1, i2 X 2 2 ' ^ ' ` O X $ , ! <' Z R X $ , ! <' l Z l d MsgBox "Ŀ:" & xmname b 0 2 C b $ , Z ^ ' ^ k b b 0 2 D b $ , Z ^ ' ^ k
b b 0 2 E b $ , Z ^ ' ^ k P
b b 0 2 F b $ , Z ^ ' ^ k b b 0 2 G b $ , Z ^ ' ^ k b MsgBox "ǰŮdwmax:" & dwmax ^ j
ÿλޱ j ! A@H F( < k k X # -----------------λޱ T2$ , ! < U2$ , ! <' n U3$ , ! <' p ӹ ' r b . 0 H b $ , $ t H b $ , H b $ , B b $ ,
r ' r k b r n
r
n
0 @% v B@x Υޱ n ˣʵʱˣ r ˣԶɾһУ A@H k Ůӹ ' z b 0 2 H b $ , $ t H b $ , H b $ , B b $ ,
z ' z k 8 b z p
z
n
2 @% v B@x ΥŮޱ n ˣʵʱˣ r ˣԶɾһУ A@H k x k h k ` o X ٴ P37 $ , ! < | k T2$ , ! < T2$ , ! <' : : U2$ , ! <' n U3$ , ! <' p > @! B >! < >! D' . k @ >! < Ů >! D' 0 y k MsgBox ":" & manstart MsgBox ":" & womenstart 6 MsgBox ":" & manlingsmax - (womenstart - manstart) ~ n 0 . . @% v B@ ( ~ 0 . n . @% v B@x Ů > @! B >! < Ů >! D' 0 k >! < ӱ˵: >! D' 2 y @ k 8 0 ~ p 2 0 0 @% v B@ ~ 2 0 p 0 @% v B@x ( T2$ , ( < k ` k X ֹʹòй On Error Resume Next c Application.CommandBars("Worksheet Menu Bar").Controls("(I)").Controls("(C)").Enabled = False On Error GoTo 0 ֹʹòй 1 Application.CommandBars("Column").Enabled = False ֹʹòйж 7 If Range("U2").Value = 0 And Range("U3").Value = 0 Then - Application.CommandBars("row").Enabled = True On Error Resume Next b Application.CommandBars("Worksheet Menu Bar").Controls("(I)").Controls("(R)").Enabled = True On Error GoTo 0 Else . Application.CommandBars("row").Enabled = False On Error Resume Next c Application.CommandBars("Worksheet Menu Bar").Controls("(I)").Controls("(R)").Enabled = False On Error GoTo 0 End If o Attribut e VB_Nam e = "She@et1"
Bast0{00020820- C $0046}|Global!SpacFalse dCreatabl Pre decla Id TruBExpose Temp lateDeriv$BustomizD2
P Sub Works_Cha nge(ByVa l Target As R
)
Dim man start, womeendl ine, curxmn, maxxm
' ٴ If. ("P37").;ue <> " " Then ExitUnd If 4 Act Cell.Row B" &,) "F $2'B("Ms gBox " ˶Ա ,Ȼ ſ ϠĿEE3B-
adSs0valiAD T2مH
1 1EK ҹؼ ֵк
For Ea ch cc In 9.U@cccLike "A3H 2.A]s(i, 1o=a V@ςf;@/ Ů/G!N˵:$\ R)
Next
S RGa-ʼ &&n(L%( h$d ǰԪ<Cֵ?ciUb Zظ Hurd z%.F)0D\>C,rG&C g+ 10`K D e E F ; G > E%Rͬһc;xāT+=. @=ee 'I ȫͻqneHxisdx>
$G Qjxmid1, a 2c 3c 4c 5
"Wb 3 4 57 anm, dw$, ydyr ii221___=?1__RJ81___W?1__R817_V?1'v[d1R `d2f33<44>50q92A40 Or2 3 z4 5 :wz+(cP50h = 100)q2& 3 xmid3 <= 100) Or (4 <> 0 And 8 5 @Then
dxexisDt (
E I f
If qn.N 9Msg Box "ͬ ˶ ͬ μȫ Ŀ ı"
Active Cell.Val4ue " '- _ޱ
Dim ydydxbmzs,pax
*R ange("S3")4 0v1
4+ 1
$2$ $`$։n7 $G >m̕ÿ@G~" & & ",ɼ怱!!AλI-Ӄdw E2G'F `
For e ndline +@ 3 To 15@dwmax@ Exmnam{ADN |Yid@DQM y""
c."av:c Aa
i1`manstart!womeb$Ci1)M "hE@Next i k` Dl EFGMǰ b"N" > ?jDUʬx y`ˁ`t eP Q n
ҒŮv',g i aѨs c Sheet. Rows(D- 1).DeletcN%ΥQa ghʵp Զɾһb '1 e;
_ x צO O ("5O CO O bC
b nt> r ߶/ e e q: `ǿ 'GD# SubAC Private Sub Work sheet_Se lectionC hange(By Val Target As RT )
'ٴ
If@("P37"). vue <> " " Then
0Exit ndH If 7T26= 00addli nsvalid >=b*@ $;man ;gsmax:Ue
wome5e 3Du'For Each cc In AveS.Used ccLike " MstartKRow E 2
!Ů? !^" U (Next'MsgB ox ":" &F"SVцX- ($-FL Oiei =1 To + N1 [Ks(P+ 2).Inse r8:Q ( - 1) @#` Dte
Wi sCy؊岀˵yC eneN:F(<@%f>
-z '@)67g@7= E( E7B
%A0E7Applica.Scre enUpdng1%Tru ="|("`Svg' ʹòȀй@On ErrR@esume F D 'Com Qd@Bars(" `Menu @Control (I)j(C!EnablePFals'G:oo0@CoplumnO ж *0 A X*U"cUw"rowj33+an++(R++E.)4??rE ""i
I q ! 4 ` ` I W 0 4 l x 0T'X%:h %! Ta4 :D ]@T54 < 0T'X%:h %! Ta4 (D ]3T54 / &T'X%:h %! Ta4 T (h ]3 - &T'X%:h %! Ta4 T &T'X%:h %! Ta4 T +T $ @ TW4 T A4
:h }$54 F A4 A4
:h }$54 { A4 1(D 4$(h tthT :(h 4%T $ @ T T6 4 ~T *(D 4(h $h4m :(h 4%T $ @ T T6 4 ~4( +T $ @ TW4 $$T A4
:h }$54 A4 A4
:h }$54 A4 1(D 4$(h h{ :(h 4%T $ @ T T6 4 ~6 *(D 4(h $h :(h 4%T $ @ T T6 4 ~ T! T T &(D %T'X%:h %! T, T 4 @ p t d T D 4 $ x T 4 $ 4 4 P rU @ , ` \ , A ` ` n a * \ G { 0 0 0 2 0 4 E F - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } # 4 . 0 # 9 # C : \ P R O G R A ~ 2 \ C O M M O N ~ 1 \ M I C R O S ~ 1 \ V B A \ V B A 6 \ V B E 6 . D L L # V i s u a l B a s i c F it Sub End If curline = ActiveCell.Row curxmname = ActiveCell.Value ! If Range("B" & curline) = "" Then ActiveCell.Value = "" Range("B" & curline) = "" 0 MsgBox "˶Ա,ȻſѡĿ" End If ------------- T2$ , ! <' : : ----------ҹؼֵк > @! B >! < ! Sheet2.Cells(i, 1).Value = cc.Row >! D' . k >! < Ů ! Sheet2.Cells(i, 1).Value = cc.Row >! D' 0 k H >! < ӱ˵: ! Sheet2.Cells(i, 1).Value = cc.Row >! D' 2 y k F! D' 4 F! <' 6 MsgBox "ӿʼ:" & manstart ! MsgBox "Ůӿʼ:" & womenstart MsgBox ":" & endline $ MsgBox "ǰԪк:" & curline MsgBox "ǰֵ:" & curxmname ' -----------------ǰĿظ 6 ' 8 C 4 $ , 6 8 ' 8 k h D 4 $ , 6 8 ' 8 k 0 E 4 $ , 6 8 ' 8 k F 4 $ , 6 8 ' 8 k G 4 $ , 6 8 ' 8 k 8
" ͬһ˶ԱظͬıĿA@H F( < ' 8k ( k -----------------Ƿȫܳͻ ] ' J ' L] ( @ X p ' N ' P ' R ' T ' V] 0 4 .
4 0 X 2 2 N X $ , ! < C 4 $ , N X $ , ! < Q X $ , ! <' N k N X $ , ! < D 4 $ , N X $ , ! < Q X $ , ! <' P k N X $ , ! < E 4 $ , N X $ , ! < Q X $ , ! <' R k N X $ , ! < F 4 $ , 84 v # x ME ( SL S S <, N 0 { 0 0 0 2 0 8 2 0 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } @ ( @ )*` % @. . e @0 @2 ! Ms@4 @6 @8 @J Ac@L @N rlin@P "@R @T En@V ----@X ! <@Z @\ ؼ@^ @` @b @d @f @h @j | 7 7 )* % % ( _)S H " & 0 * H x " ( ( 6 H ( H X ` ( x " ( ( 0 @ & P ( x * " . H X ` ( 8 @ ` p x , & ( H P X ` h , p
J @ ` J h J 0 P J X J @
H X
` p J
J
p
J
J ` J
8 X x < < * @ P h p 8 H P p < 0 ( @ X x " @ P
X h
( @ ` p
x
$ 6 X h p
x 0 2 @ ` " x
8 H
P ` x
8 X h
p $ 6
* P h p 8 H
P $ ` Z ( p @
$ Z " ( 8 P
h x " < H & &
( 8 P h x " & & H h
p ] h ٴd l l $ If Range("P37").Value <> "" Thend l l Ex N X $ , ! < Q X $ , ! <' T k 0 N X $ , ! < G 4 $ , N X $ , ! < Q X $ , ! <' V k X k Ů 4 0
4 2 X 2 2 O X $ , ! < C 4 $ , O X $ , ! < R X $ , ! <' N k O X $ , ! < D 4 $ , O X $ , ! < R X $ , ! <' P k h O X $ , ! < E 4 $ , O X $ , ! < R X $ , ! <' R k O X $ , ! < F 4 $ , O X $ , ! < R X $ , ! <' T k x O X $ , ! < G 4 $ , O X $ , ! < R X $ , ! <' V k X k MsgBox "xmid1:" & xmid1 MsgBox "xmid2:" & xmid2 MsgBox "xmid3:" & xmid3 MsgBox "xmid4:" & xmid4 MsgBox "xmid5:" & xmid5 N
P
R
T
V
' Jk N N d P P d R R d T T d V V d ' Lk ` J L 2 ͬһ˶ԱͬʱμȫĿıA@H F( < k # -----------------˶Աޱ ] H ` S3$ , ! <' h ' f N N d f ' f k X P P d f ' f k R R d f ' f k T T d f ' f k V V d f ' f k x f h
ÿ˶Աޱ h ,ɼ汨! A@H F( < k * -----------------λޱ-] x S2$ , ! <' jd Ra MsgBox dwxbmax <> X 2 2 x ' ^ ' ` N X $ , ! <' Z.Value Q X $ , ! <' ld Rang Z l d MsgBox "Ŀ:" & xmname Value b . 0 nge("O C b $ , Z & cur ^ ' ^e(k b > "" T b . 0 ge("R" D b $ , Z If Ra ^ ' ^.Vk H b curli b . 0 & xmi) E b $ , Z = Ran ^ ' ^Vak b t xmi b . 0 xmid1: F b $ , Z " & xm ^ ' ^xmk b gBox " b . 0 MsgBox G b $ , Z 1 > 14 ^ ' ^40k ( b xmid4 MsgBox "ǰdwmax:" & dwmax = 1 ^ j
(xmi ÿλޱ j ! A@H 10 F( < <> k k X id4 <> * -----------------λޱ-Ů , Dim xmi, xmname, xmid, dwmax, ydymax, i1, i2d dxex X 2 2 ' ^ ' ` O X $ , ! <' Z
Activ R X $ , ! <' l'----- Z l d MsgBox "Ŀ:" & xmname dyxbma b 0 2 lue
y C b $ , Z 0 And ^ ' ^ Tk b dydxbm b 0 2 (xmid D b $ , Z hen
y ^ ' ^dxk
b If (xm b 0 2 <= 10 E b $ , Z bmzs + ^ ' ^ (k P
b d4 <= b 0 2 zs = y F b $ , Z xmid5 ^ ' ^ @! B = Ran >! < >! D' .e("Rk @ >! < Ů >! D' 0 <= y k MsgBox ":" & manstart MsgBox ":" & womenstart & i1) 6 MsgBox ":" & manlingsmax - (womenstart - manstart)
~ n 0 . Ra . @% v B@ n
( ~ 0 . n or . @% v B@x e
Ů = xmn > @! B = dwm >! < Ů >! D' 0r i1k >! < ӱ˵: & i1) >! D' 2n
y @ k 8 0 ~ p 2 0 ta 0 @% v B@ ("G" & ~ 2 0 p nd 0 @% v B@x x " (
I T2$ , ( <en
k ` k X o P H Attribut e VB_Nam e = "She@et2"
Bast0{00020820- C $0046}|Global!SpacFalse dCreatabl Pre decla Id TruBExpose Temp lateDeriv$BustomizD2
P Sub Works_Cha nge(ByVa l Target As R
)
Dim man start, womeendl ine, curxmn, maxxm
' ٴ If. ("P37").;ue <> " " Then ExitUnd If 4 Act Cell.Row B" &,) "F $2'B("Ms gBox " ˶Ա ,Ȼ ſ ϠĿEE3B-
adSs0valiAD T2مH
1 1EK ҹؼ ֵк
For Ea ch cc In 9.U@cccLike "A3H.A]s(i, 1o=a V@f;@/ Ů/GN˵:O$\ R)
Next
S RGa-ʼ &&n(L%( hp$d ǰԪCֵciUb Z ظHurd oz%.F)0D\C ,rG&C g+ 1ק0`K D eݞ E F G > E%Rͬһc;ͬ<āT+= @=ee 'IǷ ȫܳͻqnex$isdx
$G QjxmiPd1, a 2c 3c 4c 5
"b 3 4 5 anm, dw$, ydyr ii221___=?1__RJ81___W?1__R81_V?1'v[d1Rw `d2f3U3<445 0q92A40 TOr2 3 4 5 :wz+(cP50h = 100)q2& 3 xmid3 <= 100) Or (4 <> 0 And 8 5 @Then
dxexisDt (
E I f
If qn.N 9Msg Box "ͬ ˶ ͬ μȫ Ŀ ı"
Active Cell.Val4ue " '- _ޱ
Dim ydydxbmzs,pax
*R ange("S3")4 0v1
4+ 1
$2$ $`$։n7 $G >m̕ÿ@G~" & & ",ɼ怱!!AλI-Ӄdw E2G'F `
For e ndline +@ 3 To 15@dwmax@ Exmnam{ADN |Yid@DQM y""
c."av:c Aa
i1`manstart!womeb$Ci1)M "hE@Next i k` Dl EFGMǰ b"N" > ?jDUʬx y`ˁ`t eP Q n
ҒŮv',g i AѨS C Sheet.Rows(D- 1).DeletCN% ΥQa gg ʵʱ ɾһB &1 e;
_ x O rO ("5O з#O O bC
b nt> r / e E s q: ` ''
YFSub!PrU ivate Su b Worksh eet_Sele ctionCha nge(ByVa l Target As RT)
'ٴ
If2("P37"). hue < > "" Then
Exit nd $If 7T26= 00addlin svalid = b*@ $;manA ;gsmax:Ue
wome
e 3D
'Fo r Each c@c In A veS.Used'ccLike " MstartKRow :E 2
!Ů !^" U (Next'Ms gBox ":" &F"SGVX- ($-3F Oieia =1 To 8+ 1 [Ks(P+ 2).Inxser8:Q ( - 1) @#` Dte
Wi sy؊岹˵ÆyC ene:F(<@%f>
- '@)67g@7= E( E7B
%A0E7Applica.ScreenUpdng%Tru ="|<("`Svg
! @A S h e e t 3 :A S h e e t 4 :A _ V B A _ P R O J E C T d i r H End If curline = ActiveCell.Row curxmname = ActiveCell.Value ! If Range("B" & curline) = "" Then ActiveCell.Value = "" Range("B" & curline) = "" 0 MsgBox "˶Ա,ȻſѡĿ" End If ------------- T2$ , ! <' : : ----------ҹؼֵк > @! B >! < ! Sheet2.Cells(i, 1).Value = cc.Row >! D' . k >! < Ů ! Sheet2.Cells(i, 1).Value = cc.Row >! D' 0 k H >! < ӱ˵: ! Sheet2.Cells(i, 1).Value = cc.Row >! D' 2 y k F! D' 4 F! <' 6 MsgBox "ӿʼ:" & manstart ! MsgBox "Ůӿʼ:" & womenstart MsgBox ":" & endline $ MsgBox "ǰԪк:" & curline MsgBox "ǰֵ:" & curxmname ' -----------------ǰĿظ 6 ' 8 C 4 $ , 6 8 ' 8 k h D 4 $ , 6 8 ' 8 k 0 E 4 $ , 6 8 ' 8 k F 4 $ , 6 8 ' 8 k G 4 $ , 6 8 ' 8 k 8
" ͬһ˶ԱظͬıĿA@H F( < ' 8k ( k -----------------Ƿȫܳͻ ] ' J ' L] ( @ X p ' N ' P ' R ' T ' V] 0 4 .
4 0 X 2 2 N X $ , ! < C 4 $ , N X $ , ! < Q X $ , ! <' N k N X $ , ! < D 4 $ , N X $ , ! < Q X $ , ! <' P k N X $ , ! < E 4 $ , N X $ , ! < womenl Q X $ , ! <' Rs(womek N X $ , ! < F 4 $ , N X ,4 a # x ME ( SL S S <, N 0 { 0 0 0 2 0 8 2 0 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } @ ( @ )*` % @. . e @0 @2 ! Ms@4 @6 @8 @J Ac@L @N rlin@P "@R @T En@V ----@X ! <@Z @\ ؼ@^ @` @b @d @f @h @j | 6 6 )* % % ( _)S G " & 0 * H x " ( ( 6 H ( H X ` ( x " ( ( 0 @ & P ( x * " . H X ` ( 8 @ ` p x , & ( H P X ` h , p
J @ ` J h J 0 P J X J @
H X
` p J
J
p
J
J ` J
8 X x < < * @ P h p 8 H P p < 0 ( @ X x " @ P
X h
( @ ` p
x
$ 6 X h p
x 0 2 @ ` " x
8 H
P ` x
8 X h
p $ 6
* P h p 8 H
P $ ` Z ( p @
$ Z " ( 8 P
h x " < H & &
( 8 P h x " & & H h
p ] h i1 ٴ" & i1 $ If Range("P37").Value <> "" Thenhen
Exit Sub $ , ! < 1
En Q X $ , ! <' Tйk 0 N X $ , ! < G 4 $ , N X $ , ! < ols(" Q X $ , ! <' V.Enablk X ror Gok Ůй 4 0
4 2 X 2 2
' O X $ , ! < C 4 $ , O X $ , ! < 0 Then R X $ , ! <' N("row"k O X $ , ! < D 4 $ , O X $ , ! < enu Ba R X $ , ! <' Pntrolsk h O X $ , ! < E 4 $ , O X $ , ! < .Enabl R X $ , ! <' Rme Nexk O X $ , ! < F 4 $ , O X $ , ! < ("(R R X $ , ! <' Trror Gk x O X $ , ! < G 4 $ , O X $ , ! < = "0{ R X $ , ! <' V000000k X VB_Glok MsgBox "xmid1:" & xmid1 at MsgBox "xmid2:" & xmid2 de MsgBox "xmid3:" & xmid3 Ex MsgBox "xmid4:" & xmid4 pl MsgBox "xmid5:" & xmid5 VB N
P
R
T
V
get ' Jk N N d P P d R R d T T d V V d If
' ' Lk ` J L 2 ͬһ˶ԱͬʱμȫĿıA@H Cell F( <
'Rak # -----------------˶Աޱ ſ] H ` S3$ , ! <' h---- ' f N N d lue
I f ' f =k X P P d
Fo f ' fctk R R d ke " f ' f'Sk T T d mansta f ' fndk V V d hen
' f ' f, k x f h
omen ÿ˶Աޱ h ,ɼ汨! A@H The F( <ellsk * -----------------λޱ-] x S2$ , ! <' jkboo MsgBox dwxbmaxe = X 2 2 00 ' ^ ' ` N X $ , ! <' ZFalse Q X $ , ! <' lFalse Z l d MsgBox "Ŀ:" & xmname True b . 0 lateDe C b $ , Z B_Cust ^ ' ^ek b Public b . 0
Priva D b $ , Z Error ^ ' ^Wik H b t).Vis b . 0 ub
Pr E b $ , Z lose(C ^ ' ^ank b Next b . 0
'Act F b $ , Z
If bb ^ ' ^Thk b MsgBox b . 0 ɹ G b $ , Z ^ ' ^k ( b OKOnly MsgBox "ǰdwmax:" & dwmax b
' ^ j
Stri ÿλޱ j ! A@H x F( <
'Msk k X aa(1) * -----------------λޱ-Ů , Dim xmi, xmname, xmid, dwmax, ydymax, i1, i2ribute X 2 2 tt ' ^ ' ` O X $ , ! <' ZPredec R X $ , ! <' lVB_Exp Z l d MsgBox "Ŀ:" & xmname te VB_ b 0 2 e
Pri C b $ , Z ByVal ^ ' ^e)k b mensta b 0 2 ne, cu D b $ , Z ^ ' ^P3k
b " Then b 0 2 If
'c E b $ , Z curxmn ^ ' ^llk P
b "B" & b 0 2
'Act F b $ , Z ("B" & ^ ' ^
k b , b 0 2 Ŀ G b $ , Z
addl ^ ' ^gek b ddlins MsgBox "ǰŮdwmax:" & dwmax ֵ ^ j
h cc ÿλޱ j ! A@H T F( <.Celk k X anstar # -----------------λޱ " T2$ , ! < U2$ , ! <' nmens U3$ , ! <' pf
I ӹe ' r b . 0 'Sheet H b $ , $ t H b $ , H b $ , B b $ ,
r ' r
k b :" & r n
r
n
mens 0 @% v B@x endlin Υޱ n ˣʵʱˣ r ˣԶɾһУ A@H -ǰk Ůӹcu ' z b 0 2 xxm = H b $ , $ t H b $ , H b $ , B b $ ,
z ' zmak 8 b 1
End z p
z
n
name 2 @% v B@x xm + 1 ΥŮޱ n ˣʵʱˣ r ˣԶɾһУ A@H Range(k x k h k ` o X ٴ
If l P37 $ , ! < | k T2$ , ! < T2$ , ! <' :axxm :
En U2$ , ! <' n---- U3$ , ! <' pqnex st
qn > @! B = 0
>! < >! D' .5
xk @ >! < Ů >! D' 0mid5y k MsgBox ":" & manstart MsgBox ":" & womenstart ne <= 6 MsgBox ":" & manlingsmax - (womenstart - manstart)
I ~ n 0 . c . @% v B@ i).Val ( ~ 0 . n e . @% v B@x & xmi) Ů & cur > @! B " & xm >! < Ů >! D' 0("Q"k >! < ӱ˵: xmi).V >! D' 2("E"y @ k 8 0 ~ p 2 0 an 0 @% v B@ If
~ 2 0 p ne 0 @% v B@x ue <> ( Range T2$ , ( < Endk ` k X o P H Attribut e VB_Nam e = "She@et3"
Bast0{00020820- C $0046}|Global!SpacFalse dCreatabl Pre decla Id TruBExpose Temp lateDeriv$BustomizD2
P Sub Works_Cha nge(ByVa l Target As R
)
Dim man start, womeendl ine, curxmn, maxxm
' ٴ If. ("P37").;ue <> " " Then ExitUnd If 4 Act Cell.Row B" &,) "F $2'B("Ms gBox " ˶Ա ,Ȼ ſ ϠĿEE3B-
adSs0valiAD T2مH
1 1EK ҹؼ ֵк
For Ea ch cc In 9.U@cccLike "A3H 2.A]s(i, 1o=a V@ςf;@/ Ů/G!N˵:$\ R)
Next
S RGa-ʼ &&n(L%( h$d ǰԪ<Cֵ?ciUb Zظ Hurd z%.F)0D\>C,rG&C g+ 10`K D e E F ; G > E%Rͬһc;xāT+=. @=ee 'I ȫͻqneHxisdx>
$G Qjxmid1, a 2c 3c 4c 5
"Wb 3 4 57 anm, dw$, ydyr ii221___=?1__RJ81___W?1__R817_V?1'v[d1R `d2f33<44>50q92A40 Or2 3 z4 5 :wz+(cP50h = 100)q2& 3 xmid3 <= 100) Or (4 <> 0 And 8 5 @Then
dxexisDt (
E I f
If qn.N 9Msg Box "ͬ ˶ ͬ μȫ Ŀ ı"
Active Cell.Val4ue " '- _ޱ
Dim ydydxbmzs,pax
*R ange("S3")4 0v1
4+ 1
$2$ $`$։n7 $G >m̕ÿ@G~" & & ",ɼ怱!!AλI-Ӄdw E2G'F `
For e ndline +@ 3 To 15@dwmax@ Exmnam{ADN |Yid@DQM y""
c."av:c Aa
i1`manstart!womeb$Ci1)M "hE@Next i k` Dl EFGMǰ b"N" > ?jDUʬx y`ˁ`t eP Q n
ҒŮv',g i AѨS C Sheet.Rows(D- 1).DeletCN% ΥQa gg ʵʱ ɾһB &1 e;
_ x O rO ("5O з#O O bC
b nt> r / e E s q: ` ''
YFSub!PrS ivate Su b Worksh eet_Sele ctionCha nge(ByVa l Target As RT)
'ٴ
If2("P37"). hue < > "" Then
Exit nd $If 7T26= 00addlin svalid = b*@ $;manA ;gsmax:Ue
wome
e 3D
'Fo r Each c@c In A veS.Used'ccLike " MstartKRow :E 2
!Ů !^" U (Next'Ms gBox ":" &F"SGVX- ($-3F Oieia =1 To 8+ 1 [Ks(P+ 2).Inxser8:Q ( - 1) @#` Dte
Wi sy؊岹˵ÆyC ene:F(<@%f>
- '@)67g@7= E( E7B
%A0E7Applica.ScreenUpdng%Tru ="|<("`Svg
c A End If curline = ActiveCell.Row curxmname = ActiveCell.Value ! If Range("B" & curline) = "" Then ActiveCell.Value = "" Range("B" & curline) = "" 0 MsgBox "˶Ա,ȻſѡĿ" End If ------------- T2$ , ! <' : : ----------ҹؼֵк > @! B >! < ! Sheet2.Cells(i, 1).Value = cc.Row >! D' . k >! < Ů ! Sheet2.Cells(i, 1).Value = cc.Row >! D' 0 k H >! < ӱ˵: ! Sheet2.Cells(i, 1).Value = cc.Row >! D' 2 y k F! D' 4 F! <' 6 MsgBox "ӿʼ:" & manstart ! MsgBox "Ůӿʼ:" & womenstart MsgBox ":" & endline $ MsgBox "ǰԪк:" & curline MsgBox "ǰֵ:" & curxmname ' -----------------ǰĿظ 6 ' 8 C 4 $ , 6 8 ' 8 k h D 4 $ , 6 8 ' 8 k 0 E 4 $ , 6 8 ' 8 k F 4 $ , 6 8 ' 8 k G 4 $ , 6 8 ' 8 k 8
" ͬһ˶ԱظͬıĿA@H F( < ' 8k ( k -----------------Ƿȫܳͻ ] ' J ' L] ( @ X p ' N ' P ' R ' T ' V] 0 4 .
4 0 X 2 2 N X $ , ! < C 4 $ , N X $ , ! < Q X $ , ! <' N k N X $ , ! < D 4 $ , N X $ , ! < Q X $ , ! <' P k N X $ , ! < E 4 $ , N X $ , ! < x & "ȶ Q X $ , ! <' R ""
k N X $ , ! < F 4 $ , N X ,4 8m # x ME ( SL S S <, N 0 { 0 0 0 2 0 8 2 0 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } @ ( @ )*` % @. e r @0 @2 ! Ms@4 @6 @8 @J Ac@L @N rlin@P "@R @T En@V ----@X ! <@Z @\ ؼ@^ @` T @b get @d @f @h R @j T | 6 6 )* % % ( _)S G " & 0 * H x " ( ( 6 H ( H X ` ( x " ( ( 0 @ & P ( x * " . H X ` ( 8 @ ` p x , & ( H P X ` h , p
J @ ` J h J 0 P J X J @
H X
` p J
J
p
J
J ` J
8 X x < < * @ P h p 8 H P p < 0 ( @ X x " @ P
X h
( @ ` p
x
$ 6 X h p
x 0 2 @ ` " x
8 H
P ` x
8 X h
p $ 6
* P h p 8 H
P $ ` Z ( p @
$ Z " ( 8 P
h x " < H & &
( 8 P h x " & & H h
p ] h ٴ* $ If Range("P37").Value <> "" Then Exit Sub $ , ! < alue = Q X $ , ! <' Tge("U2k 0 N X $ , ! < G 4 $ , N X $ , ! < i1 = Q X $ , ! <' V If (Ik X i1)) Ok Ů= "" O 4 0
4 2 X 2 2 0 O X $ , ! < C 4 $ , O X $ , ! < manli R X $ , ! <' Nd manlk O X $ , ! < D 4 $ , O X $ , ! < Ķ R X $ , ! <' P "ˣk h O X $ , ! < E 4 $ , O X $ , ! < en = 0 R X $ , ! <' Ro endlk O X $ , ! < F 4 $ , O X $ , ! < ") R X $ , ! <' T> 0 Thk x O X $ , ! < G 4 $ , O X $ , ! < nlines R X $ , ! <' V manlik X Actik MsgBox "xmid1:" & xmid1 sg MsgBox "xmid2:" & xmid2 & MsgBox "xmid3:" & xmid3 " MsgBox "xmid4:" & xmid4 MsgBox "xmid5:" & xmid5 If N
P
R
T
V
t As ' Jk N N d P P d R R d T T d V V d f addl ' Lk ` J L 2 ͬһ˶ԱͬʱμȫĿıA@H r Ea F( <iveSk # -----------------˶Աޱ
ma] H ` w S3$ , ! <' halue ' f N N d t = cc f ' fork X P P d :" & f ' fsgk R R d x " f ' fmak T T d addli f ' flik V V d 1
f ' fwsk x f h
t
ÿ˶Աޱ h ,ɼ汨! A@H anli F( <tivek * -----------------λޱ-] x S2$ , ! <' j MsgBox dwxbmax X 2 2 ' ^ ' ` N X $ , ! <' Z Q X $ , ! <' l Z l d MsgBox "Ŀ:" & xmname b . 0 C b $ , Z ^ ' ^ k b b . 0 D b $ , Z ^ ' ^ k H b b . 0 E b $ , Z ^ ' ^ k b b . 0 F b $ , Z ^ ' ^ k b b . 0 G b $ , Z ^ ' ^ k ( b MsgBox "ǰdwmax:" & dwmax ^ j
ÿλޱ j ! A@H F( < k k X * -----------------λޱ-Ů , Dim xmi, xmname, xmid, dwmax, ydymax, i1, i2 X 2 2 ' ^ ' ` O X $ , ! <' Z R X $ , ! <' l Z l d MsgBox "Ŀ:" & xmname b 0 2 C b $ , Z ^ ' ^ k b b 0 2 D b $ , Z ^ ' ^ k
b b 0 2 E b $ , Z ^ ' ^ k P
b b 0 2 F b $ , Z ^ ' ^ k b b 0 2 G b $ , Z ^ ' ^ k b MsgBox "ǰŮdwmax:" & dwmax ^ j
ÿλޱ j ! A@H F( < k k X # -----------------λޱ T2$ , ! < U2$ , ! <' n U3$ , ! <' p ӹ ' r b . 0 H b $ , $ t H b $ , H b $ , B b $ ,
r ' r k b r n
r
n
0 @% v B@x Υޱ n ˣʵʱˣ r ˣԶɾһУ A@H k Ůӹ ' z b 0 2 H b $ , $ t H b $ , H b $ , B b $ ,
z ' z k 8 b z p
z
n
2 @% v B@x ΥŮޱ n ˣʵʱˣ r ˣԶɾһУ A@H k x k h k ` o X ٴ P37 $ , ! < | k T2$ , ! < T2$ , ! <' : : U2$ , ! <' n U3$ , ! <' p > @! B >! < >! D' . k @ >! < Ů >! D' 0 y k MsgBox ":" & manstart MsgBox ":" & womenstart 6 MsgBox ":" & manlingsmax - (womenstart - manstart) ~ n 0 . . @% v B@ ( ~ 0 . n . @% v B@x ŮJ P > @! B = "Thi >! < Ů >! D' 00020k >! < ӱ˵: te VB_ >! D' 2ace y @ k 8 0 ~ p 2 0 re 0 @% v B@ xposed ~ 2 0 p
A 0 @% v B@x True ( Public T2$ , ( <rivak ` k X o P H Attribut e VB_Nam e = "She@et4"
Bast0{00020820- C $0046}|Global!SpacFalse dCreatabl Pre decla Id TruBExpose Temp lateDeriv$BustomizD2
P Sub Works_Cha nge(ByVa l Target As R
)
Dim man start, womeendl ine, curxmn, maxxm
' ٴ If. ("P37").;ue <> " " Then ExitUnd If 4 Act Cell.Row B" &,) "F $2'B("Ms gBox " ˶Ա ,Ȼ ſ ϠĿEE3B-
adSs0valiAD T2مH
1 1EK ҹؼ ֵк
For Ea ch cc In 9.U@cccLike "A3H 2.A]s(i, 1o=a V@ςf;@/ Ů/G!N˵:$\ R)
Next
S RGa-ʼ &&n(L%( h$d ǰԪ<Cֵ?ciUb Zظ Hurd z%.F)0D\>C,rG&C g+ 10`K D e E F ; G > E%Rͬһc;xāT+=. @=ee 'I ȫͻqneHxisdx>
$G Qjxmid1, a 2c 3c 4c 5
"Wb 3 4 57 anm, dw$, ydyr ii221___=?1__RJ81___W?1__R817_V?1'v[d1R `d2f33<44>50q92A40 Or2 3 z4 5 :wz+(cP50h = 100)q2& 3 xmid3 <= 100) Or (4 <> 0 And 8 5 @Then
dxexisDt (
E I f
If qn.N 9Msg Box "ͬ ˶ ͬ μȫ Ŀ ı"
Active Cell.Val4ue " '- _ޱ
Dim ydydxbmzs,pax
*R ange("S3")4 0v1
4+ 1
$2$ $`$։n7 $G >m̕ÿ@G~" & & ",ɼ怱!!AλI-Ӄdw E2G'F `
For e ndline +@ 3 To 15@dwmax@ Exmnam{ADN |Yid@DQM y""
c."av:c Aa
i1`manstart!womeb$Ci1)M "hE@Next i k` Dl EFGMǰ b"N" > ?jDUʬx y`ˁ`t eP Q n
ҒŮv',g i AѨS C Sheet.Rows(D- 1).DeletCN% ΥQa gg ʵʱ ɾһB &1 e;
_ x O rO ("5O з#O O bC
b nt> r / e E s q: ` ''
YFSub!PrS ivate Su b Worksh eet_Sele ctionCha nge(ByVa l Target As RT)
'ٴ
If2("P37"). hue < > "" Then
Exit nd $If 7T26= 00addlin svalid = b*@ $;manA ;gsmax:Ue
wome
e 3D
'Fo r Each c@c In A veS.Used'ccLike " MstartKRow :E 2
!Ů !^" U (Next'Ms gBox ":" &F"SGVX- ($-3F Oieia =1 To 8+ 1 [Ks(P+ 2).Inxser8:Q ( - 1) @#` Dte
Wi sy؊岹˵ÆyC ene:F(<@%f>
- '@)67g@7= E( E7B
%A0E7Applica.ScreenUpdng%Tru ="|<("`Svg
c A o r A p p l i c a t i o n s * \ G { 0 0 0 2 0 8 1 3 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } # 1 . 6 # 0 # F : \ O f f i c e 1 2 \ E X C E L . E X E # M i c r o s o f t E x c e l 1 2 . 0 O b j e c t L i b r a r y * \ G { 0 0 0 2 0 4 3 0 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } # 2 . 0 # 0 # C : \ w i n d o w s \ S y s W o w 6 4 \ s t d o l e 2 . t l b # O L E A u t o m a t i o n 4* \ G { 2 D F 8 D 0 4 C - 5 B F A - 1 0 1 B - B D E 5 - 0 0 A A 0 0 4 4 D E 5 2 } # 2 . 4 # 0 # C : \ P r o g r a m F i l e s ( x 8 6 ) \ C o m m o n F i l e s \ M i c r o s o f t S h a r e d \ O F F I C E 1 2 \ M S O . D L L # M i c r o s o f t O f f i c e 1 1 . 0 O b j e c t L i b r a r y
_)S T h i s W o r k b o o k 0 6 6 5 4 2 b 7 a a T h i s W o r k b o o k :
S h e e t 1 0 7 6 5 4 2 b 7 a e ' S h e e t 1 T |? S h e e t 2 0 3 6 5 4 2 b 7 a a S h e e t 2 v 0 >4 S h e e t 3 0 4 6 5 4 2 b 7 a a S h e e t 3 a H 24 S h e e t 4 0 5 6 5 4 2 b 7 a a S h e e t 4 8m ` 24 x ` 0 H >
rG/8 LA#%@q ( )}PK@2e q9>FlQRﱆ yc`C`BE, ST 0 Excel+` VBA` Win16~` Win32` Mac` VBA6#`
VBAProject` stdole`` Officeu` ThisWorkbook|` _Evaluate` bbbbb6s` Workbook_Open` Windowsd` Count0v` Visible` Workbook_BeforeClose` Cancel` Save` Sheet1` Worksheet_ChangeS` TargetF` Range ` manstart`
womenstarti` endlineq
` curline$` curxmname` linemaxxmr` addlinsvalid` ValueK` cc\` ActiveSheet%N` UsedRangeȉ` Row`
ActiveCell` MsgBoxR` qnexist` dxexist8` xmid1P` xmid2Q` xmid3R` xmid4S` xmid5T` xmiH` xmnameB` xmid1` dwmax)C` ydymax` i1]` i2]` ydydxbmzs` ydyxbmax` dwxbmaxI` xmnameid` manlingsmaxl` womenlinesmax` countmanb` IsNull` RowsU` Deletex`
countwomen-` Worksheet_SelectionChange4` addlinei8` Insertr` Application*` ScreenUpdating! ` Sheet2` Sheet3` Sheet4` Workbookk` BeforeClose~;` _Defaultj` Worksheet` Change` SelectionChangen` _B_var_addlinsvalid` _B_var_manlingsmax ^` _B_var_womenlinesmax` _B_var_cco` _B_var_manstart\` _B_var_womenstartG` _B_var_addlineiS` _B_var_endline` x ' Z D 0* pH d
VBAProject 4 @j
=
r _)S J<
rstdole> s t d o l e h %^ *\G{00020430- C
004 6}#2.0#0 #C:\wind ows\SysW ow64\e2. tlb#OLE Automati on ` EOffDicEO f i cEE 2DF8D04C -5BFA-101B-BDE5EAAC42E gram Fil es (x86)\Common \Microso ft Share d\OFFICE 12\MSO.DLL#P 11 .0 Ob Library N " "ThirkbookG Ti s Wr k bo* 2 HB1y BE,!:"B+B}SheetT1GS@#eYt 1 H2N|? T*2222 I>4v 3U3332a44J448m8 K* rU ~ ~ ~ ~ ~ ~ ~ ~d lLG'` a y a q 1
)
A
Y _ _ S R P _ 0 _ _ S R P _ 1
P R O J E C T w m } P R O J E C T 9
VBAProject ThisWorkbook Sheet1 Sheet2 Sheet3 Sheet4 F / C:\PROGRA~2\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL VBA
q ` F F:\Office12\EXCEL.EXE Excel
i p 0 F C:\windows\SysWow64\stdole2.tlb stdole Worksheet_Change
9 a L-[ DR E C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE12\MSO.DLL Office
a ! F KuO+T F h&O*RTj N D F Workbook Workbook_Open Workbook_BeforeClose D F F cQKyD F k r>A{D D F Worksheet F F Worksheet_SelectionChange @ P 3 7 k[ T 2 U 2 U 3 F F 1 Y U s e d R a n g e
V a l u e 7uP[YT R o w sYP[YT R o w s I n s e r t D e l e t e 5uP[bTeEQf: F 1 rU ~ ~ ~y
1 bbbbb Cancel ( Target_ ThisWorkbook T h i s W o r k b o o k Sheet1 S h e e t 1 Sheet2 S h e e t 2 Sheet3 S h e e t 3 Sheet4 S h e e t 4 ID="{00000000-0000-0000-0000-000000000000}"
Document=ThisWorkbook/&H00000000
Document=Sheet1/&H00000000
Document=Sheet2/&H00000000
Document=Sheet3/&H00000000
Document=Sheet4/&H00000000
HelpFile=""
Name="VBAProject"
HelpContextID="0"
VersionCompatible32="393222000"
CMG="4A48E6BE34C234C230C630C6"
DPB="94963808C84FE54FE5B01B50E5FAB280E11F8D61B2711DB54D396A9ADB1F926550A23B76ED5F"
GC="DEDC72C2F64641474147BE"
[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,
S heet4=88, 116, 763, 559,
Oh +'0
X ` x Ϻ Ϻ Ϻ Sky Microsoft Excel @ ED@ 9q@ 2 ՜. +,D ՜. +,, P X d l t | S u m m a r y I n f o r m a t i o n ( ( D o c u m e n t S u m m a r y I n f o r m a t i o n 8 C o m p O b j o slh ̹ ̹ ( S [ ICV KSOProductBuildVer $ 8ECB90856D7343E9B912AC05E51B93ED 2052-11.1.0.12019
F# Microsoft Office Excel 2003 Biff8 Excel.Sheet.8 9q