Is it possible to measure/display the column width with a cell function?

[J]

Wednesday afternoon

Is it possible to measure/display the column width with a cell function?

I need to adjust some columns for a report.

But I cannot find a way to display the current width in units that I can then place in a VBA macro.

Would be very good to have the macro read the values entered in a set of columns and change the width accordingly.


(This is very easy in Quattro pro.)

J

[Bernd Plumhoff]

Have a look at ShowWidth at:
http://www.sulprobil.com/html/get_cell.html

HTH, Bernd
--
Use non-volatile INDEX(P11:IV65536,1+w,1+y):INDEX(P11:IV65536,w+y,x+z)
instead of volatile OFFSET(P11,w,x,y,z).

[J]

Thank you for the link.

'Tis helpful.

A little mode and the formula displays the current width in some unknown units.

Why does MS make it this difficult to use its products?

J


"Bernd Plumhoff" <BerndPlumhoff@discussions.microsoft.com> wrote in message
news:BD2C4A1E-57A1-4943-83B2-5D3E71AA32AF@microsoft.com...
Have a look at ShowWidth at:
http://www.sulprobil.com/html/get_cell.html

HTH, Bernd
--
Use non-volatile INDEX(P11:IV65536,1+w,1+y):INDEX(P11:IV65536,w+y,x+z)
instead of volatile OFFSET(P11,w,x,y,z).

[Bernd Plumhoff]

Hello again,

I think MS does *not* make it difficult :-)
Another approach:
Option Explicit

Const lbutiwant20 = 20

Sub getnsetwidth()
With Worksheets("Sheet1").Columns("A")
Call MsgBox("Width of column A: " & .ColumnWidth)
.ColumnWidth = lbutiwant20
End With
End Sub

HTH,
Bernd

[DNA]

I think it's merely what you get use to.