ࡱ> TLabelUpdates   Microsoft Forms 2.0 FormEmbedded Object9q*+,-6/0VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserFormBetterHistogram Caption = "Better Histogram" ClientHeight = 3195 ClientLeft = 45 ClientTop = 435 ClientWidth = 3810 StartUpPosition = 1 'CenterOwner TypeInfoVer = 111 End oThisWorkbookThisWorkbookSheet1Sheet1UserFormBetterHistogramUserFormBetterHistogramModule1MainModule1MainModule2Chart2003Module2Chart2003Module3Chart2007Module3Chart2007JECT_CURID="{6146FB48-5807-47C3-8100-D0FABE0BF204}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=UserFormBetterHistogram Mo  !"#$%'()*+,-/023456789:;<=>?@ABCDEFHIJMNOQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvxyz{}~ng Text`0Better Histogram$ bins_array;$ data_array;" twobytwo;UUP Sheet_Titlerea!Tw TwxaԹ3A!Tw < !Tw!TwT*A\8?Pw\T?_w!Tw!Tw Tw`T0T3A\B1Tw?A`T0TA ip0`ixaPzm0 Zh0TP&ZPT0dxi,F|xipax|m|A3Apaxxa`5Az3A@PwtwobytwoayA*A3Twй!Tw?As$TwP8 0m|4xa$?Ow5A A`T0_/TwAHA3A+Tw`T0,Ժ-Tw`T0cTw-Tw$3Pw2Pw3Pw\-Tw`T0`T0Calibri1?Calibri14Calibri14Calibri1 Calibri1 Calibri1Calibri1Calibri1 Calibri1Calibri"$"#,##0;\-"$"#,##0"$"#,##0;[Red]\-"$"#,##0"$"#,##0.00;\-"$"#,##0.00#"$"#,##0.00;[Red]\-"$"#,##0.005*0_-"$"* #,##0_-;\-"$"* #,##0_-;_-"$"* "-"_-;_-@_-,)'_-* #,##0_-;\-* #,##0_-;_-* "-"_-;_-@_-=,8_-"$"* #,##0.00_-;\-"$"* #,##0.00_-;_-"$"* "-"??_-;_-@_-4+/_-* #,##0.00_-;\-* #,##0.00_-;_-* "-"??_-;_-@_-"$"#,##0_);\("$"#,##0\)!"$"#,##0_);[Red]\("$"#,##0\)""$"#,##0.00_);\("$"#,##0.00\)'""$"#,##0.00_);[Red]\("$"#,##0.00\)72_("$"* #,##0_);_("$"* \(#,##0\);_("$"* "-"_);_(@_).)_(* #,##0_);_(* \(#,##0\);_(* "-"_);_(@_)?:_("$"* #,##0.00_);_("$"* \(#,##0.00\);_("$"* "-"??_);_(@_)61_(* #,##0.00_);_(* \(#,##0.00\);_(* "-"??_);_(@_)                                                                      ff         P  P        `            a>  #  20% - Accent1 20% - Accent2 20% - Accent3 20% - Accent4 20% - Accent5 20% - Accent6 40% - Accent1 40% - Accent2 40% - Accent3 40% - Accent4 40% - Accent5 40% - Accent6 60% - Accent1 60% - Accent2 60% - Accent3 60% - Accent4 60% - Accent5! 60% - Accent6 "Accent1 #Accent2 $Accent3 %Accent4 &Accent5 'Accent6(Bad) Calculation* Check Cell+,-./Explanatory Text 0Good1 Heading 12 Heading 23 Heading 34 Heading 4 5Input6 Linked Cell 7Neutral 8Note 9Output: ;Title <Total= Warni\);_(*L ;_(@_) }A} 00\);_(*23;_(@_) }A} 00\);_(*23;_(@_) }A} 00\);_(*23;_(@_) }A} 00\);_(*23;_(@_) }A}  00\);_(*23;_(@_) }A}! 00\);_(*23 ;_(@_) }A}" 00\);_(*;_(@_) }A}# 00\);_(*;_(@_) }A}$ 00\);_(*;_(@_) }A}% 00\);_(*;_(@_) }A}& 00\);_(*;_(@_) }A}' 00\);_(* ;_(@_) }A}( 00\);_(*;_(@_) }}) }00\);_(*;_(@_)    }}* 00\);_(*;_(@_) ??? ??? ??? ???}-}/ 00\);_(*}A}0 a00\);_(*;_(@_) }A}1 00\);_(*;_(@_) }A}2 00\);_(*?;_(@_) }A}3 00\);_(*23;_(@_) }-}4 00\);_(*}}5 ??v00\);_(*̙;_(@_)    }A}6 }00\);_(*;_(@_) }A}7 e00\);_(*;_(@_) }x}800\);_(*;_(  }}9 ???00\);_(*;_(??? ???  ??? ???}-}; 00\);_(*}U}< 00\);_(*;_( }-}= 00\);_(*M 20% - Accent1 ef %M" 20% - Accent2 ef %M& 20% - Accent3 ef %M* 20% - Accent4 ef %M. 20% - Accent5 ef %M2 20% - Accent6  ef %M 40% - Accent1 L %M# 40% - Accent2 L湸 %M' 40% - Accent3 L %M+ 40% - Accent4 L %M/ 40% - Accent5 L %M3 40% - Accent6  Lմ %M 60% - Accent1 23 %M$ 60% - Accent2 23ٗ %M( 60% - Accent3 23֚ %M, 60% - Accent4 23 %M0 60% - Accent5 23 %M4 60% - Accent6  23 %AAccent1 O %A!Accent2 PM %A%Accent3 Y %A)Accent4 d %A-Accent5 K %A1Accent6  F %9Bad  % Calculation  }%  Check Cell  %????????? ??? Comma( Comma [0]&Currency. Currency [0]G5Explanatory Text %;Good  a%G Heading 1 I}%OG Heading 2 I}%?G Heading 3 I}%239 Heading 4 I}%uInput ̙ ??v% K Linked Cell }%ANeutral  e%"Normalb Note  wOutput  ???%????????? ???$Percent1Title I}%MTotal %OO? Warning Text %XTableStyleMedium9PivotStyleLight16ccBĘ7ɹq1  01  dMbP?_*+%"??+UT0>>@ Sheet1&ggD ThisWorkbook W __SRP_4&__SRP_5.Sheet11T<vՄ`yM/`FggF'eBxA%y#ggF'eBvՄ`yM/`]M4PSLSS6" <<<N0{00020819-0000-0000-C000-000000000046}WrE $*\Rffff*2a45de7202$*\Rffff*2d45de7202h8@`|kh07`|klsi $@ $8 $h $ $ $ $0 $` $ $8  P@8h@phME " "  (8Alh@A lPHAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |CreatablFalse ^PredeclaIdTru "@ExposeTemplateD0eriv$eCustomiz2` P Sub _Open() Call beMenuItem 0 End Be@foreCl[(Cancel As Boolean ,Delet,rU (Y 1 4 a ` `1?<   $ <   $ 44SrU @$`h()`l #p<+?__SRP_aPZ3+4 818{crU @prU $ `$) `$i ` p-9.!/I// 0091WS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#55*\R1*#16f*\R0*#11*\R0*#16*\R0*#10*\R1*#b8*\R1*#20b>*\G{5B2237B6-E926-4ED5-A1E9-867B2DBBEAF7}#1.0#0#..\..\..\Documents and Settings\Mike Middleton\Application Data\Microsoft\Forms\RefEdit.exd#Ref Edit Control*#0>*\G{5B2237B6-E926-4ED5-A1E9-867B2DBBEAF7}#1.0#0#..\..\..\Documents and Settings\Mike Middleton\Application Data\Microsoft\Forms\RefEdit.exd#Ref Edit Control*#2*\R0*#1a*\R0*#1b 0(h$X00 $$$$$".@@@$$$$b4TT@b8dd@`:`xk<`o__ ^`@ khhk"&84x4@b*`88@b,<<@b0DD@b2LL@b6\\@8H`$hp$$t@x 0`x>(&@B*.J@x @h @X @HH X@D @@ (@0 @ @O `@ L,N0R2T4@ @ `$@( V68\$t@ X(H H`$df>np@x @t pp@` $(mh fVA]drHG4-h n g{Gr`N'wkIV οxr]'wkIV οfVA]dr*jj5 lptx|SPSSS8(>"L*L*L*L LL*LL*L <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<0{EE11B887-9EFC-4748-B9B8-EAE5F4342D68}{09896E09-67F1-477B-BF72-13AA1960CA4E}WrE *\R1*#15d$*\Rffff*2c45de7202*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#42*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#53*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#28*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#2f*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#..\..\..\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*#4*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#4*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#41*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#51*\R1*#a7*\R1*#208$*\Rffff*2d45de7202*\R1*#15c*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\WINDO@` \` 4$ppX`t$ xz@H $ D `$$8  ` @0 `4$  rtNRTvxz +      +((+@ hx % +&+  ,0+ 8HP  %X +h&+  %  4+  08 @V+`  6  h? hx 6  j?  08 "*@  h x 4 L @ LH "5      ( 08@HP'X 'x            8   H  P X ` h p x                     ( 0 8  X   h  p x                    (  0 8 @ H P X  x                      8   H  P X ` p xZZ8`ZZXZH $A@tl >!f$(.& @Data Range is not valid.A@B$ >B@Duh &!F!H'* * Text/Data Range must be a contiguous range of cells.A@BdButto >B@D uh . & .$J .$L4All cells in Data Range must contain numeric values.A@B >B@Duh .yDownW &!H',KeyC N!f$JyPressStart Value must be a number.A@B NB@D-Layouhx N!P'0 R!f$JStep Value must be a number.A@B RB@DmoveCouh R!P%Step Value must be greater than zero.A@B RB@DWWuh R!P'2T T!f$JTActuStop Value must be a number.A@BtW TB@DNInitu@h8 T!P'4 4 0yClo)Start Value must be less than Stop Value.A@BDh&e NB@D&e$h&euh 0 2  4 g&eLEnter Start, Step, and Stop Values so that there are at least two intervals.A@B NB@D&eu0h( & V%X'6&ef&e 6 0 OStart Value of histogram must be less than or equal to the minimum data value, 6.A@B NB@D&ee&euhx & V%Z'8&ehe&e 8 4 P&QStop Value of histogram must be greater than or equal to the maximum data value, 8.A@B TB@Duh & , 6 8 0 2 4A\&e $A@t&el.''Most of this code is for the Mac dialog box.F''Controls of the original dialog box were modified using Mac Excel X.:''For each control the location, size, and font were notedE''in the Mac VBE properties window and entered into Win Excel 97 VBE.pa `!b*Win* $J9dJ95f 9Z99h9d Lucida Grande5j( 5j(ln5>99 9h9d Lucida Grande5j( 5j(lnp5n9:969h9d Lucida Grande5j( 5j(ln5p9Z99h9d Lucida Grande5j( 5j(ln5r9Z9F9h9d Lucida Grande5j( 5j(lnP5t9Z9s9h9d Lucida Grande5j( 5j(ln5N|999h9d Lucida Grande5j( 5j(ln5R|99A9h9d Lucida Grande5j( 5j(ln05T|99n9h9d Lucida Grande5j( 5j(ln5v9d99h9d Lucida Grande5j( 5j(lnp5x9d99h9d Lucida Grande5j( 5j(ln5z 9"99h9d Lucida Grande5j( 5j(lnnhlŶAttribute VB_Name = "UserFormBetterHistogram" Bas0{EE11B887-9EFC-4748-B9B8-EAE5F4342D68}{09896E09-67F1J7B-BF72-13AA1960CA4E} dCreatablAiFalse PredeclaDIdTru "E`xpose@TemplateDerivCumizDOption 0licit Dim Range As  Num Ags Long, DoVal ue OneCell !XStaDrt Dou, ep o&12Min ax/PAC Sub CommandButtonCancel_C:@k() U`nload; 0 EndOK COTrror ResuNeFx@VSetV=V(RefEdift3Z.T D(If Err <> 0 ThenCMsgBox "  is not valid>. !FocusG,GoTo 0Exit SCDIfC=G6..Coun>1 > 12m be a contigu ous rofr rlsl8@ Each VIn'ca)!`,Is nc() Or IsEmptyogK66A c Zh8aanGric!:k A :{)8A8SE{;:CN"W`S"}Y>cb '>ber WsW;= *c ]ep<` yd kl,   En B ,`ep, rr s soe t@erX1t as woKfX* 1   QG~= WorksheetFuncq.p(r6H(4>\11>ACCommButtonOKߚ .F]0D]3_h A_ __onCancel2/;  .]|o>|Upd0ates12S29 >2/m  If qSub xp Qx(7( hd7( 7( 7( D:`!%x( H%x,x(` %x( H%x,x (xp Qx$7$ hd7$ 7$ 7$ D:`!%x$ H%x,x(` %x$ H%x,x $xp Qx  7 h"7 7 7 D:`!%x X"x,x(` %x X"x,x p\X}@ p\XD@<840,($ txHxK| 1YQYqY 1`1 __SRP_bLModule1MainZ#__SRP_6P __SRP_7w        ( "08Bt@ "!  "    8$@APpx  z $   &8PROJECT%PROJECTlkSummaryInformation('DocumentSummaryInformation8  (:8 X `p  B2 $882@x .  ( 908X `px:''Some of this code is adapted from John Walkenbach's book9''Excel 2002 Power Programming with VBA, M&T Books, 2001./''Only Win Excel 97 SR2 was used for all codingvaA''with subsequent testing on later versions of Win and Mac Excel.Z@Z`A 7u$%.~ ~/Cannot add Better Histogram item to Tools menu.A@Bu`aX n ~!%. Better &Histogram9BetterHistogramDialog9 nhl Better &Histogram7u$%%B@elelp $!>B@D $B@l@Z0HZh'\  'Better Histogram ''   $ !$'rhx    !!B@  (Z . Upper Limit %(P VZB@D 0 2 '  %(P 4'  4 _art,  'p  2 'rU &* 1+ +  Y++ ,,,A y--9.!/I// 00911y2 4Y5q56!7i7777 AilpYtxY`q | 1YQYqY 1`1  1)` YYi ?  \( "Vx"$ x ($ xKDD'H%x! xah`FX%"$ QD4x6hXH$@ xx  l@x+' 'H'X:0 Nhh 6hXH x! xxK0_4ah8 xxaXv"8x6hX8D+' 'H'X:0Nhh 6hXH x! xx4@^@xxM0 @ plx=@kÔ@DDM @ plD=@k)xD+' 'H'X:0Nhh 6hXH x! xx@Z_4ahv"<5h+x! x l>Fh x5h+' 'H'X:0Nhh 6hXH x! x x%hx! x hBDx5h+x! x l>Fh x5h-+' 'H'X:0Nhh 6hXH x! x x,hx! x h(0]IXx5h\+' 'H'X:0Nhh 6hXH x! x x%hx! x hBLx5h+x! x l>Fh x5h5+' 'H'X:0Nhh 6hXH x! x x%hx! x hBTx5hTD+' 'H'X:0Nhh 6hXH x! x xDLT+' 'H'X:0Nhh 6hXH x! x x64o0%x"$ xh@B\x5h\D?' 'H'X\#*#*Fh 26hXH x! x x64o0%x"$ xh@Bdx5hdTQ?' 'H'Xd#*#*Fh 26hXH x! x x*TLDd\<4  "Vx"$ x(Q,xDhXH 5t x"$ x tlt ~/tx}"VpJj`%p,Jj`%p,xp Qx\ 7\ hZ7\ 7\ 7\ D:`!%x\ X"x,x(` %x\ X"x,x \xp QxXj`%X,j`%X, j`%X,j`%X,':`!%XaH#xx,x5H'(` %XaH#xx,x5H Xxp QxD7D h:7D 67D 7D D:`!%xD d$x,x(` %xD d$x,x Dxp Qx@7@ hZ7@ 7@ 7@ D:`!%x@ X"x,x(` %x@ X"x,x @xp Qx<7< hZ7< F7< 7< D:`!%x< X"x,x(` %x< X"x,x <xp Qx878 hZ78 s78 78 D:`!%x8 X"x,x(` %x8 X"x,x 8xp Qx4|74 h74 74 74 D:`!%x4 x,x(` %x4 x,x 4xp Qx0|70 h70 A70 70 D:`!%x0 x,x(` %x0 x,x 0xp Qx,|7, h7, n7, 7, D:`!%x, x,x(` %x, x,x ,xv t @(L L8( > LLLLL"LLLLL*\G{5B2237B6-E926-4ED5-A1E9-867B2DBBEAF7}#1.0#0#..\..\..\Documents and Settings\Mike Middleton\Application Data\Microsoft\Forms\RefEdit.exd#Ref Edit Control*#0>*\G{5B2237B6-E926-4ED5-A1E9-867B2DBBEAF7}#1.0#0#..\..\..\Documents and Settings\Mike Middleton\Application Data\Microsoft\Forms\RefEdit.exd#Ref Edit Control*#2$*\Rffff*2c45de7202*\R4*#4a*\R4*#30*\R0*#11*\R4*#4b*\R4*#49*\R4*#48*\R1*#b8*\R1*#20b8  `kX ~xX0$ @txerWW$  `ogva `@xk!H 14 \`kH77&~)& hpdd B$i,A@Bi6 i8i0m9i2 i4$ `x t` $`r `p H $` $`  $|x$|$`hPPp B @p @` @0\ @L @< @, @ @ @ h`$P8P  `@hx @h p@d @T @D @4 @$ @( @ @ @ $0@x H0hpH` H   @l `@ h @ d 8 0 @`O 0@H P @x @ @ 0 @ @  5@ @  @ @ @h X@ @  0ME] @ @H 6 H "   b( H:+X$L t    %(PH '4$  $ %(.6 0 bins_array (e Frequency %(Pual Z$  $ %(.&ee&e data_array &(V!=frequency(data_array,bins_array) ( o B@m must  B@r equa `(aximum `!$  0 2 4  Aa 0 2 4  A0 2hlAttribute VB_Name = "Module1Main" Option Explicit '''Soof this code adapted from John Walkenbach's bookxExcel 2002 Power Programming withA, M&T BI3s,+1.zOnly WiF97 SR2 w as us|or allNoRsubsequent testjlat?ver2srs h,and Macz0;Sub CreMenuItem () Dim Tools As Comm BarPopubpNewB`uttonC`DeleteQ Set9=9s(1).FindControl(Id:=30007WIfIs Nop]TheD 5MsgBox "Cannot add BetJHistk iAH to mE.AExit @M-ElseC+/ C=$.-s.A_ (Type:=msoD wND6AW.C3&3.A.OnAcB Dialog ;E@IfL AA  K uO@rr@Resu@Nex@g!Gv. HJEP("8).%C,7'R.wcDataaInvoke_FuncA H\n14%Us@erForm.RefEdit!@Range.CF0ocus#(Show( n",E%NumAValuesLonhg, aMyD oubleDaxaE-XStart  ep o`U A&po SoSheeB Works3OKA `le an, iIntegeri@/"0o Ai + 1 *'`f> " & i sruw@7 Ez $I%D5`UCase(I )ˣ.!) bFa* CBlCd Lo,U0ntilf+OK!"Ayve!*.F+Œ.Move a2f:=#0 @)! a9#Z73!= | A.Cell}, BS@"UppLimit`i!"A?RBinsArray]\'!\ H= X+ej2) =%Do While (2DChY7(#.,.bop, ^,ywZ3_t=_r#QirU~} %  A i  1 q y1 Y Ii!, b' %'%',%(L7u%'<%\(`%p"$ dp H\ l=x)p\6<, lxc+' '',:`N<< 6<, $L\' %'%',%'<%`%px Pp $ l\= t)p\6<, lt     x,0$tx(p\<, Kt: %'%'$%'4%(T7u%'D%d(h%x"$ dx Hd )xd6 D4$$ ,xdD4$p<!x"$ xx"$<$ x$pp kpppkp#l*1x/lpr$h"$ Qh[dt`AxMP@@ @lt H>lF0  /60@ \pr` t`Ukr zh"$ @Qho% '%' %'0%'@% "$ H  () 6 @0 $lxFP%h"$ @hhh"$ @lh=h8:%(P%(%h h@h5@  t:ok%(P%(%h h@h5@ q o$nlq o tBok%liP%(%h h@h5@m$(P%(%h"$ Xh@li%(% "$ X 00%@% Q)h 6@0:P%,n8:%(P%(%h h@h5@(P%(%h"$ Xh@li%(% "$ X 00%@% Q)h 6@0:P%H ,n:P %,J 'P% ( h"$ h !h9l h"$ h d!ll " /lhl$l l #l$l l $ @(d`xt4 lh @0 \rU $`$`$`L`1Iay=(+++++prU @`IayQ+++(=ip 9yrU~} .Module2Chart2003"v5__SRP_2__SRP_3|Module3Chart2007"      A 18 7H X h x           :        (  0 8 :@ X `  h p x     9  ,     '  ' 5 2 ( 0 8 @  H 5P  ,` p x  5  . (E . (E   '(  ,8 H X h p x        K  '  ,      ( 0 8 @ H P  X 5`  'p  ,             K1K(1@  4P:   #B4.. 8''E''Most of this code was first developed using Excel's macro recorder.P7''Then the arguments above were inserted into the code.C''Much of the recorded code is unnecessary and could be eliminated.''Range("A2:B3").Select''Selection.Copy.''ActiveSheet.ChartObjects("Chart 1").Activatep''ActiveChart.ChartArea.Select''ActiveChart.SeriesCollection.Paste Rowcol:=xlColumns, SeriesLabels:=False, CategoryLabels:=True, Replace:=False, NewSeries:=True.''To handle negative data values, Aug. 9, 20058''Histogram in columns D (4) thry J (10), rows 2 thru 19Z - %! %!h %! %!  %!h %!h !%. (4$  $ %(  Better Histogram !B@Chart 1 %B@Z   %!'  %!' !B@={1,2} %(={1,2} %( 8Chart `%(  %B@J `(h  %( %B@J %( %B@J %(   ;  ;  ;  ;dule=Module1Main Module=Module2Chart2003 Module=Module3Chart2007 HelpFile="" Name="BetterHistogram2007" HelpContextID="0" CMG="6163DE26E226E226E226E2" DPB="B5B70A220A770B770B77" GC="090BB6CBB7CBB734" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=0, 0, 0, 0, C Sheet1=0, 0, 0, 0, C UserFormBetterHistogram=0, 0, 658, 486, , 66, 87, 925, 593, C Module1Main=154, 203, 812, 689, Module2Chart2003=132, 174, 790, 660, Module3Chartx )h@0(6 LLL*LLL` J    4( $` 4  >X H 8 2 GG :0=@=` B9 (@9=9=(@%H%X%h%x HHA ,  ( 0A8:P h p x  %%%& HH A@:Xpx   # 29 , (08@HPX `5hAx17np    %(    %(   %B@J !" &9$ *9(n  *9, *9. *90n   %B@J   %92949698 <9:9>9@ D9BnP   ;  ;  ;  ;n    %(    %(   %B@J  % 09F 4996 29 <9:9>9@ D9BnH H( 0 Chart 1 %B@ %B@J !" &9$ *9(n  9J 9L *9N9P9R9Tn !VB@J  %B@J !X(Z !X!jArial9Regular9\9l9^9`9b9d9T h9f 9j 9ln  %B@J !X(Z !X!jArial9Regular9\9l9^9`9b9d9T h9f 9j 9ln8  F'g  %9294969 9:9@ D9Bn  %9F 996 9 9:9@ D9Bnh %B@J !" n9$ 9(n  (T (p * !r(j %t9v9x9z9|n !~B@J !" n9$ *9(nx * !r(j   7( Data Value  7!!(f  7( Frequency  7!!(fn (Z !jArial9Regular9\ 9l9^9`9b9d9T h9f 9j 9lnH  %!B@J (Z !jArial9Regular9\ 9l9^9`9b9d9T h9f 9j 9ln !B@J (Z !jArial9Regular9\ 9l9^9`9b9d9T h9f 9j 9ln  %!B@J !j(  %!B@J !j(.''To handle negative data values, Aug. 9, 2005  % <9: 09>nH H( $B@A:B$B@J !B@C1$(B@JlAttribute VB_Name = "Module2Chart2003" Option Explicit Sub (XStZ As Double,R "ep o _ NumBins*Long, Better SheetWo(rks )/ '''Most of this code was firdeveloped usingcel's macro recorder.GThen"e arguments abov!'ere Kert$into5Much@e)dDHunnecessary an uld be elimina)"~ihRange("A2:B3").Sele>c.CopyActive.Objs(" 1$8 Area C Seri`esCol$ PasRowco l:=xlumns, C Labels:=Fal.s@yA2C!goDryETruR@eplace New:=A@To hRle nega= data valueAug. 9, 5 Hist`ogram@rfl) D (4)sfJ (10), rows 2u 19 Dim AV@ G=ɫ a.Add(nB .Lepft, DFUs(2).Top!Z(11) -o0mWizard SourA6j!BXCell@, 1 +E|+ 13&)$Ga`JrygH, Format:= Plot~B<HKO0, HasLegend QTitl=M"C=`T ;C_jvjFbDFreqMax$St = )nAxes(xlVA[). imumScale jorUnoI %IznyT Xs={1,2}'m &p{on emm1`}BarEVisi@  A) ut!`a on 6TypxlXY2տ?b +aAxisGroup1 ( ` 2WithS=#.40)7, @xlPrim n)o Ze!_Swnd "Ϡ/1xl҅~Ewq I-46 y ).EvAuto`Iic|S xBo Weight`xlHairlinL(Styt=@NoO;Ma`ETickMark2'Minor"PosiCOQ% w yDu vVI~s -X?a .qWCrosseUZu@mA0ExRprseQsO/ xM.JleF-q ar@"@::l6:@= FI+!l M<<.Naml"Arial" "Re`gular8Striket hgSuperscripVDSub Outlin9CPbU@rGxlF5`Back ~vValueuuu uNu! t .:.:zc]If yFreqStep < 1 Then= 1BrIBcM@inimum"{IFsLMTruxinorUniztj DCrossesSRevxePlotOrderTypaxlL`warCd'"o9"@0"Ma!@3""J<##a#!ESeries@Z9@(1)gBoa3(Weigh!xlThin(3oN> SIn tIfNeg]`v@hDto^rMudzCG@fps h O lap!GapWid})#Has.-,VaryByx`([ia1~p3 0.goІIn1h$I5,Prim).TitғH_lVAxi&sbac s.Texq("Data rqroA/D r\uency/#!XM1k |ϕS.qoxĕ1 +ߕx cߕߕ>R .ߕr &x/xoX6%+).'SFGvtB a'`#0iK,Ae odBS;Q8=Γ?w$8?A? 8EiX88.Bold(=(xlCategory).AxisTitle.Select ,ion.Font.Bold = False '''To handle negative data values, Aug. 9, 2005lWith Ac*Chart~es &.Cr`osseswustomAtXStJEnd d oWindow.VisibXf s(1NColumns("A:B").AutoFiRange("C1 OSub __SRP_8 __SRP_9 _VBA_PROJECT#dir )*y Q1*1!9y!"9'$y**I!& (9(y(((I$$&!)I)i)))0  H ((h%(X%x"$ Xx$iD%(4%T"$ XT%$%H rU~} Q Qy 9y 1Y A  Iq I a !I!!! """1#Y### $I$i$$$$%Q%%%%!&Y&&&'9'i'' (9(y((()!)I)i)))0(d%tH tTW%(@%PH P0W %( %,H , W(%H W%(%H W`(%H pWP@%, '0%JH ,x)tP,,6T0 p`P0 (d%(@%t"$ XtTi%(%P"$ XP0,0%T%H  '%'%'%:%f%(%(%%(%%Q,o%xa   )tP6T0 2:d %t"$ @tT  t5TGP d%t"$ ,t PWT Bt)tP5TGP d%t"$ ,t PWTBt)tP5T:P 'T%t"$ ,t  P)tP5T=:@%P (d%t"$ ,t  P)tP=:@%P (d%t"$ ,t  P)tPB,:d%Pt"$ t dP H, )tP,9P (d%t"$ ,t  P)tP( t"$ t t@@%P (d%t"$ ,t  P)tP9P (d%t"$ ,t  P)tP=(@%P (d%t"$ ,t  P)tP9P (d%t"$ ,t  P)tP=(@%P (d%t"$ ,t  P)tPt"$ ,Qt%c% @%d% X %c% @%d% X %c% @%d% X %c% @%d% X H@%P d%t"$ ,t P)tPH@%P d%t"$ ,t P)tPAP d%t"$ ,t P)tP,t "$ tWT4t5Td%d% t "$ Qtd%d%d% AP d%t"$ ,t P)tP:P d%t"$ ,t QPt cd%! cd%" cd%# cd%$d%%(d%&fd%'d%( t"$ ,Qt%c% @%d% X %c% @%d% X %c% @%d% X &f% @%d% X H@%P d%t"$ ,t P)tPH@%P d%t"$ ,t P)tPAP d%t"$ ,t P)tP:P d%t"$ ,t QPt kd%)kd% cd%#kd%d%%(d%&fd%'d%( #fd%t"$ Dt,.t2:d %t"$ @tT  t5T9P (d%t"$ ,t  P)tP,t "$ tWT4t5Td%d% t "$ Qt|d%|*d%|+d%|,fd%|-(d%|.fd%|/ |5P t"$ ,t P)tPAP d%t"$ ,t P)tP1fd%t "$ tWT01t5T7t "$ tWT0W024xt6T0:d3%x4:d5%x6(d%x7fd%x8fd%x9fd%x:fd%x;fd%x/d%x<d%x=d%x> xAP d%t"$ ,t P)tP1fd%t "$ tWT01t5T7t "$ tWT0W024tt6T0:d3%t4:d5%t6(d%t7fd%t8fd%t9fd%t:fd%t;fd%t/d%t<d%t=d%t> t ot:P d%t"$ ,t QPpt cd%p! cd%p" cd%p#(d%pd%p%fd%p'd%p( p:P d%t"$ ,t QPlt(d%l)okd%l cd%l#okd%ld%l%fd%l'd%l( l9P (d%t"$ ,t  P)tP,t "$ tWT4ht5Td%hd%h h'fd%t "$ t/t'fd%t "$ t?t5d%t "$ tWT@=t5T2P (d%t"$ ,t QPdt(d%dA(d%dBfd%dCfd%dD d5P t"$ ,t  P)tP,t "$ tWT4`t5Td%`d%` `5d%t "$ tWT@=t5Tt"$ ,Qt\.c@%t d%\ tEtE:@F%t d%\ tWTGW0HIt6T0.c@%t d%\ tEtE:@J%t d%\ tWTGW0HIt6T0 \'fd%t "$ t1t,t "$ tWT24Xt5T:d3%X4:d5%X6(d %X7fd%X8fd%X9fd%X:fd%X;fd%X/d%X<d%X=d%X> XKP d%t"$ ,t PWTG)tP5T'fd%t "$ t1t,t "$ tWT24Tt5T:d3%T4:d5%T6(d %T7fd%T8fd%T9fd%T:fd%T;fd%T/d%T<d%T=d%T> T5P t"$ ,t P)tP'fd%t "$ t1t,t "$ tWT24Pt5T:d3%P4:d5%P6(d %P7fd%P8fd%P9fd%P:fd%P;fd%P/d%P<d%P=d%P> PKP d%t"$ ,t PWTG)tP5T1fd%t "$ tWT2Kt5TKP d%t"$ ,t PWTG)tP5T1fd%t "$ tWT2Kt5T:P d%t"$ ,t QPLtd%L% kd%L& L#fd%t"$ Dt,.tB(d%t"$ tTLPP0)tP5T4:dM%t"$ `tTt5T.t "$ tWTNOt5T.t'T%:dP%"$ tt5T00x`|xtplhd`\XTPLxhtP,,T0 p`P@0 k)xT6$03%(h%xH x$W %(X%TH TW%(D %H W(4%H W%(%H Wd(%H tWTD%@"$ @@W)xT@6$tdT 2:h%x"$ @x$  x5$5T x"$ ,x  Tu)xTKT h%x"$ ,x TW$ )xT5$:T '$%x"$ ,x  T)xT5$=:X%T (h%x"$ ,x  T)xT=(X%T (h%x"$ ,x  T)xT@X%T (h%x"$ ,x  T)xT9cD% X%h%x"$ ,x X xG kX%T h%x"$ ,x T)xTGkX%T h%x"$ ,x T)xTGkX%T h%x"$ ,x T)xTE(X%T h%x"$ ,x T)xT?.DX%T (h%x"$ ,x  T)xT=(X%T (h%x"$ ,x T)xT% x"$ ,x p x,T x"$ ,x QTx:h%,C:h%$[xxaTT,)xT6$C(h %$[xxaTT,h)xT6$ :T h%x"$ ,x QTx(h%W$5$ ch%:h %W$!"5$0:h%W$!#W$%6$ :T h%x"$ ,x QTx(h%W$5$ ch%:h&%W$!"5$0:h%W$!#W$%6$ :T h%x"$ ,x QTxW$(h]c5$\(h% 2T (h%x"$ ,x  QTx(h%W$5$h%W$'5$ #fh%x"$ Dx,.xB(h%x"$ x$(TT0)xT5$4:h)%x"$ `x$*x5$.x "$ xW$+,x5$.x'$%:h-%"$ xx5$ 8 dxT@$tdTD k9rU @`IayQ+++(=iplCate  %05 0* pHdBetterHistogram2007X@  =   WrE( J< 9stdole>stdole h%^*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\sys@tem32\e2.tlb#OLE Automation0MSForms>SFFrms/4| rG2833C4D6-4A72-43C1-A55B-272F203684 B7G4.TWD#Microso(ft > b Object Library:Qh0QB8D9DD26-0F3x#9I,?H@06 LLL*elect  B@  B@. %(N %t(x " ( ! "ReBetter Histogram9fRegular7!j(\ = Fal 7!j(lscriptnX   % F5"(j .O9 Data Value5(fhaRegular5%!j(\e n   % 5"(j= xl9 Frequency5(f =Regular5%!j(\ nxT''If frequencies are small, vertical axis may be in default steps of 0.5 or smaller.xlCate  %05 F9gn@ %(5"(j  *5r(jn H( $B@A:B$B@J !B@C1$(B@JB@l ;Attribute VB_Name = "Module3Chart2007" Option Explicit Sub (XStZ As Double,R "ep o _ NumBins*Long, Better SheetWo(rks )/  .Activate Range(Cells(2, 2),  l+ 1).SeXlech$e;.Shapes.Addq xlColumnClusMed, ^Es(4).Lef"tRowI).HTop!11" -.'101 >G y:Obj@CsD("=1")X  @8gend.DOA_ Axes(xlValue).MajorGridlin@U Series7c.New (2).s={1,2}@ AxisGroup 2GCC7SetElement (msoSecondaryC@goryShowBTypـxlXYScaHasO,)*Tru@[% .Minimuml*ax op%@UnitmECrossesAa04Prim4None4<JA1UPMark ty,-41N4K@Ns(@|GapWidth#cATitB c>W>iip#JaC.Tex$" Histogramb%A.ac s(@).FontS"RegularSiz!H1`End A2QdBorder!orIndex` ~1dNa1""Data 4egd?$!SdK`IB7Freque8ncy5i''`'If f are small, vertical @zs may be in default mps of 0.5 orc` OI^p^>< 1 Thenr 8= 0Q|emty51#InP-io$xl; 4Window.Visi'FalspUs9Uw"A:B q5sj.AutoF"Ctcp!31ataValues+OneCellXStartPXStepZ~XStopDataMing`DataMaxI_CommandButtonCancel_Click:CommandButtonOK_ClickRefEditDataRange ErroMsgBoxRSetFocusAreasKCount0v IsNumeric$*IsEmpty  TextBoxStarteValueK TextBoxStep TextBoxStopWorksheetFunction&MinMaxȲ(BetterHistogram]UserForm_Initialize5c Application*OperatingSystem[Height|LabelDataRangeTop5FontUSize FrameScaleo LabelStart2 LabelStep LabelStopiCommandButtonOKFCommandButtonCancel LabelUpdates Module1Main ToolsMenu`wCommandBarPopup  NewMenuItemCommandBarButton9 CommandBars  FindControl mId]ControlsKAddrmsoControlButtonnCaptionxOnActionDeletex(BetterHistogramDialogShow ProposedNameoSheet6T WorksheetProposedNameOKJWi` WorksheetsUCase5 ActiveWorkbookMove>yafterX ActiveSheet%N BetterSheetCells UpperLimit BinsArray/NumBinsG FreqArray; FormulaArrayΠCopyƿ PasteSpecialKPastexlValueso CutCopyModeValVersion (Chart20073 (Chart20033 Module2Chart2003W Histogram'' ChartObjectƹ ChartObjectsHColumnsp9RowsUChart? ChartWizardsSourceGGalleryxlColumn .PlotBy$ xlColumnshCategoryLabelshs SeriesLabelsth HasLegendBTitle~Activate| ChartFreqMax/ ChartFreqStepZ ActiveChart AxesbxlValue?@ABCDEFGInMNOdQRSTUVWXYH[\]^_`abcKefgijklmpqrstwxyz{|}~oCompObjpCompObj"aVBFrame:PROJECTwm$Root Entry FЏXӑDWorkbook(1_VBA_PROJECT_CUR"&#-WAb.WVBA -W@.WFҋB `EF04(Cancelq{uTahoma(OK{uTahoma( Data Ran n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q( Start Value:q5Tahoma( Step Value::q5Tahoma( Stop Value::q5TahomaH,5TahomaH,5TahomaH,5TahomaHH  } Histogram Horizontal Axism, 2<LabelStart>, 2<LabelStept, 2<LabelStopt( 4TextBoxStart ( 4TextBoxStept "( 4TextBoxStopt q ge:.q5TahomaH$5Tahoma4(#Check www.treeplan.com for updates.O5Tahoma;8CommandButtonCancel1074CommandButtonOK( #FrameScaleto"02<LabelDataRangeK>,8RefEditDataRange , 2Microsoft Excel@@I@hS՜.+,D՜.+, PXd lt| r1 Better Histogram  Worksheets 6> _PID_GUIDAN{ED78CFD0-C8EF-4A21-9975-9C58A8279946} FMicrosoft Excel WorksheetBiff8Excel.Sheet.89qCompObjf