ࡱ> "!  62$%&'()*+,-./013459;8:<POH?@ABCDEFGIJKLMN7QRSTUWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~R FrE|/R/#@4Workbookh<_VBA_PROJECT_CUR" #.R/+E|/R/VBA.R/M.R/ m؀\ptmt Ba= ThisWorkbook=|x-3 000001 4-3 000001 <-3 000001 ?-3 000001 h8-3 000001 -3 000001 -3 00000""#,##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\)"$"#,##0;"$"\-#,##0"$"#,##0;[Red]"$"\-#,##0"$"#,##0.00;"$"\-#,##0.00#"$"#,##0.00;[Red]"$"\-#,##0.0072_ "$"* #,##0_ ;_ "$"* \-#,##0_ ;_ "$"* "-"_ ;_ @_ .)_ * #,##0_ ;_ * \-#,##0_ ;_ * "-"_ ;_ @_ ?:_ "$"* #,##0.00_ ;_ "$"* \-#,##0.00_ ;_ "$"* "-"??_ ;_ @_ 61_ * #,##0.00_ ;_ * \-#,##0.00_ ;_ * "-"??_ ;_ @_ ""#,##0;""\-#,##0""#,##0;[Red]""\-#,##0""#,##0.00;""\-#,##0.00#""#,##0.00;[Red]""\-#,##0.0072_ ""* #,##0_ ;_ ""* \-#,##0_ ;_ ""* "-"_ ;_ @_ ?:_ ""* #,##0.00_ ;_ ""* \-#,##0.00_ ;_ ""* "-"??_ ;_ @_                                                                   ff       `       a>     & (    P  P             ||?"}A} #,##0.00ef;_ @_ }A} #,##0.00ef;_ @_ }A} #,##0.00ef;_ @_ }A} #,##0.00ef;_ @_ }A} #,##0.00ef;_ @_ }A} #,##0.00ef ;_ @_ }A} #,##0.00L;_ @_ }A} #,##0.00L;_ @_ }A} #,##0.00L;_ @_ }A} #,##0.00L;_ @_ }A} #,##0.00L;_ @_ }A} #,##0.00L ;_ @_ }A} #,##0.0023;_ @_ }A} #,##0.0023;_ @_ }A} #,##0.0023;_ @_ }A} #,##0.0023;_ @_ }A}  #,##0.0023;_ @_ }A}! #,##0.0023 ;_ @_ }A}" #,##0.00;_ @_ }A}# #,##0.00;_ @_ }A}$ #,##0.00;_ @_ }A}% #,##0.00;_ @_ }A}& #,##0.00;_ @_ }A}' #,##0.00 ;_ @_ }-}( #,##0.00}}) #,##0.00;_ @_ ??? ??? ??? ???d}x}+#,##0.00;_ ??? ??? ???}A}, }#,##0.00;_ }}- ??v#,##0.00̙;_     d}}. ???#,##0.00;_ ??? ???  ??? ???d}U}/ #,##0.00;_  }A}0 #,##0.00;_ }A}1 e#,##0.00;_ }A}4 a#,##0.00;_ }A}5 #,##0.00;_ }A}6 #,##0.00?;_ }A}7 #,##0.0023;_ }-}8 #,##0.00}}9 }#,##0.00;_     d}-}: #,##0.00}-}; #,##0.00 20% - 000001K 20% - 000001 ef % 20% - 000002K" 20% - 000002 ef % 20% - 000003K& 20% - 000003 ef % 20% - 000004K* 20% - 000004 ef % 20% - 000005K. 20% - 000005 ef % 20% - 000006K2 20% - 000006  ef % 40% - 000001K 40% - 000001 L % 40% - 000002K# 40% - 000002 L渷 % 40% - 000003K' 40% - 000003 L % 40% - 000004K+ 40% - 000004 L % 40% - 000005K/ 40% - 000005 L % 40% - 000006K3 40% - 000006  Lմ % 60% - 000001K 60% - 000001 23 % 60% - 000002K$ 60% - 000002 23ږ % 60% - 000003K( 60% - 000003 23כ % 60% - 000004K, 60% - 000004 23 % 60% - 000005K0 60% - 000005 23 %! 60% - 000006K4 60% - 000006  23 %"00000 1A00000 1 O %#00000 2A!00000 2 PM %$00000 3A%00000 3 Y %%00000 4A)00000 4 d %&00000 5A-00000 5 K %'00000 6A100000 6  F % (0000/0000 I}%)0000 00y0000 00  %????????? ???* 00000 +00^ 00  ,000 00A000 00 }% -eQRoeQR ̙ ??v%  .QRoQR  ???%????????? ??? /TGT %OO 0`D07`D0  % 1nf7nf  e%2Ah:SR03, Ah:SR0 [0.00]jn 4oD07oD0  a%5QW0 1?QW0 1 I}%O6QW0 2?QW0 2 I}%?7QW0 3?QW0 3 I}%238QW0 41QW0 4 I}% 9{o{  }%  :fe-5fe % ;fJTe- fJTe %<=(  [0.00]XTableStyleMedium9PivotStyleMedium48dq:Fc-2NWgFSWc-2NWgFSW̙̙3f3fff3f3f33333f33333\`; PascalTreeQccJ PK!pO[Content_Types].xmlj0Eжr(΢]yl#!MB;.n̨̽\A1&ҫ QWKvUbOX#&1`RT9<l#$>r `С-;c=1g$31{q!)që^x>hN7p L6Rqz'$*KG7bK˕RiGvrfμ@B,S53UIFq{0>ࠪ8m11kx 'G=r,=p*aU[ڼ72"&Ж:e)BhS_.kvjW ~},5y:fγ2[JƗ\o6LTcm^Ym-[x 2|jYx 2|J}f5(d4>Av:2l _z%OQ Ev)y\t K#9N-J 4ctfHB/h"޻ {OOMNLN~NN^e|n|Z?4g~y|K~ޣI-ryiؚx5^EC`ݖ5̅kyw4辥k7#Io5p:UpoŨ%c+Q]3OJXj1K<$1HBݣ.O@{51uGV"MvhqlP[ٽ&6 3=,7^##X7 ]Jv/کH 4u`o)70+gw8Bϛ2rB%.laNz)..+DCp<7w)}~#CJQ3#u­e[:6з7mm"*3z_آ(#PKԛC{=//O[1ti!1{mn3r3{N:IqKBxT ,P`MQvC)&4c=LQS8/a'o4Uu1#rfxE Ǎjϴ`Qa+W2`*VժhI+LV.rpya ބ xy J4w0#Q&DƐĄ.ycЌ}<#ki1?tr`d <[M,.Që.zII fC.0Y{n-"Z\wgU./UƉH6NCC=Jyb p4ŴXYǴPۡ%e9إ;uB>DtHc?T.,tA]SSvo:MNK8fInng3pO [I=ͩ6MQQfZa%PrW`*q!C]( 70 ·+f_CԜrPmIg9̪cXΨibCzR]w h߳ \oV'+NS3uf/7bOW?C5ljyUX_zMYKkX3/Ag-b?=R`gZP{|z+jAA>{̠I&ʸ6(oT g4[$ޯbej"yjA~сߢx>znG|Jxu ]}Gd:($8?0%d[dVd* ס&Ԭ - j.},khxdժrOϸl.s|u9(4P2yre&|^]a1SvPK! ѐ'theme/theme/_rels/themeManager.xml.relsM 0wooӺ&݈Э5 6?$Q ,.aic21h:qm@RN;d`o7gK(M&$R(.1r'JЊT8V"AȻHu}|$b{P8g/]QAsم(#L[PK-!pO[Content_Types].xmlPK-!֧6 -_rels/.relsPK-!kytheme/theme/themeManager.xmlPK-!\theme/theme/theme1.xmlPK-! ѐ'# theme/theme/_rels/themeManager.xml.relsPK] m؀ ;  dMbP?_*+%T" dXMb?Mb?U } U>>@@U5 Sheet1ggD Module1UThisWorkbook >nSheet1 PfUserForm1bN   !"#$%&'()*+,-./0123456789:;<=?@ABCDEFGHIJKLMNOQRSTUVWXYZ[\]^_`acdefghijklmnopqrstuvwxyz{|}~ 7IbxME(<<< <8`@ `` x 4` B`!!.H% vX O " .( Xhp x     .  0H`  "          ( " 0  8 H Xh p            ( 8HP`p  xX]@X]pInitialization (Merge cells)$ '  "|k   'dH'k8   $&   $&$$B@(  ' A:IV$*(, 1:128$.(0 129:65536$.(2A4op 6!85: C@<032C@>64C@>96C@>128C@>q 6B@@o D!85: C@<2C@>3C@>4C@>5C@>6C@>7C@>8C@>9C@>10C@>11C@>q D!F5: C@<BlueC@>GreenC@>CyanC@>RedC@>MagentaC@>YellowC@>RandomC@>q0 DB@@o8(HAttribute VB_Name = "Module1" Option Explicit Sub Initi alizap() Dim row, col AsA@teger.es$Varian r&= MsgBox(" N (Merge cells)", 1) 3If A6vbCan 0ThenExit End If  For1 To 128Row vt 20(g= 1Else}2<  Whili< 2 56 Rang(e(Cw(),  +).'O+ AWendNext}Columns("A:IV").Width#HRow1:@J@@Heigh t0 29:65536 Hidden@TruG Call MakeTree ehE Wi@ Userkm1%8mboG^P.ListCount8 > C#AP.RemoveItemHBAdd0"32"K64Q96QAG5A/1Show=`PaintC>2?>A4>=3r!V51#718910 o.G(32!pGGK"BlueG]"nCyaRedMagentaQYow1dom#R2.R#7Ŝ#xME (SLSS<N0{00020819-0000-0000-C000-000000000046}8(%HxxAttribute VB_Name = "ThisWorkbook" Bas0{00020819-0C$0046} z@GlobalSpacFalse bCreatablPredeHclaIdTru @ExposeTemplateDeriv#@ustomizB0#7 #xME (SLSS<N0{00020820-0000-0000-C000-000000000046}8(%HxxAttribute VB_Name = "She et1" Basp0{0002`0820- C$0046} zGlobalSpacFalse CreatablPredeclaIdTru @ExposeTemplateDeriv#ustomizB0PK7xME(S<S<S<S<0{F72F1850-1899-8748-ACDF-0D7E6BFA5E9D}{6822EA86-3027-224F-AC5E-543FDE184AC6} L@ @N @P x`R299%A % " 0(P x    "L P` h     x]@XpA1:IV128 J,$$XA1:IV128 J%$!T(V'NF'P  6!8!Z  N+&  R N  P   R $&  R $& Hl  R+&D Rk  P+& N 'NF P 'P Ht 6B@\ ABo0(xgAttribute VB_Name = "UserForm1"  Bas|0{F72F1850-1899-8748-ACDF-0D7E6BFA5E9D}{6822EA86-3027-224FJ5E-543FDE184AC6} cGlobalSpacnFalse CreatablPredeclaIdTru @Expo se.TemplateDerivCustomizBOption .licit P $ Sub CommandButton1_Ck() Dim row, colLR, j As Integer Sheet1.Range("A1:IV128")".#rior.ColorQB(15).ׁ:!RB( To Ƈ@mboBox1.ValYA*Cells(5A)N1BIfB> 2 Then+ j(&+ 2)AAR -@  j( 1T- 1) + +) Mod 27720J@Next jEnd Ifp;Y#ZR&CHB@N[HideCall PaintTree % 0 H  VBAProject4@ Z= r [ %J< rstdole *\H{00020430-C 0046}#2.0#0#Macintosh HD:Applications:Microsoft Office 2011: :Type Libraries:Standard OLE2 s# Autom'MUserForm2>i_VBA_PROJECT=dirUserForm1 .R/٥.R/ListCount6 RemoveItemZAddItem Show PaintTree UserForm2* ComboBox3) ThisWorkbook|Sheet1CommandButton1_ClickcolL)colR/jaInterior;Color2FQBColor8ValueKHide9zD[RiCN\resultur ComboBox2( NameToNumber(RndRCZnumComboBox1_ChangeaUserForm_ClickWorkbookkInitialization5EIK7 ZMSForms3XD452EE1-E08F-101A-8-02608C@4D0BB4GAjdHjHj00}#0Bj# P0QAA86648B-F@x-734E-870C-52461BD1D408QELECOM 8GB / backupw7Sep:_REPAIR:topicIUsG@mitahi:5 Suppo rtǏŌ‹pݒÓĂ.8exd`O:.E .@`M @CC @ AE2DF8D04ABFAB-BHDE5XAAI42@ @R x@^ 8-@` 82@b `d-C h( Il Hi  `n p`^ rH@%pH %HF ", @P` x $ ,    @ `,     B  0Pp   "    0 @P X"h"""""0"X""  " x]@Xp D!8!Z'^ D!f!Z'` D!F!Z$h'b+ J$XA1:IV1287$!T(V'  6!8!Z R       R7&!Z ^ 'd d ` b  b$X  R7&!T(V d ` beA@4 j $X  R7&!T(Vk@ R  ' qo]h lBlueG'nj lGreenG'nj lCyanG'nj lRedG'nj lMagentaG'nj lYellowG'nj lRandomG'nj n'hi] D!8!Z'^ D!f5: C@<0C@>1C@>F ^G|j2C@>F ^G|j3C@>F ^G|j4C@>F ^G|j5C@>F ^G|j6C@>F ^G|j7C@>F ^G|j8C@>F ^ G|j9C@>F ^ G|j10C@>qooxγAttribute VB_Name = "UserForm2"  Bas|0{CA73D588-5AAA-184B-A181-90F5A6860381}{70D507D9-43FB-9A41-ADBC-F8A7C054CA03} cGlobaBlSpacnFalse Cre atablPr@edeclaI"dTru @Ex0pose.TemplateDerivCustomizBOption .lic`it P $ Sub CommandButton1_Ck() Dim row, col, j, D, R, CN, result As Integer -Di.+boBox1.Val+sR2CNToNumber(O3 )CWith Sheet1B!.Range("A1:IV128").!*rior&loBr@QBCo@(15);@ @A To "178 j  (+ 2 * (R - 1)) Step 2 DT= .CeXlls \): Mod D IfCa= R) And (N> 0) ThenJ As VCCNCC E[U=V_dAe!R * 14 +`&E IfFNext j!.=aV-/;!F @`aFu,ncBeJPCanumn^@#C="B@\""/ = QGreen?hCya3Red4MagPenta*5*YJow 6 5 0!"'%cΉ~_Chp'D?߅΅{gWhi.ListCount `"EX.RemoveI0tem !Wend.Add"0"1": `12