Comments on: Sizing Listbox Columns http://www.dailydoseofexcel.com/archives/2009/03/02/sizing-listbox-columns/ Daily posts of Excel tips…and other stuff Thu, 09 Feb 2012 23:42:03 +0000 hourly 1 http://wordpress.org/?v=3.2.1 By: Dick Kusleika http://www.dailydoseofexcel.com/archives/2009/03/02/sizing-listbox-columns/#comment-38307 Dick Kusleika Tue, 03 Mar 2009 20:34:00 +0000 http://www.dailydoseofexcel.com/?p=2182#comment-38307 <p>Nope, I didn't make it this year. Too many other commitments this Winter/Spring.</p> Nope, I didn’t make it this year. Too many other commitments this Winter/Spring.

]]> By: Harald Staff http://www.dailydoseofexcel.com/archives/2009/03/02/sizing-listbox-columns/#comment-38304 Harald Staff Tue, 03 Mar 2009 18:27:00 +0000 http://www.dailydoseofexcel.com/?p=2182#comment-38304 <p>You're not in Seattle this year ? Or are you blogging during the quiet Ballmer sessions ?</p> You’re not in Seattle this year ? Or are you blogging during the quiet Ballmer sessions ?

]]> By: Joprotus http://www.dailydoseofexcel.com/archives/2009/03/02/sizing-listbox-columns/#comment-38300 Joprotus Tue, 03 Mar 2009 14:07:00 +0000 http://www.dailydoseofexcel.com/?p=2182#comment-38300 <p>I like this trick, useful for my current project. Thanks for sharing.</p> I like this trick, useful for my current project. Thanks for sharing.

]]> By: Nigel Heffernan http://www.dailydoseofexcel.com/archives/2009/03/02/sizing-listbox-columns/#comment-38299 Nigel Heffernan Tue, 03 Mar 2009 08:10:00 +0000 http://www.dailydoseofexcel.com/?p=2182#comment-38299 <p>Nice! Using 'magic numbers' like len() x Font.Size x 1.2 has never really worked; it had never occurred to me that I could use a label's embedded ability to set it's own width.</p> Nice! Using ‘magic numbers’ like len() x Font.Size x 1.2 has never really worked; it had never occurred to me that I could use a label’s embedded ability to set it’s own width.

]]> By: Hans Schraven http://www.dailydoseofexcel.com/archives/2009/03/02/sizing-listbox-columns/#comment-38287 Hans Schraven Mon, 02 Mar 2009 18:20:00 +0000 http://www.dailydoseofexcel.com/?p=2182#comment-38287 <p>Why not using Excel ?</p> <div style="overflow: auto; white-space: nowrap;" class="codecolorer-container vb default"><div style="white-space: nowrap;" class="vb codecolorer"><span class="kw1">Private</span> <span class="kw1">Sub</span> UserForm_Initialize()<br>   sq = Sheets(1).UsedRange<br>   ListBox1.List = sq<br>     <br>   Sheets(1).UsedRange.Columns.AutoFit<br>   ListBox1.Width = Sheets(1).UsedRange.Columns(<span class="kw1">UBound</span>(sq, 2) + 1).Left * 1.2 + 3<br>   Application.Wait Now + TimeValue(<span class="st0">"00:00:01"</span>)<br>     <br>   ListBox1.ColumnCount = <span class="kw1">UBound</span>(sq, 2)<br>   <span class="kw1">For</span> <span class="kw1">Each</span> cl <span class="kw1">In</span> Sheets(1).UsedRange.Columns<br>     c0 = IIf(c0 = <span class="st0">""</span>, <span class="st0">""</span>, c0 & <span class="st0">";"</span>) & cl.Width * 1.2<br>   <span class="kw1">Next</span><br>   ListBox1.ColumnWidths = c0<br> <span class="kw1">End</span> <span class="kw1">Sub</span></div></div> Why not using Excel ?

Private Sub UserForm_Initialize()
  sq = Sheets(1).UsedRange
  ListBox1.List = sq
   
  Sheets(1).UsedRange.Columns.AutoFit
  ListBox1.Width = Sheets(1).UsedRange.Columns(UBound(sq, 2) + 1).Left * 1.2 + 3
  Application.Wait Now + TimeValue(“00:00:01″)
   
  ListBox1.ColumnCount = UBound(sq, 2)
  For Each cl In Sheets(1).UsedRange.Columns
    c0 = IIf(c0 = “”, “”, c0 &amp; “;”) &amp; cl.Width * 1.2
  Next
  ListBox1.ColumnWidths = c0
End Sub
]]>