Автоподбор высоты строк в Excel

Программирование на Visual Basic for Applications
mikeflat
Начинающий
Начинающий
 
Сообщения: 4
Зарегистрирован: 15.12.2004 (Ср) 13:57

Автоподбор высоты строк в Excel

Сообщение mikeflat » 15.12.2004 (Ср) 14:37

Привет всем!!!
Помогите, пожалуйста! Как выполнить автоподбор высоты строки в Excel, если строка состоит из сгруппированных ячеек? Метод AutoFit не работает!

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 15.12.2004 (Ср) 14:49

К чему сей метод применяешь?
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

mikeflat
Начинающий
Начинающий
 
Сообщения: 4
Зарегистрирован: 15.12.2004 (Ср) 13:57

Сообщение mikeflat » 15.12.2004 (Ср) 14:59

Есть Range, беру его Rows и применяю. А к чему надо? К отдельным строкам тоже применял - нифига! Единственный способ, который нашел - копировать данные из таблицы в служебную таблицу с таким же форматированием ячеек, но без объединения. Там выполнять AutoFit (там без проблем выполняется) и потом присваивать высоту строкам моей таблицы, считывая соответствующие значения служебной. Но это порнография!!!! Должно же быть более изящное и человеческое решение!!!! Или опять Билли просчитался?

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 15.12.2004 (Ср) 15:02

Фиг его знает...
Можно попробовать применять к entirerow.
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 15.12.2004 (Ср) 15:10

Именно так. EntireRow и EntireColumn к высоте строки и ширине столбца.
Lasciate ogni speranza, voi ch'entrate.

mikeflat
Начинающий
Начинающий
 
Сообщения: 4
Зарегистрирован: 15.12.2004 (Ср) 13:57

Сообщение mikeflat » 15.12.2004 (Ср) 15:47

Чего-то не получается и с EntireRow. Может я чо делаю не так?
Public Sub Fit()
Dim R As Range

Set R = Range("MyRange")
R.Rows(1).EntireRow.AutoFit
End Sub

mikeflat
Начинающий
Начинающий
 
Сообщения: 4
Зарегистрирован: 15.12.2004 (Ср) 13:57

Сообщение mikeflat » 17.12.2004 (Пт) 16:45

Так и чего делать?

Rombo
Начинающий
Начинающий
 
Сообщения: 23
Зарегистрирован: 12.12.2004 (Вс) 22:21
Откуда: москва

Сообщение Rombo » 28.03.2005 (Пн) 13:35

mikeflat, таки что сделали? Удалось?


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

    TopList