Как сделать строки одной высоты в excel?

Сегодня поговорим о самых основах MS Excel — операциях со строками и столбцами. Интерфейс «экселя», к счастью итак достаточно интуитивен, а уж прочитав эту статью, все вопросы по использованию базового функционала программы отпадут сами собой.

Как вставить в MS Excel новую строку?

Строки в MS Excel всегда вставляются НАД текущей выделенной, то есть при вставке дополнительной строки между строками 1 и 2, выделять нужно 2-ю.

Чтобы выделить всю строку в Excel — щелкните по её номеру.

Щелкните правой кнопкой мыши на номере строки, чтобы выделить её, и в контекстном меню выберите пункт «Вставить». Новая строка немедленно появится на листе.

Новая строка вставится НАД выделенной

Тоже самое можно проделать, выбрав в главном меню программы (на вкладке «Главная», в группе «Ячейки») инструмент «Вставить» и выбрав в нем пункт «Вставить строки».

Как вставить в MS Excel новый столбец?

Также точно как строки, но только выделять придется не цифровые номера строк, а буквенные обозначения столбцов. Для тех кто любит пользоваться правой кнопкой мыши — просто выберите ту же команду, что и раньше: «Вставить», а для тех кто отдает предпочтение панели инструментов — пункт «Вставить столбец» инструмента «Вставить».

Чтобы вставить новый столбец — сначала выделите тот, перед которым он появится

Новый столбец в MS Excel всегда появляется слева от выделенного.

Можно вставить столбец воспользовавшись панелью инструментов

Как удалить в MS Excel строки и столбцы

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

Удаление столбца физически «снесет» его из нашей таблицы

Просто запомните — воспользовавшись приведенным выше способом вы целиком удаляете весь столбец/строку со всеми данными и форматированием. При этом текущая нумерация строк/столбцов в документе изменяется — если вы, к примеру, удаляете строку №3, то на её место и под её номером тут же окажется бывшая строка №4.

Очистка содержимого удаляет только данные в ячейках. Просто нажмите Delete

Если же вы хотите просто очистить содержимое строки/столбца, чтобы вписать новые данные, не меняя более ничего, достаточно просто выделить столбец и нажать на клавиатуре кнопку DEL, или выбрать пункт «Очистит содержимое» в меню вызываемом правой кнопкой мыши.

Как выровнять ширину столбца в MS Excel

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

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

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

Как выровнять высоту строки в MS Excel

Аналогично описанному выше способу, можно изменять и высоту строк. Курсор мыши при этом надо подносить к цифровым индексам строк (слева).

Как автоматически выровнять ширину и высоту строк и столбцов в MS Excel

Сначала выделяем всю таблицу (в MS Excel, как и в других windows-приложениях это можно проделать и с помощью комбинации клавиш CTRL+A)

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

Таблица занимает минимум места, но не очень симпатичная

Такой вариант может устроить не всех — все-таки, что не говори, таблица где каждая колонка имеет собственную ширину, выглядит неаккуратно. Мы можем все исправить — снова выделите всю таблицу и протащите вручную границу между любыми столбцами или строками до нужной ширины/высоты. Секунда, и все наши столбцы стали совершенно одинакового размера — только что заданного вами шаблона.

Таблица выглядит приятнее глазу, но влезет уже не на всякий лист

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

Как переместить столбец или строку в MS Excel

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

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

Вырезаем столбец и переносим его на новое место в excel-таблице. А можно просто выделить и целиком перетащить его мышью.

Строки переносятся аналогично столбцам. Обратите внимание — в обоих случаях буквенные индексы столбцов или номера строк после переноса будут пересчитаны и изменятся.

Как скрыть столбец или строку в MS Excel

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

Скрываем столбец в MS Excel

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

Как видите, столбец «исчез» и о том, что он на самом деле никуда не делся, напоминает ли «скачок» буквенных индексом столбцов с А сразу на С (напоминаю — в MS Excel нумерация сквозная и всегда остается неизменной, как бы вы не вырезали и переставляли отдельные элементы листа).

Столбец как бы есть, но его как бы нет

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

Как сделать скрытые столбцы и строки MS Excel видимыми? Использовать команду «показать»

Источник: http://bussoft.ru/tablichnyiy-redaktor-excel/osnovyi-rabotyi-so-stolbtsami-i-strokami-v-ms-excel.html

Автоподбор в MS EXCEL ширины столбца и высоты строки по содержимому ячеек

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

Пусть имеется таблица с ячейками заполненными текстовыми значениями.

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

Как видно из рисунка выше, текстовые значения в ячейках А2 и А3 отображаются не полностью, т.к. мешает текст в столбце B. Нам необходимо, чтобы содержимое всех ячеек в столбце A отображалось полностью.

Для этого необходимо сделать ширину столбца A достаточной для отображения самого длинного текста в столбце.

Делается это элементарно: подводим указатель мыши к разделу столбцов А и B (на сером заголовке столбцов), курсор примет следующий вид:

Делаем двойной клик мышкой и, Voila, ширина столбца стала достаточной для отображения значений во всех ячейках столбца (с учетом скрытых строк).

Если нужно выровнять ширину по содержимому у сразу нескольких столбцов, то делаем следующее:

• выделяем необходимые столбцы (за их серые заголовки);
• подводим курсор к любому разделу выделенных столбцов и дважды кликаем.

Альтернативный вариант:

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

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

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

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

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

После этого текстовое значение будет отображено в ячейке полностью:

Реальный пример

Теперь применим рассмотренный метод в реальной ситуации – отредактируем таблицу, созданную путем копирования данных из MS ACCESS. Скопируем через Буфер обмена какую-нибудь таблицу из MS ACCESS на лист EXCEL.

Обратите внимание, что у ячеек, в которые мы вставили значения из Буфера обмена, включена опция Переносить по словам, хотя, по умолчанию, она отключена (EXCEL сам включил ее при вставке).

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

Используя вставленную таблицу, решим 2 задачи.

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

Для этого:

• выделите вставленные значения (для этого выделите любую ячейку таблицы и нажмите CTRL+A (выделится текущая область), если таблица не содержит пустых строк и столбцов, то будут выделены все вставленные значения);
• выключите опцию Переносить по словам (через меню );
• высота ячеек будет уменьшена так, чтобы отображать только одну строку, как следствие часть значений станет невидна;

• выделите столбцы А, B и С за серые заголовки;
• подведите указатель мыши к разделу столбцов А и B (на сером заголовке столбцов) и дважды кликните.

Задача решена: содержимое всех ячеек полностью отображается.

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

Для этого:

• задайте требуемую ширину столбцов А, B и С;
• опцию Переносить по словам не выключайте (включите);

• выделите все строки, содержащие вставленные значения, или все ячейки листа (все ячейки листа можно выделить нажав кнопку Выделить все в левом верхнем углу листа или дважды нажав CTRL+A);
• подведите указатель мыши к разделу любых двух заполненных строк (на сером заголовке столбцов) и дважды кликните.

Задача решена: содержимое всех ячеек полностью отображается.

Случай с объединенными ячейками

В случае, если две или несколько ячеек объединены в одну, то рассмотренный подход не сработает. Можно ли осуществить автоподбор высоты строки в случае объединенных ячеек? Об этом читайте в одноименной статье Автоподбор высоты строки по содержимому при объединении ячеек.

Источник: https://excel2.ru/articles/avtopodbor-v-ms-excel-shiriny-stolbca-i-vysoty-stroki-po-soderzhimomu-yacheek

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

Для изменения ширины столбца выполните такие действия:

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

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

Для изменения ширины столбца с помощью команд меню выполните такие действия:

1. Щелкните по заголовку столбца, ширину которого нужно изменить. Для изменения ширины нескольких столбцов выделите их перемещением курсора по каждой из них при нажатой левой кнопки мыши, если нужно выделить смежные столбцы, или щелкните по заголовкам столбцов, удерживая нажатой клавишу Ctrl, если нужно выделить несмежные столбцы.
2. Выберите команду Формат/Столбец/Ширина или щелкните правой кнопкой мыши и выберите команду Ширина столбца из контекстного меню. На экране появится диалоговое окно Ширина столбца.
3. Введите значения ширины столбца в текстовое поле Ширина столбца.
4. Щелкните по кнопке ОК. Excel заменит ширину выделенных столбцов.

Автоматическая установка ширины столбца

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

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

Установка высоты строки в Excel

Excel автоматически устанавливает высоту строки, считая шрифт, который используется. Но можно сменить ее, используя мышь и команды меню Формат. Для смены высоты строки с помощью мыши выполните такие действия:

1. Поместите курсор на нижнюю границу заголовка той строки, высоту которой нужно сменить. Курсор приобретет вид вертикальной двунаправленной стрелки. Для изменения высоты нескольких смежных и/или несмежных строк выделите их.
2. Переместите вертикальную двунаправленную стрелку вниз или вверх для увеличения или уменьшения (соответственно) высоты строки.
3. Отпустите кнопку мыши.

Для изменения высоты строки с помощью меню выполните такие шаги:

1. Щелкните по заголовку строки, ширину которой нужно изменить. Для изменения высоты нескольких смежных и/или несмежных строк выделите их.
2. Выберите команду Формат/Строка/Высота или щелкните правой кнопкой мыши и выберите команду Высота строки из контекстного меню. На экране появится диалоговое окно Высота строки.
3. Введите значение высоты строки в текстовое поле Высота строки.
4. Щелкните по кнопке ОК. Excel изменит высоту выделенных строк.

Автоматическая установка высоты строки в Excel

Excel автоматически устанавливает высоту строки соответственно к размеру введенных данных в его ячейки.

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

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

• Другие статьи:
• Выравнивание данных в Excel
• Смена шрифтов в Excel

Источник: http://silverkomp.ru/izmenenie_shiriny_stolbca_i_vysoty_stroki_v_excel.html

Как сделать в excel одинаковую высоту строк?

Главная » Прочее »

Загрузка…

Вопрос знатокам: В двух одинаковых версиях Excel-я 2003 (но на разных компах) различается ширина столбца. В доке таблица, печатная форма квитанции. Ширина всех столбцов 0.58, очень много объеденненых ячеек. 0.58 на одном компе.На другом, почему то становится, 0.62. На обоих компьютерах стоит ХР SP3, в языковых параметрах везде стоит точка как разделитель целой и дробной части.

Почему ширина столбца изменяется?

С уважением, Иван Леконтцев

Лучшие ответы

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

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

— Также возможно попробовать создать макрос, который будет выполнятся при открытии книги/шаблона и устанавливать «правильную» ширину столбцов.

Added: Кстати, если будете ставить шрифт по умолчанию, то предпочтительней поставить тот, кторый по умолчанию есть во всех имеющихся у вас ОС, например Arial или Times New Roman, а не Calibri и т. п.

Видео-ответ

Это видео поможет разобраться

Ответы знатоков

свойства ячеек где то там. Выделяешь всю таблицу, свойства ячеек и там.

выделить ячейки (столбцы, строки). Формат — ячейки — переносить по словам (слогам). Формат- столбец — оптимальная ширина, Формат — строка — оптимальная высота. (ну на что меня хватило). Ну и, как сказано выше, справка Вам в помощь)

— ставим курсор на буквы и выделяем нужные столбцы — подводим курсор к любой выделенной границе и делаем ДВОЙНОЙ кликВсе столбцы автоматически сожмутся и расширятся по фактическому заполнению

Источник: https://dom-voprosov.ru/prochee/kak-sdelat-v-excel-odinakovuyu-vysotu-strok

VBA Excel. Размер ячейки (высота строки, ширина столбца)

Изменение размера ячейки в VBA Excel. Высота строки, ширина столбца, автоподбор ширины ячейки. Свойства RowHeight и ColumnWidth объекта Range.

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

Размер ячейки

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

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

Высота строки и ширина столбца в Excel

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

На сайте поддержки офисных приложений Microsoft так написано об этих величинах:

• высота строки может принимать значение от 0 до 409 пунктов, причем 1 пункт приблизительно равен 1/72 дюйма или 0,035 см;
• ширина столбца может принимать значение от 0 до 255, причем это значение соответствует количеству символов, которые могут быть отображены в ячейке.

Высота строки

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

Примеры изменения высоты строк:

Пример 1

Изменение высоты отдельной ячейки:

ActiveCell.RowHeight = 10

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

Пример 2

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

Rows(3).RowHeight = 30

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

Пример 3

Изменение высоты ячеек заданного диапазона:

Range(«A1:D6»).RowHeight = 20

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

Пример 4

Изменение высоты ячеек целого столбца:

Columns(5).RowHeight = 15

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

Ширина столбца

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

Примеры изменения ширины столбцов:

Пример 1

Изменение ширины отдельной ячейки:

ActiveCell.ColumnWidth = 15

в результате, столбец, в котором находится активная ячейка, приобретает ширину, равную 15 символам.

Пример 2

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

Columns(3).ColumnWidth = 50

в результате, третий столбец рабочего листа (столбец «C») приобретает ширину, равную 50 символам.

Пример 3

Изменение ширины ячеек заданного диапазона:

Range(«A1:D6»).ColumnWidth = 25

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

Пример 4

Изменение ширины ячеек целой строки:

Rows(4).ColumnWidth = 35

в результате, всем столбцам рабочего листа будет назначена ширина, равная 35 символам.

Автоподбор ширины

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

'запишем для примера в любую ячейку рабочего
'листа какой-нибудь текст, например, такой:
Cells(5, 5) = «Автоподбор ширины ячейки»
'теперь подгоним ширину ячейки, а точнее
'столбца, в котором эта ячейка находится:
Cells(5, 5).EntireColumn.AutoFit

Имейте в виду, что ширина столбца будет подогнана по расположенной в этом столбце ячейке с самым длинным содержимым. Например, если длина содержимого ячейки Cells(7, 5) будет превышать длину содержимого ячейки Cells(5, 5), то автоподбор ширины пятого столбца произойдет по содержимому ячейки Cells(7, 5), несмотря на то, что в строке кода указана другая ячейка.

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

Источник: https://vremya-ne-zhdet.ru/vba-excel/razmer-yacheyki-vysota-stroki-shirina-stolbtsa-avtopodbor/

Подбор высоты строки/ширины столбца объединенной ячейки

Хитрости » 10 Август 2016       Дмитрий       15221 просмотров

Для начала немного теории.

Если в ячейках листа Excel записан некий длинный текст, то обычно устанавливают перенос на строки(вкладка Главная -группа Выравнивание —Перенос текста), чтобы текст не растягивался на весь экран, а умещался в ячейке.

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

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

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

'————————————————————————————— ' Procedure : RowHeightForContent ' Author : The_Prist(Щербаков Дмитрий) ' http://www.excel-vba.ru ' Purpose : Функция подбирает высоту строки/ширину столбца объединенных ячеек по содержимому '————————————————————————————— Function RowColHeightForContent(rc As Range, Optional bRowHeight As Boolean = True) 'rc — ячейка, высоту строки или ширину столбца которой необходимо подобрать 'bRowHeight — True — если необходимо подобрать высоту строки ' False — если необходимо подобрать ширину столбца Dim OldR_Height As Single, OldC_Widht As Single Dim MergedR_Height As Single, MergedC_Widht As Single Dim CurrCell As Range Dim ih As Integer Dim iw As Integer Dim NewR_Height As Single, NewC_Widht As Single Dim ActiveCellHeight As Single   If rc.MergeCells Then With rc.MergeArea 'если ячейка объединена 'запоминаем кол-во столбцов iw = .Columns(.Columns.Count).Column — rc.Column + 1 'запоминаем кол-во строк. ih = .Rows(.Rows.Count).Row — rc.Row + 1 'Определяем высоту и ширину объединения ячеек MergedR_Height = 0 For Each CurrCell In .Rows MergedR_Height = CurrCell.RowHeight + MergedR_Height Next MergedC_Widht = 0 For Each CurrCell In .Columns MergedC_Widht = CurrCell.ColumnWidth + MergedC_Widht Next 'запоминаем высоту и ширину первой ячейки из объединенных OldR_Height = .Cells(1, 1).RowHeight OldC_Widht = .Cells(1, 1).ColumnWidth 'отменяем объединение ячеек .MergeCells = False 'назначаем новую высоту и ширину для первой ячейки .Cells(1).RowHeight = MergedR_Height .Cells(1, 1).EntireColumn.ColumnWidth = MergedC_Widht 'если необходимо изменить высоту строк If bRowHeight Then '.WrapText = True 'раскомментировать, если необходимо принудительно выставлять перенос текста .EntireRow.AutoFit NewR_Height = .Cells(1).RowHeight 'запоминаем высоту строки .MergeCells = True If OldR_Height < (NewR_Height / ih) Then .RowHeight = NewR_Height / ih Else .RowHeight = OldR_Height End If 'возвращаем ширину столбца первой ячейки .Cells(1, 1).EntireColumn.ColumnWidth = OldC_Widht Else 'если необходимо изменить ширину столбца .EntireColumn.AutoFit NewC_Widht = .Cells(1).EntireColumn.ColumnWidth 'запоминаем ширину столбца .MergeCells = True If OldC_Widht < (NewC_Widht / iw) Then .ColumnWidth = NewC_Widht / iw Else .ColumnWidth = OldC_Widht End If 'возвращаем высоту строки первой ячейки .Cells(1, 1).RowHeight = OldR_Height End If End With End If End Function

'————————————————————————————— ' Procedure : RowHeightForContent ' Author : The_Prist(Щербаков Дмитрий) ' http://www.excel-vba.ru ' Purpose : Функция подбирает высоту строки/ширину столбца объединенных ячеек по содержимому '————————————————————————————— Function RowColHeightForContent(rc As Range, Optional bRowHeight As Boolean = True) 'rc — ячейка, высоту строки или ширину столбца которой необходимо подобрать 'bRowHeight — True — если необходимо подобрать высоту строки ' False — если необходимо подобрать ширину столбца Dim OldR_Height As Single, OldC_Widht As Single Dim MergedR_Height As Single, MergedC_Widht As Single Dim CurrCell As Range Dim ih As Integer Dim iw As Integer Dim NewR_Height As Single, NewC_Widht As Single Dim ActiveCellHeight As Single If rc.MergeCells Then With rc.MergeArea 'если ячейка объединена 'запоминаем кол-во столбцов iw = .Columns(.Columns.Count).Column — rc.Column + 1 'запоминаем кол-во строк. ih = .Rows(.Rows.Count).Row — rc.Row + 1 'Определяем высоту и ширину объединения ячеек MergedR_Height = 0 For Each CurrCell In .Rows MergedR_Height = CurrCell.RowHeight + MergedR_Height Next MergedC_Widht = 0 For Each CurrCell In .Columns MergedC_Widht = CurrCell.ColumnWidth + MergedC_Widht Next 'запоминаем высоту и ширину первой ячейки из объединенных OldR_Height = .Cells(1, 1).RowHeight OldC_Widht = .Cells(1, 1).ColumnWidth 'отменяем объединение ячеек .MergeCells = False 'назначаем новую высоту и ширину для первой ячейки .Cells(1).RowHeight = MergedR_Height .Cells(1, 1).EntireColumn.ColumnWidth = MergedC_Widht 'если необходимо изменить высоту строк If bRowHeight Then '.WrapText = True 'раскомментировать, если необходимо принудительно выставлять перенос текста .EntireRow.AutoFit NewR_Height = .Cells(1).RowHeight 'запоминаем высоту строки .MergeCells = True If OldR_Height < (NewR_Height / ih) Then .RowHeight = NewR_Height / ih Else .RowHeight = OldR_Height End If 'возвращаем ширину столбца первой ячейки .Cells(1, 1).EntireColumn.ColumnWidth = OldC_Widht Else 'если необходимо изменить ширину столбца .EntireColumn.AutoFit NewC_Widht = .Cells(1).EntireColumn.ColumnWidth 'запоминаем ширину столбца .MergeCells = True If OldC_Widht < (NewC_Widht / iw) Then .ColumnWidth = NewC_Widht / iw Else .ColumnWidth = OldC_Widht End If 'возвращаем высоту строки первой ячейки .Cells(1, 1).RowHeight = OldR_Height End If End With End If End Function

Пара замечаний:

• т.к. нельзя выставить и автоширину и автовысоту — то функция подбирает либо высоту, либо ширину, что логично
• чтобы подбор по высоте ячеек сработал, для ячейки должен быть выставлен перенос строк(вкладка Главная -группа Выравнивание —Перенос текста). Если ячеек много и выставлять вручную лень — можно просто убрать апостроф перед точкой в строке:'.WrapText = True 'раскомментировать, если необходимо принудительно выставлять перенос текстатогда код сам проставит переносы. Но тут следует учитывать, что в данном случае перенос будет выставлен для всех ячеек, что не всегда отвечает условиям
• функция подбирает высоту и ширину исключительно для объединенных ячеек. Если ячейка не объединена — код оставит её без изменений

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

Sub ChangeRowColHeight() Dim rc As Range Dim bRow As Boolean bRow = (MsgBox(«Изменять высоту строк?», vbQuestion + vbYesNo, «www.excel-vba.ru») = vbYes) 'bRow = True: для изменения высоты строк 'bRow = False: для изменения ширины столбцов Application.ScreenUpdating = False For Each rc In Selection RowColHeightForContent rc, bRow Next Application.ScreenUpdating = True End Sub

Sub ChangeRowColHeight() Dim rc As Range Dim bRow As Boolean bRow = (MsgBox(«Изменять высоту строк?», vbQuestion + vbYesNo, «www.excel-vba.ru») = vbYes) 'bRow = True: для изменения высоты строк 'bRow = False: для изменения ширины столбцов Application.ScreenUpdating = False For Each rc In Selection RowColHeightForContent rc, bRow Next Application.ScreenUpdating = True End Sub

Этот код также необходимо вставить в стандартный модуль. Теперь его можно будет вызвать из этой книги, нажатием клавиш Alt+F8 и выбрав ChangeRowColHeight, или создав на листе кнопку и назначив ей макрос.

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

• Скачать пример:
•   Tips_Macro_HeightWidthInMergeCell.xls (64,0 KiB, 1 649 скачиваний)

Если подобную операцию приходится производить постоянно — советую коды записать в надстройку: Как создать свою надстройку?. Так же можно воспользоваться уже готовым решением в составе MulTEx — Высота/Ширина объединенной ячейки.

Статья помогла? Поделись ссылкой с друзьями!

Источник: https://www.excel-vba.ru/chto-umeet-excel/podbor-vysoty-strokishiriny-stolbca-obedinennoj-yachejki/

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

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

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

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

Изменение высоты
строки выполняется так же, как изменение
ширины столбца. Кроме того, высота строки
изменяется и при установке другого
размера шрифта.

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

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

Границы и заливка

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

Для
создания обрамления нужно выбрать
вкладку Граница
диалогового окна Формат
ячеек. Быстро
добавлять границы позволяет также
кнопка Границы панели инструментов Форматирование.

Ещё один удобный
вариант – рисование границ с помощью
панели инструментов Границы,
показанной на рис. 9.9. Чтобы сделать её
видимой, выберите команду Нарисовать
границы.

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

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

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

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

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

Перемещение ячеек из
отформатированного диапазона может
привести к появлению «дыр» в таблице.
Для перемещения только содержимого
ячеек следует использовать команду
Правка |
Специальная вставка.

Удалить рамку
можно двумя способами. Первый способ
заключается в использовании команды
Правка |
Очистить | Форматы.
В этом случае удаляются и другие параметры
форматирования ячейки.

Для
возвращения выделенным ячейкам исходного
цвета выберите команду Нет
заливки из
раскрывающегося меню кнопки Цвет
заливки панели инструментовФорматирование.

Источник: https://studfile.net/preview/1874473/page:11/