Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Column Widths
Is there any way of being able to enter a number into a cell and that number
will represent the width of the column? For example, if I wanted the cell to be a width of 5, I enter that number into a cell in the column? I hope I've explained that correctly, if not I'll try again!! Any help will be much appreciated. Many thanks. |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Column Widths
Only with code in say a worksheet_change event, a little like this (Works on
Column A and a value in A1 (Little error checking contained) Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo err: If Not Application.Intersect(Target, Range("A1")) Is Nothing Then Application.EnableEvents = False Columns("A:A").ColumnWidth = Target.Value Application.EnableEvents = True End If err: Columns("A:A").ColumnWidth= 8.38 Application.EnableEvents = True End Sub -- HTH Nick Hodge Microsoft MVP - Excel Southampton, England www.nickhodge.co.uk HIS "Pricklyflower" wrote in message ... Is there any way of being able to enter a number into a cell and that number will represent the width of the column? For example, if I wanted the cell to be a width of 5, I enter that number into a cell in the column? I hope I've explained that correctly, if not I'll try again!! Any help will be much appreciated. Many thanks. |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Column Widths
Many thanks for this ... however I've never used code before - is this
something that I can do easily or is it best left to the experts? "Nick Hodge" wrote: Only with code in say a worksheet_change event, a little like this (Works on Column A and a value in A1 (Little error checking contained) Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo err: If Not Application.Intersect(Target, Range("A1")) Is Nothing Then Application.EnableEvents = False Columns("A:A").ColumnWidth = Target.Value Application.EnableEvents = True End If err: Columns("A:A").ColumnWidth= 8.38 Application.EnableEvents = True End Sub -- HTH Nick Hodge Microsoft MVP - Excel Southampton, England www.nickhodge.co.uk HIS "Pricklyflower" wrote in message ... Is there any way of being able to enter a number into a cell and that number will represent the width of the column? For example, if I wanted the cell to be a width of 5, I enter that number into a cell in the column? I hope I've explained that correctly, if not I'll try again!! Any help will be much appreciated. Many thanks. |
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
Column Widths
Many thanks Nick, I'll have a go at doing this tomorrow. Thanks ever so much
for all your help, much appreciated. "Nick Hodge" wrote: It's up to you, it will work unaltered and you could start on the learning process or employ someone to do it for you You can right-click on a sheet tab and select view code, enter the code I gave you in the resulting window and the code will run on that sheet -- HTH Nick Hodge Microsoft MVP - Excel Southampton, England www.nickhodge.co.uk HIS "Pricklyflower" wrote in message ... Many thanks for this ... however I've never used code before - is this something that I can do easily or is it best left to the experts? "Nick Hodge" wrote: Only with code in say a worksheet_change event, a little like this (Works on Column A and a value in A1 (Little error checking contained) Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo err: If Not Application.Intersect(Target, Range("A1")) Is Nothing Then Application.EnableEvents = False Columns("A:A").ColumnWidth = Target.Value Application.EnableEvents = True End If err: Columns("A:A").ColumnWidth= 8.38 Application.EnableEvents = True End Sub -- HTH Nick Hodge Microsoft MVP - Excel Southampton, England www.nickhodge.co.uk HIS "Pricklyflower" wrote in message ... Is there any way of being able to enter a number into a cell and that number will represent the width of the column? For example, if I wanted the cell to be a width of 5, I enter that number into a cell in the column? I hope I've explained that correctly, if not I'll try again!! Any help will be much appreciated. Many thanks. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Copying formats - column widths, formats, outlining to worksheets | Excel Worksheet Functions | |||
Need to Improve Code Copying/Pasting Between Workbooks | Excel Discussion (Misc queries) | |||
Varying Column Widths for Text Import | Excel Discussion (Misc queries) | |||
IF/AND/OR/DATEIF Issue...sorry...long post... | Excel Worksheet Functions | |||
creating a bar graph | Excel Discussion (Misc queries) |