ࡱ> ,8RefEditDataRange , 2TLabelUpdates   Microsoft Forms 2.0 FormEmbedded Object9q;d>?@VERSION 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 ThisWorkbookThisWorkbookSheet1Sheet1UserFormBetterHistogramUserFormBetterHistogramModule1MainModule1MainModule2AddXYModule2AddXYECT_CURID="{6146FB48-5807-47C3-8100-D0FABE0BF204}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=UserFormBetterHistogram Mo  !"#$%&'()*+,-/01234578:;<=>?@ABCDEFGHIJKLMNOPQRSUVWZ[\^_`abcdefghijklmnopqrstuvwxyz{|}~ \pMichael R Middleton Ba= ThisWorkbook=Z[;#8X@"1Arial1Arial1Arial1Arial"$"#,##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\);_(* "-"??_);_(@_)                + ) , *  # `< Better Histogram$ bins_array;$ data_array;" twobytwo;U!SX Sheet_Titlerea :A8w OXXDCt!0 zQX & TQX Н0& $pHX &KXи_ip0OXOX8|||D4_&ZPXT0dt00 __Demzm00 E000߿0PXt0twobytwoaycent0]%USERPrFIPr%\pHX80\40{T0T00Te0Tբ0T|?10|)@kT0e0{T0L0{T0LkT0»Ȼ0 $0TY!hVڬp08ם0p004pHX(QX^ pHX(QXS]0pHXUXTQX%0cc   .  dMbP?_*+%"??kUT0>@ Sheet1 rU R%R4%ThisWorkbook __SRP_b.__SRP_a6Sheet19I%` ` 1  ? <   $ <   $ 44S<< <$<(rU @$ `h() `l i#p`xk@`Xo__ ` khhk"*84x4@b.`88@Pb0<<@Pb4DD@pb6LL@b:\\@8H`(hp@@@PROJECTwm!PROJECT"PROJECTlkSummaryInformation($x Xh(B,*DF.2N@px @@h  @XX @H D@D |!@@ @(0 @ @O XL@@ XP0R4V6X8@ @ $@ Z:<`(t|@ h@~(B@x Z@t p`t$m!@` \`d$0pXX(`$$xx@jXU\}@G.'XZRBg i}^;H{I A#T57I]\ĬA]xrT57I]\ĬA]jXU\}@G.'XZjjB5 lptx|SPSSS8,>" L*LL*LL L*L*L*L<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<0{0DDAB005-765C-4BE0-B46A-EAFE58ADC786}{71B21487-4AC8-4E7A-8506-381018AFC50A}B *\R1*#15d$*\Rffff*1442f980c7*\R0*#1b*\R0*#1aH*\G{ACF973E1-D588-44B3-BD1A-558AF191D52E}#1.0#0#..\..\..\Documents and Settings\Michael R Middleton\Application Data\Microsoft\Forms\RefEdit.exd#Ref Edit Control*#2H*\G{ACF973E1-D588-44B3-BD1A-558AF191D52E}#1.0#0#..\..\..\Documents and Settings\Michael R Middleton\Application Data\Microsoft\Forms\RefEdit.exd#Ref Edit Control*#0*\R1*#20b*\R1*#b8*\R0*#10*\R0*#16*\R0*#11*\R1*#16f*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\WINDOWS\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#55*\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#..\..\..\WINDOWS\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26*\R1*#15c$*\Rffff*1542f980c7*\R1*#208*\R1*#a7*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\WINDOWS\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#51*\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*#4*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#..\..\..\WINDOWS\System32\FM20.DLL#Microsoft Forms 2.0 Object Library*#4*\G{AC2DE821-36A2-11CF-8053H Dp`t$X@`d$PRVX <`d$ 0 8 `d$P ` 4H `D$ 0  0x `D$ `  , `D$  ( `|$  $ `|$@  8 `d$ ( H0Px@ME  (@ "P Xh "p xD $"+  0 :+ Xhp x^ >+      +((+@ 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`ZZZH (A@tl B!f$,.* DData Range is not valid.A@F$ BB@Huh *!J!L'. . D`/Data Range must be a contiguous range of cells.A@F BB@Huh 2 * 2$N 2$PodeWWW4All cells in Data Range must contain numeric values.A@FtW BB@Huh 2yDownW *!L'0KeyC R!f$NyPressStart Value must be a number.A@F RB@H-Layouhx R!T'4 V!f$NStep Value must be a number.A@F VB@HmoveCouh V!T%Step Value must be greater than zero.A@F VB@HWWuh V!T'6T X!f$NTActuStop Value must be a number.A@FtW XB@HNInitu@h8 X!T'8 8 4yClo)Start Value must be less than Stop Value.A@F|7 RB@H74uh 4 6  8 4LEnter Start, Step, and Stop Values so that there are at least two intervals.A@Fh RB@H0 u0h( * Z%\':!%x : 4 OStart Value of histogram must be less than or equal to the minimum data value, :.A@F RB@H Duhx * Z%^'< %x < 8 ,QStop Value of histogram must be greater than or equal to the maximum data value, <.A@FH%x XB@H(` uh * 0 : < 4 6 8A`$ (A@tdl.''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.X ~!*Win* (J9J95 9Z999 Lucida Grande5( 4 5( n5B99 99 Lucida Grande5(ncy 5(!np59:9699 Lucida Grande5(r9 5(n59Z999 Lucida Grande5(<! 5((n59Z9F99 Lucida Grande5(9 5(nP59Z9s99 Lucida Grande5( ! 5(Arian5R|9999 Lucida Grande5(9 5(9n5V|99A99 Lucida Grande5( ! 5(n05X|99n99 Lucida Grande5( 5(B@n59d999 Lucida Grande5(B@ 5(B@np59d999 Lucida Grande5(J 5(n5 9"999 Lucida Grande5( 5(nnhlǶAttribute VB_Name = "UserFormBetterHistogram" Bas0{0DDAB005-765C-4BE0-B46A-EAFE58ADC786}{71B21487-4AC8-4E7A-8506-381018AFC50A} dCreatabliFalse PredeclaIdTru "Expose@Templat@eDerivC"umizDOp tion 0licit Dim Rang`e As  N(umAgs LoPng, DoV0alue On eCell !XStart DouI, ep o&2Min lax/PAC Sub CommandButtonCancel_C:k() Unload; End,OKCOTrror ResuNex@VSetV=V(RefEdit3Z.T D(If Err <> 0 ThenCMsgBox "  is not valid. !`FocusG,G oTo 0Ex8it SCDIfWC=G6..pCoun>1 > 12m be a contiguous rof rlsl8@ Each V|In'ca)!`,I&snc() Or IsEmptygK66A c Zh8aanGric!:k A :{)8A8SE{;:CN"W`S"}Y>cb '>ber WW;= *c ]ep<` d kl, I <=VStger than` zero+ eG&c+ M{WDo+@DxSt!   s kXX,e lessS  `. < (t @+ (2 *#u)x) > E*n B ,`ep<, rr s so t@erX%1t 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,($ txHpK A  `  I`1I AG__SRP_4YModule1MainMz*__SRP_7] __SRP_6MEd @ @H 6 H "   b( H:+X$L        ( "08Bt@ "!  "    8$@APpx  z $   &8 (:8X ` p  >2 $882@x .  ( >8 H@  2p GG  x:''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 codingA''with subsequent testing on later versions of Win and Mac Excel.Z@Z`A 7up$l%n.d d0/Cannot add Better Histogram item to Tools menu.A@F$,u`aX vn d!r%t.hA@F hBetter &Histogram9xBetterHistogramDialog9|nhl Better &Histogram7up$l%n%rB@ 2lp (!BB@H (B@4rU 0 &8  S!iQ  91YQQ I #iG HyHAIiIH ASiSSSSl ipa I `qtI q x  |I  I I ! A  `  I`1I AG i ii?\( "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 ,All l@ontainZ0Hs.ZhH'\  'Better Histogram ''  ar $ !$F'rhx R!T   !!tB@Step  (be aZ .VB@H Upper Limit %(TZbe g 4 6 'ro  %(T'  8 _T  '  6 'op    %(TH '8$  $ %,.)Star bins_array (ha Frequency %(T74Z$  $ %,.Start, data_array *( s!=frequency(data_array,bins_array) (h B@0   B@* Z ~(!%x8''Histogram in columns D (4) thry J (10), rows 2 thru 19 oZ( - %! %! %! %!  %! x4 T PL# (Lf Lj8, (> LLLLL"LLLLLL <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<B *\R1*#15d$*\Rffff*1542f980c7*\R4*#4d*\R4*#4c*\R1*#20a*\R1*#1bf*\R1*#20b*\R1*#b8*\R4*#48*\R4*#49*\R4*#4b*\R0*#11*\R4*#30*\R4*#4a$*\Rffff*1442f980c7H*\G{ACF973E1-D588-44B3-BD1A-558AF191D52E}#1.0#0#..\..\..\Documents and Settings\Michael R Middleton\Application Data\Microsoft\Forms\RefEdit.exd#Ref Edit Control*#2H*\G{ACF973E1-D588-44B3-BD1A-558AF191D52E}#1.0#0#..\..\..\Documents and Settings\Michael R Middleton\Application Data\Microsoft\Forms\RefEdit.exd#Ref Edit Control*#0*\R1*#ac*\R1*#b4*\R0*#c*\R1*#20c*\R1*#c1*\R1*#3f*\R1*#208*\R1*#a7*\R1*#b*\R1*#10*\R1*#ab*\R1*#17*\R1*#209$*\Rffff*1642f980c7 `kX dxX$ h@txa$  `o `Xxk!H 14 ``(lkH>>&)* hp$i0i:i<i4i6 i8$`x t` $`r `p H $` $`  $ @$`t`hl $`hp lFv !@p (@` @H\ 4@L :@< @@, F@0 @ R@ X``$hfPh8lX\@x @h @d @(T @D @4 @$ @@ lQ@ f(@ Kr@ &L(YaiTiR*@x b$0(`pHHx `   ( @l f(~3@ h eq@8 d uIP  0d)L@`O uI 8 0d)L@H P uI@ @ j+@ 0 g(@ Em@0  *L8 5ahl@ &L@  )^@  )7@ X@@` @x q,@ [,@ cB@ f[@ ]w@( t =T@@ d < @ ` gi@0 P lf@X @ =i@p 0 O9@ f(@  P@ s@ @ '@  @ D :@H @`  @x @ @| P%! !%t.must (4$  $ %,    Better Histogram !B@Chart 1 %B@.''ZH`od : %<!h'g : %<!j'ls 4 6 8  Ax werel*Attribute 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]\O!&D= 4,+mej2 =%Do While A -j(C/B/0).0F.b SWizard Sourc'x?0s(:02)pG`ery , Q$at:=A(PlotBsCpgoryL abelsSeries0, HasLnn2!Titl ՎVO(PCK\(" 1").RY@e#+MvSt~ ^B.AxHes(.).imumScalpufyjorUn30XY(\,\b&v@/ Q 8 SI9Y"Q""#### $a$ ,9,y,22 , 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@p o$d kp o t>ok%kDP%(%h h@h5@m$(P%(%h"$ Xh@kD%(% "$ X 00%@% Q)h 6@0:P%,n8:%(P%(%h h@h5@(P%(%h"$ Xh@kD%(% "$ X 00%@% Q)h 6@0:P%H ,n:P %,J 'P% ( h"$ h !h(P%h h@W"%(%   0W#%( %  W"(% W"%(t% dW0#(P%` `@W #% '%-w $%)h `6@0 d@0 (P%(%h"$ Xh@kD%(% "$ X 00%@%  '%'%'%:|&%f%(%(%%(P%t%Qo%a ' ')h 6@0 2:P(%h"$ @h@)*h5@G P%h"$ ,h ' W@+Btt)h 5@G P%h"$ ,h ' W@,Btl)h 5@ltl$l l - <Db,d`xtllh `@0 d@0 \rU $`$`$`qL` !9Q=(+++++prU < `!9QAi+++++pQR-#y&&-Module2AddXYk-__SRP_9__SRP_8_VBA_PROJECTY$n.Paste Rowcol:=xlColumns, SeriesLabels:=False, CategoryLabels:=True, Replace:=False, NewSeries:=True.''To handle negative data values, Aug. 9, 2005 !"B@(={1,2} %"(={1,2} %"(Chart ~%l(* %"B@J ~( . %"(, %"B@J %"(0 %"B@J   %"(0  4 6;2 4 8;2 : 6;2 : 8;2nX @ 4 6 %<(> @ 4 8 %<(> 4 8 %<B@J !BQ! F9D J9Hn  J9L J9N J9Pn : 8 %<B@J : 8 %<9R9T9V9X \9Z9^9` d9bn8  4 6;2 4 8;2 : 6;2 : 8;2n @ 4 6 %<(> @ 4 8 %<(> 4 %<B@J 4 %< 49f 89h9V 69j \9Z9^9` d9bn0 l(*Chart 1 %B@ %"B@J !B( F9D J9Hn  @9p @9r J9t9v9x9zn ! B@J 4 %<B@J !|(~ !|!Arial9Regular9999999z 9 @9 @9n : %<B@J !|(~ !|!Arial9Regular9999999z 9 @9 @9n  F'g : %<9R9T9V9j @9Z9` d9bn : %<9f 9h9V 9j @9Z9` d9bnP %"B@J !B 9D @9Hn (z ( J !( %9999n !B@J !B 9D J9Hn` J !(  4 67<( Data Value 4 67<!!(f : 67<( Frequency : 67<!!(fn (~ !Arial9Regular9 999999z 9 @9 @9n0 4 %<!B@J (~ !Arial9Regular9 999999z 9 @9 @9n !B@J (~ !Arial9Regular9 999999z 9 @9 @9n : %<!B@J !( 4 %<!B@J !(.''To handle negative data values, Aug. 9, 2005 4 %< \9Z 49^n0 l(*$nB@A:B$B@J !B@C1$,B@JlAttribute VB_Name = "Module2AddXY" Sub ,(XStart As Double, Dep Bo _ ChrFreqMax 1 #X@6 L*LLLL<\<`t@A(""TypxlXYS@terU,AxisGroup1 (1Kdy= a 2 With :.Has ([dV, xlPrimz) #SaS@nd="D #t E`Cc"Axes.s*b= inimum zleIsA>?p -z?=UnitO .CrossesbCus'h *A0xR~rsePlotO}xMr F-q aK@"@:&w-P F0IϿqI_%veW7M<@0oryϋte]-L!.8*CH#,op,0@,e_,_, ._, _,8ale_,/veWindow.߃Boot-EϑŢZZc .Z!`!ZerBackg nd0orIndexxl(#Fore/b/aLrker/e @ .Smoo=SizPha0 ;h 7^ > wtvis.aRFonV{.H%Arial!.q"RegulaVr8SkethPgh"Superscrip b8Out1 .Ssr.U@$@xlb O'o.*L&o=[__g_le_kdLabels.F@ont .Name = "Arial"`StyltRegular >Siz48dStrikethroughAFalse >uperscrip tbOutline9hadowUnder38xlkNonMColorIxAutomatic_BackgmndE 0WithIf ChartFreqStep < 1 Then = 1 # Active.Axes(xlValue).MinimumSca0leIsYLTr"u lMaxin@orUnitj* CrosHses@xlLRev@|ePlotK` SsIn`DtIfNegnv@hDtor.LuyCe"3G@vps@ O@laplCGap0WidtAIFHas*a]MXVaryByCateg~o/ H"4bArea3H3#i"2In*!(Dy, xlPr$im !).&Tit"njAxis%.6acs.TexP"Data i ?VuencyU*abv/ln)J"1 VxSux0.xwf>s.xRyx =Oe .xoz6%+)`u'SFGOO—Sy .D_ 0_%LA3_5]BQmq//1;3#2Sp 8?885882w8Plul=eu?< '''To handlnEdhvs, Aug. 9, 2005@HyCus@AQoXStÏ03Win.Visib2w{. 0umns("A:B."ˡ'D.4FiNRange("dC1h F With Excel+ VBAWin16~Win32Mac VBAProjectstdole`MSFormsCOfficeu RefEdit ThisWorkbook| _Evaluate Workbook_Open(CreateMenuItemWorkbook_BeforeCloseCancel(DeleteMenuItem,g Sheet1Sheet2Sheet3 UserFormBetterHistogramn UserRange}Range NumAreas NumDataValues+OneCellXStartPXStepZ~XStopDataMing`DataMaxI_CommandButtonCancel_Click:CommandButtonOK_ClickRefEditDataRange ErroMsgBoxRSetFocusAreasKCount0v IsNumeric$*IsEmpty  TextBoxStarteValueK TextBoxStep TextBoxStopWorksheetFunction&MinMaxȲ(BetterHistogram]Module1b ToolsMenu`wCommandBarPopup  NewMenuItemCommandBarButton9 CommandBars  FindControl mId]ControlsKAddrmsoControlButtonnCaptionx ShortcutTextފOnAction Applicatdule=Module1Main Module=Module2AddXY HelpFile="" Name="VBAProject" HelpContextID="0" CMG="FCFE4341C339C739C739C739C7" DPB="F8FA47B848B848B8" GC="F4F64B49BB44BC44BCBB" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=88, 116, 760, 594, Sheet1=132, 174, 703, 622, UserFormBetterHistogram=0, 0, 0, 0, C, 154, 203, 787, 681, C Module1Main=0, 0, 633, 478, Z Module2AddXY=0, 0, 0, 0, C rU~}  K ,!9,y,a$-Q)RQR-#y&&-!.Q..../A// 0Y00 1Q1111A2q222 44415Y555516Q69y666697q777/ 8A88889a999!:Q:::3QAqAAA;h2:h%x"$ @xXx5X:T 'X%x"$ ,x T)xT5X=:D%T (h%x"$ ,x T )xT=:D%T (h%x"$ ,x T )xTB@:h %Tx"$ x d T H @ )xT@9T (h%x"$ ,x T)xT( x"$ x  x@D%T (h%x"$ ,x T)xT9T (h%x"$ ,x T)xT=(D%T (h%x"$ ,x T)xT9T (h%x"$ ,x T)xT=(D%T (h%x"$ ,x T)xTx"$ ,Qx<%c,% D%h%< X%c,% D%h%< X%c,% D%h%< X%c,% D%h%< X <HD%T h%x"$ ,x T)xTHD%T h%x"$ ,x T)xTAT h%x"$ ,x T)xT,x "$ xWX4(x5Xh%(h%( (x "$ Qx$h%$h%$h%$ $AT h%x"$ ,x T)xT:T h%x"$ ,x QT x ch%  ch%  ch%  ch% h% (h% fh% h% x"$ ,Qx%c,% D%h% X%c,% D%h% X%c,% D%h% X&f,% D%h% X HD%T h%x"$ ,x T)xTHD%T h%x"$ ,x T)xTAT h%x"$ ,x T)xT:T h%x"$ ,x QTx kh%!kh%" ch%kh%#h%(h%fh%h% #fh%x"$ Dx,.x2:h%x"$ @xXx5X9T (h%x"$ ,x T)xT,x "$ xWX4x5Xh%h% x "$ Qxh%$h%%h%&fh%'(h%(fh%) 5T x"$ ,x T)xTAT h%x"$ ,x T)xT1fh%x "$ xWX*+x5X7x "$ xWX*W,4x6X:h-%.:h/%0(h%1fh%2fh%3fh%4fh%5fh%)h%6h%7h%8 AT h%x"$ ,x T)xT1fh%x "$ xWX*+x5X7x "$ xWX*W,4x6X:h-%.:h/%0(h%1fh%2fh%3fh%4fh%5fh%)h%6h%7h%8  :T h%x"$ ,x QTx ch% ch% ch%(h%#h%fh%h% :T h%x"$ ,x QTx(h%!kh%" ch%kh%#h%fh%h% 9T (h%x"$ ,x T)xT,x "$ xWX4x5Xh%h% 'fh%x "$ x)x'fh%x "$ x9x5h%x "$ xWX:7x5X2T (h%x"$ ,x QTx(h%;(h%<fh%=fh%> 5T x"$ ,x T)xT,x "$ xWX4x5Xh%h% 5h%x "$ xWX:7x5Xx"$ ,Qx.cD%x h% x?xE:D@%x h% xWXAWBCx6X.cD%x h% x?xE:DD%x h% xWXAWBCx6X 'fh%x "$ x+x,x "$ xWX,4x5X:h-%.:h/%0(h %1fh%2fh%3fh%4fh%5fh%)h%6h%7h%8 KT h%x"$ ,x TWXA)xT5X'fh%x "$ x+x,x "$ xWX,4x5X:h-%.:h/%0(h %1fh%2fh%3fh%4fh%5fh%)h%6h%7h%8 5T x"$ ,x T)xT'fh%x "$ x+x,x "$ xWX,4x5X:h-%.:h/%0(h %1fh%2fh%3fh%4fh%5fh%)h%6h%7h%8 KT h%x"$ ,x TWXA)xT5X1fh%x "$ xWX,Ex5XKT h%x"$ ,x TWXA)xT5X1fh%x "$ xWX,Ex5X:T h%x"$ ,x QTxh% kh% #fh%x"$ Dx,.xB(h%x"$ xXFTT0)xT5X4:hG%x"$ `xXx5X.x "$ xWXHIx5X.x'X%:hJ%"$ xx5Xht \<($  xT@Xkion* MacroOptions^MacrocHasShortcutKey! ShortcutKey$Deletex(BetterHistogramDialogShow ProposedNameoSheet6T WorksheetProposedNameOKJWi` WorksheetsUCase5 ActiveWorkbookMove>yafterX ActiveSheet%N BetterSheetCellsWorkbookk BeforeClose~;ItemzUserFormNLabelDataRange FrameScaleo LabelStart2 LabelStep LabelStopiCommandButtonCancelCommandButtonOKFLabel1,ClickNumber- _B_var_UCasea_Defaultj _B_var_Loop _B_var_Do UpperLimit_B_var_UpperLimit H bins_arrayHNumBinsGSheet4 _B_var_Set freq_array| BinsArray/ FreqArray; FormulaArrayΠCopyƿ PasteSpecialKPastexlValuesoSheet5 CutCopyModexlfalseY7 Histogram'' chartopject ChartObjectƹ ChartObjectsHColumnsp9RowsUTop5Chart? ChartWizardsSourceGGalleryxlColumn .PlotBy$ xlColumnshCategoryLabelshs SeriesLabelsth HasLegendBTitle~Sheet6Sheet7Module2cMacro1N SelectionZActivate| ActiveChart  ChartAreaSeriesCollection;:RowcolReplacef NewSeriesVisible ChartType? xlXYScatter) AxisGroupgHasAxis5 xlCategoryZ xlPrimaryu xlSecondary6xlValuestdole h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\syst em32\e2.tlb#OLE Automation`MSForms>SFFrms/| rG3A488C3D-AD69-40C2-8A7B-113605292F6EGSG4.TWD#MicrosPoft > b Ob Library:0 @2497D04E-D7D7-46F4-8F5E-4F921CC6E61@DOCUME~1@\MICHAL OCALSTemp\VBE\%exd&%.E .`0M uOfficuOf@icu01DF81C-5BFA-101B-BDE5uAAt42R@gram Files\GNExcel 9 7\C2O97.DLL2 8.0WCRefEditCR+fEEi/-.E272977 3-B3E@B05-8B6D-DB6E4C29D@FD7}#1ptro.f .%5 2003\OFFICE11\"B A% Control 0 @s09A7@CAE2-A@-4144AF-355F0A8C9FD4#EASE@F?zzzhEzThisWorkbookQ.2@TiE~Wkbok`H1"," %y"" +Sheet1h2bS eMt1 @) W  UserBette rHistM12.!erFBbtra t`g aB5#(  Module1Main 2! dub1M ain0#L#T ! '#2AddXY=)E=Mh2A~dPXYA`rU~~~~~~~~~~~~~~~~_    H 14   UserRange NumDataValuesDataMinDataMaxXStartXStepXStop  a ( I )Start Value must be less than Stop Value.( LEnter Start, Step, and Stop Values so that there are at least two intervals.) OStart Value of histogram must be less than or equal to the minimum data value,  .* QStop Value of histogram must be greater than or equal to the maximum data value, #=h8+3qaG?,2qLa Better Histogram I FFMoveafterName Upper LimitValue Frequency .Here's where the BetterHistogram code will be.Sheet2Mv;Xw ſ@ -Sheet3CUBvIZ҃` J\`NFSheet42˭bCIƄlaiͥLGʴ:fR bins_array data_array !=frequency(data_array,bins_array)Sheet5(PƒO)cBL,Gyި!FLeftTopAdd Better HistogramFSheet6kfeJ7Fr呀lJ+]IIQ6n2ASheet7Y}Mw| 4-_ȅ,JJbUcKwvKǟuk4FP\Ea&DFWorkbook Workbook_OpenWorkbook_BeforeClose F F  F 8Cannot add Better Histogram menu item. Use Ctrl+Shift+H. Better &Histogram F Ctrl+Shift+H BetterHistogramDialog HControlsDeletefGMĨJ[אd_I-F@P H -I0eD0@@)@. A2:B3Copy Chart 1 ChartObjectsActivatePasteRowcol SeriesLabelsCategoryLabelsReplace NewSeries ChartSelect ChartType AxisGroup CategoryTypeBorderWeight LineStyle MajorTickMark MinorTickMark ColorIndex TickLabelPosition MinimumScaleIsAuto MaximumScaleIsAutoMinorUnitIsAutoMajorUnitIsAutoCrosses CrossesAt ReversePlotOrder ScaleType MinimumScale MaximumScale MajorUnit better_20041112_2040.xlsF H27 QWWOxx_MarkerBackgroundColorIndexMarkerForegroundColorIndex MarkerStyleSmooth MarkerSizeShadow TickLabels AutoScaleFontFont Arial Regular FontStyleSize Strikethrough Superscript Subscript OutlineFont Underline Background InvertIfNegativeInteriorOverlapGapWidthHasSeriesLines VaryByCategoriesHasTitle Data Value AxisTitle CharactersK)^0rU ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  9buZZE'J M  a &A&a a  IQNa    A i Na h AEN  JK  ThisWorkbookSheet1UserFormBetterHistogramModule1 VBAProjectF=C:\Program Files\Common Files\Microsoft Shared\VBA\VBA332.dllVBA Y  PF +C:\Program Files\Excel 97\Office\EXCEL8.OLBExcel q`0FC:\WINDOWS\system32\stdole2.tlbstdole ip=H:i@{6)/nC:\WINDOWS\System32\MSForms.TWDMSForms aA.E .`M XQ.E֕t}57 2C:\DOCUME~1\MICHAE~1\LOCALS~1\Temp\VBE\MSForms.exd iAL-[DR4C:\Program Files\Microsoft Excel 97\Office\MSO97.DLLOffice YsrKmnL) TextBoxStop!-6S`  F?C:\program files\Microsoft Office Pro 2003\OFFICE11\RefEdit.TWDRefEdit i  EFyzv`0OP1J5 2C:\DOCUME~1\MICHAE~1\LOCALS~1\Temp\VBE\RefEdit.exd )  Q CreateMenuItemDeleteMenuItemBetterHistogramDialogBetterHistogramFF  szF qR/HS 6F21+~vLdmi7}8C^S;y7:DjIm_?ҋB ` ȏ[qJ eUserForm!O6oD F3Dynamic  "-?@LabelDataRange?F` FrameScale LabelStart LabelStep LabelStopRefEditDataRangesճDU. q0{lFWJOCommandButtonCancelCommandButtonOKLabel1 TextBoxStart TextBoxStep FCommandButtonCancel_ClickCommandButtonOK_Click 4@F;(AP+\: F;? /@4gDF Worksheet @FhF VBA332.DLL I xfĤIx8< IS  Data Range is not valid.`F /Data Range must be a contiguous range of cells. I1  I.  4All cells in Data Range must contain numeric values.ҋB ` Start Value must be a number.ƏYl| Step Value must be a number.F Stop Value must be a number.Text BoldBold Stop Recording C1 Sheet1GE/wiF>Nvc A:A Better Histogram 2 L:L L98TE:1wҼCJ`C@FJ]PY)}MhXMSheet8GMppMte#]HYZMfo+R!Sheet90Oq6>ML%M#HG Fy[-&r(Macro2YaF|H@TSheet10ك2kLAuLX Kcvj**JM#FSheet11?*x^2L8RGeNlLH=KuWGD$vLDNs{Sheet12PL,uA<{\ ChartFreqMax = Sheet13TBn5M|rZC>XPH4Sheet14^$'@Uz$Inu8EJ{u A:BColumnsAutoFitSheet15* FȞ76=6߅{"R>IySheet16]nMq 3GK( !before activewindow.visible false after activewindow.visible falseSheet17IW_gIFA?I p%fSheet18|(AҢB1C0VLC K5SLxbVy QA|aTjXU\}@G.'XZRBg i}^;H{I A#T57I]\ĬA]%%BY_I S  X A iMBˁm JDeGj8 H  X h Qx %Cancel *a  0Macro recorded 11/13/2004 by Michael R Middleton 14MaxFreq ChartFreqMax ChartFreqStep Da  Fa  QMa  M  Pa  Ta sEFOh+'0 `h8T l x Better HistogrameBetter HistogrameMichael R MiddletonsCreates a frequency distribution from worksheet data and a histogram chart with a properly labeled horizontal axisMichael R MiddletonMicrosoft Excel@@I@iHZj@o}@8KE՜.+,D՜.+, PXd lt| r1 Better Histogram  Worksheets 6> _PID_GUIDAN{8F3A857D-EABC-4C54-80E5-3023E94E3F85}fo4i06 n`` 1c 1cf|| ~  <] )"#$%&'(*+,-./0123456789;d>?@KBCDEFGHIJ:LXNOPQRSTUVW=YZ[\^_`abcfghijwlmnopqrstuvexyz{}oPCompObjpCompObjaVBFrame:Root Entry F`zc>Workbook%r _VBA_PROJECT_CUR"# 0ch2cVBA 0c 1c$H @o}@8KEFҋ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 AxisT, 2<LabelStart>, 2<LabelStept, 2<LabelStopt( 4TextBoxStart ( 4TextBoxStept "( 4TextBoxStopt q ge:.q5TahomaH$5Tahoma4(#Check www.treeplan.com for updates.5Tahoma;8CommandButtonCancel1074CommandButtonOK( #FrameScaleto"02<LabelDataRangeK>DocumentSummaryInformation8CompObjf FMicrosoft Excel WorksheetBiff8Excel.Sheet.89q