ࡱ> ~  2 !"#$%&'()*+,-./013456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrtvwxyz{|}sRoot Entry Fޯ:{0Ʋ&Workbook_VBA_PROJECT_CUR"nŲ0ƲVBAnŲ ƄƲ  !"$%&'()*+,-./01234578:;<=>?@ABCDEFGHIJKMNOQSTUWXYZ[\]^_`acdefghjkmnopqrstuvxyz{|}~ Fɀ\pShinji Deguchi Ba= ThisWorkbook=!u<X@"1 -3 000001 -3 000001 -3 000001 -3 000001 x-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\)                 & (   `WSheet1QQ8 Fɀ )  dMbP?_*+%MHP LaserJet IIISi@w  ,,@MSUDNHP LaserJet IIISi d " d,,Mb?Mb?U>@5 Sheet1 rU IAi Y9q)1q1 0)02Y2201I4 1ThisWorkbook __SRP_8#__SRP_9 6Sheet1 9`` IW9P:T%dh! h dd HlP=x)hdPAd'%' %'0%'@%T %hx h $ld=t)hd t /T %tW  p6  p /T%pW  l6  l  l /T%pW  l6 l  l /T%tW  p6 p  p 4xplt$hdPd\'8%H:L%\`:d%tx! x dt H` \ ,H ) xt`\HDd$ xt`\H44PrU @$`$A` n\I#<L KkN*QիC F/)"Eggx9x/)"Eggx9L KkN*QիCME(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%H0(p % %pxH@<<M!A $*\Rffff*0i40d4d8544xAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2"  rU 81q1!4` __SRP_aL__SRP_bPBtabulationd__SRP_3u DrU @n4%6B@FPWv 0(<` rU $`$`0` 10$`n ! rU (`/(`( Lf#<M=>W#0K!&cFRI/L rxRI/L rM=>W#0K!&cME(@[LSS(L((L ,6"h@h @d @T @P @@ @0 @ @ @H @` @ 0`2x@Hx @xt @d @` @\ @L @H 8@8 0xH@M!A $*\Rffff*0h40d4d854*\R3*#4e*\R3*#50*\R3*#50*\R3*#4f*\R3*#4e*\R3*#4d*\R1*#ce*\R3*#4f*\R3*#30*\R3*#4d*\R3*#8c*\R1*#ce4#"   ( &9@ Ah P  / /  8 /h  X /    "( 0 6\0j[o[ɓo^]p]Worksheet Menu Bar 2%4.& :l &!6%8.*xWv .(< :l *!6%8.. NXWv 0(< >l .!6%8.0tabulation.verinfo .(@Wvvoj[o[̃Zbgtabul *(<eet Me >l .!6%8.0oXtabulWorksheet Menu Bar 2%4%6B@FPWv 0(<` Wv >l *!6%8.. .(<tabulation.simple 0(@tabulation.cross 0(@PUAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomi6zD2P Sub _AddinInstal@l() 'j[o[ɓo ^ Dim myCB As CommandBar CtrlControl,123RSet"= Application.%s(":she@ Menu *":,=B+s.G(Type:=mso0PopupBp.Capul@) 'WvO1@ H1EF'2@ Button 72IPH/2.OnAc@)bsi@e&ol&NXabuh!Ecross4 ^='' 5!E'1U'"v|nfoEnBd!w yUniYỹZpbgf fc("\).D0elet`M!A $*\Rffff*0^40dc26fb*\R1*#1b0*\R0*#19*\R1*#d3*\R1*#df:*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#..\..\..\..\..\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*#f*\R0*#19*\R0*#f*\R1*#d3*\R1*#df*\R0*#19*\R0*#f*\R1*#d3*\R1*#df*\R0*#19*\R0*#13*\R0*#14*\R1*#56*\R1*#40*\R1*#10*\R1*#25*\R1*#41*\R1*#ce*\R1*#7b*\R1*#a3*\R1*#31$*\Rffff*0<41214dcf*\R1*#d3*\R1*#df*\R1*#285$*\Rffff*0;40d4aba5*\R0*#f .17l xME@(RLLLLLLLLLL> L LL *Pp`^x`bt %`^xabul`bt`d `.T BF`0$ 5-` 52`4 n3@`  PD%` `D  `\x%8 `d P ` VXh`p `ti`Z `@HPX` d(\%`$  h0 h( `&h``V`T  0 D R `tk8^i Xi(`^t`bx`p`x`XT `D i`x`4 `t`$  @ hH``$`&(@ V` p`\``Z``P` >`t@ % `Tkh 8 hh X Hp @ @ P@ @ @ @8 @@ h@( t P@P d @P` @ \ X "@ X "@ T &@ P & (@0 L H  4@ H X 0 4h 0 6 ?x @ D @ @  ?@ <  BT\^@ 8  B( G HVT\^`2@h ( @  @   Z @ Z ^ c @D @ @  `\P`L`ZH`x 9`t`x`x9`tP;`p`xx`t``xim l`tg@`x`t `J @ @` @h @ `t`x`t`x`t`x`t`x`t`x`t@`x`tp`x`t`x`t`x`t8  @x @ @ @x @h @X @T `x`t`xpG( `x `t `x`t `Z8 ` >@  @ @8 @Px @(h `x G`t`tx`x`t`x`t`x`t`x`t8`x`t`x`t`x`t`x`t`x`t(8( P(` @X @@H @X8 @p( @ @ @@ @x @ @ @p %8@X @ @ @ @ @ K @ K@M@( @Y @` P(Y@x([@ `d @ d@ `g@ g@( @k@ P(k`(qpstpVT\^`@ @Pt @p `@(l \^H@Xh p(@d XX@` @\  @X  @T 0@@hD @4 @$ @ @D @H % `pk@ 2 @ @ 8 P h ph0H8$&!p'``x`t`xx`t``xx`t``xx`t``xx`t``x`t`xx`t``xH`t0`x`t!  >B@` @ @x p@ @X! (!@ @ @p! @# ``x`t`xx`t``xx`t``xx`t``x`t`xx`t``xx`t`@p" @! @! @!p @"` @!\ "!(@ "X 8"!(@H"T `" ")@$P P$H")@"@ @"0 @# @" @" @# @0# @# @H# P@`# @x# @# @# @#| @%x @h @$X @ $H @'8 `$4`x$8$5$0`$`$9$$>$%,`@$( %$E@8&$ 0%$E @% (%`%`%%H %X%`%p%@%L %$Q%H"T @% @ VT\^@ ` &%W(&!]@ ' P&&`@`&`x&8&`@& &`&e@& &&e&&h@& '&j@H' '&j8'&m@8( `' 't(@'`'H't%P`|h@' ''X@P(  ('@' @( @ x(8(!@( @(` ('(P(('()H((@| ((@)x`)(@t )@*)@* )@*` @P 0*@@ @0 8@ @ @* '*@ @ @ ) p**(+" + 6(+ H+h+*+&+*`,&,X,(-$8-$`-$- -(- &- . .  0.IH..4(.  @0 7X0)h0 "070 040 0>,1"X1 .1 1"1 1 1 2D# 24 h2  *22 6%2 (!(3P3 h3 &x3 33 3J2 / 3"3 ,$ 4 F2p/ "P4$x40*4+4 4 4 425E(58@5  x5 5E5%56\,  5 5E6%6E(6"@6 3h6 Ji/ E6 6 +4E0 + @, 6 62757,07(@7  P70G7 "6`7 <7 <7 <76 "68 <08 <H86 `8<p8 4U8858  8`9) 9 "@97P9 <h9.X9 #9  9 99 |98 "  **X&((P**&&(Xp(p$0$$$ ( &`' X  I04(  0 p4(  0PPb9 (  :( B    " D#4   *  6% (!(  h  &   8  7 )  "7 4 >,8" . "  8 D#4 0  *p   6%' (!P   x  &`   pnA P " ,$P ,$ "0$HV6J."$0&J.`+    ` 2E8   8GE@%0>^HE"p 3 Rk EX    E%@E" 3x Rk E    `EN(<P <3E   E 8 P  x  p2 5X,p(  0G "6  <H <` <x "6 < < < 4U X5`  `) " 7 <x.X0 #   ( |% "   $p$ $$ ((% 48px "8'<   `X$) #$  %$%  `p 8x5"U85 &k 885P  X&&Fh 60y8   ,& p&6H&  ,'|P%$^80`&^& & (8$^hV  ,).{8)2~(Zy8($`(   0'&`( ( () ('&k 8 8H n&` &&&   &k( PE` "Kx      6 @ (+8H6`5x   855:   H  `   h  Z ;  (  $B  (G   ! (! 8! .}@! "+p! *!D! ! !D" !H".X"0+p"pp"#&D#@# dH#.# @#P<:.$ < $P::X; 0;@$ ; H$Z;5; ;: "+; *<D< H;0<@<+@<5P< p<< %<$0==< &==$= > <X=`= 0>rV>8>`>h>>P$ " p) )"))&* )a*@2H* ,(*x)?xof[^̓ǂݍ= f[^͈͂̎w'b0 . % 'e\ϐ̎w'bo,Wvf[^̃Z͈͂w肵ĉD $` $`4擪sɃf[^x܂܂悤Ɏw肵ĉD'^gdkk\f[^̓ǂݍ*\ϐɕ̗񂪎w肳ĂȂmF NXWv]Pvvg]h_CAO^Cg] f[^sh]\f[^i`I2zj]f[^xi1zj] \ϐxi1zjWv  BR%JeSꗗ\[gInto\f[^̃JeSꗗ擾ā .'    %P'7'JeSꗗi1zj̎擾CPWȂ]JWvli[ϐi2zC1\JeSC2\JeS(N\Ɉv)jH] vZpϐ \\ \  1 ϐ񃋁[v Sum\f[^̈ꗗ擾]p\f[^i`I2zj SumOf`1ϐ̃f[^؂o]\JeSꗗi1zjƓn]X\JeSꗗi1zjƃf   z  VM `I2z[0  \$ +V M V'\f[^ϐɊi[zih '   %P';'JeSꗗi1zj̎擾CPWȂn  BR)JeSꗗ\[gCWvpϐ̃TCY錾p^    `    Ȃ]\ϐ̒liXJ[jj]\ϐ̒liXJ[j  $'2 \ϐ̒lfDev  .$.'3 \ϐ̒lZ](>JE^k0 Z if v rsidelk0  $= \l̏ƍl  Z$5 \l̏ƍ  rgpϕϐ̏ Vrgpϕϐ̏8 Z $ Z +KJEg@ 4Wvf[^̃f[^ƕ\f[^̃f[^̏ƍϐN\V[g̗pڐWvCo0  $ &A쐬y` $\ϐ̃Z͈͂w肵ĉD $` $`*ɂ킽ϐij̎w͂ł܂D $` $`4擪sɃf[^x܂܂悤Ɏw肵ĉD'^ #\JeS100𒴂ꍇ̏ ^ b   %'E߂l2z ^ b  0 %'.F߂l2z ̗͈͂w肳Ă܂D $`!\ϐ1‚wł܂D Bg  % . %4f[^͈͂̍sƕ\ϐ͈͂̍sv܂D B Sa  %  lkX \        z Vrgpϕϐ̏ \) $ +V #\JeS100𒴂ꍇ̏= xlXY  %  etSour    Vd1z  ' \$ \+VngX Vrgpϕϐ̏k B@8g $B@H$B@WithNTables % ( ] %\opV[g@]x N\opV[g̖ %B@H >!a >!F.D p$%! $B@<̏oʒu̐ݒC D%%!S D%%B@H V T %R( V \ %R( V ^ %R(d D%%B@H V T %R( V \ %R(k DB@H V \ %R( D!!z D%%B@8 %B@H $!B@,%Tables % ( %\̍쐬 2(< $ Bb !' $( B@8$B@ !'$  `0 $$%B@. N\̃AWg9     "\E\ƂuŚv]vɐ錾( Z $ Z +Z\Ŝ̃JEg '\  $  +h\Ŝ̃JEg110 hB@H >%  >%B@H hB@H \$ >(*ϐ\oƗȁo >%B@H >%B@H    >%B@H >%B@H >%B@H    >%B@H S (S (P hB@H Ѷ]o͈͂̐擪Zʒu >%B@H >.h%(o͈͂̃gbv\͈͂̐擪ɐݒ l̏oo $ (/ϐ >.h%>o͈͂̃gbviŜjlo͈͂̐擪ɐݒ $ (/ϐ  Z( hB@H>     $ >%(a\oƍsȁo  $ >%([a    $ >%(sa!z  Z$ ( >%B@H Z   Ei\j    Asi\jB@J0 >%B@H >.h)(o͈͂̃gbvЂƂ‰̍sɐݒ(\F 0$0 (H\ϐ̕ϐ Z  ϐ V'"JeSXgϐɑ V'JeSXgϐɑ  $  +ãJEg N%\̍쐬 9X]p#1:NTables,2:%Tables,3:N%Tables]h]d'] V[g̒ljN%Tables % (( - )9V[g̎擾ݖ₨ѕ\s̃Rsy 9Xq N%\̍쐬dp[Zg̕ꂪ0łȂꍇ\̍쐬_x$d$B@H >!F2D$D%!NB@,$d$B@H >!F2D B@0 >%%B@$d$B@H >!F2D \$D!!z  $d$B@H \ $D%%!NB@,$d$B@H B@0k( - )9z 9X >%%q >%% >%%! >%%!d9(##0.0)9fq`kXkP >%%B@ $d$B@ >! $d$% >! $D!x!z$d$% %RB@H  V T7R( V \7R(  ^7R(q8 >%%B@ \ >%B@$D! % 99q \ \$d$B@H \$D!!z \$D%%B@H \ >! \ \$d$B@H %B@ \\̃AWg$d$B@H %B@_` >!F2D >! % >! % %R9 Ž 99 ܂Ԃq >!$!NB@$D!x!z >!'$D!x!z  '$D!x!z  d(  'k >!y1/ $z >(! >!' s}!!d!2ڂ̕\ȍ~iV[g擪͖j!NB@ > !B@8!kh \  $D!!z $D!x!z$D%!NB@H  B@,R@ P@ B@Ji} >!+Wv\̉s}$D!$ !B@8R@}̍s1i}ꂽ͗1ʼnsĂȂj̏ꍇd8 > !B@8C 2\ڈȍ~k$D!!z $D!x!z $D!!z $D%%B@H @ B@FC$D!!z $D%%B@H @ B@F9$D%B@ 9qo $( B@8strNsheet[in]Fm\̃V[gstrPsheet[in]F\̃V[g !']  N%\opV[g +d +d +dt[!strNPsheet[out]Fm\̃V[g >%%! >%%!~p[Zg̕ꂪ0̏ꍇBWv܂D $`N\F   $`%\F  $ $`N%\F & B l̃Rsy &s̃f[^p[Zgɒur-9 >%%& >%(6s̕\o폜 Z]8 P h 0JE^]8JeS̍ő吔    VPi1zx&&s̃f[^p[ZgɒuGyq Z >%%!Gyjp[ Z >%%!R(p[Zg0i񓚃f[^0j̏ꍇ Z >%%@ Z >%%O-9g0 9Xqh&%u0vu-vȂu( - )vɒu Z B >!$%!ft &o`)]x \eϐo[Wtabul̃o[W'bf]_CAÕ^Cg]߂l󂯂_~[ϐ bh ^f$|' ^ $`%ExcelAhC̓t[\tgłD'^'-tabul.xla ver.1.1 iȈՏWvpExcelAhCj $` $`&(C)2003 Shinji Deguchi (DATAEXPLORING) $`'^+]vvgv](_CAO^Cg]X f[^sy(y >.h>% hB@H]\f[^i`I2zj]f[^xi1zj $ >%(Ia rgpϕϐ̏]`\JeSꗗi1zjꗗ]\ϐ̒liXJ[j[]JWvli[ϐi2zC1\JeSC2\JeS(N\Ɉv)j]o͈͂̐擪Zʒu] N\opV[go] %\opV[go] !N%\opV[gϐ]8 vZpϐ]h?JE^]JeS̍ő吔d'  'f[^̓ǂݍ݃Z,Wvf[^̃Z͈͂w肵ĉD $` $`4擪sɃf[^x܂܂悤Ɏw肵ĉD'^bf[^͈͂̎w'b ^ b   %'F߂l2z   ]uŚv]vɐ錾 $` $ +TãJEg`    $ >%(ma'^ >%B@H'̏oʒu̐ݒ肳N\V[g̗p B@8gNTables % (Z !'+$B@EWv \  2 ϐ񃋁[v= 1ϐ̃f[^؂o  VN `I2z   JE  \$ +V   V'\f[^ϐɊi[o Vrgpϕϐ̏\f[^̈ꗗ擾 0 '   %P';'JeSꗗi1zj̎擾CPWȂo  BR)JeSꗗ\[gH#\JeS100𒴂ꍇ̏  %      Vi1z     $ +V(  V'#JeSXgϐɑ Vrgpϕϐ̏k0Wvpϐ̃TCY錾HWvB@H     $'3 \ϐ̒l      $5 \l̏ƍj $ +>JEgk8 v pHo \$ >(-ϐ= >%B@H >.h%(o͈͂̃gbv\͈͂̐擪ɐݒ\oƍsȁo hB@H >%B@HS (\oƗȁo hB@H >%B@HS ( >%B@H    $ (0ϐ >%B@H dPWv \1xkN\̃AWgp $B@H %B@H >!a >!F.DCNX D%%B@H E D%%!S V T %R( V \ %R( V ^ %R( D%%B@H"\ V T %R(v V \ %R(g DB@H V \ %R( D!!z D%%B@HoD %B@H %\̍쐬 $( B@8%Tables % ( !'$ $B@(W $!B@,Ș  `0 $$%B@. 2(<% $ Bb  N%\̍쐬  $ &AWv܂D $`N\F   $`%\F  $ $`N%\F & BPJ  T %R(I4폜̏̃Ciݖ≺̃Cjd: >! $y \ $/ $z >(9' Ž2k: >! % >! % %R9% ܂Ԃ >!$!NB@ >!F2D \1o >!' s}En > !B@8kX: >! %B@@< y[Wݒ&]d!2ڂ̕\ȍ~iV[g擪͖j !;9q<$D!!z $D%%B@&P9wb_EɃy[Wԍf|<x=8= 9#pCR  .PaperSize = xlPaperA4 'pA49擪y[Wԍ19 1y[WɎ߂9" c̃y[W͖w& hB@jG[NA= | 甲@>tabulh$y[Wݒ̍ۂɃG[܂D $`y[WݒXLbv܂Df$|'Zumh@>Attribute VB_Name = "tabulation" Public Sub simple() 'PWvDim strPrompt As Sng 'v gA \Title -_CA1O^ g/varX+VariantZf[^s T$H $\(i`I2zj ZCol Label0xi1HeadLiszM:JeS ꗗdataWϐ̒liX J[ Vln0gTabLoĒli[)iqCY0\#FC  P(N\Ɉv)"rTopRange 'o͈ ͂̐Z`ʒuSNSheet!pVog P %\ :NNXTe`mp1():qvZpT _I ], @JJKJLEJE ^CMaxC atNumG @m̍ő吔 @ = 100 - 1 C'̓ǂݍ<'xaJЂ => w`ĉD" & Chr(13)*"DsC#i܂܂Ɏ `_cN 7X@common.D`i@Input(, dNONE , }) '߂l$fA'UCT̗pӣSs.AddActive.New#("NBvs"g(d=  Cells(1, 1)."ate  c'3CFor!QI !LBound(", 2) PTo UL'Zr[C)'B1!̣-`؂a}gRe Te 1 1), 00+k J 2 $AkC^J)` (ID/NexntwHc j'ǕɁE0raseAIgp"̏p5 擾k= HudKCodea=\`Zņ,$C WȂ Call Sort{')\[QJwf0J𒴂ꍇNIf Max.Index7P >gOThen1)0s$G++ * '+*Q$Q;/{ %,, 3;/-Q$%Bh  g.K_._.b@End IfZ/!Jt0ETY>x/#9B, L`uŚv]v3߇ S OX"HC;b 1X8D"̒l,Z%=Q)/ ^) + 1 'a@SgKLM:l%L `9SPȕƍ?q3 G\ A1Exit o)qe2L}%J+tw3z1y.ValuҐ>I45XOffset|0).@SelectSxet 5]gbv\Ap.ݒCX|ƍsq"ŴG w/ / # p"80'@.Τ4q.W fEOOO qOll.d9ێzMڛo9Ao1:h9J)A߶ctiveCell.Offset(1, 0).Value = lngTable(0, LBound(H, 2) "+J -8varHeadList, 1)) 'a A\1).Select+Next^rTop.V3V '̏oʒu ̐ݒ[Se 0?$܂ "v1 / 1 End If P'Wvf[^8ƕ\\̏ƍtIf Matrix.IndexNum(varX@, 1) =4S!4Then@El se Call common.exitProc("͈͂̍sϐv܂D")UEnd  ' oJeSꗗ擾eSideListg 9XCo, sdNONE) '0i1zj7CPWȂ0 Sor t)0 '\g lngMaxCatz qo@ReDim ITemp1(LBound .To T+ ) As Variant  'KC*AFor Ie|/@:nI@( Next!H CCGXgɑG EraseO '@gpB N\V~̗pShee ts.AdActiveB.Name@VNew("NTablesgstrN` Cells(1{."at@zcBC6 2) -`BUEC'ă@v C3$'1!%؂o%ga6Q` CP 1), 0jN'p`I2#u'J"'O5 CTcIJKXKKJH { "Ɋi[JJ+\ HeadHg% aa'#'@KVS*AUZ_q1(,,3;S(-dU-5s_SQ5_.S'ԏg "Jp3̃TCY錿a#9Qmt#o GEJs+ QB_P"pLongc>EƂuŚv]v ,  `KcgHdataSH",|H, 2)ЈCl:SS1 K0Wc0<0  Khl9 DQ, G!=3$O hNA` 'anJEgO r bK_R"&A&oY L/.E1+ 0q'˴e LGO@cpG3 XO@S$/^E %&XLo K%\G'ۘSQ.Va lu 8ColLpabel!pXOffset0).SelectwSet rngTopp(  gb@v\擪SݒC ƍs!8  iu"a5F" &.J2|M1SU5QQ2*S" ActiveCell.Offset(0, 1).Value = lngTable(UBound(<H, (2))@ 'a1, 0).Select'Form JtLkvarSideListn Top DXion.JQϐ O +^- ^ys_BN8ext9b'\oƗa`̏rvTopNcBMm["cMHeadI4 C^2)-f'/e^l|2, 2tSet (Gu' 'L͈͂̃gb viBjl擪ɐݒ'!AmG- 1 'si\j+ KO5  ^ NE bN,auK~)=ce>KyO Sa;;ЂƂ‰ຂ̍s 9Ts(65536 .ExlUp).Row gOBate ''Zʒu+FG"Erase-" gp! `cEI 'N\VAW g#Worksheets(strNSANamec,.,IDntil w"0jl.CurrentRpO7I '%a=쐬G=.Add after:=;m>?!p9commNeFwrQ("%Gsv"^CP<. CPOS/H4et)Fpy9tr>PasteSpecipal _Q!r:=xlAllApplicat'CutCopyMod;Fa*1Call PS7W\mak0eNPta5 W, ;Nj1 ?exitProc("Wv0D" & Chr((13)"``F A^K` G=KNRz 7SubqPriv1n By0YNg As StriPng, Py8RefR('Nn` z0'q[in]FmpV[gU193?rDou&t Dima 0(16 '1:N4,2:$5,3:N7intTitle@LengthQI@nteger*Separ+NumNPILoqJK 'hJE ^DVarianNRang$e '̒#JJ3oJ8aJ&heetName("N%Tables") @strNPs = Active:S4.'V[g̎擾(zZx(1)| 82w8g 39 #'\̍쐬Do'₨\sRsy"s().Selectet rngaCell.CurrentRegion.Resize(2, 1).EntireRow.CopD3)DDs.Pas teQOffset(0)+1+ a  M2*vMG'lkFor lngI2 ToEe2-ows@Uunt - 1 J 1 2M5J6 Fx .DPI, Q} QB tQ6'Bf@^pZgu9If-&-he?(\ H;]GValue@."" $\o폜/ A  50B\R0 OrD|$-TT $ 'h+̕ꂪ0̏ꍇWit^h /W.F.( `)"HorizontalAl0ignm 5xlHRigh iEnd w (-?? -C;Else;Ȃ?(##0.0O'YIf1_Q'u0vu-` ~u/oM!6$aKg da>s(X@z, 256A{d(xlToLeft) flumPFu{@rr, }. A ֟pCo@2R3z .Borders`FEdgeTop).Lin eStylxlC`zinuous?BottomIns8ideG6mV Nona! I!!E!I#&rJ!7!s (3Yow +J.Vertim1.WrapT2= Truga (GI%2e ?S`+ѐɃ)ƶ Next lngILoop While ActiveCell.Value <> ""Forh = 1` To 3,Sheets(st r()).SelectL]".cs(1, 1).ate) '\̃AWgMz3 w#s Do&fet rngTable(3)w!CurrentRegionWithoRange(>%Row~,j6R.MerJgsPTr'ŽVerticalAlignm/ xlTopA WrapT= C܂@ End  13 TheWA- 5 S >A:]36 6((%(%(t%>>6>6> 6 5(%(t%$ @5` 'd%'t%`lF%$  d Q`o%'%$  ( )5) F%$ @ 5"$ @W `157(%(t%$ X 5<`lF%$  d `W)`5X%(%(d%`lF%$  d ` )`5# $  ! l "ll # :$  :%lFt  :d&lF(  x:'hlFXT (/T6xhX(d hP$Dt 6Tdx LCt4PT`xhX\ dqlqI:   x xh:XH`1x6 xhHCt(4:Nltlx d5:)   x xh ZA5IL5I5IL5Id5ILd5Id$@D5ILi%D$@T5ILi%T5IL5Id@356llllll.llllll5IL5Id@35&llllll.llllll f5 f f02@4 @$ (,5E(%(%$ ()5$ (Q G:/$5ILi%$% $ 6E(%(%$ ()5%:% $ ^llli%(%(%$ (,)5E(%(%$ ()55IL5Idl 3@% $ 5klLl5ILlli%(%(%$ (,)5E(%(%$ ()5 fl E(%(%$ ()5%:% $ E(%(%$ ()55IL5Idd 3@% $ 5kllLl5ILli%(%(%$ (,)5E(%(%$ ()5 fd E(%(%$ ()5$ (QlLld\% lLldT 3llli% $ E(%(%$ ()5 fT1 E(%(%$ ()5$ (Q f\ %%(%$ X>0Ax1(Dh%($%$ X8 )6 xh8Z fn2lF%$  d )5(%(%$ @5,$ (a:]35($ (a5G(%(D%(%(%>>Ax:$]36x6(%(%(%>>x6x<%% $ C5<% % $ C5<% % $ C5^6(%(%(%>>x6x<%% $ C5<% % $ C5 <% % $ C5U(%(D%=A(x%(%>h>8 6 xh8&5(%(%$ @5` '%'%lF%$  d Qo%'X%$  ( )5) F%$ @ 5"$ @W `157(%(%$ X 5<lF%$  d W)5Xt%(X%(%lF%$  d  )5# $  ! l "ll # :$  :X%xlFh H H8:&(lF  :t'lFD (/6xhH8('x`$T4t DdxPxhH8(l CxlCt` '%'%ltF% $  d Qo%'%$  ( ) 5)2 F% $ @  5# $ @ W `' 5lx\;lt\;\;8\F% $  d ) 5 $ ( a[ ) 5U(%(% AX  a') 68\F% $  d ) 5 $ ( a[ ) 5 $ @  k(%(p%(%(% $ ( 0) 68\F% $  d ) 5 $ ( a[ ) 5FP AXa  av" 6dX LdP* 6lL\F% $  d ) y(%(p%lPi%(%lL AX  a@') 6@8\F% $  d )  $ @  lL H:%(%(% $ ( ,) 5(%(p%(%(% $ ( a@(0]/ (%(%(%(%$ (|xxaX(h]/H8) x6 @|X^(%(p%(%(% $ ( 4) 6:3%4,%4,c4^(%(p%(%(% $ ( 0) 6:4%0,%0,c0^(%(p%(%(% $ ( ,) 6(%(p%(%(% $ ( a(%(%(0%(%$ (@ xxa|X(dH%,,) x6 @ |:5%,,Ic,{H% $ ( a"i%(%$ X>@0A 6") 6@ d$ y(%(p%(%lHi% $ ( a@:0]3) 6@  y(%(p%(%lHi% $ ( a@(0]3) 6@ `(%(p%(%lHi% $ (  ) 6:3% ,% ,c `(%(p%(%lHi% $ ( ) 6:4%,%,c Hf$k(%(p%(%(% $ ( 0) 6 LfPd8\F% $  d  )  $ ( a"i%(%\F%$  d %$ (a"ip% AXa@a v"i0%\F%x$ x d |%$ @H7) x6@ |H $ Q &%%C5&% %C5&% %C5ck(%(p%(%(% $ ( 0) 6 PfXOE(%(% $ ( 0) 5K AXa"i% $ @ q 5%lC8 c%lC9 qPd16lP\F% $  d ) (%(p%lP AXa  av"i%(%lP AX@ ) 6@ Pf`+ $ ( a:]@ 5Pd6lP\F% $  d ) 5(%(% $ @   5 Pfq8\F% $  d ) 5(%(% $ @   55 $ ( a[ ) 5 $ ( a"i%(%$ @@%$ (a"i%(p %$ @ %$ @7q) 6@ c%lC:%lC8 c%lC9 qZ $ ( a"i%$ = ;<) 6 ; AXa  av"  6z( $ ( aUpV 5B AXa  av" pT 6G AXa  av"  6 kTpT} $ ( a:='@TM@ > :?|%$ (,) 6 @ |+ $ ( a" 5~D $ (Q o%$ @W@BCD6@PkTdw AXa  av"i% AXa@a v"i% AXa|) 6 @ |! $   .% $  @A + $ ( a" 5{p AXa"i%(% $ X %$ @W BCD) 6 D $ (Q o%$ @W@BCD6@ AXa  av"i% AXa@a v" ip% AXaa|v"i%( % AXXH) 6@ |XH.% $  EA  AXa  av"i%(p %(%(% AX@ ) 6@ <%% $  C 5.% $  EA <(%(% AX  0 5 $ ( akV F :G@'lPi | >|X:HH'8TM@ >:p?%$ (,) 6 @|X8H $ ( a"i%(%$ @@%$ (a"i%(p %$ @ %$ @7q) 6@ c%lC:%lC8 c%lC9 qZ $ ( a"i%$ = ;<) 6 5 $ ( a[ ) 5 Pf+ $ ( a" 5D $ (Q o%$ @W@BCD6@(%(p% AXa  av"i%(% AX@ 0) 6@ + $ ( a:]@ 5U5(%(% $ @   5K% $ @ WI||qx :J%lxCK%lxCLf%lxCM(%lxCN(%lxCOf%lxCP qxKV  '|':QN  :R:S@^Ti86 @| U  H K 40, |\8 Ritx\ x@ |XH8& 0   \__SRP_2Rcommon__SRP_4j __SRP_5V85*\R1*#4a*\R0*#f$*\Rffff*0<41214dcfF B  T Z` ,   68 pH1  D`1  0" "0 *X x   B  T (h 2  6  H rc   8, " '@  X  h   B   D <  d` f \0 @ > %  00@ . 06P8GxME@(R> <\<< <<<LLL <`@, !!B`RxX!0!" p@!t @p !`dx@(0!""!h"0!h!H!@"\ "h" $`t@X X#" @H @8 "` 0 H  #$#$#h$#`px## @8$@ @ $0 @ @P$ @ p@4@ `x %$`^x`dx p X $ &&%%$%$&  @@%t @p @&T H&% @X&P `^xp&&@&L &X&&`dx@H '&@&8 @( @ '&& H h ( 8((8*h(' *'`x ''(@ (< @(, @P( @ @( ((h(@) )(p@( X@( @ ()("@) ))$$`p`^x`^xX`^x@`bt(`^x*)$)`^x@ )( @@ `x x*P**+*)`^x`^x`t@\ '*+P***(,+H,0,+P*+h*@X @,T ,+ @P_ (,-, 0@,@ @x,0 `\ @, 0@, @, @ @ @ ,@))-.@.---`^x-|2@.` @(.P @X.@ @p.0 @ @ @ . @/ /(0/3X0h/X/`dxp0@/>/@/h @/X @`2T @/D @/4 @0$ @p1 @@0 @0 @0 0X0 @0 00 @0 00 0@ 3 20 @1 p@(1 @@1 (@X1 @1 @1 @1t @1d @1T @2D @x24 @2$ @02 @H2 @2 @X3 (@2 833x#@2 @2 @ @ @ @`H3 3p30@ 01 h @  M!A $*\Rffff*0;40d4aba5*\R1*#1b0*\R1*#d3*\R0*#14*\R0*#10*\R0*#9*\R1*#66*\R0*#0*\R0*#13*\R1*#ce*\R1*#1b0*\R1*#1ac*\R1*#df*\R1*#2 0 . p , .0`4h B  F 2 : X x  " F 0 8H @ z @` 6 b9        ..( * X ($@,     0HP Fp 2 : 0  P p 44 N+  p  4  $ (0 H $Px   (P"(82.X   (P" 02.P    65 >40 p     f9`   B   L( 2x @  |p "8 X P!xP! *  H&Pn)x&70B&($8 ` h&x($ "    88P & 0"(.X & 4).(  0 8  @ ,P F! F! !&! > @!&! B'!!6!0"8"@" B P" ^X" j" .(# X# *#p#  # .##6$0@$  p$ $ ($ $ $$ $% % (% B 0% H8% ,% 8% 6% 4 &  X& x&&4&  &&''  ' ('8'"H' `' h'x'"' ' '  ' $' ''$(( ((@(X(`( B 2 ^2 \2 XP3 43 3 6&3  04 DP4"4.404  505 @(@5 5 65 "54,5 06 @6P6"p666 B 6 \6 ,7 8@7 6x7 X7 48  @8 `88488  8899 (9 09@9)P9 p9 x99)9 9 9  "9:2:8: P:`:"h: : 2: : : :;0;8; B p( vx( 6( () N8) :) ()4) *(*@,X* N1*D* *0+8-`+P&+LH+ 8,  @, P,X, `, h,, " , ,, 0,"@0&0  - ,h0 %,, " 8- @- P-X- Kh-,-'- =- =-d/ -x..a.- .. . L. /40/h/Kp// H;N`IQziQڂ̔zvfPFCfbNXOjPzϐɂTiQƓnjvArrayF̖`IQzCߖׂ̈̎QƓnCύX͉Ȃ%߂liVariantjIntoOneDimFPz]h Dummyϐ] Dummyϐ]JE^  %-Qzł͂Ȃꍇ  %' v"Err:Module=Common,Proc.=IntoTwoDim $`!Number of Dimension is not 1 but  $ B@ $g Ik  % 0Qڂ̗vfPł͂Ȃꍇ  % '(Error:Module=Common,Proc.=SepalateLabel. $`RowLabel is not sdNONE. B@Dg Ik  FPz \   \ $ \+ \ ߂l̐ݒD(1s 'vi f[^̎擾̃o=ilnjstrPromptFCvbg_CAOɕ\镶Q6ilnjstrTitleFCvbg_CAÕ^Cgݍ^iQƓn[out]jCaseLabelFsxCsdNonȅꍇsxȂƂ݂ȂiPڂf[^jFsd_iQƓn[out]jFieldLabelF񃉃xCsdNonȅꍇ񃉃xȂƂ݂ȂiPsڂf[^jelV߂liVariantjDataInputFf[^̂QziPz̏ꍇ`IQzj͊ ^f bh tr l!n%pjl 2%d' $" $RT/DataInput=FalsȅꍇiCancel{^NbNj[  2(~Eg I &R (KTZ͈͂w肵ĂȂꍇZ͈͑Ŝw肵ĉD B@ggILTP‚̃Ẑ݂w肳ꂽꍇgI 'SH  %3Pz̏ꍇf  %*'5`IQzɂ'k     B,Of[^ƃxɕ ni]$sdNONE)-_~[̈ƂĎgp/vZsv̎wȂePNPzϐ𖼋`IQziQڂ̔zvfPFCfbNXOjɂ"ilnjvArrayF̂Pz+߂liVariantjIntoTwoDimF`IQz] Dummyϐ]p Dummyϐ]JE^  %-Pzł͂Ȃꍇ  %'(Error:Module=Common,Proc.=SepalateLabel. $`DimentionNum is not 1 or 2. B@g Ik  NQz \   \$ \+ \ ߂l̐ݒ '*i @f[^x܂ރf[^zCxƃf[^ɕ+ilnjPreDataFOQzf[^3iQƓnjData[out]Ff[^QziQƓnjRowLabel[out]FsƂ̃xiP[XĵPzf[^COf[^ẑPځCsdNONȄꍇsx͍̕sȂiQƓnjColLabel[out]F񂲂Ƃ̃xiϐĵPzf[^COf[^ẑPsځCsdNONȄꍇ񃉃x͍̕sȂ]#JE^ 2 %KT xNgf[^̏ꍇ@f[^x܂ރf[^zCxƃf[^ɕ*ilnjPreDataFO1zf[^2iQƓnjData[out]Ff[^1z9iQƓnjRowLabel[out]FKsdNoneł̂ƂsiQƓnjColLabel[out]F̃xiϐjCOf[^ẑPsځCsdNONȄꍇ񃉃x͍̕sȂ]"f[^i[]񃉃xi[ 6 #$RowLabel͕KsdNoneł̂Ƃgkx 8  ߂l̐ݒ 2'4 f[^d 񃉃xw肳ꂽꍇ 2 2  : 2$2'<2񃉃x̎擾 \ 2 2 \$2 \ 2  +:Jf[^̎擾 \ft ߂l̐ݒf <'8񃉃xi :'4 f[^kpKT sf[^̏ꍇ@f[^x܂ރf[^zCxƃf[^ɕ+ilnjPreDataFOQzf[^3iQƓnjData[out]Ff[^QziQƓnjRowLabel[out]FsƂ̃xiP[XĵPzf[^COf[^ẑPځCsdNONȄꍇsx͍̕sȂiQƓnjColLabel[out]F񂲂Ƃ̃xiϐĵPzf[^COf[^ẑPsځCsdNONȄꍇ񃉃x͍̕sȂ]0!f[^i[]hsxi[]񃉃xi[]&Pڂ̃f[^̐擪CfbNX]&Qڂ̃f[^̐擪CfbNX 6  8 80sxC񃉃x̂w肳ĂȂꍇ ߂l̐ݒ 2'4 f[^d ,sxC񃉃x̂ꂩw肳ꂽꍇ x̎擾 6 &sxsv̏ꍇ 2'Hd  2 'Hkp 8 &񃉃xsv̏ꍇ 2'Fd0  2 'Fk 6 'sx܂܂ꍇ 2 F B L*sxi[zϐ̃TCY錾 2' \ F 2 \ $2 \ F +BCsx̎擾 \k 8 '񃉃x܂܂ꍇ 2 H D@L*񃉃xi[zϐ̃TCY錾 2' \ H 2  \$2 \ H +DC񃉃x̎擾 \k f[^̎擾 2 F 2 H h \ F 2  H 2 \ $2 \ F  H + Vf[^̎擾  \ ߂l̐ݒ B'6sx D'8񃉃x '4 f[^k S g@ n8 i0 ( F󂯎zϐ̑Svfɂ‚ăR[hꗗ쐬CoAg^ŕԂ,IvVŁCeR[hƂ̃f[^Ԃ:ilnjvarArrayFR[hXgAbv錳̃f[^ziQƓnjvarOptionFIvV̎wisdNONE:IvVwȂ/̃oAg^ϐ:̃JEg(fBtHg)jv߂liVariantjCodelistFR[hꗗ̃oAg^zϐCPŕԂC͎QƓnvarOptionɂPző]x 81JE^]PvarArray̎]h R[hXg]JEgpϐ  ^I(R[hXgzɂP‚̗vf錾  `I(R[ȟzɂP‚̗vf錾  %'\1z̎擾 \RTvarArrayPz̏ꍇ $ +^EDf[^̐擪̒lR[hXg̈ԖڂɊi[iPz̏ꍇjRTvarArrayQz̏ꍇ  $ +^Zff[^̐擪̒lR[hXg̈ԖڂɊi[iQz̏ꍇCQڂ͍ŏ̃CfbNXŌŒjS@n +`(%R[hXg̈Ԗڂ̌ 1 ɂ \RTvarArrayPz̏ꍇ \  b \RTvarArrayQz̏ꍇ \     b  \nX ߂l̐ݒ ^'P R[hꗗ X  &R[h̖߂lsvł͂Ȃꍇ `'X R[hkz XgAbvb Z ^ ^ \RTvarArrayPz̏ꍇ \$ Z$^3õR[h̏ꍇ Z$` Z+`8̃JEgykRTvarArrayQz̏ꍇ \ $ Z$^9õR[h̏ꍇ Z$` Z+`8̃JEgyHk@n8 Z Z ^ 'VKR[h̏ꍇ ^ @^(?&R[hXgz̔zTCYlj錾 ` @`HB&R[ȟz̔zTCYlj錾 \RTvarArrayPz̏ꍇ \$ ^+^6 R[hXgɐVR[hljRTvarArrayQz̏ꍇ \ $ ^+^< R[hXgɐVR[hljn ^+`(VR[ȟ 1 ɂk@8i0(XXꌳz̃oAg^ϐ\[gC\[gʂ͎QƓn varArray ɑĕԂdiQƓnjvarArrayF\[gΏۂ̈ꌳz̃oAg^ϐC\[g̔zŒuĕԂ'ilnjF[F0/~F1]̎w ߂lFȂ    BpH\[g n~w̏ꍇ(\[gꂽf[^̏t]]JE^] (tf[^i[oAg^zϐ](@-z̏/̃CfbNX 'r 't r tZp4zTCY̐錾 \ r t \$ t r \ +Z \ Z' ߂l̐ݒk!i!xB󂯎zNCbN\[gŏɕёւC֐"Sort"gp&iQƓnjDataF\[gf[^2iQƓnjStartNumF擪ɒu|C^̈ʒu0iQƓnjEndNumFŌɒu|C^̈ʒu.߂lFȂCQƓn Data ɑĕԂ] 擪ɒu|C^]0 Ōɒu|C^]H l]` &l̓ւ̍ۂ̈ꎞƂĎgp v x v$4'~ v'z x '|b z x b z 'z z$4 ~Gxjp | v b | '| |$4 ~Gxj0 z |Gxj z$4' |$4 z+4  |+4 |$4 v+4 ~ |+4 4 v | Ap 4 | xApkxiphpVSheet}ۂ̐VKSheetSheetƏdꍇCVKSheet̖ɔԍtďd0̔ԍ͂Q\LC01Ԃ珇ɁC99Ԃ܂őΉċAHilnjSheetNameFVKɑ}SheetC̔ԍ͊܂܂Ȃ4߂liStringjNewSheetNameFVKɑ}V[g]V[g̔ԍilj](&V[ĝ̔ԍ܂܂Ȃ  ׂẴV[gƏƍ !  > ̃V[ggĂꍇ $$1,ɔԍȂꍇiŏ̌Ăяȍꍇj _01'3%SheetName̖̔ԍ"01"ɂd"ɔԍꍇiċȀꍇj $$'2̔ԍ𐔒lŔo   $'>0V[ĝ̔ԍ܂܂Ȃ𔲂o   00$'@%SheetName̖̔ԍPZk0 $'yk ' ߂l̐ݒi  o.&G[̏ID_CAOoD  2(~)strPrompt[in]F_CAOɕ\镶tabul'b0.h  \̍쐬] ]   d$%B@ >!a >!F.D \ D!!z  D!x!z 9d D! \ D!  %! D! \ D! %! D! \ D!  %(d, D! \ D!  %!qx,kp, (##0.0) D!!z D!x!z  D%%(f \ D!!z D%%B@+ d$%B@Ho+, D! \ D! %! D! \ D!  %!h2]@)߂l󂯂_~[ϐ])_CAÕ^Cg bh ^f$|'1Z͈͂w肳Ă܂D B@Err:Module=Common,Proc=CodeList $`invalid argument:lngDimension $`value= \$ B@"Err:Module=Common,Proc.=IntoOneDim $`̎słD $`̎ =  $ B@"Err:Module=Common,Proc.=IntoTwoDim $`/̔zɂāC2ڂ̗vfsłD $`2ڂ̔zvf =  $ B@3@ XQzϐPڂɂ‚ă\[gC\[gʂ͎QƓn varArray ɑĕԂViQƓnjvarArrayF\[gΏۂ̂QzϐC\[g̔zŒuĕԂQilnjFieldF\[g̃L[ƂȂtB[hԍiQڂ̃CfbNXԍj.ilnjiOptionF[F0/~F1]̎w ߂lFȂ     BV\[g ~w̏ꍇ>\[gꂽf[^̏t]iPڂɂ‚ċt]j]   5JE^]( tf[^i[Qzϐ]X p -z̏/̃CfbNX 'r 't r t  Z `zTCY̐錾 \ r t t r \ 'Z,Pڂ̃CfbNX̋t]l    \ $ Z +Z:CfbNX̋t]  \ Z' ߂l̐ݒ Zrgpςݕϐ̏kp.ih. U󂯎QzPڂɂ‚ăNCbN\[gŏɕёւC֐"Sort2"gp&iQƓnjDataF\[gf[^2iQƓnjStartNumF擪ɒu|C^̈ʒu0iQƓnjEndNumFŌɒu|C^̈ʒuQilnjFieldF\[g̃L[ƂȂtB[hԍiQڂ̃CfbNXԍj.߂lFȂCQƓn Data ɑĕԂ] 擪ɒu|C^] Ōɒu|C^] l] &l̓ւ̍ۂ̈ꎞƂĎgp] JE^ v x v $4'~ v'z x '|b+ z x b z 'z z $4 ~Gxj+ | v b | '| | $4 ~GxjP+ z |Gxj \ 4 4 z \$4' | \$4 z \+4  | \+4 \* \ 4 4 v \$4' | \$4 v \+4  | \+4 \ 4 v | A 4 | x Ak)i))ٶAttribute VB_Name = "common" Public Const sdNON@E As SngL" '_~[̈Ƃgp/vZsv̎w Ȃ Function IntoOneDim(vArrayhVariant") '`IQzi ڂ vfPFCfbNXO jP5%ɁQ*^iQƓnjDF 8CАߖz׀mCύX͉(uW߂ lihjywFH (dum( '`Dummy^lng LoBIJE^CIf MawDx.ensfNud) <> 2 Then 'yB_ł;ꍇCi%=Y .exitProc ("Err:Module=C¤,.=O" & Chr((13)@"%̎sq&D F@ormat(,))%End 'IIfCMIndexL, 2) + 1AN1DNEGeO \+PTwo@y2#hɂC2)kE*&7p++RaLBound, 1) To UKf1l > =I _ w-s)#GI, 2eINexNt" '"̐ݒC[ yE $ť5c:(ByVal !~#b𿪂|l0dcFC#VAmA@ۃq%|d̿{7_{mC(L{ber of ' is notJ oPv!]: kP::U}:, 0;0:}S:./@Ѓ:1:=1^9`999n DataInput9strlmpt:#, ;TitleRef caseLabeld=QFieldys'f[^ 擾$!+i; vgCAOɕ\q?G% /"̃^g [out]jCFsxC one̱UPpPj ci Then 2''a common.exitProc ("Error:Module=C,A.=Sep alatep." & Chr(13) "fis not."DZ ` EndG %?ndO2 's`ou!"Vew V||8V?}?}?}O ?}?}?}  4 }}\Q\fU_} x>\0\ 1<@P#\Ս??6; ?3dim1Indexqc 'Pڀg̐CfbX+`2mQoUo>Z`ZAP6OuCjCWfXϠXB _q"?s_/##`+NEzkAFsvmF\2tlw =_+Na^P5Sw*O  @ D*O 1O eO 1Pg_q;̈́i)p'&1=oad ?"!S:T:Y}uJ`3}g | G~/ ~b/ 2v&-A/E&(/ 2p O*,!{/̃/@/!o+W/  strCol(lngI - dim2Index) = Pr eDatalJ, ) 'x̎擾 NextV 4End If  'f[@^[ReDim var0 To UB ound(, 1)1, $2sAs Va riant GForc):J42)_riJIJjJ o '߂蒀l̐ݒRowLabel>@ 's @ @ǖ d;@E ȉ Case Elsecommon.exitProc ("Error:Module=C,.=Sep alate'." & Chr(13)@"entionNum is not 1 2."s#% Selec@ !AFunc Public  CodeList(ByValArray eǨ,OpH)'󂯎zϐ̑Svfɂ‚ăRmhꗗ쐬CoAg^ŕԂ IvVŁCeCƂM Hilnj`7"FD" Xg bv錳E dQF`̎wisdNONE:Ȃ/. !!:̃JE(fBtH0g)jC\i餃j3l3G'̉&E-CP@(C e!"1PőB?Long{a=Kb^j}UsUe1@ a(I 5j Cter! '*pa-#F L·&ɂP Za[P錾!Ji(An}V#`/= Matrix.F(eൢ ́FaGc C " Is`1 'e K̏NCeay#=VG() ?ٰ_擐zP`#"̈Ԗ@Ɋi[i6g 2j Q0o o o o 1), e 2 ̿  >͍ŏ FCEfbNXŌID_i^i?icisahinvalid@ argum`i:ǩ!ue=AXmatA()k ka#?4R]#' b3rN^(?-ensJ!?-m!I00o+) +%2q  1GoSub !xing< +  6 d;A,) / e9! V1;EdcDIf<> | ThenV̤svЂł`}MtW*{c QEf'K  :SKq \"#1. .O.О[5""!#3b}orUo3Q^%Rj?#H?3P ?9?5 t?=s 4K a%KVK? ser|ve5"!<ariant 'R[hXgz(TCYlj@錾 ReDim Preserve lngCounterH(UBd(") + 1) As LongԂ!Select CasgwensionIs = 1 'varArrayP`pꍇ.%Code))!' aI) VUC2CQC,JFEnd POI>@O7h@U`ɂIf Retur@aFunctd Public  Sort( UV, ByVal intOpIger#'PoAg^ϐ\%g'Cʂ͎Qn ɑpĕԂ$i jE FΏۂ"΂Œu@lA&jF[F0/~1]̎w&߂蒀lFȂCCall common.Quick Y, L1), FN If1iThenL 'A i'a$$ꂽ f@1^t]޹GnPIa=āJE9^e0Dum(@E 'tD i[a>A}aBK LNum%"iU '/`fbNXG ' =,jb =/g'磩d Toa~ ̋ ForI -v+%-"/NextG @8 'cX̐gZ% [data8B, Startj; 'L'󂯎B> <C= [Exit DoxLood,UV > X- 1 U) < @  "%%& (0N'&(YGBP'PД8-_va0%,,403 /qok2ntrFielfDEni?8ZԲ|1‚<טN '[k[ϝϝŝṽL[@KȂtBhԍxi@jD u4 ۀԿtΣ,C8`;00 D?k֥S&Kݟ0!!G:$hC0 a?`2NkReNDim varDum(lngLN@um To PUP, LBound(ArrayP, 2)|UX) As Variant 'zTCY̐錾 #ForI = z&7K&) +0- I 'PڂqfbNX̋t]l JuJN'' !HK,AJ)(I 'I 'pNext!  I -3 'lݒAErase 'gpςݕϐ̏ En@d If Function Public  QuickSort2(datay, StartLong, @ByVal Field BA !'HQAs@‚@sCt\[gɕёւ送C֐")"<iQƓ@njD@0Ff @^ E7Fɒu|s^̈ uAF l&H&̃L[Ƃ"(tB@)hԍiAIͺBj#ÅFXC?B ? ɑĕԂ#dwar5 'ÏBacko1Ref@ sAtemp [ <̍ۑ.ꎞ#o g=IK 'JES;IfV= ! E@xit Dok Loop+> E!F-! `c.F<_M!+`!da'EKX$H݂IG( !Zu:a"2 5]!k/ w Call}lk, 5 )e'Yp86eoP`vv NewSheetName(rLStringRs 'V \­}pRm!1RVKb́Ədp@ꍇC@ɑd`tbdb b͠h\LC01ԂyC99܂őΉdċAcyo v i T C7@͊܂moij=ăVtgSccti0lTv1stra Gĝ䂿5  7Each c In Works s@ׂ@ƏƍCPNComp8(c.0-$, vbTare ѩ0 O'Hxa!D(Right(A79#qiŏ̌Ђяo$R5f@& "_" P01" 6'!#*S("Q- El' (Q0 P =lx2))2q!Ŕp Au"= LefZLenG)G'%*3?$9$= & &mat rK"00")  PZM=kMll"p iA]Sy="1/ Sub e0ProcVcmptV'G[P"ID_пAODav[in]@w\CTit?p`< ^Cw̃^goqgcO`_~[qS S= "tabul"lnMgDum = MsgBox(Title:=strH, promp tDP() Application.CursorxlDefault End Sub ` PubT PTable(B yVal Sheet As S tring['\̍lDim r ngB3RangBelngILong, J '#qs({).Cells(1, 1).Activat*o UnPtil  e.ɀ[uet""'6SaK=re`ntRegFV= 2 Toj.Rows.Count - 172J> Co0lumnIfJ~yYA +L|I,"CE=<> 0 AuC d)PBThenK9A+i100 * (@/Pķ9ElsIWithZSX0sx !IfNextnLOffset(2, 2).Resize(PGX@[`NumberbmatLoc@= "(#`#0.0)rI d(o+ 0&1Loop `ՉSeleckh L8 l@l 0`qtqp' ltltqtt@l 0`Z50}A lplpqpp@l 0`M50 ltlp't@l 0P$t@p@l 0%l 50p@Pl :$l@p@l 0%l 50p@`l lpYll  llpYl  ,,P`0 P&ll 5IYpl 5ILYtl  k l 5ILq\l 5IqX(l\lXl 5ILl 5I` l\llXdPlXl\llqdl 5ILhl 5IdH,l@h@l ldlhl`5 hfH lfPl`M8 0 `Zd0`P Jl@@l `qtqp ltltqt$t@@l `Z5H lplpqp$p@@l `M5 ltlpl 5ILLl 5Id{t@L@l P2t@L@p@L@l %l 5p@L@Pl  LfAl 5ILLl 5Idl@L@l P2l@L@p@L@l %l 5p@L@Pl  LfllpYll lllpYl P,P` ll CtX $ QX[T\rP^,\A0ltF@ (]360 Q1tM@@0 0 !/50lt"*##*1t/:-tM@@0 0 !qp/50<JtM@@0 $ 0`1l50HllF:%N  lpi0 `1t60  lt &1tP^ \sP'ltCxipl<$xTPt\l$X0 dl Cx'Ct,''0tM`@xMP@^(qp60%   $   pd,tx 0l CxK(D%($%TlxFX%h $ h d)T*+)hT5,h $ (ha:X,]3h5'h $ (hath5=ptahhav"h6d==ltahhav"h6dta"lpiX%ta"i4%h $ @h*A-(]<ta"lpi%ta"llid%T $ @TD*A$-(4]<')hT6D$(Tdta"lpiX%ta"lli4%h $ @h*A-ta"lpi%ta"it%T $ @T*AD-$%ta"lpi4%ta"lli% $ @*C-)hT6Dyata"lpiX%ta"lli4%h $ @h*A*qh6(X%lC- q rU~|  0 )AiqQ ) Y )9q )  y  Q  \l^ l^qd:@ P P0:   :'dM@ | /|6P0l^hl^qd:@ P P0:   : 'dM@ | /|6P0"l5ILl5Ih l5IL`l5Idt*`@l5ILi@%lPl`lhR5P `ftlhM@ l@ 4lh:94 |P0 \\^ \^qTc:0 @ @ : 'TM@  /6 @ ,\5IL\5IX \5ILP\5Id 'P@\@lPlX5@ PflXM0 l 8lX \(@ lChlCd@%` $ D`aP,,  (%'%'%'%'%`F%ldF%lh $  l)`,6Pl^ql % ` $ ` `l l  lC  l^mlP Plllll A0ldh(`,Ph hh^q\l\] 4:D]@s9:D $ $:4 /6$$4:D]3 h0X.h5Ih5ILX  h5ILiD%h$`1T5$$h5ILdh5Id>,d@h$ldh5ILlXR5$ df lTFD0$lXMD 0al\"+ 4:D]/$$:]/' h0 4:D]3h5ILqh5ILq$4:D]3h5ILqh5ILq 4:D]@"h5Ilh5ILq`ldh5Id.d@`@h$`#ldll;/5$ dfw$4:D]@D"h5Ilh5ILq`ldh5IdD.`@d@h$`#ldll;/5$ df 5h5Ilh5Il ldh5Idl`h5Id4d@`@h$ldll`ll5$ `f dflMD 0 lMD 0$lMD 0a9:D $ $:4 /6$e hTp<hXTNw$Y,\!\5IL\5ILH !\5IL\5ILD \^qLlLq@l@)\5ILi0%\\5ILlHR5ml@7\5ILi%\5ILi0%\\5ILlHR5m:0  :   :'LM@p p`\ /\6p`\5ILlDlLqXlX$\5ILX\5IdP s XfP:lX:$\5ILX\5IdD:\5ILT\5Id<0 s Tf<  XfDlHM0 l :0]@klDM0 0 lHLPlHd4ClLq0l0"X@\lPlH35lPlDlPlDC7l07)X@T@\lPlH355lPlDlPlDC Pf4lPlH!lHH !lDDnlLq,l, X@\lHlHR5 l, 'X@T@\lHlHR5lHlDP,@t(lDH\4 \p`#l 5IYpl 5ILYtl  kl 5ILqdl 5Iq`ldl`h ldll`dX$l@l 8l`ldlllhR58 lfXslhMH 0  D0$%     !"#75'()*+4-./0123&689:lf :T.%tahhav"i%taTTav"it%(X%(4%t,I)hT6  pf(%(t%tahhav"iX%(4%tTT0)hT6SK(D%($%TlxFX%h $ h d)T*/)hT5a0xtPhTD$    48` )Ii//8`///,!`/,I`/0q` 9Y/((0` Qi/8`9YQ/((( `q( ` (9 `nrU~| iAP l 5Ikl 5IkLqx  $ Kl  qt llHll 5IltLqp$h ll lhlltqtltqt4 qtltqx$matrix __SRP_7b__SRP_6i_VBA_PROJECT6( lfrU ,`/(`/nho0* pHdtabul(ȈՏWvAhC@*!|f0000R=  M!A %<9stdole>stdoleP h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\System32\22.tlb#OLE Automation0EOfficeG@PlotBy$@ xlColumnsh@SeriesCollection;:@XValuesb@Values@Location-@Where֍@xlLocationAsNewSheetM@HasTitle{@ ChartTitle_@ Charactersrg@ HasLegendB@Axesb@ xlCategoryZ@ xlPrimaryu@ AxisTitle@xlValueDimNum̒l𒴂ĂāCOւ̃ANZXƂȂꍇ d 'd$(G[̋N钼O̒lƂēxloop甲k d 'd Ɋm߂鎟ݒ肷d złȂꍇF'dɁu0vԂFa0Fk d' ߂l̐ݒiphf߂liLongjIndexnum:󂯎źCw肳ꂽ̔zvf̐-1C()߂l͗vfP̂Ƃ"0"PAttribute VB_Name = "max" Public Function IndexNum(varArray As Variant, ByVal intDimens` 0b%̒l&@6ĂzaO(ւ 9ཏꍇ f- 1+N钼OzAPeExit Do 'loop0m!dIf,'im`2+@ɊmĂd@ L@ Elset 'eaXK$ =`)RɁu0vi*$V }Val@Right @lngTable[@_B_var_lngTable#@ ӂrlHs@_B_var_ӂrlv@ _B_var_LBound@ _B_var_ForjL@ _B_var_UBoundd@ varHeadList@ \f[^ @_B_var_\f[^-@varH @AddInex@_B_var_varTemp?@tk@ _B_var_ReDim@redi@ _B_var_redi@varHdatafF@varSdata{@ _B_var_IfP@ lgbkX@_B_var_lgb@msgQ@(exitProcҖ@by\@ _B_var_Call@ _as *\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.4#0#C:\Program Files\Microsoft Office\Office10\EXCEL.EXE#Microsoft Excel 10.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.2#0#C:\Program Files\Common Files\Microsoft Shared\Office10\MSO.DLL#Microsoft Office 10.0 Object Library !|fƖ0000M!A ThisWorkbook0h40d4d854ThisWorkbookfR Sheet10i40d4d854 Sheet1Itabulation0^40dc26fbtabulationl Hx0= common0;40d4aba5  commonGxH" matrix0<41214dcf matrixx `H0x$w@+.PTbH jC,i]#-_nGP* QS+<'YLK~FQEAYXh`c AsByrefByValCall=dimDElseFEmptyKEraseOExitTFor^Goto_IflLBoundxlongReDimReturnSubThenToUBoundVariantWith Excel+@ VBA@Win16~@Win32@Mac@VBA6#@Project1 @ stdole`@ VBAProject@ Officeu@ ThisWorkbook|@ _Evaluate@ Sheet1@ tabul@Module1b@ tabulationv@ common@Workbook_AddinInstall@Workbookk@myCB@ CommandBar@myCBCtrl @CommandBarControlP@ myCBCtrl1!@ myCBCtrl2!@ Application*@ CommandBars @ControlsK@Addr@msoControlPopupl)@Captionx@msoControlButtonn@OnAction@ myCBCtrl3!@Workbook_AddinUninstall@Deletex@chart?@Scatter /@ strXTitle#@ strYTitle@rngX"N@Range @rngYN@ rngDataArea@varLabel<@@varDumVf@lngI @ strPrompt-@ChrK~@strTitle@InputBox @promptm@Title~@Default@ ActiveWindow+@RangeSelection7~@Address@ReferenceStyle9@xlR1C1p@ (IntoOneDim{@Columnsp9@Count0v@MsgBoxR@Cursorl@ xlDefaultwQ@RowsU@ Matrixn@(IndexNum6@xlWait@Cells@Row@Columni@ValueK@Union@Offset@Resize@4@Charts@ ActiveChart @ ChartType?@ xlXYScatter)@ SetSourceDataa@SourcB_var_Chr\;@ varTemp1JeSXgϐɑ@Sheets @Activate|@ strNSheetName@di\@ _B_var_di@ strPSheetName@strNPSheetName:@afterX@ strSheetName˜@Copyƿ@ PasteSpecialK@Paste@ xlPasteValues"@ Operationy@xlPasteSpecialOperationNone&@ SkipBlanksұ@ Transpose@ CutCopyMode@ ActiveCell@Shift@xlToLeftWY@rngTable @ CurrentRegion|@Cut.@Insertr@ xlToRight|@ EntireRow@xlDown0D@BordersC"@ xlEdgeToph@ xlContinuous[@HorizontalAlignmentS@@xlRighte@ xlEdgeBottom@xlInsideHorizontal@ xlPasteAllu@(PTable@strSheetW@NumberFormatLocal)@ rngTableTop@ activecee@_B_var_activeceeՅ@ strSideItem!@xlUp@ cllB@_B_var_cll@'_B_var_varTemp1JeSXgϐɑy@_Defaultj@_B_var_rngTable@ _B_var_Format@_B_var_utilityM@_B_var_c@ _B_var_Right9@ _B_var_LeftQ@ AddinInstall@AddinUninstall@ Worksheet@Itemz@_B_var_strPrompt@_B_var_strTitlea@CommandButton2_Click@intTitleLengthJ@intSeparationNum1@Before@ xlHAlignRightB@xlLineStyleNone?o@VerticalAlignmentʡ@xlTop@WrapText}@ MergeCellsک@AutoFit& @ xlShiftToLeft @ makeNPtable@ strNsheet@ strPsheet @ strNPsheet#f@cher@ _B_var_cher)@ _B_var_lngKO@dom@ _B_var_domA@ lngMaxCatNum@colum G@aX@_B_var_a@(verinfo)&@ strprpmpt˜@_B_var_strprpmpt@lngDumm@ContextXn@_B_var_Contextq@contex@conteQ@cont{@conJ@co\@(cross@(simple@(Sort2z@Field3@iOption$@ (QuickSort2@ verHeadFreq]5@Valiant@lngTemp1eW@ varHeadFreqO@_B_var_varheadfreqg@@varArgU@varTemp2p"@_B_var_varTemp28@to0@xlNone@ HPageBreaks`v@_B_var_HPageBreaksg@SelectedSheets@_B_var_SelectedSheets'@ activebook'@_B_var_activebook2@ _B_var_BeforeX@ selectedsheetB@ acvtivesheet^@ElseV[g擪͖~Z@ PageSetup@ PrintAreaP@ RightHeader@ Orientationw@ xlLandscape&@Draft:@ PaperSize@ xlPaperA4c@FirstPageNumber%@FitToPagesWide@FitToPagesTallZ@ _B_var_On6@ Err_printer@ Err_pronterG@ _B_var_Error)@ _B_var_prompt@dum@ _B_var_dumB@_B_var_Err_printer@ _B_var_OffsetR%@x ! ZD0dirl__SRP_0,C__SRP_1 w2PROJECTwmEOficEE2DF8D04C-5BFA-101B-BDE5EAAC 42EProgram Files\CommonMicrosoft Shared\@10\MSO.DLL# 10.0 Object LibraryKThisWorkbookG TUisWYrkbo* 2  HB1BxRB,!f"B+BB|ShePet1GS@#eA@Xt1H2NI zGTa@=u@aim?nK 2V !="!l !@-=c~=c@m~mC=I"GMat(rixm`trix,_'    arU~~{ aFWorkbookWorkbook_AddinInstallWorkbook_AddinUninstall @ $Worksheet Menu Bar F F F tabul FControlsTypeAdd Ɩ XS}Ɩ tabul.closs 000ƖFb(&W#0K!&cRI/L r tabul.simple tabul.crossL KkN*QիC/)"Eggx9 "tabulation.simple tabulation.cross $tabulation.verinfo BeforeHPageBreaksPageSetup &PRightHeaderOrientation DraftPaperSizeFirstPageNumberFitToK*srU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ aVK#e" e Qe a 00*-a  9Yyq00!a I) ) ThisWorkbookSheet1 tabulationcommonchartMatrixtabulF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA y  0F4C:\Program Files\Microsoft Office\Office10\EXCEL.EXEExcel q@0FC:\WINDOWS\System32\stdole2.tlbstdole PL-[DR?C:\Program Files\Common Files\Microsoft Shared\Office10\MSO.DLLOffice a`IndexNum DimensionNum  sdNONE IntoOneDim IntoTwoDim DataInput SeparateLabelCodeListSort QuickSort NewSheetNameexitProccloss ,ƖW0_0D0000n000{V0c[W0f0 NU0D0Activate 4HQ-Lk0000000L0+T~0000F0k0c[W0f0 NU0D0 000{Vn0c[PTable $htP Ypen000{V0c[W0f0 NU0D0 *pek00_00 YpeR n0c[o0g0M0~0[00 htP Ypen0c[ pen0R{VL0c[U00f0D0~0Y0 "htP Ypeo01d0W0K0c[g0M0~0[00 4000{Vn0Lpeh0htP Ype{Vn0LpeL0NW0~0[00FF ) F NTablesNameFF htP Value hQSOEndRow Select Cells  Offset ResizeBordersLineStyleRows Count %TablesCopy PastePasteSpecialFVBE6.DLL `  00{VL0c[U00f0D0~0[00 01 DErr:Module=Common,Proc.=IntoOneDim _pen0!kCQpeL0 Nckg0Y0 _pen0!kCQpe =  DErr:Module=Common,Proc.=IntoTwoDim 0_pen0MRk0J0D0f0 2!kCQvn0 }peL0 Nckg0Y0 2!kCQvn0MR }pe =   S  BNumber of Dimension is not 1 but 00{VhQSO0c[W0f0 NU0D0 3 @ PError:Module=Common,Proc.=SepalateLabel. .RowLabel is not sdNONE.CursorReset 6DimentionNum is not 1 or 2. >Err:Module=Common,Proc=CodeList :invalid argument:lngDimension value= _ 00 k ` E  i  - ( - ) &HorizontalAlignment (##0.0)fĤIx8< ,   FPz2VK,Ч 1KFI]8'BScatterDPagesWideFitToPagesTall :0000L0ckW0O0000000U00f0D0j0D0S'`L0B00~0Y0 000-[000000W0~0Y0 Dtabul.xla ver.1.1 !|fƖ(uExcel0000 $000-[n0k0000L0uX0~0W0_0 000-[00000W0~0Y0   ȈՏWvAhCvarArray intDimensionMatrixvArray strPromptstrTitle caseLabel FieldLabelPreDatadataRowLabelColLabel varOption intOptionStartNumEndNum SheetNamestrSheet )  ) strNsheet strPsheet strNPsheetFieldiOptionThisWorkbookThisWorkbookSheet1Sheet1tabulationtabulationcommoncommonmatrixmatrixID="{00000000-0000-0000-0000-000000000000}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Module=tabulation Module=common Module=matrix HelpFile="" Name="tabul" HelpContextID="0" Description="ȈՏWvAhC" VersionCompatible32="393222000" CMG="A7A50BDD1BE5A3E9A3E9A7EDA7ED" DPB="33319F51366EPROJECTSummaryInformation(`DocumentSummaryInformation8CompObji366EC992376EA597C8C4B951A76BA2AEB9851F04924C76C8313AD96FDAFDF7" GC="BFBD13E513FD9EFE9EFE9E" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=88, 88, 746, 441, Sheet1=0, 0, 0, 0, C tabulation=22, 22, 713, 508, Z common=44, 44, 702, 397, matrix=176, 176, 834, 529, Z Oh+'00 X`p  (tabulfȈՏWvAhCeShinji Deguchi (DATAEXPLORING)f"ȈՏWvAhCio[W1.1jExShinji DeguchiMicrosoft Excel@"@cƲ՜.+,0 PXp x DATAEXPLORING[ Sheet1  [NV[g FMicrosoft Excel [NV[gBiff8Excel.Sheet.89q