Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Автоизменение высоты строки - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Автоизменение высоты строки
paninaro Дата: Четверг, 22.05.2014, 07:59 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 25
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Доброе утро, уважаемые форумчане!

При работе с Excel столкнулся с досадной проблемой, которую так и не удалось разрешить.
Дело в том, что при вставке текстовых значений из другого листа не происходит автоматического изменения высоты строки в зависимости от объёма текста. В результате этого текст обрезается, а высота строки остаётся неизменной. Каждый раз производить автоформат высоты строки через "Формат строки" неудобно и отнимает очень много времени.

Поиск по интернету отправил меня к макросам, однако приладить их не получилось - ничего не работает, а может я что-то делаю не так (я ноль в VBA).
Интуиция подсказывает мне, что должно быть более простое решение средствами самой программы - ведь не такая уж это редкая проблема среди пользователей как мне кажется.

Пример во вложении.
Пожалуйста, помогите разобраться. Заранее спасибо!
К сообщению приложен файл: recept_new2.xls (30.0 Kb)
 
Ответить
СообщениеДоброе утро, уважаемые форумчане!

При работе с Excel столкнулся с досадной проблемой, которую так и не удалось разрешить.
Дело в том, что при вставке текстовых значений из другого листа не происходит автоматического изменения высоты строки в зависимости от объёма текста. В результате этого текст обрезается, а высота строки остаётся неизменной. Каждый раз производить автоформат высоты строки через "Формат строки" неудобно и отнимает очень много времени.

Поиск по интернету отправил меня к макросам, однако приладить их не получилось - ничего не работает, а может я что-то делаю не так (я ноль в VBA).
Интуиция подсказывает мне, что должно быть более простое решение средствами самой программы - ведь не такая уж это редкая проблема среди пользователей как мне кажется.

Пример во вложении.
Пожалуйста, помогите разобраться. Заранее спасибо!

Автор - paninaro
Дата добавления - 22.05.2014 в 07:59
_Boroda_ Дата: Четверг, 22.05.2014, 09:30 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16803
Репутация: 6559 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Это макрос нужен. Примерно такой. Откройте вложение - так?
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
       If Target.Address(0, 0) = "C2" Then Rows("7:999").Rows.AutoFit
End Sub
[/vba]
К сообщению приложен файл: recept_new2_2.xls (58.0 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЭто макрос нужен. Примерно такой. Откройте вложение - так?
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
       If Target.Address(0, 0) = "C2" Then Rows("7:999").Rows.AutoFit
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 22.05.2014 в 09:30
paninaro Дата: Четверг, 22.05.2014, 09:38 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 25
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Огромное спасибо! То, что нужно yes
Не совсем понял, в какой последовательности нужно вводить эти макросы в Visual Basic - я вижу там две штуки. Напишите, пожалуйста, как это делать для чайника :)
[moder]Не нужно целиком цитировать пост.
 
Ответить
СообщениеОгромное спасибо! То, что нужно yes
Не совсем понял, в какой последовательности нужно вводить эти макросы в Visual Basic - я вижу там две штуки. Напишите, пожалуйста, как это делать для чайника :)
[moder]Не нужно целиком цитировать пост.

Автор - paninaro
Дата добавления - 22.05.2014 в 09:38
_Boroda_ Дата: Четверг, 22.05.2014, 09:41 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16803
Репутация: 6559 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Это я не стер ненужное. Пардоньте. Файл перевложил. А нужен Вам только тот, который в посте приведен


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЭто я не стер ненужное. Пардоньте. Файл перевложил. А нужен Вам только тот, который в посте приведен

Автор - _Boroda_
Дата добавления - 22.05.2014 в 09:41
paninaro Дата: Четверг, 22.05.2014, 10:03 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 25
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Попробовал вставить макрос в рабочий файл, и вышла незадача.
В рабочем файле ячейка с номером рецептуры находится на другом листе и видимо поэтому макрос не работает как надо.
Во вложении всё аналогично рабочему файлу и видно, что скрипт не работает. Пробовал в вашем скрипте заменить "C2" на "Данные!D3" - не помогло.
Что делать?
К сообщению приложен файл: recept_new2_3.xls (57.5 Kb)
 
Ответить
СообщениеПопробовал вставить макрос в рабочий файл, и вышла незадача.
В рабочем файле ячейка с номером рецептуры находится на другом листе и видимо поэтому макрос не работает как надо.
Во вложении всё аналогично рабочему файлу и видно, что скрипт не работает. Пробовал в вашем скрипте заменить "C2" на "Данные!D3" - не помогло.
Что делать?

Автор - paninaro
Дата добавления - 22.05.2014 в 10:03
_Boroda_ Дата: Четверг, 22.05.2014, 10:37 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 16803
Репутация: 6559 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Так?
К сообщению приложен файл: recept_new2_4.xls (67.5 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак?

Автор - _Boroda_
Дата добавления - 22.05.2014 в 10:37
paninaro Дата: Четверг, 22.05.2014, 11:26 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 25
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003


Благодарю за помощь! Теперь всё работает как нужно :D
 
Ответить
Сообщение

Благодарю за помощь! Теперь всё работает как нужно :D

Автор - paninaro
Дата добавления - 22.05.2014 в 11:26
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!