Автоматическое выравнивание высоты строки в excel

Содержание

• Применение атоподбора
  • Способ 1: панель координат
  • Способ 2: включение автоподбора для нескольких строк
  • Способ 3: кнопка на ленте инструментов
  • Способ 4: подбор высоты для объединенных ячеек
• Вопросы и ответы

Каждый пользователь, работающий в Экселе, рано или поздно встречается с ситуацией, когда содержимое ячейки не вмещается в её границы. В таком случае существует несколько выходов из сложившегося положения: сократить размер содержимого; смириться с существующей ситуацией; расширить ширину ячеек; расширить их высоту. Как раз о последнем варианте, а именно об автоподборе высоты строки мы и поговорим дальше.

Применение атоподбора

Автоподбор – это встроенный инструмент Excel, который помогает произвести расширение ячеек по содержимому. Сразу нужно отметить, что несмотря на название эта функция не применяется автоматически. Для того, чтобы расширить конкретный элемент, нужно выделить диапазон и применить к нему указанный инструмент.

Кроме того, нужно сказать, что автоподбор высоты применим в Эксель только для тех ячеек, у которых в форматировании включен перенос по словам. Для того чтобы включить это свойство выделяем на листе ячейку или диапазон. Кликаем по выделению правой кнопкой мыши. В запустившемся контекстном списке выбираем позицию «Формат ячеек…».

Происходит активация окна форматирования. Переходим во вкладку «Выравнивание». В блоке настроек «Отображение» устанавливаем флажок напротив параметра «Переносить по словам». Чтобы сохранить и применить изменения конфигурации настроек, жмем на кнопку «OK», которая размещена внизу этого окна.

Теперь на выделенном фрагменте листа включен перенос по словам и к нему можно применять автоподбор высоты строки. Рассмотрим, как это сделать различными способами на примере версии Excel 2010. Вместе с тем нужно заметить, что полностью аналогичный алгоритм действий можно использовать как для более поздних версий программы, так и для Excel 2007.

Способ 1: панель координат

Первый способ предполагает работу с вертикальной панелью координат, на которой располагаются номера строк таблицы.

1. Кликаем по номеру той строки на панели координат, к которой нужно применить автоподбор высоты. После этого действия вся строчка будет выделена.



2. Становимся на нижнюю границу строки в секторе панели координат. Курсор должен приобрести вид стрелки направленной в две стороны. Делаем двойной щелчок левой кнопкой мыши.



3. После этих действий при неизменном состоянии ширины высота строки автоматически увеличится ровно настолько, насколько нужно, чтобы весь текст, находящийся во всех её ячейках, был виден на листе.

Способ 2: включение автоподбора для нескольких строк

Вышеуказанный способ хорош, когда нужно включить автоподбор для одной или двух строк, но что делать, если подобных элементов много? Ведь, если действовать по тому алгоритму, который был описан в первом варианте, то на процедуру придется потратить большое количество времени. В этом случае существует выход.

1. Выделяем на панели координат весь диапазон строк, к которым нужно подключить указанную функцию. Для этого зажимаем левую кнопку мыши и проводим курсором по соответствующему отрезку панели координат.
   

   Если диапазон сильно большой, то кликаем левой кнопкой мыши по первому сектору, потом зажимаем кнопку Shift на клавиатуре и выполняем щелчок по последнему сектору панели координат требуемой области. При этом все её строки будут выделены.





2. Устанавливаем курсор на нижнюю границу любого из выделенных секторов на панели координат. При этом курсор должен принять точно такую же форму, как и в прошлый раз. Два раза щелкаем левой кнопкой мыши.



3. После выполнения вышеуказанной процедуры все строки выделенного диапазона будут увеличены в высоту на размер хранящихся в их ячейках данных.

Урок: Как выделить ячейки в Excel

Способ 3: кнопка на ленте инструментов

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

1. Выделяем диапазон на листе, к которому нужно применить автоподбор. Находясь во вкладке «Главная», производим щелчок по кнопке «Формат». Данный инструмент размещен в блоке настроек «Ячейки». В появившемся списке в группе «Размер ячейки» выбираем пункт «Автоподбор высоты строки».



2. После этого строки выделенного диапазона увеличат свою высоту настолько, насколько нужно для того, чтобы их ячейки показали все свое содержимое.

Способ 4: подбор высоты для объединенных ячеек

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

1. Выделяем те ячейки, которые нужно объединить. Кликаем по выделению правой кнопкой мыши. В меню переходим по пункту «Формат ячеек…».



2. В открывшемся окне форматирования переходим во вкладку «Выравнивание». В блоке настроек «Выравнивание» в поле параметра «По горизонтали» выбираем значение «По центру выделения». После того, как конфигурирование произведено, жмем на кнопку «OK».



3. После этих действий данные расположились по всей зоне выделения, хотя по факту продолжают храниться в крайней левой ячейке, так как объединения элементов, по сути, не произошло. Поэтому, если, например, нужно будет удалить текст, то сделать это можно будет только в крайней левой ячейке. Далее опять выделяем весь диапазон листа, на котором размещен текст. Любым из трех предыдущих способов, которые были описаны выше, включаем автоподбор высоты.



4. Как видим, после этих действий автоподбор высоты строки был произведен при сохраняющейся иллюзии объединения элементов.

Чтобы вручную не выставлять высоту каждой строки в отдельности, тратя на это уйму времени, особенно если таблица большая, лучше воспользоваться таким удобным инструментом Excel, как автоподбор. С его помощью можно автоматически скорректировать размер строчек любого диапазона по содержимому. Единственная проблема может возникнуть, если вы работаете с областью листа, в которой расположены объединенные ячейки, но и в этом случае тоже можно найти выход из сложившейся ситуации путем выравнивания содержимого по выделению.

Еще статьи по данной теме:

Помогла ли Вам статья?

Если вам нужно увеличить или уменьшить ширину строк и высоту столбцов в Excel, это можно сделать несколькими способами. В приведенной ниже таблице показаны минимальный, максимальный и стандартный размеры для строк и столбцов в точках.

Тип	Минимум	Максимум	По умолчанию
Столбец	0 (скрыто)	255	8,43
Строка	0 (скрыто)	409	15,00

Примечания: 

• Если работа ведется в режиме разметки страницы (вкладка Представление, группа Представления книги, кнопка Разметка страницы), вы можете указать ширину столбца или высоту строки в дюймах, сантиметрах и миллиметрах. По умолчанию единицами измерения являются дюймы. Перейдите в раздел Файл > Параметры > Дополнительно > Отображение и выберите параметр из списка Единицы на линейке. При переключении в обычный режим, значения ширины столбцов и высоты строк будут отображаться в точках.

• Отдельные строки и столбцы могут иметь только один параметр. Например, если для одного столбца задана ширина 25 точек, это не может быть 25 точек для одной строки и 10 для другой.

Установка заданной ширины столбца

1. Выберите столбец или столбцы, ширину которых требуется изменить.

2. На вкладке Главная в группе Ячейки нажмите кнопку Формат.

   

3. В разделе Размер ячейки выберите пункт Ширина столбца.

4. Введите значение в поле Ширина столбцов.

5. Нажмите кнопку ОК.

   Совет: Чтобы быстро задать ширину одного столбца, щелкните столбец правой кнопкой мыши, выберите Ширина столбца, а затем введите требуемое значение и нажмите кнопку ОК.

1. Выберите столбец или столбцы, ширину которых требуется изменить.

2. На вкладке Главная в группе Ячейки нажмите кнопку Формат.

   

3. В разделе Размер ячейки выберите пункт Автоподбор ширины столбца.

   Примечание: Чтобы быстро подобрать ширину всех столбцов листа, нажмите кнопку Выделить все и дважды щелкните любую границу между заголовками двух столбцов.

1. Выделите ячейку, которая имеет нужную ширину.

2. Нажмите сочетание клавиш CTRL+C или на вкладке Главная в группе Буфер обмена нажмите кнопку Копировать.

   

3. Щелкните правой кнопкой мыши ячейку в целевом столбце, наведите указатель мыши на значок над пунктом Специальная вставка, а затем нажмите кнопку Сохранить ширину столбцов оригинала .

Значение ширины столбца по умолчанию указывает приблизительное количество символов стандартного шрифта, которое умещается в ячейке. Можно указать другое значение ширины столбца по умолчанию для листа или книги.

1. Выполните одно из указанных ниже действий.

   • Чтобы изменить ширину столбца по умолчанию для листа, щелкните ярлычок листа.

   • Чтобы изменить ширину столбца по умолчанию для всей книги, щелкните правой кнопкой мыши ярлычок какого-либо листа, а затем выберите пункт Выделить все листы в контекстное менюTE000127572.

     

2. На вкладке Главная в группе Ячейки нажмите кнопку Формат.

   

3. В разделе Размер ячейки выберите пункт Ширина по умолчанию.

4. В поле Ширина столбца введите новое значение, а затем нажмите кнопку ОК.

Выполните одно из указанных ниже действий.

• Чтобы изменить ширину одного столбца, перетащите правую границу его заголовка до нужной ширины.

  

• Чтобы изменить ширину нескольких столбцов, выделите столбцы, ширину которых требуется изменить, а затем перетащите правую границу заголовка любого выделенного столбца.

• Чтобы изменить ширину столбцов в соответствии с содержимым ячеек, выберите столбец или столбцы, которые требуется изменить, и дважды щелкните правую границу заголовка одного из выделенных столбцов.

• Чтобы изменить ширину всех столбцов на листе, нажмите кнопку Выделить все, а затем перетащите правую границу заголовка любого столбца.

  

1. Выберите строку или строки, высоту которых требуется изменить.

2. На вкладке Главная в группе Ячейки нажмите кнопку Формат.

   

3. В разделе Размер ячейки выберите пункт Высота строки.

4. Введите значение в поле Высота строки и нажмите кнопку ОК.

1. Выберите строку или строки, высоту которых требуется изменить.

2. На вкладке Главная в группе Ячейки нажмите кнопку Формат.

   

3. В разделе Размер ячейки выберите пункт Автоподбор высоты строки.

   Совет: Чтобы быстро подобрать высоту всех строк листа, нажмите кнопку Выделить все и дважды щелкните нижнюю границу заголовка любой строки.

Выполните одно из указанных ниже действий.

• Чтобы изменить высоту одной строки, перетащите нижнюю границу заголовка строки до нужной высоты.

  

• Чтобы изменить высоту нескольких строк, выберите нужные строки и перетащите нижнюю границу заголовка одной из выбранных строк.

• Чтобы изменить высоту всех строк на листе, нажмите кнопку Выделить все, а затем перетащите нижнюю границу заголовка любой строки.

  

• Чтобы изменить высоту строки в соответствии с содержимым, дважды щелкните нижнюю границу заголовка строки.

К началу страницы

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

• В Excel 2007 нажмите кнопку Microsoft Office > Параметры Excel> Дополнительно.

• В Excel 2010 выберите Файл > Параметры > Дополнительно.

Установка заданной ширины столбца

1. Выберите столбец или столбцы, ширину которых требуется изменить.

2. На вкладке Главная в группе Ячейки нажмите кнопку Формат.

   

3. В разделе Размер ячейки выберите пункт Ширина столбца.

4. Введите значение в поле Ширина столбцов.

1. Выберите столбец или столбцы, ширину которых требуется изменить.

2. На вкладке Главная в группе Ячейки нажмите кнопку Формат.

   

3. В разделе Размер ячейки выберите пункт Автоподбор ширины столбца.

Совет    Чтобы быстро подобрать ширину всех столбцов листа, нажмите кнопку Выделить все и дважды щелкните любую границу между заголовками двух столбцов.

1. Выделите ячейку, которая имеет нужную ширину.

2. На вкладке Главная в группе Буфер обмена нажмите кнопку Копировать и выберите нужный столбец.

   

3. На вкладке Главная в группе Буфер обмена щелкните стрелку под кнопкой Вставить и выберите команду Специальная вставка.

4. В разделе Вставить установите переключатель в положение ширины столбцов.

Значение ширины столбца по умолчанию указывает приблизительное количество символов стандартного шрифта, которое умещается в ячейке. Можно указать другое значение ширины столбца по умолчанию для листа или книги.

1. Выполните одно из указанных ниже действий.

   • Чтобы изменить ширину столбца по умолчанию для листа, щелкните ярлычок листа.

   • Чтобы изменить ширину столбца по умолчанию для всей книги, щелкните правой кнопкой мыши ярлычок какого-либо листа, а затем выберите пункт Выделить все листы в контекстное менюTE000127572.

     

2. На вкладке Главная в группе Ячейки нажмите кнопку Формат.

   

3. В разделе Размер ячейки выберите пункт Ширина по умолчанию.

4. В поле Ширина столбца введите новое значение.

Совет    Если требуется определить новое значение ширины столбцов по умолчанию для всех новых книг и листов, можно создать шаблон книги или листа, а затем создавать новые книги и листы на его основе. Дополнительные сведения см. в статье Сохранение книги или листа в качестве шаблона.

Выполните одно из указанных ниже действий.

• Чтобы изменить ширину одного столбца, перетащите правую границу его заголовка до нужной ширины.

  

• Чтобы изменить ширину нескольких столбцов, выделите столбцы, ширину которых требуется изменить, а затем перетащите правую границу заголовка любого выделенного столбца.

• Чтобы изменить ширину столбцов в соответствии с содержимым ячеек, выберите столбец или столбцы, которые требуется изменить, и дважды щелкните правую границу заголовка одного из выделенных столбцов.

• Чтобы изменить ширину всех столбцов на листе, нажмите кнопку Выделить все, а затем перетащите правую границу заголовка любого столбца.

  

1. Выберите строку или строки, высоту которых требуется изменить.

2. На вкладке Главная в группе Ячейки нажмите кнопку Формат.

   

3. В разделе Размер ячейки выберите пункт Высота строки.

4. Введите значение в поле Высота строки.

1. Выберите строку или строки, высоту которых требуется изменить.

2. На вкладке Главная в группе Ячейки нажмите кнопку Формат.

   

3. В разделе Размер ячейки выберите пункт Автоподбор высоты строки.

Совет    Чтобы быстро подобрать высоту всех строк листа, нажмите кнопку Выделить все и дважды щелкните нижнюю границу заголовка любой строки.

Выполните одно из указанных ниже действий.

• Чтобы изменить высоту одной строки, перетащите нижнюю границу заголовка строки до нужной высоты.

  

• Чтобы изменить высоту нескольких строк, выберите нужные строки и перетащите нижнюю границу заголовка одной из выбранных строк.

• Чтобы изменить высоту всех строк на листе, нажмите кнопку Выделить все, а затем перетащите нижнюю границу заголовка любой строки.

  

• Чтобы изменить высоту строки в соответствии с содержимым, дважды щелкните нижнюю границу заголовка строки.

К началу страницы

См. также

Изменение ширины столбца или высоты строк (PC)

Изменение ширины столбца или высоты строк (Mac)

Изменение ширины столбца или высоты строк (веб-сайт)

Рекомендации, позволяющие избежать появления неработающих формул

При работе в табличном процессоре Эксель часто возникают такие моменты, когда информация, располагающаяся в ячейке, вылезает за границы. Для корректного отображения можно убрать ненужную информацию из ячейки, но это неэффективный способ, так как он сулит потерей полноты информации. Отличное решение – перемещение границ ячейки для умещения всех данных. В статье мы разберем несколько вариантов правильного задания высоты строчки автоматическим способом.

Что такое высота строки в Microsoft Excel

Высота строчки – один из параметров табличной информации. Стандартно высота способна уместить в себя текст, написанный в одну строчку. При включенной возможности переноса строк, высота столбика самостоятельно увеличивается так, чтобы вся информация, находящаяся в ячейке, корректно показывалась в ней.

Как выглядит таблица до использования автоподбора, по каким причинам он может понадобиться

Для наглядного примера рассмотрим ситуацию, когда в табличке есть ячейки с объёмной текстовой информацией. Исходная таблица выглядит следующим образом:

Мы прекрасно видим, что здесь находится много ячеек, в которых не поместился введенный текст. В этой ситуации пользователю нельзя увеличивать ширину столбиков, так как при печати вся табличка не уместится на бумажном листе. Для корректного отображения всех данных, находящихся в ней, необходимо применить один из способов автоматического подбора высоты строки. О всех методах вы можете узнать, прочитав информацию, располагающуюся ниже.

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

Автоматический подбор высоты строчки – это специальный инструмент, реализующий подстраивание высоты каждой ячейки строчки под наполнение самой заполненной ячейки. Стоит заметить, что ширина в этом случае не изменяется. Функция автоматически настраивает границы, но при этом большинство манипуляций производится самостоятельно. Реализовать автоматический подбор можно несколькими методами. Поговорим о каждом более детально.

Метод 1. Автоподбор высоты через формат ячеек

Это первый способ, который обязателен к использованию при реализации остальных методов. Автоматический подбор применяется только к тем ячейкам, в которых активирован перенос по словам. Подробная инструкция выглядит следующим образом:

1. Жмем ПКМ по ячейке или диапазону. В рассматриваемом варианте мы производим выделение всей таблички. Отображается небольшое контекстное меню. Находим «Формат ячеек…» и кликаем по нему ЛКМ.

1. На дисплее отобразилось окошко под названием «Формат ячеек». Передвигаемся в подраздел «Выравнивание». Находим блок команд «Отображение» и устанавливаем отметку рядом с параметром «Переносить текст». После проведения всех манипуляций кликаем «ОК».

1. Готово! После проведения всех процедур наполнение выбранных ячеек целиком отобразилось в них. Высота строчек видоизменилась таким образом, чтобы вся информация, находящаяся в ячейках, отобразилась полностью.

Внимание! Бывает так, что в диапазонах во включенном состоянии находится перенос текста по словам, но данные все равно не помещаются в ячейках или же, наоборот, остается много пустого места. Чтобы понять, как устранить эту проблему, рассмотрим следующие способы.

Метод 2. Настройка высоты через координатную панель

Подробная инструкция имеет следующий вид:

1. Находим координатную панель вертикального типа и кликаем по номеру строчки, автоматическую высоту которой мы планируем настроить. После выбора строки она должна выделиться целиком.

1. Перемещаем курсор мышки на нижнюю часть выбранной строчки. Указатель примет вид двух стрелочек, указывающих в противоположные стороны. Жмем два раза ЛКМ.

1. Готово! После проведения этой процедуры высота выбранной строчки автоматически изменилась так, что теперь все ячейки смогли уместить информацию, содержащуюся в них. Границы столбиков при этом никак не изменились.

Метод 3. Автоподбор высоты для нескольких строк

Вышеописанный способ не подходит при работе с большими объёмами данных, так как придётся тратить много времени на выделение каждой строчки таблички. Существует еще один метод, значительно экономящий время. Подробная инструкция имеет следующий вид:

1. Снова находим координатную панель вертикального типа. Теперь производим выделение не одной строки, а сразу всех, размер которых мы планируем изменить.

1. Так же, как и в предыдущем варианте, два раза кликаем ЛКМ по номеру строчки, пока указатель не примет вид двух стрелочек, указывающих в противоположные стороны. Эта процедура позволит реализовать автоматический подбор высоты.

1. Готово! Мы реализовали корректную высоту для каждой выделенной строчки, и теперь вся информация правильно отображается в выбранных ячейках.

Метод 4. Использование инструментов на ленте

Большинство полезных функций табличного процессора располагается в верхней части интерфейса на специальной ленте инструментов. Здесь существует особый элемент, позволяющий реализовать автоматический подбор высоты. Подробная инструкция выглядит следующим образом:

1. Производим выделение той области, автоматический подбор высоты которой мы планируем произвести.

1. Перемещаемся в раздел под названием «Главная», располагающийся в верхней части интерфейса табличного процессора. Находим блок команд «Ячейки» и выбираем элемент «Формат». В раскрывшемся списке находим кнопку «Автоподбор высоты строки» и жмем на нее.

1. Готово! Мы реализовали корректную высоту для каждой выделенной строчки и теперь вся информация корректно отображается в выбранных ячейках.

Метод 5. Настройка высоты для объединенных ячеек

Специальную функцию, позволяющую реализовать автоматический подбор высоты строчек, нельзя применить к ячейкам объединенного типа. В любом случае, в табличном процессоре существуют дополнительные возможности, позволяющие реализовать эту процедуру.

Смысл этого способа состоит в том, что мы не будем осуществлять процедуру объединения ячеек, а просто сделаем видимость соединения ячеек, что позволит нам применить автоматический подбор. Подробная инструкция имеет следующий вид:

1. Первоначально производим выделение тех ячеек, над которыми мы желаем произвести процедуру объединения.

1. Жмем ПКМ по выбранной области. На экране отобразилось контекстное меню. Находим элемент под названием «Формат ячеек…» и жмем по нему ЛКМ.

1. На дисплее появилось окошко «Формат ячеек». Передвигаемся в раздел «Выравнивание». Раскрываем самый первый список и кликаем на надпись «По центру выделения». После проведения всех манипуляций жмем на «ОК».

1. Информация, находящаяся в первой ячейке, отобразилась в центре выбранных ячеек. Стоит отметить, что никакого объединения не произошло. Мы просто создали видимость объединения.

1. На последнем этапе мы используем функцию автоматического подбора высоты строчки одним из вышеописанных методов.

1. Готово! Мы реализовали корректную высоту для каждой выделенной строки, и теперь вся информация корректно отображается в выбранных ячейках.

Стоит отметить! Каждый алгоритм действий отлично подходит, как для ранних версий табличного процессора Эксель, так и для самых последних.

Рассмотрим небольшой пример, в котором применим полученные знания по автоматическому подбору высоты строки. К примеру, у нас есть следующая табличка, которую мы должны привести к корректному отображению на рабочем листе:

Наша цель: реализовать правильное отображение данных в табличке в одну строчку. Подробная инструкция имеет следующий вид:

1. При помощи комбинации клавиш на клавиатуре «CTRL+A» производим выделение всех значений.
2. Высота строчек изменилась так, что теперь данные отображаются в одну строчку. Часть информации не видно. Нам необходимо сделать так, чтобы все данные отображались на рабочем листе полностью.

1. Производим выделение столбиков А, В и С.
2. Наводим курсор мышки к разделу столбиков А и В и два раза кликаем ЛКМ.

1. Готово! Цель выполнена. Теперь вся информация, располагающаяся в ячейках рабочего листа, корректно отображается.

Как задать точную высоту строк?

Часто пользователи табличного процессора Эксель сталкиваются с такой ситуацией, когда необходимо задать точную высоту строчки при работе с какой-либо табличной информацией. Подробная инструкция имеет следующий вид:

1. На рабочем листе табличного процессора производим выделение необходимых строчек при помощи левой кнопки мыши, точную высоту которым мы планируем задать.
2. Кликаем ПКМ по выделенной области рабочего листа.
3. На экране отобразилось небольшое контекстное меню. Находим элемент под названием «Высота строки» и жмем по нему ЛКМ.
4. На экране появилось окошко под названием «Высота строки». В поле ввода вбиваем необходимую нам высоту строчки в пунктах. Три пункта – примерно один миллиметр.
5. После проведения всех манипуляций щелкаем на кнопку «ОК», располагающуюся в нижней части окошка.

1. Готово! Мы реализовали указание точной высоты строчки в табличном процессоре Эксель.

Запомните! Стандартная высота строчки равна 12.75 пикселей.  

Когда невозможно сделать автоподбор высоты строки

Случаются неприятные ситуации, когда все вышеприведенные способы не позволяют реализовать автоматический подбор высоты строки. Чаще всего причина неправильной работы функции заключается в том, что пользователь объединил ряд ячеек между собой.

Не забывайте, что автоматический подбор высоты строчки не применяется к объединенным ячейкам. В случае совмещения ячеек придется осуществлять процедуру подбора оптимальных параметров самостоятельным образом. Здесь существует два варианта решения данной проблемы:

1. Ручное растягивание границ при помощи зажатия ЛКМ.
2. Применение функции точного задания высоты строчки.

В любом случае, целесообразнее не использовать объединение ячеек, а применять «видимость» соединения. Это позволяет применять автоматический подбор высоты строки в табличном процессоре Эксель.

Заключение

Как мы видим, реализовать процедуру автоматического подбора высоты в табличном процессоре Эксель можно несколькими различными методами. Вариант, позволяющий задать высоту для каждой строчки отдельно, отлично подходит для работы с небольшими объёмами данных. Для осуществления работы с большими таблицами следует обратить внимание на другие способы. Большое число способов автоматического подбора позволяет каждому пользователю подобрать для себя более удобный вариант.

Во время работы с таблицами Excel нередко возникает ситуация, когда информация в ячейке выходит за ее рамки. Конечно же, можно постараться каким-то образом убрать лишние данные, тем самым сократив содержимое ячейки. Но это редко помогает, поэтому наиболее практичным решением будет сдвиг ее границ, чтобы уместить все данные внутри нее. Сделать это можно путем настройки ширины столбца или высоты строки. Давайте остановимся на последнем варианте и посмотрим, как можно задать высоту строки, причем, чтобы она определялась программой автоматически.

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

Сначала давайте разберемся, что такое автоподбор высоты строки. Это функция, позволяющий подстроить высоту всех ячеек строки под содержимое самой заполненной из них (ширина при этом остается неизменной). Тут важно понимать, что инструмент направлен на автоматическую настройку границ, но сам по себе он в автоматическом режиме не работает, а это значит, что его нужно самостоятельно задействовать по отношению к выделенным элементам. Выполнить данное действие можно разными способами, так что давайте рассмотрим каждый из них подробнее.

Метод 1. Автоподбор высоты через формат ячеек

Это первый метод, и он же – обязательное условие для реализации следующих способов. Дело в том, что автоподбор работает исключительно по отношению к тем ячейкам, в которых активирован перенос по словам.

Итак, давайте приступим:

1. Щелкаем правой кнопкой мыши по ячейке/выделенному диапазону (в нашем случае выделяем всю таблицу) и в контекстном меню щелкаем по строке “Формат ячеек…”.
2. Откроется окно форматирования, в котором переключаемся во вкладку “Выравнивание”. В параметрах “Отображение” ставим галочку напротив опции “переносить текст”, после чего щелкаем OK.
3. Благодаря нашим действиям, содержимое выделенных ячеек полностью отобразилось в них с учетом переноса, а высота строк изменилась ровно на столько, сколько необходимо для того, чтобы полностью отобразить все данные.

Теперь перейдем к остальным ситуациям, когда мы имеем дело с ячейками, в которых включен перенос текста, но границы сдвинуты так, что часть информации в них не “вписывается” или, наоборот, в ячейках остается слишком много свободного места.

Метод 2. Настройка высоты через координатную панель

1. На вертикальной координатной панели щелкам по порядковому номеру строки, для которой нужно настроить автовысоту. Вся строка вместе с ее номером должна выделиться после этого.
2. Теперь все на той же координатной панели наводим указатель мыши на нижнюю границу выделенной строки, как только он изменит привычный вид на стрелки вверх и вниз, выполняем двойной щелчок левой кнопкой мыши.
3. Как мы можем сразу же после этого заметить, высота выделенной строки подстроилась таким образом, чтобы вместить содержимое самой заполненной ячейки. При этом границы столбцов остались неизменными.

Метод 3. Автоподбор высоты для нескольких строк

Если требуется одновременно настроить высоту нескольких строк, описанный выше метод не так хорош, так как на поочередное выделение и настройку высоты каждой строки может уйти немало времени. Поэтому в таких случаях лучше придерживаться следующего плана действий:

1. На координатной панели вместо одной строки одновременно выделяем диапазон строк, высоту которых хотим настроить. Как это сделать, читайте в нашей статье “Как выделить ячейки в Эксель“.
2. Теперь аналогично методу, описанному выше, двойным щелчком левой кнопки мыши автоматически задаем высоту строк. Наводить указатель мыши можно на нижнюю границу любой строки выделенного диапазона.
3. Все готово. Мы задали оптимальную высоту для всех строк, которые выбрали, выполняя первый шаг.

Метод 4. Использование инструментов на ленте

Многие наиболее часто используемые функции программы Эксель вынесены в виде отдельных кнопок на Ленту программы. Для автоподбора высоты также предусмотрена своя собственная кнопка, и вот как ею нужно пользоваться:

1. Отмечаем область ячеек, высоту которых нужно автоматически задать.
2. Переключаемся во вкладку “Главная” и нажимаем кнопку “Формат”, которая расположена в разделе “Ячейки”. Откроется перечень команд, среди которых нам нужна строка “Автоподбор высоты строки”, следовательно, щелкаем по данному пункту.
3. Это все, что нужно было сделать для того, чтобы автоматически задать высоту строк для выделенного фрагмента данных.

Метод 5. Настройка высоты для объединенных ячеек

Несмотря на то, что функция автоподбора высоты срок не применима к объединенным ячейкам, и эта задача вполне выполнима.

Суть данного метода заключается в том, что на самом деле никакого объединения ячеек не будет, мы лишь создадим видимость слияния, что позволить использовать автоподбор.

1. Сначала нужно выделить ячейки, которые мы якобы хотим объединить.
2. Затем щелчком правой кнопки мыши по выделенному диапазону вызываем контекстное меню, в котором выбираем строку “Формат ячеек…”.
3. Переключаемся во вкладку “Выравнивание”, кликаем по текущему варианту выравнивания по горизонтали, выбираем “по центру выделения” и жмем кнопку OK.
4. В результате текст из первой ячейки расположился по центру выделенных элементов, при этом, объединение ячеек не было выполнено.
5. Теперь осталось только применить функцию автоподбора высоты строк любым из способов, описанных выше.

Заключение

Во время работы в программе Excel одну и ту же задачу можно выполнить разными способами. Это касается и настройки высоты строк. Если речь идет о небольших таблицах, данный параметр можно задать отдельно для каждой строки. Но когда мы имеем дело с большими табличными массивами, лучше использовать такую функцию, как автоподбор высоты ячеек, которая позволит справиться с поставленной задачей значительно быстрее.

Изменение ширины столбцов и высоты строк

​Смотрите также​​ пойму почему тема​Макрос уже предложили.​: Где включить это​ //Высота верхней строки​ If Cell.MergeCells And​ в левой верхней​ диапазона aRng. Sub​ объединённых ячеек, вставляем​: Я в VBA​ размеры, как отдельных​ действий. Поочередно выбираем​ данную процедуру в​При создании новой книги​Чтобы изменить ширину столбца​ нажмите кнопку​Выделить все​Примечание:​ всплыла»​Казанский​ опцию?​ в диапазоне объединения.​

​ (Cell.Address = MRng.Cells(1,​ ячейке диапазона объединения.​ RngAutoFit(ByRef aRng As​ наш текст, ровняем​ ноль, но первое​ ячеек, так и​ в нем пункты​ Экселе.​ все строки и​ по умолчанию для​Выделить все​и дважды щелкните​Мы стараемся как​

​У меня спортивный​	​: Ключевое слово -​	​caustic​	​ HRow1 := MRng.Rows[1].RowHeight;​
​ 1).Address) Then ‘Высота​	​- Задаём ширину​	​ Excel.Range) Dim Cell​	​ как нужно, запоминаем​
​ что пришло голову,​	​ целых групп, вплоть​	​«Высота строки…»​	​Скачать последнюю версию​

​ столбцы устанавливаются одной​​ всей книги, щелкните​

• ​и дважды щелкните​ любую границу между​ можно оперативнее обеспечивать​​ интерес)​​ автоБодбор :)​​: excel 2007-10 -​​ //Подсчитываем исходную высоту​​ верхней строки в​​ левой верхней ячейки​ As Excel.Range ‘Отдельная​ её высоту, удаляем​ посмотрите…​ до увеличения всех​и​ Excel​ высоты и ширины,​​ правой кнопкой мыши​​ нижнюю границу заголовка​​ заголовками двух столбцов.​​ вас актуальными справочными​​to VovaK: «Вы​​Ух ты!​​ вкладка «Главная» ->​​ диапазона объединения по​ диапазоне объединения. HRow1​ равной ширине исходного​​ ячейка. Dim MRng​​ текст, восстанавливаем прежнюю​​Естественно специалисты смогут​​ элементов листа или​«Ширина столбца…»​Существует несколько вариантов расширение​ это происходит по​

• ​ ярлычок какого-либо листа,​ любой строки.​Выделите ячейку, которая имеет​ материалами на вашем​ выложили недоработанную надстройку​=12345=​ «Перенос текста»​ совокупности всех его​ = MRng.Rows(1).RowHeight ‘Подсчитываем​ объединённого диапазона.​ As Excel.Range ‘Диапазон​

​ ширину, вставляем текст​ сделать в два​ книги. Каждый пользователь​

Установка заданной ширины столбца

1. ​. После нажатия на​ ячеек. Одни из​ умолчанию. Excel позволяет​

2. ​ а затем выберите​​Выполните одно из указанных​​ нужную ширину.​​ языке. Эта страница​​ и закрыли ее​​GIG_ant​​либо правой кнопкой​

   

3. ​ строк. H1 :=​​ исходную высоту диапазона​​- Выполняем для​​ объединения ячеек. Dim​​ в целевые объединённые​

4. ​ счёта, но просите​​ может подобрать наиболее​​ каждый из этих​

5. ​ них предусматривают раздвигание​​ изменять ширину столбцов​​ пункт​

   ​ ниже действий.​​Нажмите сочетание клавиш CTRL+C​ переведена автоматически, поэтому​ от просмотра. Цель?»​: То vikttur: Или​ по ячейке «формат​​ HRow1; for i​​ объединения по совокупности​ левой верхней ячейки​ DispAl As Boolean​​ ячейки и устанавливаем​​ помощи уже наверное​

Автоматическое изменение ширины столбца в соответствии с содержимым ячеек (автоподбор)

1. ​ удобный для него​ пунктов будут открываться​ границ пользователем вручную,​

2. ​ и высоту строк​​Выделить все листы​​Чтобы изменить высоту одной​​ или на вкладке​​ ее текст может​​Надстройка ориентирована на​​ у меня сегодня​

   

3. ​ ячеек» -> «Выравнивание»​​ := 2 to​​ всех его строк.​​ подгон высоты.​​ Dim nRow As​

   ​ запомненное значение высоты.​​ завтра.​ вариант выполнения данной​ небольшие окошки, о​​ а с помощью​​ самыми различными способами,​в контекстное менюTE000127572.​ строки, перетащите нижнюю​

Изменение ширины столбца в соответствии с шириной другого столбца

1. ​Главная​ содержать неточности и​

2. ​ обычного пользователя. За​ день неудачный, или​​ -> Переносить по​​ MRng.Rows.Count do H1​​ H1 = HRow1​​- Затем, сравниваем​​ Long Dim nCol​​ Уф! Два дня​

   

3. ​:)​ процедуры в конкретных​ которых шёл рассказ​​ других можно настроить​​ в том числе​​На вкладке​ ​ границу заголовка строки​

Изменение ширины по умолчанию для всех столбцов листа или книги

​в группе​ грамматические ошибки. Для​ открытым кодом просьба​ я все равно​ словам​ := H1 +​ For i =​ полученную высоту с​ As Long Dim​

1. ​ бился :)​: Инопланетяне как раз​

   • ​ условиях. Кроме того,​ при описании предыдущего​ автоматическое выполнение данной​ с помощью переноса​

   • ​Главная​ до нужной высоты.​Буфер обмена​ нас важно, чтобы​ обращаться на мой​ не пойму каким​в 2003 тоже​​ MRng.Rows[i].RowHeight ; //Ширина​​ 2 To MRng.Rows.Count​

     

2. ​ исходной высотой всего​​ HRow1 As Long​​vikttur​​ сюда и заходят​​ есть дополнительный способ​​ способа. В них​​ процедуры в зависимости​

   

3. ​ текста по словам​​в группе​​Чтобы изменить высоту нескольких​​нажмите кнопку​​ эта статья была​

4. ​ почтовый ящик.​​ макаром вы предлагаете​​ способ с правой​ левого столбца в​ H1 = H1​​ объединённого диапазона. И​​ ‘Высота верхней строки​

   ​: ik2532, почему бы​​ за помощью, многие​

   • ​ вместить содержимое в​ нужно будет ввести​ от длины содержимого.​ и объединения ячеек.​Ячейки​ строк, выберите нужные​Копировать​ вам полезна. Просим​Постарался учесть замечания​ подобрать нужную высоту​ кнопкой должен работать​ диапазоне объединения. WCol1​

   • ​ + MRng.Rows(i).RowHeight Next​ если оказалось, что​

   • ​ в диапазоне объединения.​ не показать народу​

Изменение ширины столбца с помощью мыши

​ потом приживаются :)​ пределы ячейки с​

• ​ желаемую ширину и​Самый простой и интуитивно​На примере ниже некоторая​нажмите кнопку​

  

• ​ строки и перетащите​.​ вас уделить пару​ в примере от​ строки.​adamo86​ := MRng.Columns[1].ColumnWidth; //Подсчитываем​

• ​ i ‘Ширина левого​ полученная высота больше​ Dim H1 As​ результат Ваших двухдневных​Пробуйте для формул​ помощью автоподбора ширины.​ высоту выделенного диапазона​ понятный вариант увеличить​ часть текста в​

• ​Формат​ нижнюю границу заголовка​Щелкните правой кнопкой мыши​​ секунд и сообщить,​​ VovaK.​То Noname (который​: Перенос он делает.​

  

Установка заданной высоты строки

1. ​ исходную ширину диапазона​ столбца в диапазоне​ исходной, тогда на​

2. ​ Long ‘Исходная высота​​ мучений?​​ в ячейках B2,C3,​​ Правда, последний метод​​ ячеек. Для того,​​ размеры ячейки –​​ столбце​

   

3. ​.​​ одной из выбранных​​ ячейку в целевом​​ помогла ли она​​Автоподбор высоты. Версия​

4. ​ прислал макрос) :​​ Но этого перенесенного​​ объединения по совокупности​​ объединения. WCol1 =​​ соответствующую величину увеличиваем​

Изменение высоты строки в соответствии с содержимым ячеек

1. ​ по совокупности всех​Казанский​ текстовый результат которых​

2. ​ имеет целый ряд​​ чтобы ячейки увеличились,​​ это перетащить границы​​A​​В разделе​​ строк.​​ столбце, выберите пункт​

   

3. ​ вам, с помощью​​ 2.5 beta​​ если возможно вкратце​​ текста не видно.​​ всех его столбцов.​

   ​ MRng.Columns(1).ColumnWidth ‘Подсчитываем исходную​​ высоту верхней строки​ строк объединения. Dim​: А тут не​​ нужно выровнять по​​ ограничений.​ новая величина этих​ вручную. Это можно​

Изменение высоты строки с помощью мыши

​не отображается, поскольку​Размер ячейки​

• ​Чтобы изменить высоту всех​Специальная вставка​ кнопок внизу страницы.​EducatedFool​

  

• ​ подскажите как мне​ Приходиться увеличить высоту​ W1 := WCol1;​ ширину диапазона объединения​ диапазона.​ H2 As Long​

• ​ оно?​ высоте. Код модуля​Автор: Максим Тютюшев​​ параметров должна быть​​ сделать на вертикальной​ ширина ячейки слишком​выберите пункт​

  

• ​ строк на листе,​и нажмите кнопку​ Для удобства также​: > Автоподбор высоты.​ этот макрос приделать​

​ ячейки, чтобы показался​

​ for i :=​ по совокупности всех​- Вновь объединяем​ ‘Наименьшая необходимая высота​Guest​ листа:​Ниже описано, как изменить​​ больше, чем установленная​​ и горизонтальной шкале​​ мала. Мы можем​​Ширина по умолчанию​​ нажмите кнопку​​Сохранить ширину столбцов оригинала​ приводим ссылку на​ Версия 2.5 beta​ под мой пример,​ этот текст.​ 2 to MRng.Columns.Count​ его столбцов. W1​ все нужные ячейки.​ для показа текста​: Так я, вроде,​Private Sub Worksheet_Calculate()​

• ​ выравнивание текста в​​ ранее.​ ​ координат строк и​​ сделать весь текст​​.​​Выделить все​​.​

• ​ оригинал (на английском​​высота подбирается не​​ а то я​​caustic​​ do W1 :=​​ = WCol1 For​​—​

Установка заданной ширины столбца

1. ​ в объединённой ячейке.​ всё ясно рассказал.​Application.ScreenUpdating = False​

2. ​ ячейке, чтобы данные​​Существуют ситуации, когда нужно​​ столбцов.​​ видимым, просто изменив​​В поле​​, а затем перетащите​​Значение ширины столбца по​

   

3. ​ языке) .​​ совсем точно…​​ попробовал а он​​: на моем скриншоте​​ W1 + MRng.Columns[i].ColumnWidth​

4. ​ i = 2​​Книга MS Excel​​ Dim WCol1 As​

Автоматическое изменение ширины столбца в соответствии с содержимым ячеек (автоподбор)

1. ​ Да и зачем​With Range(«B2,C3»)​ выглядели лучше.​

2. ​ увеличить абсолютно все​​Устанавливаем курсор на правую​​ ширину столбца​​Ширина столбца​​ нижнюю границу заголовка​​ умолчанию указывает приблизительное​​Если вы поймете которым​

   

3. ​Но, полагаю, в​​ виснет (.​​ у ячейки где​​ ; //Теперь разъединяем​​ To MRng.Columns.Count W1​

​ с этим кодом​​ Long ‘Исходная ширина​ кому это в​.WrapText = True​​Выделите ячейки с текстом,​​ ячейки листа или​ границу сектора на​А​

Изменение ширины столбца в соответствии с шириной другого столбца

1. ​введите новое значение.​ любой строки.​

2. ​ количество символов стандартного​​ необходимо расширить или​​ общем случае автоподбор​​vikttur​​ я написал бессмысленный​​ ячейки. MRng.MergeCells :=​​ = W1 +​ приложена к сообщению.​

   

3. ​ левого столбца в​​ Дельфийской транскрипции, к​​.HorizontalAlignment = xlFill​​ который вы хотите​​ даже книги. Разберемся,​ горизонтальной шкале координат​​.​​Совет​​Чтобы изменить высоту строки​​ шрифта, которое умещается​

4. ​ сузить строки ширины​​ высоты таких ячеек​​: Я и не​ набор текста была​​ False; //Ширину левого​​ MRng.Columns(i).ColumnWidth Next i​

Изменение ширины по умолчанию для всех столбцов листа или книги

​Fistashka​ диапазоне объединения. Dim​ тому же сырое?​.HorizontalAlignment = xlGeneral​ выровнять.​ как это сделать.​ той колонки, которую​Наведите курсор на границу​   . Если требуется определить​

1. ​ в соответствии с​ в ячейке. Можно​

   • ​ и высоты столбцов​ — задача весьма​ говорил подбирать. Предложил​ стандартная высота «11.25».​

   • ​ столбца делаем равным​ ‘Теперь разъединяем ячейки.​: Благодарствую, буду думать​ W1 As Long​ Впрочем, см. файл.​End With​На вкладке​​Для того, чтобы совершить​​ хотим расширить. При​

     

2. ​ столбца справа от​​ новое значение ширины​​ содержимым, дважды щелкните​​ указать другое значение​​ в Excel, существует​​ нетривиальная, и алгоритм​​ вариант (корявый, не​

   

3. ​ как только я​​ исходной ширине всего​​ MRng.MergeCells = False​​ ))​​ ‘Исходная ширина по​

4. ​Guest​​Application.ScreenUpdating = True​​Главная​

​ данную операцию, следует,​​ этом появляется крестик​ заголовка, он примет​ столбцов по умолчанию​ нижнюю границу заголовка​ ширины столбца по​ несколько способов для​ будет достаточно сложным.​ спорю) — для​ закончил печатать и​ диапазона объединения. Cell.ColumnWidth​ ‘Ширину левого столбца​Mawrat​ совокупности всех столбцов​: Спасибо, не видел.​End Sub​

Изменение ширины столбца с помощью мыши

​выберите один из​ прежде всего, выделить​

• ​ с двумя указателями,​ вид двойной стрелки.​ для всех новых​ строки.​

  

• ​ умолчанию для листа​ их настройки. В​PS: Я тоже​ всех выставить минимально​ нажал Ентер, высота​ := W1; //Задаём​ делаем равным исходной​

• ​: Сделал перевод для​ объединения. Dim i​ Открыл, посмотрел, но​GM51​ указанных ниже вариантов​ нужные элементы. Для​ направленными в противоположные​Нажмите и, не отпуская​ книг и листов,​

• ​К началу страницы​ или книги.​ приведенной ниже таблице​​ когда-то пытался сделать​​ возможную для отражения​ автоматически увеличилась как​ режим переноса текста​

  

Установка заданной высоты строки

1. ​ ширине всего диапазона​ Delphi.​ As Long If​

2. ​ сходу въехать не​​: часто надо вывести​​ выравнивания.​​ того, чтобы выделить​​ стороны. Зажимаем левую​​ левую кнопку мыши,​​ можно создать шаблон​

   

3. ​Если вы предпочитаете работать​​Выполните одно из указанных​​ показывает минимальное значение,​​ подобный макрос:​​ всего текста максимальной​

4. ​ на рисунке.​​ по словам. Cell.WrapText​​ объединения. Cell.ColumnWidth =​

Изменение высоты строки в соответствии с содержимым ячеек

1. ​Там в коде​ aRng Is Nothing​ могу — у​

2. ​ несколько столбиков с​​Чтобы выровнять текст по​​ все элементы листа,​​ кнопку мыши и​​ переместите курсор, чтобы​​ книги или листа,​​ с ширины столбцов​

   

3. ​ ниже действий.​​ по умолчанию и​​nerv​​ длины.​​если вы говорите​

​ := True; //Выполняем​​ W1 ‘Задаём режим​ ещё надо подправить​ Then Exit Sub​​ меня от VBAшного​​ минимумом оформления, но​ вертикали, выберите​ можно просто нажать​

Изменение высоты строки с помощью мыши

​ тащим границы вправо,​ увеличить или уменьшить​

• ​ а затем создавать​ и высоты строк​Чтобы изменить ширину столбца​ максимальный размер для​

  

• ​: Позвольте поблагодарить Вас​Появились более удобные​ про динамичное изменение​ подгон высоты верхней​ переноса текста по​ одну строчку.​

• ​ ‘Подгоняем высоту строк​ синтаксиса умопомрачение наступает​ с большим объемом​​Выровнять по верхнему краю​​ сочетание клавиш на​ то есть, подальше​ ширину столбца.​

  

• ​ новые книги и​ в дюймах, будет​ по умолчанию для​ каждого на основе​ за пример :​

​ варианты. И это​

support.office.com

Изменение ширины столбцов и высоты строк в Excel

​ высоты ячейки во​ строки. Cell.Rows.AutoFit; //Выполняем​ словам. Cell.WrapText =​Заменить:​ для ячеек, которые​ На досуге​ информации в ячейке​,​ клавиатуре​ от центра расширяемой​Отпустите левую кнопку мыши.​ листы на его​ работать в режиме​ листа, щелкните ярлычок​

​ масштаба точки.​ )​ есть хорошо.​ время набора текста​ замер получившейся высоты​ True ‘Выполняем подгон​If Cell.MergeCells And​ не входят в​ поразбираюсь… Но если​ или непредсказуемый перечень​Выровнять по середине​Ctrl+A​ ячейки.​

Изменение ширины столбца в Excel

​ Ширина изменится.​ основе. Дополнительные сведения​ разметки страницы (вкладка​​ листа.​​Тип​Пытаясь идти по​Guest​ — это на​ верхней строки. //Это​ высоты верхней строки.​​ (Cell = MRng.Cells(1,​​ диапазоны объединённых ячеек.​

1. ​ сходу в двух​ столбцов. Возникают проблемы​или​. Существует и второй​
2. ​При необходимости подобную процедуру​Если вы вдруг увидели,​ см. в статье​ «​Чтобы изменить ширину столбца​
3. ​Минимум​ пути наименьшего сопротивления,​

​: или так: попробуйте​ сколько мне известно,​ наименьшая высота, пригодная​ Cell.Rows.AutoFit ‘Выполняем замер​ 1)) Thenна:​ aRng.Rows.AutoFit ‘Отключаем режим​ словах сможете прокомментировать,​ переноса при печати.​Выровнять по нижнему краю​ вариант выделения. Он​ можно проделать и​

Автоподбор ширины столбца и высоты строки в Excel

​ что вместо ожидаемого​​ Сохранение книги или​​Вид​ по умолчанию для​Максимум​ могу предложить следующий​

1. ​ изменить ячейку(добавить пробел,​ не возможно​ для показа текста.​ получившейся высоты верхней​
2. ​If Cell.MergeCells And​ показа предупреждений. Это​ что там происходит,​ Для их решения​.​

​ предполагает нажатие на​​ со строками. Для​​ результата, вся ячейка​ листа в качестве​», группа​ всей книги, щелкните​По умолчанию​ вариант решения: собрать​​ например)​​vadi61​ H2 := Cell.Rows[1].RowHeight;​​ строки. ‘Это наименьшая​​ (Cell.Address = MRng.Cells(1,​​ надо для того,​​ буду благодарен.​ в дополнительном столбце(в​Чтобы выровнять текст по​ кнопку в виде​

Изменение высоты строки в Excel

1. ​ этого нужно поставить​ заполнена знаками решетки​ шаблона.​Режимы просмотра книги​
2. ​ правой кнопкой мыши​Гистограмма​ адреса с ячейками,​ps 88666​: Если речь идет​
3. ​ //Если исходная высота​ высота, пригодная для​

Изменение высоты всех строк на листе Excel

​ 1).Address) ThenПотому что​ чтобы в следующей​ik2532​ данном случае в​ горизонтали, выберите​ прямоугольника, которая расположена​ курсор на нижнюю​ (;##), это означает,​Выполните одно из указанных​, кнопка «​ ярлычок какого-либо листа,​0 (скрыт)​ в кот. объединены​

1. ​GIG_ant​ об объединенных ячейках​ диапазона объединения оказалась​ показа текста. H2​​ в коде​​ части ‘программы не​: Вроде более-менее понял​ д1 формирую закон​
2. ​Выровнять по левому краю​ между вертикальной и​ границу строки, которую​ что ширины недостаточно​
3. ​ ниже действий.​Разметка страницы​ а затем выберите​255​ строки в массив​
4. ​: А я как​ (текст вводится в​ меньше, чем наименьшая​ = Cell.Rows(1).RowHeight ‘Если​

​If … (Cell​ появлялось сообщение с​ суть. Практически то​ печати,размножаю его по​​,​​ горизонтальной шкалой координат​

​ собираетесь расширить. Аналогичным​ для отображения содержимого​
​Чтобы изменить ширину одного​
​»). В режиме​

​ пункт​

office-guru.ru

Расширение ячеек в Microsoft Excel

​8,43​ и пройти по​ правильный искал автоПодбор!​ ячейки которые объеденены),​ //пригодная высота, то​ исходная высота диапазона​ = MRng.Cells(1, 1))​ предупреждением о последствиях​ же самое, только​ столбцу, в а1​Выровнять по центру​ Excel.​ способом зажать левую​ ячейки. Просто увеличьте​ столбца, перетащите правую​

​ разметки страницы можно​Выделить все листы​

Процедура расширения

​Строка​ ним еще раз)​ ;-)​ то даже включение​ увеличиваем высоту верхней​ объединения оказалась меньше,​ … Thenна самом​ объединения. DispAl =​ я взял новую​

Способ 1: простое перетаскивание границ

​ указываю номер этого​или​После того, как выделили​ кнопку мыши и​ ширину столбца, чтобы​ границу его заголовка​ указать столбец ширины​в контекстное менюTE000127572.​0 (скрыт)​

1. ​На Вашем примере:​Спасибо за ссылку,​ параметра Переносить по​ строки на соответствующую​ чем наименьшая ‘пригодная​ деле сравниваются не​ Application.DisplayAlerts Application.DisplayAlerts =​ ячейку сбоку, а​ столбца и вызываю​Выровнять по правому краю​ любым из этих​ тянуть границы вниз.​ все содержимое полностью​ до нужной ширины.​

   

2. ​ или высоты строки​На вкладке​409​1. Выделяем ВЕСЬ​ помогло.​ словам не приведет​ величину. if H1​ высота, то увеличиваем​ ссылки на указанные​ False ‘Перебор всех​

​ тут берут первую​ стандартный макрос м11.​.​ способов лист, жмем​Внимание! Если на горизонтальной​ поместилось.​Чтобы изменить ширину нескольких​ в дюймах. В​Главная​15,00​ лист, подбираем высоту​Всем остальным спасибо​ к увеличению ширины​ < H2 then​ высоту верхней строки​

Способ 2: расширение нескольких столбцов и строк

​ объекты, а сравниваются​ ячеек диапазона. For​ ячейку из объединённых,​

1. ​ Получаю c:otchet00.doc, открываю​Если строка с текстом​ на уже знакомую​

   

2. ​ шкале координат вы​Инструмент​ столбцов, выделите столбцы,​ этом представлении дюймов​в группе​Примечания:​2. Выделяем строку​ за участие.​ ячейки. Прийдется тянуть​ Cell.Rows[1].RowHeight := HRow1​ на соответствующую величину.​

   

3. ​ значения свойств по​ nRow = 1​ сначала отменяя объединение,​ и печатаю с​

Способ 3: ручной ввод размера через контекстное меню

​ слишком длинная, его​ нам кнопку​ установите курсор на​Автоподбор​ ширину которых требуется​ являются единицу измерения​Ячейки​ ​ 3, подбираем высоту​vikttur​ вручную.​

1. ​ + (H2 -​ If H1 <​ умолчанию для этих​ To aRng.Rows.Count For​ форматируют текст, и​ автоподгонкой по ширине​ часть может быть​«Формат»​​ левую границу расширяемого​​позволяет установить ширину​

   

2. ​ изменить, а затем​ по умолчанию, но​нажмите кнопку​Если вы работаете в​3. Выделяем строку​: Ух ты! Это​GIG_ant​​ H1) ; //Возвращаем​​ H2 Then Cell.Rows(1).RowHeight​

​ объектов. Так как​ nCol = 1​

1. ​ потом, узнав нужную​ и по страницам.​ не видна. Чтобы​на ленте и​ столбца, а на​ столбца или высоту​​ перетащите правую границу​​ вы можете изменить​

   

2. ​Формат​ режиме разметки страницы​ 4, подбираем высоту​ вообще красота!​: Добрый день, уважаемые​ левому столбцу диапазона​​ = HRow1 +​​ Cell и MRng.Cells(1,​

​ To aRng.Columns.Count ‘Берём​ высоту, объединяют ячейки​ Если проблемы -перехожу​ исправить это, не​

Способ 4: ввод размера ячеек через кнопку на ленте

​ производим дальнейшие действия​ вертикальной – на​ строки в соответствии​ заголовка любого выделенного​

1. ​ единицы измерения на​.​ (вкладка «​

   

2. ​4. Выделяем строку​​Guest​​ !​ его прежнюю ширину.​ (H2 — H1)​ 1) принадлежат типу​ очередную ячейку. Set​ обратно и выставляют​ на альбомную или​ меняя ширину столбца,​​ точно так же,​​ верхнюю границу строки,​​ с его содержимым.​​ столбца.​ сантиметры или миллиметр.​В разделе​Вид​ 5, подбираем высоту​: даже автоподбор не​Собственно вопрос: есть​ Cell.ColumnWidth := WCol1;​ End If ‘Возвращаем​ Excel.Range, то для​ Cell = aRng.Cells(nRow,​ нужную высоту.​ уменьшаю шрифт​ нажмите​ как описано в​ выполнив процедуру по​

Способ 5: увеличение размера всех ячеек листа или книги

​Наведите курсор на границу​Чтобы изменить ширину столбцов​В Excel 2007, нажмите​Размер ячейки​», группа «​

1. ​На данный момент​ любит Alt+Enter​ файлик в нем​ //Объединяем все нужные​ левому столбцу диапазона​ них свойством по​ nCol) ‘Определяем диапазон​Diana​za-vod​​Перенести текст​​ предыдущем способе с​ перетягиванию, то размеры​ столбца справа от​ в соответствии с​Кнопку Microsoft Office​выберите пункт​Режимы просмотра книги​ это все делается​

   

2. ​vikttur​ куча строк с​ ячейки. MRng.MergeCells :=​ его прежнюю ширину.​ умолчанию будет Value.​​ объединения, в который​​: Я два дня​: Инопланетяне как раз​.​ переходом по пунктам​ целевых ячеек не​ заголовка, он примет​​ содержимым ячеек, выберите​​>​​Ширина по умолчанию​​», кнопка «​

​ руками, но можно​:​ объединенными ячейками, в​ True; end; //for​ Cell.ColumnWidth = WCol1​ Т. е. код:​

1. ​ входит ячейка Cell.​ искала этот пост​ сюда и заходят​Чтобы выровнять по центру​«Ширина столбца…»​ увеличатся. Они просто​ вид двойной стрелки.​​ столбец или столбцы,​​Параметры Excel​

   

2. ​.​Разметка страницы​ и автоматизировать :​Накололся :(​​ этих строках куча​​ nRow, nCol. //Восстанавливаем​ ‘Объединяем все нужные​

​If … (Cell​​ Set MRng =​ :)​

Способ 6: автоподбор ширины

​ за помощью, многие​ текст, занимающий несколько​и​ сдвинутся в сторону​По двойному щелчку левой​ которые требуется изменить,​>​В поле​»), вы можете​ )​Я то сначала​ текста и видна​ прежний режим показа​ ячейки. MRng.MergeCells =​ = MRng.Cells(1, 1))​

1. ​ Cell.MergeArea ‘Если в​Казанский, спасибо!!! :))​ потом приживаются :)​ строк или столбцов,​«Высота строки…»​ за счет изменения​ кнопкой мыши ширина​​ и дважды щелкните​​Дополнительно​

   

2. ​Ширина столбца​ указать высота строки​​Опять таки, следует​​ подумал, что это​​ в каждой строке​​ предупреждений. aRng.Application.DisplayAlerts :=​ True End If​​ … Thenэквивалентен коду:​​ самом деле ячейка​​Fistashka​​Пробуйте для формул​ нажмите кнопку​

​.​ величины других элементов​ столбца автоматически изменится​ правую границу заголовка​.​введите новое значение,​ или ширина столбца​ оговориться, это решение​ обычное поведение Excel,​ только часть текста.​ DispAl; end; procedure​ Next nCol Next​If … (Cell.Value​ принадлежит диапазону объединённых​: В ячейку вставляется​ в ячейках B2,C3,​Объединить и выровнять по​Аналогичные действия производим для​ листа.​ в соответствии с​ одного из выделенных​В Excel 2010, выберите​ а затем нажмите​ в дюймах, сантиметрах​ на скорую руку,​ стоит только войти​

​ Соответственно автоподбор высоты​ TForm1.Button1Click(Sender: TObject); var​ nRow ‘Восстанавливаем прежний​ = MRng.Cells(1, 1).Value)​ ячеек и эта​ очень длинный текст,​ текстовый результат которых​ центру​ увеличения размера ячеек​Существует также вариант расширить​ содержимым ячеек.​ столбцов.​файл​ кнопку​ и миллиметры. Единицы​ и как оно​ в ячейку.​ строк на объединенных​ App, Book, Sh,​ режим показа предупреждений.​

​ … ThenА это​

lumpics.ru

Выравнивание текста в ячейке

​ ячейка ‘является левой​ который при печати​ нужно выровнять по​.​

1. ​ всей книги. Только​ несколько столбцов или​Вы можете воспользоваться инструментом​

2. ​Чтобы изменить ширину всех​​>​​ОК​ измерения — дюймы​ будет вести себя​

   

3. ​nerv​ не работает, а​​ Rng : Variant;​ ​ Application.DisplayAlerts = DispAl​​ не то что​ ​ верхней ячейкой в​​ просто не виден.​ ​ высоте. Код модуля​

4. ​Чтобы отменить выравнивание сразу​ для выделения всех​​ строк одновременно.​ ​Автоподбор​​ столбцов на листе,​ ​Параметры​​.​ ​ по умолчанию. Последовательно​

5. ​ на бланках документов,​: Как установить: Скачать,​ нужно увидеть весь​ Od : TOpenDialog;​ End Sub ‘Проверка.​ нам нужно. Нам​ этом диапазоне, тогда​​ Нужно, чтобы продолжение​​ листа:​

6. ​ после его применения,​ листов используем другой​Выделяем одновременно несколько секторов​для изменения ширины​​ нажмите кнопку​>​​Советы:​

Отмена выравнивания

• ​ выберите пункты​ отдельная тема. Хотя,​ распаковать архив. Открыть​​ текст и распечатать.​​ begin Od :=​

• ​ Sub Sub1() Dim​ надо не значение​ запускаем алгоритм подгона​ текста переносилось в​​Private Sub Worksheet_Calculate()​​ нажмите кнопку​​ прием.​​ на горизонтальной и​​ сразу нескольких столбцов.​

​Выделить все​​Дополнительно​ ​файл​

​ по идее, должно​ Excel, в меню​ Пока что я​ OpenDialog1; if Od.InitialDir​ Rng As Excel.Range​ ячеек сравнивать, а​

support.office.com

Автоматическая подгонка высоты строк

​ высоты. If Cell.MergeCells​​ сторку ниже.​Application.ScreenUpdating = False​Отменить​Кликаем правой кнопкой мыши​ вертикальной шкале координат.​ Для этого выделите​, а затем перетащите​.​

​Требуется определить ширину столбца​​>​ быть все правильно)​ «Сервис», выбрать пункт​ впал в ступор​ = » then​ Dim Sh As​ выяснить, ссылаются ли​ And (Cell =​

​Пишу на Delphi.​​With Range(«B2,C3»)​.​ по ярлыку любого​Устанавливаем курсор на правую​

​ столбцы, которые необходимо​​ правую границу заголовка​Выберите столбец или столбцы,​ по умолчанию для​

​Параметры​​nerv​ Надстройки, нажать кнопку​
​ и не могу​ Od.InitialDir := ExtractFilePath(​ Excel.Worksheet Set Sh​ эти переменные на​ MRng.Cells(1, 1)) Then​Mawrat​.WrapText = True​Чтобы изменить выравнивание позже,​

​ из листов, который​​ границу самой правой​ изменить, а затем​ любого столбца.​ ширину которых требуется​ всех новых книг​>​: Применил немного другой​

​ обзор, указать путь​​ ничего придумать. Буду​ ParamStr(0) ) ;​ = Application.ActiveSheet Set​ одну и ту​ ‘Высота верхней строки​: Для такой ячейки​.HorizontalAlignment = xlFill​
​ выберите нужную ячейку​ расположен внизу окна​ из ячеек (для​ на вкладке​

​Выберите строку или строки,​​ изменить.​ и листов, можно​

​Дополнительно​​ алгоритм, в отличии​ к файлу. Закрыть​ признателен за участие​ if not Od.Execute​
​ Rng = Sh.Range(«A1:J5»)​ же ячейку. Для​ в диапазоне объединения.​ надо выставить свойство​.HorizontalAlignment = xlGeneral​

​из раскрывающегося меню​​ изменить.​Главная​ или листа шаблон​Отображение​Попытался учесть замечания​ установки надстройки на​ вопроса. Наглядности в​ not FileExists(Od.FileName) then​ SubКод Delphi:​ использовать свойство Address.​ ‘Подсчитываем исходную высоту​Delphi var exCell,​Application.ScreenUpdating = True​Очистить​ меню выбираем пункт​ самой нижней ячейки​ команды​На вкладке​в группе​ и затем основаны​> выберите один​ от EducatedFool.​ панели инструментов, должна​ файле.​

​ новых книг или​​ списке​ 2.7 beta​
​ высоты строк».​: Попробуйте не автоподбор,​ именем не найден.​
​ для подгона высоты​
​Option Explicit ‘Эта​ строк. H1 =​ := True; //Перенос​ неправильно делаю или​форматы​После того, как листы​ мыши и тянем​Автоподбор ширины столбца​Ячейки​Формат​

​ листов. Приведены дополнительные​​Единицы измерения линейки​nerv​Как пользоваться: так​ а ширину строки​ Действие отменено.’) ,PChar(‘Предупреждение.’)​
​ строк по содержимому​ процедура предназначена для​ HRow1 For i​

​ текста по словам.После​​ что то не​.​ выделены, производим действия​ появившуюся стрелочку соответственно​
​. Этот же способ​

​нажмите кнопку​​.​ сведения по следующим​. Если переключиться в​: эм, ну как​
​ же, как и​ (не более 409).​ ,MB_OK + MB_ICONWARNING​ ячеек в пределах​ подгона высоты строк​ = 2 To​ того, как во​ понимаю, но почему​Примечание:​ на ленте с​ вправо или вниз.​ может быть использован​Формат​В разделе​ ссылкам:​Обычный​ то так…​ обычным подбором высоты​GIG_ant​ + MB_APPLMODAL );​ //заданного диапазона aRng.​ по содержимому ячеек​
​ MRng.Rows.Count H1 =​ всех ячейках нужного​ то макрос вставленные​ В Excel Online нельзя​ использованием кнопки​Таким образом расширяется не​ для автоподбора высоты​.​Размер ячейки​Настройка Windows — способа​режим нажмите ширины​Автоподбор высоты. Версия​ строк.​: не очень понял,​ Exit; end; App​ Ячейки могут быть​ в пределах ‘заданного​ H1 + MRng.Rows(i).RowHeight​

​ диапазона текст будет​​ по формуле в​ изменить угол наклона​«Формат»​ только крайний диапазон,​

​ строки.​​В разделе​выберите пункт​

​ запуска Excel​​ столбцов и высоты​ 2.7​Цель надстройки: забыть​ можно поподробней плз​ := CreateOleObject(‘Excel.Application’); App.Visible​ любыми, в том​ диапазона aRng. Ячейки​

​ Next i ‘Ширина​​ установлен, можно выполнить​ указанные ячейки значения​ текста в ячейке.​, которые были описаны​ но и ячейки​Наведите курсор на нижнюю​Размер ячейки​Ширина столбца​Настройка Mac — способа​ строк будет отображаться​KuklP​ о том, что​

​vikttur​​ := True; Book​ числе, объединёнными. procedure​ могут быть любыми,​ левого столбца в​ подбор высоты строк​ автоматически не регулирует​Улучшить отображение текста можно​ в четвертом способе.​ всей выделенной области.​ границу заголовка строки,​выберите пункт​.​ запуска Excel​

​ в пунктах.​​: nerv, это Вы​ существует какая-то разница​: Автоподбор же как-то​
​ := App.Workbooks.Open(Od.FileName); //Первый​

planetaexcel.ru

Выравнивание высоты объединённых ячеек Excel по их содержимому. AutoFit для объединённых ячеек Excel.

​ RngAutoFit(var aRng :​​ в том числе,​ диапазоне объединения. WCol1​ так, чтобы весь​ их высоту.​ и другими способами,​Урок:​Также можно произвести ручной​
​ он примет вид​

​Высота строки​​Введите значение в поле​Выполните одно из указанных​Отдельных строк и столбцов​
​ с кем разговариваете?:-)​ между подбором строк​ хотели сделать?​ лист в рабочей​ Variant); var //Cell​ объединёнными. Sub RngAutoFit(ByRef​ = MRng.Columns(1).ColumnWidth ‘Подсчитываем​ текст с учётом​za-vod​ например применив к​Как сделать ячейки одинакового​ ввод размера ячеек,​ двойной стрелки.​
​.​Ширина столбцов​ ниже действий.​ может иметь только​nerv​ с объединенными или​Меню Формат-Строка-Высота.​
​ книге. Sh :=​ — Отдельная ячейка,​ aRng As Excel.Range)​ исходную ширину диапазона​ переносов оказался видимым:​

​: Private Sub Worksheet_Change(ByVal​​ нему различные шрифтыили​ размера в Excel​
​ измеряемый в числовых​Нажмите и, не отпуская​Введите значение в поле​.​Чтобы изменить ширину одного​ один параметр. Например​

​: KukLP, я все​​ обычными ячейками.​Guest​ Book.Worksheets[1]; //Весь используемый​ MRng — диапазон​ Dim Cell As​ объединения по совокупности​Delphi var exRange,​ Target As Range)​ изменив цвет заливки​Данный способ нельзя назвать​ величинах. По умолчанию​ левую кнопку мыши,​Высота строки​Выберите столбец или столбцы,​
​ столбца, перетащите правую​ один столбец может​ пытаюсь победить автоподбор.​Тем, кто будет​: принцип такой:​ диапазон ячеек на​ объединения ячеек. Cell,​ Excel.Range ‘Отдельная ячейка.​ всех его столбцов.​ … : Variant;​If Not Intersect(Range(«a1»).Precedents,​ в ячейке.​ полноценным увеличением размера​ высота имеет размер​ переместите курсор, чтобы​.​ ширину которых требуется​ границу его заголовка​ иметь ширины 25​
​ Пока ничья)​ пользоваться: в случае​Private Sub Worksheet_Change(ByVal​ листе. Rng :=​
​ MRng : Variant;​ Dim MRng As​ W1 = WCol1​ begin … exRange.Rows.AutoFit;​ Target) Is Nothing​za-vod​ ячеек, но, тем​ 12,75 единиц, а​ увеличить или уменьшить​Выберите строку или строки,​ изменить.​ до нужной ширины.​ точки, но оно​Устраняю недочеты, и​ обнаружения ошибки, просьба​ Target As Range)​ Sh.UsedRange; //Если требуется​ DispAl : Boolean;​ Excel.Range ‘Диапазон объединения​ For i =​ //Подпор высоты строк​ Then Rows(«1:1»).EntireRow.AutoFit​: В ячейку вставляется​ не менее, он​ ширина – 8,43​ высоту строки.​ высоту которых требуется​На вкладке​Чтобы изменить ширину нескольких​ не может быть​ выкладываю обновленную надстройку​ написать по адресу:​Dim cell As​ повысить скорость работы,​ nRow, nCol, HRow1,​ ячеек. Dim DispAl​ 2 To MRng.Columns.Count​ по содержимому ячеек.Также​End Sub​ различный объём текста.​ тоже помогает полностью​ единицы. Увеличить высоту​Отпустите левую кнопку мыши.​ изменить.​Главная​ столбцов, выделите столбцы,​ 25 пунктов разместить​ : )​ [email protected] Так же​ Range​ следует отключить //режим​ //Высота верхней строки​ As Boolean Dim​ W1 = W1​ можно выполнять подгонку​Макрос работает отлично.​ Какой опцией можно​ уместить текст в​ можно максимум до​ Высота строки изменится.​На вкладке​в группе​ ширину которых требуется​ на одну строку​Начальника​ принимаются замечания и​Dim mrg As​ перерисовки экрана. Но​ в диапазоне объединения.​ nRow As Long​ + MRng.Columns(i).ColumnWidth Next​ ширины столбцов:​ Сделано качественно. Однако​ установить, чтоб при​ имеющиеся границы. При​ 409 пунктов, а​Вместо того чтобы изменять​Главная​Ячейки​ изменить, а затем​ и 10 пунктов​: макрос закрыл, но​ предложения : )​ Double​ после обработки надо​ H1, //Исходная высота​ Dim nCol As​ i ‘Теперь разъединяем​Delphi var exRange,​ попытки распространить макрос​ большом тексте высота​ его помощи происходит​ ширину до 255.​ размеры строк и​в группе​нажмите кнопку​ перетащите правую границу​ для другого.​ могу поделиться!​VovaK​Dim rh As​ не забыть //этот​ по совокупности всех​ Long Dim HRow1​ ячейки. MRng.MergeCells =​ … : Variant;​ на другие ячейки​ увеличивалась, а если​ автоматическое уменьшение символов​Для того чтобы изменить​ столбцов по отдельности,​Ячейки​Формат​ заголовка любого выделенного​Более новые версии​ну а кому​: Без комментариев…​ Double​ режим включить вновь​ строк объединения. H2,​ As Long ‘Высота​ False ‘Ширину левого​ begin … exRange.Columns.AutoFit;​ никчему не привели.​ текст меньше уменьшалась​ текста настолько, чтобы​ параметры ширины ячеек,​ Вы также можете​нажмите кнопку​.​ столбца.​ Office 2007 и​ сильно надо -​nerv​Dim rr As​ — чтобы пользователь​ //Наименьшая необходимая высота​ верхней строки в​ столбца делаем равным​ //Подпор ширины столбцов​ Уважаемый форумчяне! Может​ и наоборот.​ он поместился в​ выделяем нужный диапазон​ изменить их одновременно.​Формат​
​В разделе​
​Чтобы изменить ширину столбцов​ 2010 ​
​ сами пароль подберут​: Большое спасибо за​
​ Range​ мог работать //с​ для показа текста​ диапазоне объединения. Dim​ исходной ширине всего​
​ по содержимому ячеек.​ ли работать данный​za-vod​ ячейку. Таким образом,​
​ на горизонтальной шкале.​ Этот метод позволяет​.​
​Размер ячейки​ в соответствии с​Выберите столбец или столбцы,​ :-)​ пример! Такой случай​Dim iLastColumn As​ открытой книгой. //App.ScreenUpdating​ в объединённой ячейке.​ H1 As Long​ диапазона объединения. Cell.ColumnWidth​
​Fistashka​ макрос для диапазона​
​: при автопотборе ширины​
​ можно сказать, что​ Кликаем по нему​ установить единый размер​

​В разделе​​выберите пункт​ содержимым ячеек, выберите​

​ ширину которых требуется​​nerv​ я не рассматривал,​
​ Long​ := False; //Подгон​ WCol1, //Исходная ширина​
​ ‘Исходная высота по​
​ = W1 ‘Задаём​: Спасибо большое, буду​ ячеек(нескольких строк; нескольких​
​ ячейка остаётся без​ её размеры относительно​ правой кнопкой мыши.​ всех строк и​
​Размер ячейки​Автоподбор ширины столбца​ столбец или столбцы,​ изменить.​: смотрите сами :​ хотя в голове​If Not Target.MergeCells​ высоты строк по​ левого столбца в​ совокупности всех строк​ режим переноса текста​ пытаться )))​ ячеек и т.п.)​ изменения, а текст​ текста увеличиваются.​
​ В появившемся контекстном​ столбцов на листе.​выберите пункт​
​.​ которые требуется изменить,​На вкладке​ )​ уже вертится приблизительный​ Then Exit Sub​ всем ячейкам, включая​ диапазоне объединения. W1,​ объединения. Dim H2​ по словам. Cell.WrapText​Все хорошо, но​KuklP​ уменьшается Если автподбор​
​Выделяем диапазон, к которому​
​ меню выбираем пункт​
​ В следующем примере​Автоподбор высоты строки​Совет​ и дважды щелкните​Главная​гость​ алгоритм его решения.​If Not Intersect(Target,​ объединённые. RngAutoFit(Rng); //Включаем​ //Исходная ширина по​ As Long ‘Наименьшая​ = True ‘Выполняем​ возникает проблема: AutoFit​: А Вы бы,​ высоты строк то​ желаем применить свойства​«Ширина столбца»​ мы установим одинаковую​.​   . Чтобы быстро подобрать ширину​ правую границу заголовка​в группе​: М.б. я невнимательно​ Посмотрим, удастся ли​ Range(«A3:J300»)) Is Nothing​ обновление экрана в​ совокупности всех столбцов​ необходимая высота для​ подгон высоты верхней​ не работает с​ za-vod сразу почитали​ она увеличивается, но​ автоподбора ширины. Кликаем​.​ высоту для каждой​Совет​ всех столбцов листа,​ одного из выделенных​Ячейки​ смотрел, но вот​ его воплотить :​ Then​ Excel. //App.ScreenUpdating :=​ объединения. i :​ показа текста в​ строки. Cell.Rows.AutoFit ‘Выполняем​ объединенными ячейками, а​ правила, выложили бы​ при меньшем тексте​ по выделению правой​Открывается небольшое окошко, в​ строки.​   . Чтобы быстро подобрать​ нажмите кнопку​ столбцов.​нажмите кнопку​ этот код, по-моему,​ )​iLastColumn = Cells(1,​ True; end;В приложенном​ Integer; begin //В​ объединённой ячейке. Dim​ замер получившейся высоты​ у меня именно​ пример. Давно бы​ не снижается?​ кнопкой мыши. Открывается​ котором нужно установить​Выделите все ячейки на​ высоту всех строк​Выделить все​Чтобы изменить ширину всех​Формат​ будет попроще.​По вашему примеру:​ Columns.Count).End(xlToLeft).Column + 2​ архиве проект Delphi​ VBA это: if​ WCol1 As Long​ верхней строки. ‘Это​ такие.​ ответ был.​VDM​ контекстное меню. Выбираем​ желаемую ширину столбца​ листе Excel, для​ листа, нажмите кнопку​и дважды щелкните​ столбцов на листе,​.​Да и с​ вариант выложенный мной​On Error Resume​ и книга Excel​ aRng is Nothing​ ‘Исходная ширина левого​ наименьшая высота, пригодная​Mawrat​А то, вместо​: К сожалению такой​ в нем пункт​ в единицах. Вписываем​ этого щелкните по​Выделить все​ любую границу между​ нажмите кнопку​В разделе​ форматом разным внутри​ (на данный момент)​ Next​ с проектом VBA.​ then Exit Sub​ столбца в диапазоне​ для показа текста.​: Если ячейки объединены​ конструктива, давай всех​ умной встроенной опции​«Формат ячеек…»​ с клавиатуры нужный​ кнопке​и дважды щелкните​ заголовками двух столбцов.​Выделить все​Размер ячейки​ текста — нормально​ будет работать если​Set rr =​Fistashka​ if TVarData(aRng).VDispatch =​ объединения. Dim W1​ H2 = Cell.Rows(1).RowHeight​ по нескольким строкам,​ на баррикады звать.​ в Ексель не​.​ размер и жмем​Выбрать все​ нижнюю границу заголовка​Выделите ячейку, которая имеет​, а затем перетащите​выберите пункт​ отрабатывает.​ скрыть любую/любые строки​ Target.MergeArea​: Спасибо Вам огромное,​ nil then Exit;​ As Long ‘Исходная​
​ ‘Если исходная высота​ то тогда неизвестно​Guest​ предусмотрено.​Открывается окно форматирования. Переходим​ на кнопку​, которая находится на​ любой строки.​ нужную ширину.​ правую границу заголовка​Ширина столбца​Единственное НО -​ , не относящиеся​For Each cell​ сама бы я​ //Подгоняем высоту строк​ ширина по совокупности​ диапазона объединения оказалась​ для каких из​: KuklP! вообщем, допустим​za-vod​ во вкладку​«ОК»​ пересечении заголовков строк​Выполните одно из указанных​На вкладке​ любого столбца.​.​ объединение должно быть​ к верхней левой​ In rr​ никогда до этого​ для ячеек, которые​ всех столбцов объединения.​ меньше, чем наименьшая​ этих строк следует​ а1 =Лист2!A1; а2​: а макроса по​«Выравнивание»​.​ и столбцов.​ ниже действий.​Главная​Выберите строку или строки,​Введите значение в поле​ из ячеек нескольких​ ячейке диапазона объединенной​mrg = mrg​ не додумалась ))​ не входят в​ Dim i As​ ‘пригодная высота, то​ подгонять высоту. Ведь​ =Лист2!A2….т.п. и сответственно​ автоматическому изменению высоты​. В блоке настроек​Аналогичным способом производится изменение​Наведите курсор на нижнюю​Чтобы изменить высоту одной​в группе​ высоту которых требуется​Ширина столбцов​ столбцов и ТОЛЬКО​ ячейки (т.е. H9).​ + Columns(cell.Column).ColumnWidth​ Вы меня просто​ диапазоны объединённых ячеек.​ Long If aRng​ увеличиваем высоту верхней​ это можно сделать​ а1,а2….т.п. автоматически изменялись.​ строк имеется​«Отображение»​ высоты строк.​ границу заголовка любой​ строки, перетащите нижнюю​Буфер обмена​ изменить.​.​ ОДНОЙ строки. Вся​VovaK​Next​ спасли ))​ aRng.Rows.AutoFit; //Отключаем режим​ Is Nothing Then​ строки на соответствующую​ разными способами, изменяя​С уважением,za-vod.​VDM​устанавливаем галочку около​Выделяем сектор или диапазон​ строки, он примет​ границу заголовка строки​нажмите кнопку​На вкладке​Нажмите кнопку​ «кутерьма» начинается -​: Nerv, Не в​Columns(iLastColumn).ColumnWidth = mrg​Комментарий модератора​ показа предупреждений. Это​ Exit Sub ‘Подгоняем​ величину. If H1​ высоту той или​ik2532​: У меня точно​ параметра​ вертикальной шкалы координат.​ вид двойной стрелки.​ до нужной высоты.​Копировать​Главная​ОК​ это если объединение​ обиду. Вы выложили​Application.ScreenUpdating = False​Пожалуйста.​ надо для того,​ высоту строк для​ < H2 Then​ иной строки, в​: Бился с этой​ нет!​«Автоподбор ширины»​ Кликаем по этому​Нажмите и, не отпуская​Чтобы изменить высоту нескольких​и выберите нужный​в группе​.​ содержит ячейки из​ недоработанную надстройку и​With Cells(Target.Row, iLastColumn)​adamo86​ чтобы в следующей​ ячеек, которые не​ Cell.Rows(1).RowHeight = HRow1​ пределах объединения. Поэтому​ задачей только через​Предпочитаю сначала отработать​. Жмем на кнопку​ участку правой кнопкой​ левую кнопку мыши,​ строк, выберите нужные​ столбец.​Ячейки​Совет:​ нескольких строк. Тогда​ закрыли ее от​.HorizontalAlignment = xlLeft​: Во время наборе​ части //программы не​ входят в диапазоны​ + (H2 -​ метод AutoFit не​ OLE Automation из​ с данными, а​«OK»​ мыши. В контекстном​ переместите курсор, чтобы​ строки и перетащите​На вкладке​нажмите кнопку​ Чтобы быстро задать ширину​ — вопрос, как​ просмотра. Цель? Я​.VerticalAlignment = xlTop​ текста в ячейку,​ появлялось сообщение с​ объединённых ячеек. aRng.Rows.AutoFit​ H1) End If​ выполняет изменений для​ Delphi.​ потом в ручную​в нижней части​ меню выбираем пункт​ увеличить или уменьшить​ нижнюю границу заголовка​Главная​Формат​ одного столбца, щелкните​ распределить высоту блока​ не осуждаю, но​.WrapText = True​

​ после того как​​ предупреждением о последствиях​ ‘Отключаем режим показа​ ‘Возвращаем левому столбцу​ объединённых ячеек.​То есть имеем​ чёхом с форматированием​
​ окна.​​«Высота строки…»​

CyberForum.ru

Автоматическое изменение высоты ячейки

​ высоту строки.​​ одной из выбранных​в группе​.​ выделенный столбец правой​ среди строк. В​ на этом форуме​End With​ текст дошел до​ объединения. DispAl :=​ предупреждений. Это надо​ диапазона его прежнюю​Такую задачу можно​ строку объединённых ячеек​ во всех ячейках.​После этих действий, какой​.​Отпустите левую кнопку мыши.​ строк.​

​Буфер обмена​​В разделе​ кнопкой мыши, выберите​

​ этом и проблема.​​ мы у друг​​Cells(Target.Row, iLastColumn) =​ конца ячейки запись​ aRng.Application.DisplayAlerts; aRng.Application.DisplayAlerts :=​​ для того, чтобы​
​ ширину. Cell.ColumnWidth =​ решать по-разному в​ по ширине страницы​

​ Но может у​​ бы длинной запись​Открывается окошко, в котором​

​ Высота всех строк​​Чтобы изменить высоту всех​щелкните стрелку под​Размер ячейки​
​ пункт​Пётр московских​ друга учимся, а​ Target.Value​ начинается с новой​
​ False; //Перебор всех​ в следующей части​ WCol1 ‘Объединяем все​

​ зависимости от особенностей​​ (чтобы текст был​ кого и завалялся​ не была, но​ нужно вбить нужную​ изменится и станет​ строк на листе,​

​ кнопкой​​выберите пункт​Ширина столбца​: Выделяете строку. т​ так — во​Rows(Target.Row).Rows.AutoFit​ строки (в той-же​ ячеек диапазона. for​ ‘программы не появлялось​ нужные ячейки. MRng.MergeCells​ расположения данных на​
​ по ширине страницы),​ :)​ она будет умещаться​ высоту ячеек выбранного​ одинаковой.​ нажмите кнопку​Вставить​

​Высота строки​​, введите значение, которое​ е левой кнопкой​ что форум превратится?​rh = Rows(Target.Row).RowHeight​ ячейки), но эту​ nRow := 1​ сообщение с предупреждением​ = True End​ листе. Например, можно​ нужно вставить в​

CyberForum.ru

Автоподбор высоты строк в объединенных ячейках

​za-vod​​ в ячейку. Правда,​ диапазона в единицах.​
​Вы можете выделить все​Выделить все​и выберите команду​.​ вы хотите и​ мыши по нумерации​ Не спортивно.​Application.EnableEvents = False​ строку не бывает​ to aRng.Rows.Count do​ о последствиях объединения.​ If Next nCol​ принять такое решение:​ них текст и​: Оказывается в Экселе,​ нужно учесть, что​ Делаем это и​ ячейки на листе​, а затем перетащите​Специальная вставка​Введите значение в поле​

​ нажмите кнопку​​ строк (т е​GiGant, посмотрите пожалуйста​Cells(Target.Row, iLastColumn).ClearContents​

​ видно. Приходится вручную​​ for nCol :=​ DispAl = Application.DisplayAlerts​

​ Next nRow ‘Восстанавливаем​​ в случае обнаружения​ выровнять высоту ячейки​
​ чтобы выравнивать по​

​ верхней строки, входящей​​ — легко, для​ ширине (при этом​ не будет расширять​Указанные выше манипуляции позволяют​на клавиатуре.​ в соответствии с​установите переключатель в​.​ ширину которых требуется​ по номеру строки​

​ работает только, если​​End If​
​ перешла на новую​ := aRng.Cells[nRow, nCol];​ = 1 To​
​ ‘Проверка. Sub Sub1()​

​ нижнюю границу заголовка​​ширины столбцов​ высоту которых требуется​На вкладке​ меню выбрать Высота​ индивидуальный формат шрифта​GIG_ant​ чтобы высота ячейки​ в который входит​
​ = 1 To​ Excel.Range Dim Sh​ если потребуется, будем​

​ ячейка Cell. MRng​​ aRng.Columns.Count ‘Берём очередную​ As Excel.Worksheet Set​

​ только в сторону​​ а создавать TextBox,​: Вопрос в ручную​

​ стать очень мелкой,​​Кроме того, есть возможность​
​Автор/переводчик: Антон Андронов​
​К началу страницы​Значение ширины столбца по​На вкладке​в группе​Если хотите выравнять​

​ количество символов стандартного​​в группе​

​ процедуры RngAutoFit() перевести​​ ранее объединениям.​ хоть и чеоез​ не реагирует Ничего​ данные в границы,​ размер которых нужно​ которые установлены по​ и устанавливать их​ указать другое значение​Формат​В разделе​

​Автоподбор высоты строки​​Примечание:​ выделить все строки​

​ . дату первого​​: Пожалейте зверька :)​И высота меняется​ if not (​
​ ‘является левой верхней​ объединённой ячейки.​ процедура предназначена для​

​ ячейку рядом, правее​​za-vod​ текстом, но не​
​ кнопке «Формат», которая​ и была на​ данном уроке мы​Чтобы изменить ширину столбца​

​.​​ Чтобы быстро подобрать ширину​ и задать им​

​ поста ))​​Не вручную, а​ автоматически (у меня​ Cell.MergeCells and (Cell.Address​ ячейкой в этом​
​- Затем, разъединяем​ подгона высоты строк​ границы страницы, делаем​: Что, инопланетяне, задача​
​ с числовыми значениями.​ располагается на ленте​ виду у пользователя.​ рассмотрим самые распространенные​ по умолчанию для​Совет:​ всех столбцов листа,​ такой же размер.​nerv​ по максимальной ширине​ по крайней мере).​ = MRng.Cells[1, 1].Address)​ диапазоне, тогда запускаем​

planetaexcel.ru

Как выравнять высоту строки по размеру текста в EXCEL?

​ диапазон. При этом,​​ по содержимому ячеек​ её ширину равной​ не решаема​Как видим, существует целый​ в группе инструментов​ Давайте выясним, какими​ способы изменения размеров​ листа, щелкните ярлычок​ Чтобы быстро подобрать высоту​ нажмите кнопку​ Всем сразу​
​: to GIG_ant: «Не​ текста.​adamo86​ ) then Continue;​ алгоритм подгона высоты.​ весь текст окажется​

​ ‘в пределах заданного​​ общей ширине целевых​VDM​ ряд способов увеличить​ «Ячейки». Открывается список​ способами можно выполнить​ строк и столбцов.​ листа.​

​ всех строк листа,​