ࡱ>  % !"#$&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~Root Entry FcW|p'j Workbook_VBA_PROJECT_CUR"(&l`&lVBA(&l&l a\p*j0uwl Ba= ThisWorkbook=<1(8X@"1 -3 000001 -3 000001 -3 000001 -3 000001 -3 000001 x-3 000001 -3 000001 -3 000001 -3 000001  -3 000001 -3 000001 -3 000001 -3 000001 9-3 000001 9-3 00000"\"#,##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\)0_                   & (      &   ` %%k0j00Ahn0peQQ% Module1.T{eQR000!qW0000 g000!qW000 g00000y0M0WN!qW0y0M0WN g00001000allagN"ZR  3 A@@  pe1pe2pe3pe4T{_000! S0n00000bW0f000000Y00Ahn0pe0eQRY00 !! 5  cc a  ]  dMbP?_*+%MTEPSON PM-930Cp)m|d)|p|m|pv 4dhh4 **** qhhDLLName32=E_DU17GJ.DLL L dL 2EPSON PM-930C****" dMb?Mb?U} } } } } } } @                      62T <(    Z<(UCC@? ],@<(U Li'U9 $(<10k0j00Ahn0pe x <(g  2  Z(UCC@? j],@(U hix(U9  $<!10k0j00Ahn0pe hQf0h:y <p Q  Zt)UCC@? U],@t)U i)U9  $<'10k0j00Ahn0pe Tpe$Pk_ P <p }*Y  Z*UCC@?r],@*U i)U9  $<!10k0j00Ahn0pe agN Yf <a H  Z*UCC@? Z],@*ULiL*U9 $<  = g 5<$:<  ZX+UCC@?^],@X+Ui*U9 $<  =!q<  ls  Z+UCC@?+ Z],@+Ui+U9 $<= g<  ls  Z,UCC@?+^],@,UL i0,U9 $<=!q<  9   Z\-UCC@? GZ], @\-U,i,U9 $<>= g<  3    Z-UCC@?^G], @-UHi-U9 $<>=!q<  :4   Z.UCC@?: \], @.U$di4.U9 $< T{ 10< >@A @5 Sheet1 ThisWorkbook Sheet1 Module1 __SRP_2)\  !"#$%&'(*+,-.0123456789:;<=>?@ACDEFGHIJLMNOPQRSTUVWXYZ[\]^_`abcdefghjklnpqrstuvwyz{}~$+{gcN#xME (SLSS<N0{00020819-0000-0000-C000-000000000046} @i og`%h`` >" H$P"xx8===== ExcelI ================================== (8mFbZ[W\ B@8ExcelI܂oXPkAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2Option /licit '= celI  P?C Sub _BeforeCl_(Can* As Boolean) App?aE.DisfyAlertse'mFbZ[W \QuitP'Ex<܂ End2 ?gc(#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}8(%H xpAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2Option /licit rU~|      f(rU d$*P*&0Ph F  $ ( 8 FX F"*8 PX p "  (p "6   6  2&  @&X6&F@ &X \  ,h     4   0 F8  "   F FH " "  .  0  P $p   " Z`h$R"gc-`xME(6 << <(x@,P@.@2 @60 @88 @<D @@@L@B@P @FhT @JX@LZ@"% P `55 R5" 6"h`TT6"`V|6"`X6"`ZH#`\ 7" r`55`t:"`v$;"`xH8"`z8"`|H8"`~8" 0`-- n`FF` ̓` (`T`V`Xe+`(iHjihi |j `kki  i ei `R``G`l `JJ`  ` `` `Oor0`,==  `  ( `   ` `X1)`R` r``"2 P ` 00`Xq`$  ` ..`XV`j x `33`X2` `.An`Ȃ`"G  `   ``X9 <P `  @ `  B `  D `  FP `  H `  JH `''`LE`N`P ``Rg  `  `+^` i$P@&@*( @0x@4(@:@ @>H @DhR @HV @N\@@h(H P0x(P@P P    P  x    (hx ( dJ1F$*\Rffff*1q4631db65A F P Fp"&( 0H &H "  (H 2p .>"Px    8Xp&b F  h " (  F F8"&<":(hp .x$&*H h"$J0 * "8`x8. 0 F8   B  F  Fh""$  B(BpZ "r@ "4.  PX ` &  ~P4X.  &  ~x 4 .   &  ! ~ !!4!.! " &" @" ~H""4".# 8# &@# h# ~p##4#.0$ `$h$&p$$ F$ $ % , % P% Fp% % % (% F & h& F&B& & &' '@' `' ((( F( ( ) D ) h) F) $) &) & * FH*" *$*$* <*(+ @+`+ h+ + n, ^, nP- -- ^- H. . X/ /0 0 ~0 H1P1hp1^182r2x@3*3 3 4 0555 h6 67 7 P8 X8x8 N8 8 8 9 :r : : : 8;X; `;6p; ; X<\`<<D<N=h=Nx==6=>>>>(? 0?8? @?F`?<?f?P@Jp@@$@AA0AHA`AxAAA0A&AB0BHB`B VBBZBPCXC F`C C C C C FD F`D"DD $D$D(E8EXE`ExEEE EEEF F@FHF&hF FFFFF G0G28GpG&xGGGGGGH(HHH(PHxH6H$H0H (I$8I`IxI$II I,JD@PX`h*0J.`J TJpJ TXKK FK L L 6(L `L L FL FL"0M 8MXXM0M@M0 N8PN NfN2O:HO2O8O OVP2pP8P4P:Q XQxQ JQ"QQQ  R$(RPR 4hRRRR R R SS J S"pS2xS S SS T(T J0T"T:T2TZU`U JhU"UUU U(V(8V `V( xV"W V0W W "WbW  X .(X XX0xX>X X 6X0YHY`Y JhY"YY  ,YZ(ZJ@Z ZJ8[V[ [$[$\D@\D\\z\zh] ]D]D@^ ^J^^_ _@_0H_ x__$_ _` `````a aa"aab b(b@b JHb"bb  &bbc6 c.Xc c.ccc 4d \8dd d:ddpe xe:e eJe8f@f`ff*f ffJfHgPgpgggJgh"h8hXhxhh^hh Ji"PiXixi  4i@ij(j@j0Xj4j jj4j8 kXk xk$kZklv(l lZl mJ0mmmmm.m n nR@nnnnnoRo`o"hooooo$o p&8p`p Jhp"p:pFqHHqNqqr r8r J@r"rr *r r(r( s Hss t t,@tpttt tttu Ju"`uhu*u&u*u*v 8vXv J`v"vv*v&w*(w*Xw ww Jw"xx* x&Px*xx*x xx Jy"PyXy*py&y*y*y (zHz JPz"zz*z&z,{*H{ x{{ J{"{{,|&@|*h|*| || J|"@}H}`}"x}} T},~@~zX~*~0 BH *~.p"&Ȁ,, 0P2.Ё ,@ pv, 8X J`"4, 8 J@"6ȅ`.h"860H JP dB .@`؈xx?=============================================================== ϐA萔̐錾?===============================================================](PDǑ]x(PD ̑Ǒ]xDe̐]D =10orOther]D10ɂȂ(sԍ)]Dŏ]@DXg=TrueA`FbN=false]@DXgs=True]hDJbRL=TrueA=Falses]hD G[tOyma]D vZ 1to6hos]D ZL]DMsgBox^CgAc?+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Sub `FbN()ri POɂȂS̐A`FbNra! ͒l10ɂȂ邩`FbN@@2005/08/26@cmk?-----------------------------------------------------------T?+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++o]PDe̐]D JE^[]D͒l'B_@Loop(`FbN)===== 4̐̓ =====_@ Loop()RD n()NA e @ b$`!`X ̂S̐͂ĉB d d fiI O j N$^'\D`FbN鐔̓ \$h G|jD 0 Ȃ߂ \B ͂4ȂOpen T\[g \ T $$h T+RDe̐ Tg @$R$R$R$RG&e P`X ̐l͂ĉB l NA@jjD 0܂܂ȂdB ͂4ȊOS̐l͂ĉB l NA@jk @ \ @$R$R$R$R@4ȊOor0Ȃ烋[v ,===== SĂ̌̑gݍ킹(Fact(4)=24) =====Ali'< @ '6DlZbg(0or-1) Z Z$R'6D sڂ X @ '4DkZbg(0or-1) X ZG X$R'4jDsȊOr] Vi @ '2DjZbg(0or-1)$ V Z V XG V$R'2jDsArȊOq T @ '0DiZbg(0or-1)  T Z T X T VG T$R'0jDsArAqȊOp@\-U " 6 @  4 @  2 @  0 @  GAnjD-1or0ȊOȂ`FbN < Gpj@‚I TC V@ X Z^ <G :ɂȂ܂B NA@jj9p@ ̃`FbNo?+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Sub Xgall() POɂȂS̐AXgC 10ɂȂSĂ\@@2005/08/26@cm?-----------------------------------------------------------?+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ]`xDJnAI]D Xe[^X]EEEEEEEEE 9Dc̐]DljbZ[W 'tD X^[gADǑʂNAV1$B@HD s\ sł... ( (DʂXVȂ'BF'DD tOZbg'$F'&F'(F'*F',F'.DǑʂNA'~'<D ŏIsˌsł... P @ | @ $'xD Xe[^X ===== ̑SĂ̑gݍ킹 ===== 6 @ @l 6 @ G x 6 @  $, 6 | 6 $'xjD10,1,2,3,4,5EEEE9 6 G x x $'xjD1=0,1,2,3,4,5,6,7,8,9 Q'z 4 @ @kP z 4'zD2 12345 x z (DXe[^X\ 2 @ F 0 @ @j,iAnD10ɂȂ邩`FbN < !! D ŏIs-12̎ 'vFI $ŏIsɂȂ̂œrŏI܂B l NA@jȏ'~FŌɈȏtFFor-Next𔲂k` 0F 2 4 6 'vDI (DXe[^X (D2sڂ  (DʂXVV1$B@H h:mm:ss.0 ( v t (DsԂ̕\ :ɂȂ鎮̐ =  <   ~  NA@jDs̎̌o ?+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Sub Xg1() POɂȂS̐AXg1H! 10ɂȂSĂ̑gݍ킹\@@2005/09/10@cm?-----------------------------------------------------------?+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ DDXgallsȂ߂"ɁuSĕ\vsĉB l NA@j| k <DΖ߂  :ɂȂg͗L܂B  NA@j| k (===== ̑gݍ킹`FbN =====V1$B@HD s\ sł... ( < (DŏIs+1\K:O$!(D K`O\ _u $( (DʂXVȂADʌ珸Ƀ\[gADŏʌ̌AD ̌ (DʂXVV1$B@D s ̃Xebvɐi݂܂B   N$j DmFki (F2sڂ|FLZȂ߂ k8$===== ̑gݍ킹폜 ===== (DʂXVȂAD폜 AD10ɂȂȂ̑gpAD _u̎AD̍v\ (DʂXV$*@E :ɂȂg@@@=  < $ ?? $ <  ʂ d :ɂȂȂg =  >$ ?? $ > ʂ   N$j Ds̎̌ (D2sڂLk'DDtOZbgPo?===============================================================Private Sub \() 10ɂȂ邩`FbN; (a{b)~(c|d)A(a~b{c)dAa~(b{cd)c̑SĂ̏ꍇ@@2005/08/26@cm?-----------------------------------------------------------?===============================================================0]pDZL(z)]D JE^[DI[o[t[̎{|~OD'DZL(\)+-*/^D'DZL(vZ) X LF V LF T L@L̑SĂ̑gݍ킹(===== 1a{b~c|d ===== 6 X$ 4 V$ 2 T$ 0$ 8?D1a{b~c|d FG['J X$ V$ T$AF ʂ̕\ BG|jF`FbN‚Ikk===== JbRg ===== F@JbRg===== 2(a{b)~(c|d) ====='H  6 4 X$$ 2 0 T$$ V$$ 8? HD2(a{b)~(c|d)'J X$ V$ T$AF ʂ̕\ BG|jF`FbN‚Ik8===== 3((a~b){c)d ====='H  6 4 X$$ 2 V$$ 0 T$$ 8? HD3((a~b){c)d'J X$ V$ T$AF ʂ̕\ BG|jF`FbN‚Ik===== 4a~(b{(cd)) ====='H  6 4 2 0 T$$ V$$ X$$ 8? HD4a~(b{(cd))'J X$ V$ T$AF ʂ̕\ BG|jF`FbN‚Ik===== 5(a~(b{c))d ====='H  6 4 2 V$$ X$$ 0 T$$ 8? HD5(a~(b{c))d'J X$ V$ T$AF ʂ̕\0# BG|jF`FbN‚Ik ===== '6a~((b{c)d) ====='H  6 4 2 V$$ 0 T$$ X$$ 8? HD6a~((b{c)d)'J X$ V$ T$AF ʂ̕\ BG|jF`FbN‚Ikk TF VF Xo`?===============================================================Private Function vZ() 1Ɛ2̌vZ% a{bAa|bAa~bAabAaOb̌vZ@@2005/09/10@cm?-----------------------------------------------------------1 As Double: a2 As Double: b!L As Variant: {A|A~A?---------l----------------------------------------------------vZ As Double: vZ̓?===============================================================  D LʂɌvZ{KTF   '|KTF   '~KTF  ' (KTF 3t<{  @,1  @,1  3t<{ G'HcG  'jD/0`FbN~ "OKTF    B C G'HcGF  'jD0^0`FbNn`iX?===============================================================Private Sub \() ʂ̕\= `FbN̎MsgBoxAXg̎[NV[gɌʂ\@@2005/09/10@cm?-----------------------------------------------------------sy1 As Variant: ŏ̉ZLsy2 As Variant: 2Ԗڂ̉ZLsy3 As Variant: 3Ԗڂ̉ZL?===============================================================](@D\e̐]XpD\e̐`+ 6'F 4'F 2'F 0'D ɕϊ J@ ɏ===== 2̎ =====~RT OG( 2'F 0 )'F OG( 6'F 4 )'jjF (a{b)^(c{d)  ~  { |G( 6'F 4 )'jF (a{b)~c{d`, ~ { |G( 2'F 0 )'jF a{b~(c{d)   OG( 2'F 0 )'jF a{b(c+d) | { |G( 2'F 0 )'jF a{b|(c{d)===== 3̎ ===== RT  O OG( 6'F 4 )'jF (a{b)^c{d  ~  { |G( 6'F 4 )'jF (a{b)~c{d   ~  { |G( 6'F 2 )'jF (a~b{c)~d  % OG 2 )'F $(G( 'cG( 'jjF((a{b)~c)Od ===== 4̎ =====QRT   OG OG( 4'F( 2'F 0 ))'cG( 2'F 0 )'jjFa{(b^(c^d))Aa{b^(c{d) O | ~ G( 4'F 0 )'jF a{(b-c^d) OKTD sy1="O"̎({ OG( 4'F( 2'F 0 ))'jFaO(b|(c{d))  { ~G( 4'F 0 )'jF aO(b{c~d) | { |G( 4'F( 2'F 0 ))'jFaO(b|(c{d)) | ~ G( 4'F 0 )'jF aO(b|c~d)   OG( 4'F( 2'F 0 ))'jFaO(b(c{d))K|KTDsy1="", "|"̎P !  O | ~ { |G( 4'F( 2'F 0 ))'jFa|(b|(c{d))   { | ~ G( 4'F 0 )'jF a|(b|c~d)    ~ ~ G( 4'F 0 )'jF a(b~c~d)~KTD sy1="~"̎ | { |G( 4'F( 2'F 0 ))'jFa~(b|(c{d))cy   { | ~ G( 4'F 0 )'jF a~(b{c~d)   O ~ { |G( 2'F 0 )'jF a~b~(c{d){KTD sy1="{"̎ !  O | ~ { |G( 2'F 0 )'jF a{b|(c{d)n===== 5̎ =====5RT OG( 4'F 2 )'jF a^(b+c){d ~   | | { OG( 6'F( 4'F 2 ))'jF(a|(b{c))~d,{   { | ~ G( 6'F 2 )'jF (a|b~c)~dd | { |G( 4'F 2 )'jF a|(b{c){d}k`   O ~ { |G( 4'F 2 )'jF a|(b{c){d===== 6̎ =====RT O( 4'F 0 )'F aO(b{c|d) ! O O { | ~ G(( 4'F 2 )'jFaO((b{c)~d)d  O G( 4'F 2 )'jF a+(b+c)^d|   | { ~ =|(( 4'F 2 )'F 0 )'Fa((b{c)~d) Oe(( 4'F 2 )'F 0 )'Fa((b~c)Od)d0( 4'F 0 )'F a(b{c{d)kd  | ~ { |G( 4'F 0 )'jF a|(b{c{d)L  | { ~ G( 4'F 2 )'jF a{(b{c)~dkkn===== ʂ̕\ ===== ,'.F *',F ('*F &'(F $'&DǑ       '$D ̌Zz B $ & $ ( $ * $ , $ .G|jDȂ߂ < '<D=+1G| < !! G < '<F|jCŏIs-̎߂ B@ Xg̎|  <$(D\  <$(<  <$(  <$(  <$(  <$(  <$( <$( 8 < $( J < $(D 10ɂȂ 6 < $(D 10ɂȂ鐔 4 < $(< 2 <$( 0 <$(ADeɃ\[gO If nm Mod 100 = 0 Then ActiveWindow.ScrollRow = nm 'o߂\0 d@ `FbN̎roll        =  8 NA@jD\ k<o<?=================================================================Sub Auto_Open()== I[v̏= V[g̐ݒ@@2005/08/26@cm?------------------------------------------------------------?=================================================================]D (DXe[^Xo[\ B@D[NV[gNA[^-1$(@1sڂ̍=452$B@H@2s 9D=14$ 9Dʒu= 9Dcʒu=q@:A:K$B@H@A`K 9D Z̕=6 9Dʒu= 9Dcʒu=q9I$B@H@IcG/W (D \`=WHL:T$B@H@L`T 9D Z̕=3 9Dʒu= 9Dcʒu=0_ 9D \`=lq8L1:O1Q1:T1$B@H@ L1:O1,Q1:T18  9Dʒu=I͈͓Œ:T 9D cʒu=lq88P$B@H@P c 9D Z̕=3 9Dʒu= 9Dcʒu=q7U$(@ UZ̕=1 @ږ   $(D1`4   $((   $(D1`4   $(Dږ1`4 $(_u $( (DEBhEgŒ3$B@HD3s (DEBhEgŒJ:T$!(DJ`T\hA1$B@HD10ɂȂ邩`FbN`TPOɂȂS̐'NDMsgBox^Cgb '8 F Call '̐̓++++'@F'FF'L$L Call '̓M Call `FbN '`FbN@oH4?+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Sub () ̓++++++0 JbR:L=TrueA=FalseA[:Ln0=0An0=1 ׂ:Lpn=4Apn=3@@2005/09/10@cmN?-----------------------------------------------------------D?+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++A===== [̗L =====D[(0)g܂H   N$j '@Dg=0AgȂ=1Button 7 %B@HD {^:[L @  !!( FL=3()A=1()Button 8 %B@HD {^:[ @ !!( F=3()AL=1()===== JbR̗L =====tt ijg܂H   N$j 'FDg=TrueAgȂ=False)Button 5 %B@HD{^:JbRL F !!( FL=3()A=1()=3Button 6 %B@HD{^:JbR F !!( F=3()AL=1()===== ׂ̗L ===== ׂg܂H   N$j 'LDg=4AgȂ=3Button 9 %B@HD{^:ׂL= e L !!( FL=3()A=1() Button 10 %B@HD{^:ׂ斳 L !!( F=3()AL=1()D ADǑʂNAo.C===== eɃ\[g ====================================== ]`xD]Dꎞϐ===== ou\[g =====  D Ƀ\[g珸    < $ < $ D傫Γւ.. < $'Xe[ < $ < +1  < +k- \[g B@Ho,C===== ʌ珸Ƀ\[g ================================== ===sł..... (DXe[^X\ AD1`4̏Ƀ\[gAD1`5̏Ƀ\[gA1$B@H[=O (DXe[^Xo+C===== 1`4̏Ƀ\[g ====================================h+$ <$$B@HD ŜI======O$ B@DL[=O˕בւL$M$N$ B@DL[=LAMAN4 o*C===== 1`5̏Ƀ\[g ====================================!(]hDs"]D"' DlD 6 @ F 4 6 2 4 F 0 2 'D߂̍sAc # 0 $! 2 $! 4  $! 6  $!bD т̎  ' D I̍s=+1בO If re Mod 1000 = 0 Then ActiveWindow.ScrollRow = re 'o߂\p(  D2ˆȏ̎D J$ $  $$B@DL[=J()˕בւG k'  $!$'D߂̎ X   X $!$'"D r鎮 $ "G "'jDVȂlj X&==  G  $(jD ʂ\10 0F 2 4F 6o&C===== ŏʌ̌ ============================================&] 8 Ds&===== ŏʌ̌̃JEg ===== X <'>D10ɂȂ鎮̌ X ŏ X*** > X  $(Dŏʌ̐l(\[gO)̐l &$ X &%($( X &%( $(( X &%( > X  $(Fŏʌřv X*** > X  $(Dŏʌ̐l(\[g)(, $ X &%( > X  $(Fŏʌř[ X Xv > X  $( v > X  $(!=SUM(R[-10]C:R[-1]C) > $(*Dv(\[gO) =SUM(R[-10]C:R[-1]C) > $(*Dv(\[g)> X (  > X  $! > $!d > X  $(D (\[gO)[-10]C  > X  $! > $!d > X  $(D (\[g)$ XD=SUM(R[-10]C:R[-1]C) > $(*Dv(\[gO)9=SUM(R[-10]C:R[-1]C) > $(*Dv(\[g)F===== ݒ =====$ > $ > $$B@HD"Anm1+1:Fnm1+1"  9Fʒu= 9Fcʒu=q 4̐ > $(Fږ > $( > $(+24̐ > $(9 > $( > $(c B > :B > ,E > :E > $B@HD!"Bnm1+2:Bnm1+12","Enm1+2:Enm1+12"m1+12" #,##0_ 9Fl0.00 ,9F ʒu=W 9Fcʒu=q C > :C > ,F > :F > $B@HD!"Cnm1+2:Cnm1+12","Fnm1+2:Fnm1+12" 0.00_ 9F _ȉ2 == ,9F ʒu=W==== 9Fcʒu=q$B@H oC===== ̌ ==================================================DP ]  DsA X ===== ̌̃JEg ===== <'>D10ɂȂ鎮̌! XX  X > X  $(D1`6 > X  $(DNA X(v > X  $(Dv X >-1]C) X $!D X $!$$h'Dŏ̎   >  $! >  $(D JEg=+1Xk` X[-6]C:=SUM(R[-6]C:R[-1]C) < $(*Dv= X>  < X  $! < $!d < X  $(D XFc=SUM(R[-6]C:R[-1]C) < $(*Dv===== ݒ =====$ > $ > $$B@HD"Gnm1+1:Inm1+1"$  9Fʒu= 9Fcʒu=qx > $(FږFc > $( > $( > $ > $$B@HD"Hnm1+2:Hnm1+8"ȉ2 #,##0_ 9Fl ,9F ʒu=W 9Fcʒu=qH > $ > $$B@HD"Inm1+2:Inm1+8" 0.00_ 9F _ȉ2 ===== ,9F ʒu=W====== 9Fcʒu=q$B@HH  G"בւ̒ŎsĉB l NA@jjD_uNG$oC===== _ǔ ==============================================D ]  0 Ds' ]H ` D'.===== ̃_u̎ޖ̌̃JEg =====$ <$$B@HDL[=KŕבւK$ B@D '.Dl  X < X'F  $!'Dŏ̍s X $!bD_u̎ X 'XFs=+1[ 0 < . $(D _u̎ X   < . $(D . '.Drd=+1 X!v < . $( =SUM(R[ .  ]C:R[-1]C) < . $(*Dv $ X .   < X $! < . $!d < X $(D XF =SUM(R[ .  ]C:R[-1]C) < . $(*DvF===== ݒ =====$ < $ < $$B@HD"Gnm+10:Inm+10"   9Fʒu=+1 9Fcʒu=q0_u < $(Fږ < $( < $( < $ < . $$B@HD"Hnm+11:Hnm+rd+10"  #,##0_ 9Flu=W ,9F ʒu=Wu= 9Fcʒu=q < $ < . $$B@HD"Inm+11:Inm+rd+10" ( 0.00_ 9F _ȉ2= ,9F ʒu=W====== 9Fcʒu=q(ADтɖ߂$K$B@D KNA A1$B@H42 < (DŏIs+1\oC===== 폜 ============================================G x $ <$$B@HD ŜI>'< K3$ 20 B@D_u񁨋󔒍sHK:K$ &%4  '>D󔒈ȊO̍s-ږs+2 > <G :8 > : <$B@6jD 󔒍s폜 >'<D Ō̎̍sADтɖ߂@ A1$B@H o C===== 10ɂȂȂ̑gݍ킹 ==================================2 X ] DsP:T$!(D P`T\'XF'>Dl 6 @ F 4 6 2 4 F 0 2 " 0 X$! 2 X$! 4 X $! 6 X $!@4=L$ X 'XDs=+1Fd@10ɂȂ鎮6 > '>Dnm1=+1 +++ 6 > $(D e\++++ 4 > $(Jb 2 > $(B@ 0 > $( k( 0F 2 4F 6o C+++++ ijL ++++++++++++++++++++++++++++++++++++++++++++++++++++O̖ 'FD JbRL++Button 5 %B@HD{^5++++++ !!( F J[=3()Button 6 %B@HD{^6D > !!( FJ[=()J[ADǑʂNAo C+++++ ij ++++++++++++++++++++++++++++++++++++++++++++++++++++O̖P 'FD JbR++Button 6 %B@HD{^6++++++ !!( F J[=3()@Button 5 %B@HD{^5D > !!( FJ[=()J[ADǑʂNAoPC+++++ OL ++++++++++++++++++++++++++++++++++++++++++++++++++++++O̖ '@D[L++Button 7 %B@HD{^7++++++ !!( F J[=3()@Button 8 %B@HD{^8D > !!( FJ[=()J[ADǑʂNAoC+++++ O ++++++++++++++++++++++++++++++++++++++++++++++++++++++O̖ '@D[++Button 8 %B@HD{^8++++++ !!( F J[=3()LButton 7 %B@HD{^7D > !!( FJ[=()J[ADǑʂNAoC+++++ OL ++++++++++++++++++++++++++++++++++++++++++++++++++++++O̖ 'LD ׂLButton 9 %B@HD{^9++++++ !!( F J[=3()L Button 10 %B@HD{^10 > !!( FJ[=()J[ADǑʂNAo`C+++++ O ++++++++++++++++++++++++++++++++++++++++++++++++++++++O̖P 'LD ׂ斳 Button 10 %B@HD{^10++++ !!( F J[=3()Button 9 %B@HD{^9 > !!( FJ[=()D "ADǑʂNAoC+++++ ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++'8j ] Dꎞϐ] D͒l]  D{^eLXg d]0 D "i"̈ʒuimFj iSĕ\jielPj iύXjD'PZ 8G '8jD ftHg=10L_@Loop(̓) ̐͂ĉB d d fftHg PO N $^'LD̐̓[v LGxj@LZȂ߂ L$h'N8 N L D0or15ȏNG (OȊO14ȉ̐l͂ĉB l NA@jL N'Nk` N@ 0Ȃ烋[v NG N'8jD ͂ꂽȂȦ  8@B 8@B G 8$$T'LcG 8#.0E+##$$T'LjD7ȏ͎w\ L N$'ND{^̃eLXg LɂȂ鐔L1$( % L ɂȂȂQ1$(V Button 11 %B@HD{^ V L !(dFeLXgeX %!( F J[=3() Button  %B@HD {^1`4`' N V  $P'LFeLXg Li'RFʒu: L !(dFeLXgMs RX %!(ZF C==  8 8 G 8 b$`':cG 8#,##0$ \$`':jD Sp<4 $ >Q < $(D10ɂȂȂL < :O < ,Q > :T > ,Q < :T < $B@HDRange("Lx:Ox,Qy:Ty,Qz:Tz")Fd8zL < :O < ,Q > :T > $B@HDRange("Lx:Ox,Qy:Ty")ky"v" #,##0 "ʂ" (F\`==  (FI͈͓Œ]= < L < $(D 10ɂȂ >Q > $(D10ɂȂȂA1$B@HDoxC===== ʂ̌Z ==================================================]=Z(A3 & B3 & C3 & D3 & E3 & F3 & G3) '"V3""V4"`"Vnm"ɃRs[F C {+$`'DZLϊ |-$`'Call ~*$`' /$`''`F O^$`'' $'^DZi wC1$B@H 8 ̃{^āA`FbNS̐͂ !! f(*  !(j   ,9 9qvvAttribute VB_Name = "Module1" Option Explicit 0 '=; ϐA萔̐AWV Dim f1 As S@ng, f2 3 / 'O  '4 56 %')iDouble, jj k l.'PeP⚉str'=10o@rOthernmLoAPnmT'10Ȃ(sԍt)0 ' ŏ? XgfABoolean''=TrueA`FbN=`false+ soDBHJR-LD.=F,GD[2E ' tO Integer,*'vZ1to6' pn?  'ZLjA^Cg _K 'Ms`gBoxDB+9Sub J(@`' POcSy'O͒lh邩%`@@2005/08/26@cm@-~$ +8 SL,n(~)2Þ&p Q, qrs# 'JE@^[QVariantf 'c6 fIso 5'Loop(EAaI 4Ha b# DORe3.)Y'tN`A Qr=@ Input8(B"n " &!|Conv(n0, vbWide) _m& "` X 5Q ĉB"OkB&CrLf vbbTab"iI O j", E' =!! If Val() < 1 Theit 6{'0 wߑB#YLen= 4-1&ȂFor p0.0 To 31n(p)  (Mid,- p, 1)y>CSNext p3o n00nd( n()*`2) a1c0Q o$3` "(Z$Y$ c Q!+CriticalW '0܂ܐ E_IrȊD|U2 p2, 71  If7K While =` W)0<> 4> Oro$'*qor00[vmSS@@gݍ킹(Fact(4)=2ko'kO :r s#Hr(r 9a xrn  q y= _ *'j  P qS VA@-rj(q 'sA C ~qO Y _ViO)'i tZbg(0or-1) If p <>@ s And(r(q Then _~i = n(p)'sArAqȊOp@(l + 1 - n0) * (k<j i> 0nCal0l \e'-1or0lȂP`FNmnm >m0GoT@o o -'‚I*Next p qr]s'='MsgBox str & "ɂȂ܂B", , ^CgP 1:LoopJ'̇QESub '+;@Sub Xgv(' PO5S̐A @,10CSĂ \@@2005/08/26@@cm-&@1{9+ /Dim }s Date,e A}'JnAI = sla String@ BkG '@1(e[HX Const cA= "E- 9" 'cT8aȏ?3'@lj zZW a)= TimeSA^ g)NOA 0'$Range("V1").Select? )'B:`Aion.Valu e"ł..."$ApplicatScr@eenUpdnBg Fals''XV Ctf`True:zeo't&OC f1 ""P: f23456 / O@X!2?#'ŏIs`ˌ# .l C P"[n0@@Right(5,8 10uPZ8'= "Ȏgݍg 3pFor l9ϳ _'l3=glpa! Lef R'l 1{ 2) O6jZ,l1lG'10,1,2,3,4,5ŅF9L = 9c? O, Len(^) =,6,7,8,3k ˑQ@1o@&y'k7w& k 2p 12345K=tatusBar #8'7IEE1j`4: 30 &S'j,i q/_v'E/Ӓ>= ActiveSheet.Rows.Count90 12##;-1`2̎ ޞTeW'kyt"â rEqU܂R5  vbCritp]9'nOq{ N!t_a0\W_'@$-! 𔲂 If Bi: rj46dM TAt6Ot*7 +Window.zoll0,7Oj'2sڂ~~z??~ߋ֋'NumbermatLocaph:mm:ss.0w=-bo BԂs!5;p鎮@@wm`ph" -, l6vbInfor oR 31 End Sub '+;Sub Xg1() POɂȂS̐A@!< 10SĂ̑g킹\#@@2005/09/10@cm- &A;x(+ x If Notsf Then #'all߂  MsgBox "ɁuCvĉB", _vbCritical, ^CgG Exit IfC@6nm <= 2k4'@Β4str & "g͗LP4Exclamati$ong5'= `FbN @Range("V1").SelXect6'gŶ -.Value = " ł..."CActiveWindow.ScrollRow@ d+ 1'ŏ Is+1Columns("K:O Entire.HiddV= False 'K`OJ ells(2, 11)'_uăEppl`O5!eenUpd6ng e'ʂXVTc#$Cf בւ'@珸Ƀ\[g JEg ./ ab _/j Ay+Tr7K; i+E^ClearConte8nts^) ("(e`mvɐi }|vbOKCancel + vb~)`HĮ'mܔFAVi2'2sڂ 奿1'L⃠JZ XЍ폜ɓA?k5"gR*s'U_f%b '1@[b5G?'#@̎(8v_ 'q?1/P?;n; 5t2@f& Space(Int((4 - Len(Str(f- 2))) * 1.570.53x& C{ 0ʂ"Lf"~P;<11wC`Infor COK 2L \?Ely?E%rDCfoqj 'tO`ZU`lЪ"OPrivateq \>' (a{b)~(c|d)A~b{c)dAa)cpꍆ8/26_ Dim sy As Variant,1A?'ZL(zԑAp10:eger, q]r'P^ [Q On Error Resume Nex/('I@o0t[2RS@= Array("{Ȩ"|R~RR?(Ssy11+-A*A/A^")oPvZFr0 To pn: q px'a%,& 10~0{3Q[Ev5(lA!Sy1(r)kUqjpi&)V/ = 1#$ '1a{b~c|d If Err = 0 0Then 'G[ )8X1Call \(sy(r), "qp))r'ʂ7RNot XgfeExit Sub( '`FbN‚I 1End I&f '= J"Rg𤎞  MKG ' + 6@2()~() 9g@`False#A$vZ(l, k`r)apj, icqe_/ y# A@IBaB/OŽ2ʿ0CߎFo3@oo~b){c)dzop7"j98 77%7737?4??hG?,}4~(b{@odb}oZ(nb7`oqnbor7o77477b g7d75"7c)o?E8hn`o"o?g 775Sy(_w 1'Sn _w_w677So7B 7o7o2 d)oo6 S8t Next p: rqtr 1 ՎUOPrivate Function @' 1Ɛ21P BAa|b*P~RRObv@@2005/09/10@cm -?P As Double:ab2mb`LqVariant{A|0~00l̓o aj,,prB])w 5SO`.rror Resu meB(Select Case O 'AxʂɑQ"p{":r(0q++ N|K-O "~K*O@@>. < -1E0+307/W Or (>-1E)PYTrueE/!D'/0%ܭ.O 10b / 1 > 1B322  323/H;!^1'0^Vd Select End Function 0 '=;Private Sub \()( ʂ `FbN̎MsgBoxAXg[NVg??@@2005/09/10@cmZ- & sy1 As Variant: ŏZL2 2Ԗ33> [, syRId Dim ld*String,\ kHA'de`̐  jei += l:A*= k: = j: = i+A'ɕϊ Case I'ɏ@Bu2A B Is = 2 Ifk= "O" Then _KA 9"( " &H;&)": 1 <>NF( " )" '(a{b)^(c{dDi# (J!~" Or") A@1"{|?~,`30c'A*~T*%*Ā"B(sy3k6A$_cA(c+;|#} #Q c#|e# 3[h3;@h;J_(L2$dRL&2bJch ckc`#0 =P#=o4W #jjH ~b{c)~dp3/Tzz?SNLeft(ld, 1)(Y$ W$|El0e['($K)OP 040 3j2d4 E_Z`Pf5vggc2gC@(bg^d))AaSh{ >/)`Mj9ohC pVc\s -c` kJABr,'=1#/qs9/ wfQO(b$\,%kBUs?{c@Bn#:`$P /NZO " E u/ q]/0QiZD V ()ﯖ0ѬU"",P 65_7U֝)r( L|+v")) Then _ kd = "( " @& k: j8j(: ii4" ))" 'a|(bc{d))If sy2{" Or ~(-|" ATnd .3\~\sy 0 on vPc~du1G^^vH<;v~;Case "@-MI'sy1= ̎ފlsE|"@q~ G끿n6?={[]d]/<>BO/}_C{N==}~b~(Ud_&yd_{"z_&"*1 (og/~1 ,4, K{ ,E Selec t '= t5& 0I:st5K΃O";61jCPB'a^(b+c)ݐ'Y/@9 4;CaE@!rt l~l: = q1'({c))q o SV Q*s8.OP+Ip@~d Elsek) /o 96ApN+6If @ fH2 ]{ f\`\u(_(:D6D : D6`"D 6 O0Pv| SD\Q"`&`*SLzT)8"1DLO6PUF1)V??NL@cX'a+^^?!rCKto!t/M(K{oy=(Om_@4(! m//D(~WO1_!(8A8/Rose;l5z;8a 'a|(b{c{d)  @If (sy2 = "| " Or {") And _pkz3z~z !=Then>kd8( " & k(: jj " \)"^{)(~dEIf Selec t '= ʂ̕\L f6Jf5: f5443mf2f1R'O,-'1ldksy1z&&x3 id%a' (؃@Xgf(aC= f2݃3u45Ub| 6) BlExit SubT$'Ȃ߂C9nm@9+ E'=+1C8> ActiveSheet.Rows.Count` - 12*@ =& @: -'ŏIs-̎)HN:%='\(Cells(nm, 1).Valuez 'P2@Q3GkHU'4I2Q5'jUR6I3Q7'iR8""q9G10$Z,'10TvR ,lZ E 鼐 11j1iall `\[g,'ec`lMod 100V0CjcnWindow.Scroll@ol 'o߂WElse*'`FbNkMsgBox _a"C,, ^Cg) teub Bǟ0 Auto_Open(`' I=vW̏L @V@ ̐ݒ @@2005/08/26@@cm-?   Dim c As Lon,c?'1SApplication.DisplayStatusBar!TrYU'`te0^po [ -T.Cle/'N$NcAS Al("1")1mH eight 45O'1s̍=45 2o '2sWith> #3qz 14' ' 14HorizontalAlignme }= xlCer?'ʒu= XVelrt ?t?<'tc_ >3Columns("8A:K A|`K+OWid@= 6<A'Z|=6q& E.arI_BO 'IEF,.NumberForma@tLocal6"G/W?Ɨ`= xL:T 'L`T K3&} 3 x.  ?  _%z 0_ '0l[%Range("L1:O1", "Q1:TXs"?'R~,"/<MAyss)90 MI͈͓QNr@Bottom۵ 'cʒu=l End With4Columns("P").Selecta 0'PO =ion-.^Width = 1 A'Z@̕=3PHorizontalAlignmeDntXxlCe"r/'@*V ertic) 7*U,'U1YFor cTo 4z'ږ?Cells(2,@* 2 - 1).Value"" &@'1`4+ 1P 6'"Next c39"/'JG10H"9_uActiveWindow.FreezePanesVFalse%'EBhEg@CR4ow@3od'30sc Tr?A #]J:TEntire.Hidden  'J`T\uRange("\C1&iA6.cmulaR1C1 " {^āA`FbNS̐ė! !!d8ƚ nt.BoldvUGeneXralA+.ӏBottomd Ag =4'10ɂ $ Cg&PO#h'MsgBox  10 ' Call ,_&'3! n0 : 2J8RfBj: pJ3 K_ 2'aC'AE&r'-!:SubA$'+9 'Sub <()y #:L=6A=#@0[pn0<=0ap fpn=4ppx'@@2005/09/10@cm`-O S%i= L #*("!(0)@g?H", _-vbYesNo + vbQuesRt , 5/)t65*'`p0Ȃ=d|cWSheet.ShapeRBu@?n 7WM'#M: L JChara`ctersKWo@rIndex2(~n0) $Y`" 3()Q=18(0% ("= 8   > n', 'A1'C-(7 ijO  on ) S8 8?65?Ш%!BQO!O!lG!-u'O! <,6  F! o!  3o!Qc!Mo!c`j- !RP ߳  Uߖ VQ_ V 9O~ E_ OHPx- 5_ AL10 d+ _   - + 9_  |NA'Ǒ`ʂR1 & I}&eɃ\[ghO Privat2) Then'傫Γ *{= .= 26)M=ыEnd If Next1 A Sub FfʌRik Private  ւ(0Application.StatusBare"sł. "X'Xe@^X\3Call1_T'1`4&͎5Range("A1").SelectC3IFalse IS<.<Y3, 1),h_15)u'ŜIc"Ac$BGort Key1:=Columns("O") 'L[=OeR Y L" 2 M]a_',3N_@LAM=N6H66 6ar, rsheel's c! fStrifE ? ire`35'l !l n09: kl! jkija@%= a'a ߂&Do While 'tKjrek5).Valu`,@T!(4/W A(3/.(2%A'8̎@z5'IHA=+m' } Mod 18000 }ActiveWindow.Scrol0lRow'oߩfELoop{ s <> 0/2ˆȏqTrs U - 1 @UQQ_ IRJIbFRJ()/?Ss QfpRight( 0 ϡ ^1K8p6T#[F= '|raTmQfb  1f &  'Vlj{ B.r;n#x1e4= f 'ʣ)i: rjk4P#̌tc o=ۀJE0geRr0?d e֩ ̓5Ynm!nm10@2(#d33A+ r + 2!#Ya""***_' ̐l(ˑO8  V ?= WorksheetF unMCoun0tIf(r)?f , "( "@ O +/>.OAV`grc(1 vl17 #u2 94Af$"،v"3 }nm1 + 12, 2).FormulaR1C1 = "=SUM(R[-10]C:]C)" 'v(\[gO)  0Cells(e58T r0 To 9h lr3).Value _&y*= ++ / * 100=' <6RRRNext rLI+>T ?6B-'= 0ݒ 0Range(J, 1), u, 6)).Selectr'"A+1:F"CWith 1 ion .HorizontalAlignmeDnt@xlCerN'u=Verticr 'cEnd 1CNHg~4̐G}'ڜ fk ` guD- 4ee` _WFoFcF"B" &N >A ":12I& ",E1K)'"B !K2:12",|"EVNN umberhat Lo`DN"#,##0_ }6 '8l WGeneralawWWh W Wt 5C-05F5C35B2$2]50.05$'_ȉ27l7 7 L/OG OGs(1YW Sub D]~ "" Th6eh|f(Lefty1+)q='ŏ5!9fe0f˩ ux'&=+1W4If/0(+ 8, ߾[-6Ͼ2c%'ӿ"9U` oTOU O"OSDGoi79"'"G@,IbeO[ \.?|=`?|)?I-C"Ϡ, )Ϡ{ p8 r(ġ '"H2:b8 ߁ߜE{ߜqOu 'ʒu=W .VerticalAlignment = xl2C er'cEnd WithRange(Cells(nm1 + 2, 9), 8).Select l'"I6+2:Y8"U_ .i on7.NumberFormatLo؀g"0.`00_ " ,'_ 2*Ho@rizontGeneral,a1, 1EVC4If Err Then MsgBox "בւ̒ŎsĉB", _GDMO#> A88C8all e__'ɖ 8.ClearC0s?KN0A3""A1"ActiveWindow.ScrollRo>w@`Is+1\@ ƬA폜>^s?Ay/ ŜI0 Then Rows(L+ 1 & ":"nm).Delete Shift:=xlUp~'s폜nm =<1'Ō̎ RCall בւP_-V';ɖ*Range("A1").Smct End Sub '= 10Ȃ̑gݍ`킹  @ Privaub ()>Dim r A@s Long' s$Columns("P:TgEntire .Hidd= False'P`T(\r@q3:r= 0('lFor l0 To 9: klW jk i=j Cells(r, 15).Value Aq_ G 4` )G 3` A:=G 2E "'4=L.Acr  =+1EV@w 'd`|!~E '.'A + 2u;7E(=H'pe X 8 ko9j420iIfgNext i: $ bkdg)+ ijD * S JbR#f mTrhl+ 'G ActiveSheet. ShapeButton 5 '{^5 ion.Characters@.Font.o@rIndex`3 [=3(,dX6_ D6_lGxlAutomaticE(b߃NA8'O@ʂSvFv%'!R%=_%OY%A_%g/ *!C/("T%//e`*_%_%%_%//O// /_%% _%~ _%V_%_%++ OAF?%$b+T%[A5%n>0> 'w%|J7O@?7JJJY% O/F/8/ / $ 8/ TT%%J %%%@%#%A%1/ %t@o%%yO/eTO/yooJy?J?J%%%?J#3JׂYJpn`>4 ''_%|J9O@O'{^9  Selection.Characters.Font.ColorIndex = 3 'J[=3()AveSheet.Shapes("Button 10")N.tR10*xlAutomat ic Z(SCall NAE 'Ǒʂ" End S@ub '+ O . Sub ׂ#(]pnh'l^'lĕ9 (b4PKͅJDim ans As St0ring?*'ꎞϐCJ! in Double )'al t! Variant, bInteger d?eLX2g cl '"i"̈ʒu t`sArray(mF j", `S@ĕ\_i elPύFXIf ?= 0 Thenc 10'ftHg=vDo5'Loop(̡6J= InputBox("A@ĉ B" P"& vbCrLf (Tab"` PO /Cg, 10) '"2 ,c""c,Exit $' LZȂ¥a= Val>( $9`e!:Or Len > 15 '0or15ȏ NG KMsg/ "OO14@~̑&oQival, {gD|qIfS" Whi@A>'0[v<> 1_FP(ꂽ)( < #0 AC`}7> -10 (28"LTrim&(S0))IEl$seU= CForpA#.0E0+##"  '7w1DS G& Right(e, 7'/dQ̋QRange("L1`u*ue"鐔"Q:sܫTexXF"BCC'{rsart:=3) `j= 1 To 4 { b3 Qt1l`A=8t(b - 1 q[,"l"_?0+q! o clStyF= "A "T'NQ#?@D?|?N?strrx0ConvD  dolumnpJ:TREntirep@.Hiddp= TrS?'J``T]UAP({̍8vs== Private Sub v()  If nm - 2 > 1 0ThendtRange("Q" &L+ 1).Value =ZF'10ɂMVLV_":"O_2e& ",'1 + 3=T= >1 ).Selec t;'Lx:Ox,Qy:Ty,@Qz:Tz"ExlsemnONKn0d IfLC3ion.NumberFormatLocalr""""" #,##0 ""ʂ@]A\` HorizontalAli@gnmentxlCerAcross I͈͓ŒE[Crbǜŝǜ?@A1b"Ec E\ '= ʂ̌( __SRP_3 /_VBA_PROJECTdirB4__SRP_0KA`$`$`$`0!` aq ++/0I` ///$q`$`$`$ `$ `$9 `$a `$ `$`$`$`$)`$Q`$y`$`$`$ `$1`$Y`$`(`0n00* pHd VBAProject4@j = r 1F 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\OFFICE11\MSO.0DLL#M 1@1.0 Ob LibraryKEgx@Shift@xlUp@ JbRL@ xlAutomatic@@ JbR`@[L@[@ ׂL/@ ׂ斳@F@ansxt@in@tk@cl\@LTrimb@vbLfT%@Start@ FontStyle@vbNarrowO@ZD@Replacef@Module2c@Macro1N@ ActiveCell@Macro2N@Bold@Macro3N@Macro4N@WrapText}@ Orientationw@ AddIndent2W@ IndentLevel@ ShrinkToFitA@ ReadingOrder@ xlContextP@ MergeCellsک@`!#  6  1FgcThisWorkbook1n4631dad0ThisWorkbookN Sheet11o4631dad0! Sheet1(cThisWorkbookGTisWrkbUo 2 QHB1Bx-@B,!N*"B+BB|Sheet1GS@#e@Xt1H2NE(Modhule;du2O(O-!C9K*yrU~~~~~~~~~~~I 5v*A? sZ    ip9Qi 1Ia !9Q) ) VBAProject ThisWorkbookSheet1Module1F /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA A i0F9C:\Program Files\Microsoft Office 2003\OFFICE11\EXCEL.EXEExcel 9a@0FC:\WINDOWS\system32\stdole2.tlbstdole ׂ斳 QyPL-[DR?C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLLOffice a``FbN XgallXg1\vZ\ Auto_Open\[gבւ בւ_ בւ_JEg JEg_JEg__us폜 JbRL JbR[L[ ׂLNAvZ ,,d @\Module2 Macro1Macro2Macro3Macro4Tay *\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{00020813-0000-0000-C000-000000000046}#1.5#0#C:\Program Files\Microsoft Office 2003\OFFICE11\EXCEL.EXE#Microsoft Excel 11.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.3#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL#Microsoft Office 11.0 Object Library  1FgcThisWorkbook1n4631dad0ThisWorkbookN Sheet11o4631dad0! Sheet1(EModule11q4631db65"Module1-0(P0}XK+:qr#0JkZ&d wqj@<'cn0? bQfRFALSETrueExcel+@VBA@Win16~@Win32@Mac@VBA6#@ VBAProject@stdole`@Officeu@ ThisWorkbook|@ _Evaluate@Workbook_BeforeClose@Cancel@ Application*@ DisplayAlerts@Quit9@Sheet1@Module1b@f1$]@f2%]@f3&]@f4']@f5(]@f6)]@i`@ja@kb@lc@gh@str k@nmh^@nm1@n0K^@Xgf2M@ Xgsf:@JbRfԌ@G[F@e@pn^@^CgJ@`FbN@ne@pg@qh@ri@sj@@InputBox @StrConvx'@vbWide'@vbCrLf@vbTabc9@Val@MsgBoxR@ vbCritical+}@\e@o@ XgallB@s@e@slj@ski@c@ȏ}@Time@NA@Range @ SelectionZ@ValueK@ScreenUpdating! @Right @ StatusBarʜ@ ActiveSheet%N@RowsU@Count0v@Xgڥ@ ActiveWindow+@ ScrollRow"@NumberFormatLocal)@ vbInformationn@Xg1M@ vbExclamation@Columnsp9@ EntireColumn@Hidden]@Cells@בւz@JEgN@ JEg_@ ClearContents{@ vbOKCancelx?@vbCancel'@s폜@R@JEg__u@vG@Space @Str@vbOK%@sy)_@sy1@EvaluateT@Erro@\q]@vZJ@1@2@LO@sy2@sy3@ld^@kd]@jd]@id]@\[g&@ Auto_OpenV @cZ@DisplayStatusBar@Clear@ RowHeight@HorizontalAlignmentS@@xlCenter@VerticalAlignmentʡ@ ColumnWidth@xlCenterAcrossSelectionb@xlBottom?@ FreezePanesMz@C@vbYesNo@ vbQuestion@Shapes<@ Charactersrg@FontU@ ColorIndex@c1\@c2\@tempR@ בւ_1q@ בւ_Kq@Sort@Key1O@Key2P@Key3Q@rs_@re^@fe8]@r0^@WorksheetFunction&@CountIf@ FormulaR1C1S@ xlGeneralb@rd^@ DataOption1@xlSortTextAsNumbers@CountA38@DeleterU 12Lsy1sy2sy3f /}NL^ : 2006/7/21 [U[ : cm 14UThisWorkbookThisWorkbookSheet1Sheet1Module1Module1ID="{00000000-0000-0000-0000-000000000000}" Document=ThisWorkbo__SRP_1 iPROJECTwmmVPROJECT oSummaryInformation(xok/&H00000000 Document=Sheet1/&H00000000 Module=Module1 HelpFile="" Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="5A58F6D8D6DCD6DCD2E0D2E0" DPB="36349A3CAAC49BE19BE1641F9CE145AF04F559E0297A272A603E7CCB2E993D905ED9D6513DB115" GC="1210BE609B619B619B" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=147, 170, 810, 592, Sheet1=0, 0, 0, 0, C Module1=18, 11, 763, 625, Oh+'0@H\p  cm cmMicrosoft Excel@O@*&l՜.+,0 PXd lt| \ ɂȂS̐  [NV[gDocumentSummaryInformation8|CompObjp F$Microsoft Office Excel [NV[gBiff8Excel.Sheet.89q