Настройка RowHeight Excel VBA - PullRequest
Новая
       2

Настройка RowHeight Excel VBA

0 голосов
/ 25 августа 2018

Я несколько часов пытался установить высоту строки для предполагаемого диапазона. Код работает за исключением для двух задач 1. ВСЕ строки с данными установлены на AutoFit вместо только предполагаемого диапазона и 2. Я не могу добавить «3» к высоте строки для 2-й до последней строки кода: 

Sub SetRH()

    ActiveSheet.Unprotect
    Application.ScreenUpdating = False

    Range("C" & (ActiveCell.row)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection.Offset(0, 0), Selection.Offset(0, 4)).Select

    Selection.sort Key1:=Range("C6"), Order1:=xlAscending, Key2:=Range("E6") _
       , Order2:=xlAscending, Key3:=Range("D6"), Order3:=xlAscending, Header _
        :=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

    For Each row In ActiveSheet.UsedRange.Rows: Rows.AutoFit: Next
    For Each row In ActiveSheet.UsedRange.Rows: Rows.RowHeight = Rows.RowHeight + 3: Next

    Application.ScreenUpdating = True

End Sub

Любая помощь очень ценится!

1 Ответ

0 голосов
/ 26 августа 2018

Приведенный ниже код будет циклически перебирать каждую строку, а затем увеличивать высоту строки на + 3. 

Dim ws As Worksheet
Set ws = ActiveSheet

Dim Rng As Range
Dim cel As Range
Set Rng = Range(ActiveCell, Cells(Rows.Count, ActiveCell.Column).End(xlUp))

For Each cel In Rng
    cel.Rows.AutoFit
    cel.Rows.RowHeight = cel.Rows.RowHeight + 3
Next cel
...