Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
[ Закрыто ] Помогите с макросом!
 
Здравствуйте, нужно чтобы этот макрос срабатывал не с нажатия кнопки, а автоматически, или при клике по листу.

Sub Visota(ByRef ra As Range)
   Dim CurrCell As Range, cell As Range, ma As Range: Dim col As Range, ro As Range
   For Each ro In ra.Rows
       maxRH = 0
       For Each cell In ro.Cells
           If cell.MergeCells And cell.Address = cell.MergeArea.Cells(1).Address Then
               Debug.Print cell.Address
               Set ma = cell.MergeArea: newCW = 0
               With ma
                   cw = .Columns(1).ColumnWidth: .UnMerge
                   For Each col In .EntireColumn: newCW = newCW + col.ColumnWidth: Next
                   .Columns(1).ColumnWidth = newCW: .EntireRow.AutoFit
                   rh = .EntireRow.RowHeight: If rh > maxRH Then maxRH = rh
                   .Merge: .Columns(1).ColumnWidth = cw
               End With
           End If
       Next cell
       If maxRH > 0 Then ro.EntireRow.RowHeight = maxRH
   Next ro
End Sub
Sub RunVisota()
   Application.ScreenUpdating = False
   Visota ActiveSheet.UsedRange
End Sub

Подскажите пожалуйста как это сделать!? Спасибо!
 
Сначала нужно ознакомиться с правилами - о названии темы, о файле-примере, об отображаемом имени.
Код в сообщении форматировать с помощью кнопки <...>
Страницы: 1
Читают тему (гостей: 1)
Наверх