как в екселе программно подогнать ячейку под слово

Программирование на Visual Basic for Applications
abracadabra
Обычный пользователь
Обычный пользователь
Аватара пользователя
 
Сообщения: 80
Зарегистрирован: 30.11.2004 (Вт) 17:36
Откуда: Lviv Ukraine

как в екселе программно подогнать ячейку под слово

Сообщение abracadabra » 20.03.2006 (Пн) 15:14

Уважаемые программеры!
Слово программно вставляется в ячейку но оно не влазит и вместо всего слова видно только полслова (ширина ячейки меньше, чем слово). Как можно программно адаптировать ячейку под размер слова, чтоб оно было видно целиком?
Заранее спасибо.

RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Сообщение RayShade » 20.03.2006 (Пн) 15:23

Предлагается, определить в какой колонке она находится.
Код: Выделить всё
col=activecell.addresslocal(false,true,-4150)

А потом, использовать его для подгона нужной колонки по ширине:
Код: Выделить всё
сolumns(col).entirecolumn.autofit

uhm
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1597
Зарегистрирован: 02.12.2004 (Чт) 15:21

Сообщение uhm » 20.03.2006 (Пн) 16:17

Хмм... интересная функция adresslocal, не знал. Но по-моему здесь достаточно просто

Код: Выделить всё
columns(activecell.column).entirecolumn.autofit
Быть... или не быть. Вот. В чём вопрос?

RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Сообщение RayShade » 20.03.2006 (Пн) 16:41

Это слишком просто :)

Я подумал, что более нетривиальный способ, будет интереснее ;)


Вернуться в VBA

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

Сейчас этот форум просматривают: Google-бот и гости: 76

    TopList  
cron