Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Adjust row heights of non-contiguous rows.
Hello all:
Looking to adjust row heights of a 185 row w/sheet. First I use: Rows("4:184").RowHeight = 12.75 I expect this should work quickly and efficiently. I don't quite know what to do with the "exceptions" rows. I could use: Rows("6:6, 9:9, 14:14, 18:18, 24:24, 30:30, ETC......").RowHeight = 3.75 But there are over 30 rows that need to be referenced. The double row references become cumbersome and don't really add to the clarify of the code. I'd like to use something like: SRow = Short Rows Short Rows = (6, 9, 14, 18, 24, 30, etc........) Then: SRow.Row Height = 3.75. If something like this can be done, I think it would be "easier" to read and also to adjust, if and as required. Thanks |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Adjust row heights of non-contiguous rows.
Is it always the same rows that are 3.75 or 12.75 in height or does it vary?
If it varies, what determines if it is a Short Row or not? Kinda need that inorder to help you out. -- Cheers, Ryan "BEEJAY" wrote: Hello all: Looking to adjust row heights of a 185 row w/sheet. First I use: Rows("4:184").RowHeight = 12.75 I expect this should work quickly and efficiently. I don't quite know what to do with the "exceptions" rows. I could use: Rows("6:6, 9:9, 14:14, 18:18, 24:24, 30:30, ETC......").RowHeight = 3.75 But there are over 30 rows that need to be referenced. The double row references become cumbersome and don't really add to the clarify of the code. I'd like to use something like: SRow = Short Rows Short Rows = (6, 9, 14, 18, 24, 30, etc........) Then: SRow.Row Height = 3.75. If something like this can be done, I think it would be "easier" to read and also to adjust, if and as required. Thanks |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Adjust row heights of non-contiguous rows.
Try the below
Dim rngTemp As Range Set rngTemp = Range("A6,A9,A14,A18,A24,A30") rngTemp.RowHeight = 8 -- Jacob "BEEJAY" wrote: Hello all: Looking to adjust row heights of a 185 row w/sheet. First I use: Rows("4:184").RowHeight = 12.75 I expect this should work quickly and efficiently. I don't quite know what to do with the "exceptions" rows. I could use: Rows("6:6, 9:9, 14:14, 18:18, 24:24, 30:30, ETC......").RowHeight = 3.75 But there are over 30 rows that need to be referenced. The double row references become cumbersome and don't really add to the clarify of the code. I'd like to use something like: SRow = Short Rows Short Rows = (6, 9, 14, 18, 24, 30, etc........) Then: SRow.Row Height = 3.75. If something like this can be done, I think it would be "easier" to read and also to adjust, if and as required. Thanks |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Adjust row heights of non-contiguous rows.
You could do what you want this way...
Sub AdjustRowHeights() Dim V As Variant, ShortRows As Variant ShortRows = Array(6, 9, 14, 18, 24, 30) Rows("4:184").RowHeight = 12.75 For Each V In ShortRows Rows(V).RowHeight = 3.75 Next End Sub Just put your list of rows in the Array function call. -- Rick (MVP - Excel) "BEEJAY" wrote in message ... Hello all: Looking to adjust row heights of a 185 row w/sheet. First I use: Rows("4:184").RowHeight = 12.75 I expect this should work quickly and efficiently. I don't quite know what to do with the "exceptions" rows. I could use: Rows("6:6, 9:9, 14:14, 18:18, 24:24, 30:30, ETC......").RowHeight = 3.75 But there are over 30 rows that need to be referenced. The double row references become cumbersome and don't really add to the clarify of the code. I'd like to use something like: SRow = Short Rows Short Rows = (6, 9, 14, 18, 24, 30, etc........) Then: SRow.Row Height = 3.75. If something like this can be done, I think it would be "easier" to read and also to adjust, if and as required. Thanks |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Adjust row heights of non-contiguous rows.
Thanks all for the prompt response.
Timing could not have been better. Rick, I used your code (with good success). I will yet try out Jacobs code, as well. "Rick Rothstein" wrote: You could do what you want this way... Sub AdjustRowHeights() Dim V As Variant, ShortRows As Variant ShortRows = Array(6, 9, 14, 18, 24, 30) Rows("4:184").RowHeight = 12.75 For Each V In ShortRows Rows(V).RowHeight = 3.75 Next End Sub Just put your list of rows in the Array function call. -- Rick (MVP - Excel) "BEEJAY" wrote in message ... Hello all: Looking to adjust row heights of a 185 row w/sheet. First I use: Rows("4:184").RowHeight = 12.75 I expect this should work quickly and efficiently. I don't quite know what to do with the "exceptions" rows. I could use: Rows("6:6, 9:9, 14:14, 18:18, 24:24, 30:30, ETC......").RowHeight = 3.75 But there are over 30 rows that need to be referenced. The double row references become cumbersome and don't really add to the clarify of the code. I'd like to use something like: SRow = Short Rows Short Rows = (6, 9, 14, 18, 24, 30, etc........) Then: SRow.Row Height = 3.75. If something like this can be done, I think it would be "easier" to read and also to adjust, if and as required. Thanks . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Turn off auto adjust of row heights | Excel Worksheet Functions | |||
Creating a Macro to adjust the row heights | Excel Programming | |||
Excel: copy grid, widths & heights down page: heights wrong! why? | Excel Discussion (Misc queries) | |||
Copying Row Heights, or Complete Rows | Excel Programming | |||
Return Row Heights for Rows in Active Worksheet - an example | Excel Programming |