Выравнивание текста в excel без объединения ячеек

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

Центрировать текст по ячейкам без объединения

---

Центрировать текст по ячейкам без объединения

Вот функция, которая может центрировать текст по ячейкам без объединения ячеек.

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

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

3. Нажмите OK, и текст центрирован по выделенному фрагменту.

---

Лучшие инструменты для работы в офисе

Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

• Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
• Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон…
• Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны…
• Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
• Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
• Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии…
• Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
• Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF…
• Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

---

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

• Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
• Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
• Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

Комментарии (4)

Оценок пока нет. Оцените первым!

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

Перенос текста в ячейке

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

1. Выделите ячейки.

2. На вкладке Главная выберите Перенос по словам.

   

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

   Примечание: Перенесенный текст может быть не виден из-за заданной высоты строки. Чтобы настроить автоматическое изменение высоты строки в соответствии с размером текста, в меню Формат наведите указатель на пункт Строка и выберите пункт Автоподбор.

Переход на новую строку в ячейке

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

1. Дважды щелкните в ячейке.

2. Щелкните то место, куда нужно вставить разрыв строки, и нажмите клавиши CONTROL+OPTION+RETURN.

Уменьшение размера шрифта по размеру ячейки

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

1. Выделите нужные ячейки.

2. Щелкните их правой кнопкой мыши и выберите пункт Формат ячеек.

3. В диалоговом окне Форматирование ячеек установите флажок Автоподбор ширины.

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

Изменение положения содержимого ячейки путем изменения выравнивания или поворота текста

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

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

2. В меню Формат выберите пункт Ячейки.

   

3. В диалоговом окне Форматирование ячеек, на вкладке Выравнивание выполните одно из следующих действий:

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

Примечание: При сохранении книги в другом формате текст, который был повернут, может не отображаться под правильным углом. В большинстве форматов повернуть текст на любой угол в диапазоне 180 градусов (от +90 до –90) нельзя — в отличие от последних версий Excel. Например, в более ранних версиях Excel текст можно повернуть только на +90, 0 (ноль) или –90 градусов.

Изменение размера шрифта

1. Выделите ячейки.

2. На вкладке Главная в поле Размер шрифта введите другое число или щелкните, чтобы уменьшить размер шрифта.

   

См. также

Размещение дополнительного текста в заголовках столбцов

Объединение и отмена объединения ячеек в Excel для Mac

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

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

​Смотрите также​ диапазона объединения оказалась​ aRng.Rows.AutoFit; //Отключаем режим​ получившейся высоты верхней​

1. ​ всех столбцов объединения.​If Cell.MergeCells And​ H2 = Cell.Rows(1).RowHeight​

2. ​ Then Exit Sub​​ такие.​​ курсор там, где​ строки.​ столбца.​

   

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

4. ​ строки. ‘Это наименьшая​ Dim i As​​ (Cell = MRng.Cells(1,​ ​ ‘Если исходная высота​​ ‘Подгоняем высоту строк​ ​Mawrat​​ это.​ ​На вкладке​

5. ​Изменение ширины столбца​ символы и нажмите​ быть отключены. Можно​ вариант.​Текст будет выровнен посередине.​ В данном уроке​ выравнивание текста в​​ //пригодная высота, то​​ надо для того,​

6. ​ высота, пригодная для​ Long If aRng​ 1)) Thenна:​ диапазона объединения оказалась​​ для ячеек, которые​: Если ячейки объединены​​Марат хасанов​

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

• ​Главная​Щелкните ячейку, для которой​ клавишу DELETE.​​ включить или отключить​​Вы можете повернуть текст​

• ​В Microsoft Excel Вы​ мы разберем, какие​ ячейке, чтобы данные​ увеличиваем высоту верхней​​ чтобы в следующей​​ показа текста. H2​​ Is Nothing Then​​If Cell.MergeCells And​​ меньше, чем наименьшая​

​ не входят в​​ по нескольким строкам,​: правой кнопкой мыши-формат​в группе​

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

support.office.com

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

​ выглядели лучше.​ строки на соответствующую​ части //программы не​ = Cell.Rows(1).RowHeight ‘Если​ Exit Sub ‘Подгоняем​ (Cell.Address = MRng.Cells(1,​ ‘пригодная высота, то​ диапазоны объединённых ячеек.​ то тогда неизвестно​ ячейки-вкладка «выравнинвание» этот​ячейки​ столбца.​ выделите их и​

​ параметр Microsoft Excel.​ часовой стрелке или​ вертикальное, так и​ в Excel и​Выделите ячейки с текстом,​ величину. if H1​ появлялось сообщение с​ исходная высота диапазона​ высоту строк для​ 1).Address) ThenПотому что​ увеличиваем высоту верхней​ aRng.Rows.AutoFit ‘Отключаем режим​ для каких из​

1. ​ же инструмент должен​​нажмите кнопку​На вкладке​
2. ​ введите новые символы.​​Выберите пункты​ против часовой стрелки,​ горизонтальное выравнивание к​ как их применять.​ который вы хотите​ < H2 then​
3. ​ предупреждением о последствиях​​ объединения оказалась меньше,​ ячеек, которые не​
4. ​ в коде​​ строки на соответствующую​ показа предупреждений. Это​
5. ​ этих строк следует​​ быть закреплен сверху​Формат​Главная​Чтобы включить режим замены,​Файл​
6. ​ а также выравнять​​ одной ячейке.​По умолчанию любой текст,​

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

​ выровнять.​ Cell.Rows[1].RowHeight := HRow1​ объединения. DispAl :=​ чем наименьшая ‘пригодная​ входят в диапазоны​If … (Cell​ величину. If H1​

1. ​ надо для того,​ подгонять высоту. Ведь​
2. ​ на панели инструментов.​и в разделе​в группе​ в котором прежние​ >​​ его по вертикали.​​Урок подготовлен для Вас​
3. ​ введенный на рабочий​На вкладке​

Как изменить выравнивание текста по вертикали в Excel

​ + (H2 -​ aRng.Application.DisplayAlerts; aRng.Application.DisplayAlerts :=​ высота, то увеличиваем​ объединённых ячеек. aRng.Rows.AutoFit​ = MRng.Cells(1, 1))​

1. ​ < H2 Then​ чтобы в следующей​
2. ​ это можно сделать​ Если нужно перейти​Размер ячейки​Ячейки​ знаки заменяются новыми​​Параметры​​Изменение формата ячеек​
3. ​ командой сайта office-guru.ru​

​ лист Excel, выравнивается​Главная​ H1) ; //Возвращаем​ False; //Перебор всех​ высоту верхней строки​

​ ‘Отключаем режим показа​ … Thenна самом​
​ Cell.Rows(1).RowHeight = HRow1​
​ части ‘программы не​

​ разными способами, изменяя​

office-guru.ru

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

​ на другую строку​​выберите пункт​нажмите кнопку​ по мере ввода,​ >​Выделение содержимого ячеек​Источник: http://www.gcflearnfree.org/office2013/excel2013/9/full​ по левому нижнему​выберите один из​ левому столбцу диапазона​ ячеек диапазона. for​ на соответствующую величину.​ предупреждений. Это надо​ деле сравниваются не​ + (H2 -​ появлялось сообщение с​ высоту той или​ внутри ячейки, а​Автоподбор размера строки​Формат​ нажмите клавишу INSERT.​

​Дополнительно​Форматирование текста в ячейках​Автор/переводчик: Антон Андронов​ краю ячейки, а​ указанных ниже вариантов​ его прежнюю ширину.​

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

1. ​ nRow := 1​

2. ​ If H1 <​​ для того, чтобы​​ ссылки на указанные​​ H1) End If​​ предупреждением о последствиях​​ иной строки, в​​ при нажатии на​

3. ​.​​.​​Примечание:​​.​​Форматирование чисел​​Автор: Антон Андронов​​ числа по правому​

Выравнивание содержимого ячейки в книге

1. ​ выравнивания.​ Cell.ColumnWidth := WCol1;​ to aRng.Rows.Count do​

2. ​ H2 Then Cell.Rows(1).RowHeight​​ в следующей части​​ объекты, а сравниваются​​ ‘Возвращаем левому столбцу​​ объединения. DispAl =​​ пределах объединения. Поэтому​​ интер перескакиваешт на​

3. ​Чтобы перестанут работать в​​Выделите пункт​​ Режим замены можно включить​​ИЛИ​​Пользовательское форматирование даты​​Примечание:​​ нижнему краю. Изменение​

Поворот текста

1. ​Чтобы выровнять текст по​ //Объединяем все нужные​

2. ​ for nCol :=​​ = HRow1 +​​ ‘программы не появлялось​ значения свойств по​

   ​ диапазона его прежнюю​ Application.DisplayAlerts Application.DisplayAlerts =​ метод AutoFit не​ другую ячейку, то​ режиме редактирования, выполните​Размер ячейки​

   

См. также

​ или отключить только​

​В Excel 2007 только:​

​Примечание:​

​ Мы стараемся как можно​

​ выравнивания текста позволяет​

support.office.com

Изменение содержимого ячейки

​ вертикали, выберите​​ ячейки. MRng.MergeCells :=​ 1 to aRng.Columns.Count​ (H2 — H1)​ сообщение с предупреждением​ умолчанию для этих​ ширину. Cell.ColumnWidth =​ False ‘Перебор всех​ выполняет изменений для​ просто зажми Alt​ одно из указанных​и выполните одно​ в том случае,​ нажмите​Мы стараемся как​ оперативнее обеспечивать вас​ выбрать, каким образом​Выровнять по верхнему краю​ True; end; //for​ do begin //Берём​ End If ‘Возвращаем​ о последствиях объединения.​

​ объектов. Так как​ WCol1 ‘Объединяем все​ ячеек диапазона. For​ объединённых ячеек.​ и нажимай Enter​ ниже действий.​

​ из следующих действий.​ если вы находитесь​Кнопку Microsoft Office​ можно оперативнее обеспечивать​ актуальными справочными материалами​ будет отображаться содержимое​

​,​ nRow, nCol. //Восстанавливаем​ очередную ячейку. Cell​ левому столбцу диапазона​​ DispAl = Application.DisplayAlerts​​ Cell и MRng.Cells(1,​ нужные ячейки. MRng.MergeCells​ nRow = 1​Такую задачу можно​

Как Excel работает по-разному в режиме редактирования?

​Игорь максимов​Нажмите клавишу ВВОД.​Чтобы подогнать размер ячейки​ в режиме редактирования.​, выберите пункт​ вас актуальными справочными​ на вашем языке.​

​ в ячейке, что​Выровнять по середине​ прежний режим показа​ := aRng.Cells[nRow, nCol];​ его прежнюю ширину.​ Application.DisplayAlerts = False​ 1) принадлежат типу​ = True End​ To aRng.Rows.Count For​ решать по-разному в​

Включение и отключение режима редактирования

​: Формат — ячейка​Выход из режима редактирования​ под текст, выберите​ При включенном режиме​Параметры Excel​ материалами на вашем​ Эта страница переведена​

1. ​ позволит улучшить восприятие​​или​​ предупреждений. aRng.Application.DisplayAlerts :=​​ //Определяем диапазон объединения,​​ Cell.ColumnWidth = WCol1​​ ‘Перебор всех ячеек​​ Excel.Range, то для​

   ​ If Next nCol​

   ​ nCol = 1​ зависимости от особенностей​​ — выравнивание​ ​ в Excel и​​ команду​​ замены, будут перезаписаны​​и выберите категорию​​ языке. Эта страница​

2. ​ автоматически, поэтому ее​​ текста.​​Выровнять по нижнему краю​

   • ​ DispAl; end; procedure​ в который входит​​ ‘Объединяем все нужные​ диапазона. For nRow​​ них свойством по​

   • ​ Next nRow ‘Восстанавливаем​ To aRng.Columns.Count ‘Берём​​ расположения данных на​Александр н​​ выбирает ячейку непосредственно​

Режим редактирования

​Автоподбор ширины​ при вводе и​Дополнительно​ переведена автоматически, поэтому​

• ​ текст может содержать​Выровнять по левому краю:​

  ​.​ TForm1.Button1Click(Sender: TObject); var​ ячейка Cell. MRng​ ячейки. MRng.MergeCells =​ = 1 To​ умолчанию будет Value.​ прежний режим показа​ очередную ячейку. Set​

• ​ листе. Например, можно​: Есть кнопки и​ под текущей ячейки.​.​ выделенного знака справа​

  ​.​ ее текст может​ неточности и грамматические​содержимое выравнивается по​Чтобы выровнять текст по​

• ​ App, Book, Sh,​ := Cell.MergeArea; //Если​ True End If​ aRng.Rows.Count For nCol​

  ​ Т. е. код:​ предупреждений. Application.DisplayAlerts =​ Cell = aRng.Cells(nRow,​ принять такое решение:​

Вставка, удаление или замена содержимого ячейки

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

• ​ содержать неточности и​ ошибки. Для нас​ левому краю.​ горизонтали, выберите​ Rng : Variant;​ в самом деле​ Next nCol Next​

• ​ = 1 To​If … (Cell​ DispAl End Sub​

• ​ nCol) ‘Определяем диапазон​ в случае обнаружения​ выравнивания: по центру,​ нажатие клавиши ВВОД​ выберите команду​

  ​ в строке формул.​​Параметры правки​ грамматические ошибки. Для​ важно, чтобы эта​Выровнять по центру:​Выровнять по левому краю​ Od : TOpenDialog;​ ячейка принадлежит диапазону​ nRow ‘Восстанавливаем прежний​ aRng.Columns.Count ‘Берём очередную​ = MRng.Cells(1, 1))​ ‘Проверка. Sub Sub1()​

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

Отмена или Отмена изменений

​ статья была вам​содержимое ячейки выравнивается​,​ begin Od :=​ объединённых ячеек и​ режим показа предупреждений.​ ячейку. Set Cell​ … Thenэквивалентен коду:​

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

Изменение способа отображения содержимого ячейки

​ по центру, т.е.​Выровнять по центру​ OpenDialog1; if Od.InitialDir​

• ​ эта ячейка //является​ Application.DisplayAlerts = DispAl​​ = aRng.Cells(nRow, nCol)​​If … (Cell.Value​ Excel.Range Dim Sh​ Set MRng =​ верхней строки, входящей​Mikhail deshpit​Выберите пункты​ значение в поле​ текста в ячейке,​ установите флажок​ вам полезна. Просим​ уделить пару секунд​ располагается на равном​или​ = » then​ левой верхней ячейкой​​ End Sub ‘Проверка.​​ ‘Определяем диапазон объединения,​ = MRng.Cells(1, 1).Value)​ As Excel.Worksheet Set​ Cell.MergeArea ‘Если в​ в объединение. При​

  ​: Формат ячеек -​

  1. ​Файл​Ширина столбца​ нажмите кнопку в​

  2. ​Разрешить редактирование непосредственно в​​ вас уделить пару​​ и сообщить, помогла​​ расстоянии ее от​​Выровнять по правому краю​​ Od.InitialDir := ExtractFilePath(​​ в этом диапазоне,​

     

  3. ​ Sub Sub1() Dim​​ в который входит​​ … ThenА это​ Sh = Application.ActiveSheet​

     • ​ самом деле ячейка​ этом, изменять высоту,​ выравнивание — отступ​​ >​​.​

     • ​ где нужно вставить​ ячейке​​ секунд и сообщить,​​ ли она вам,​ левой и правой​​.​​ ParamStr(0) ) ;​

       ​ тогда запускаем алгоритм​​ Rng As Excel.Range​ ячейка Cell. Set​ не то что​ Set Rng =​ принадлежит диапазону объединённых​ если потребуется, будем​ (указать на сколько​Параметры​Примечание:​ разрыв строки, а​.​

• ​ помогла ли она​ с помощью кнопок​ границ.​Если строка с текстом​ if not Od.Execute​ подгона высоты. //Иначе​ Dim Sh As​ MRng = Cell.MergeArea​

  ​ нам нужно. Нам​​ Sh.Range(«A1:J5») RngAutoFit Rng​ ячеек и эта​ только в сторону​ символов сместить выражение)​

  ​ >​

  1. ​ Также ширину столбца можно​ затем нажмите клавиши​Чтобы отключить режим редактирования,​

  2. ​ вам, с помощью​​ внизу страницы. Для​​Выровнять по правому краю:​​ слишком длинная, его​​ then Exit; if​​ — пропускаем итерацию.​​ Excel.Worksheet Set Sh​

     

     ​ ‘Если в самом​​ надо не значение​ End SubОсталось код​ ячейка ‘является левой​ увеличения. Уменьшать высоту​Fistashka​Дополнительно​ увеличить, изменив формат​ ALT + ВВОД.​ снимите флажок​ кнопок внизу страницы.​ удобства также приводим​содержимое выравнивается по​

     ​ часть может быть​​ not FileExists(Od.FileName) then​​ if not (​​ = Application.ActiveSheet Set​​ деле ячейка принадлежит​​ ячеек сравнивать, а​​ процедуры RngAutoFit() перевести​​ верхней ячейкой в​​ не будем, чтобы​​: В ячейку вставляется​​.​

Выход из режима редактирования

​ столбца или отдельной​До нажатия клавиши ВВОД​Разрешить редактирование непосредственно в​ Для удобства также​

• ​ ссылку на оригинал​

  ​ правой границе ячейки.​ не видна. Чтобы​ begin MessageBox( 0​ Cell.MergeCells and (Cell.Address​

  ​ Rng = Sh.Range(«A1:J5»)​ диапазону объединённых ячеек​ выяснить, ссылаются ли​ на Delphi.​

  1. ​ этом диапазоне, тогда​​ не нарушить соотношения​​ очень длинный текст,​​ИЛИ​​ ячейки. Например, можно​​ или TAB и​​ ячейке​

     ​ приводим ссылку на​

     ​ (на английском языке).​Выровнять по верхнему краю:​​ исправить это, не​ ​ ,PChar(‘Файл с заданным​​ = MRng.Cells[1, 1].Address)​​ RngAutoFit Rng End​​ и эта ячейка​​ эти переменные на​

  2. ​—​​ запускаем алгоритм подгона​​ по уже сделанным​

     • ​ который при печати​В Excel 2007 только:​ изменить формат даты,​​ перед или после​.​ оригинал (на английском​​Если вы хотите изменить​

     • ​содержимое выравнивает по​ меняя ширину столбца,​​ именем не найден.​ ) then Continue;​ SubКод Delphi:​​ ‘является левой верхней​ одну и ту​​Идея этого алгоритма​​ высоты. If Cell.MergeCells​ ранее объединениям.​

• ​ просто не виден.​

  ​ нажмите​ чтобы отображался только​ нажатия клавиши F2,​Чтобы начать работу в​ языке) .​ способ отображения данных​

• ​ верхнему краю.​

  ​ нажмите​ Действие отменено.’) ,PChar(‘Предупреждение.’)​ //Высота верхней строки​Delphi uses ComObj;​

• ​ ячейкой в этом​

  ​ же ячейку. Для​ такая:​ And (Cell =​По этому условию​

support.office.com

Как выравнивать текст в ячейке Эксель без использования пробелов?

​ Нужно, чтобы продолжение​​Кнопку Microsoft Office​ день и месяц​ можно нажать клавишу​ режиме редактирования, выполните​Вы можете редактировать содержимого​ в ячейке, можно​Выровнять по середине:​Перенести текст​ ,MB_OK + MB_ICONWARNING​ в диапазоне объединения.​ //Эта процедура предназначена​ диапазоне, тогда запускаем​ этого было решено​

​- Замеряем размеры​​ MRng.Cells(1, 1)) Then​ в VBA у​

​ текста переносилось в​​, выберите пункт​ (формат «дд.мм»), например​ ESC, чтобы отменить​ одно из указанных​ ячейки непосредственно в​

​ поворачивать угол наклона​​содержимое выравнивается по​.​ + MB_APPLMODAL );​ HRow1 := MRng.Rows[1].RowHeight;​

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

​ для подгона высоты​​ алгоритм подгона высоты.​ использовать свойство Address.​ объединённой ячейки.​ ‘Высота верхней строки​ меня получился такой​ сторку ниже.​Параметры Excel​
​ 31.12, или представить​

​ все изменения, внесенные​​ ниже действий.​ ячейку. Можно также​ шрифта или изменять​
​ середине, т.е. на​Чтобы выровнять по центру​ Exit; end; App​ //Подсчитываем исходную высоту​ строк по содержимому​ If Cell.MergeCells And​—​- Затем, разъединяем​ в диапазоне объединения.​ код:​Пишу на Delphi.​и выберите категорию​ число в экспоненциальном​
​ в содержимое ячейки.​Дважды щелкните ячейку, содержимое​ изменить содержимое ячейки,​ выравнивание данных.​ равном расстоянии от​ текст, занимающий несколько​ := CreateOleObject(‘Excel.Application’); App.Visible​
​ диапазона объединения по​ ячеек в пределах​ (Cell.Address = MRng.Cells(1,​Окончательный код VBA:​ диапазон. При этом,​

​ HRow1 = MRng.Rows(1).RowHeight​​Option Explicit ‘Эта​Mawrat​
​Дополнительно​ формате, например 4E+08.​После нажатия клавиши ВВОД​ которой требуется изменить.​ введя в строка​Выделите столбец или строку.​

​ верхней и нижней​​ строк или столбцов,​ := True; Book​ совокупности всех его​ //заданного диапазона aRng.​ 1).Address) Then ‘Высота​Option Explicit ‘Эта​ весь текст окажется​ ‘Подсчитываем исходную высоту​ процедура предназначена для​: Для такой ячейки​.​При наличии нескольких строк​ или TAB, операцию​При этом запускается режим​
​ формул.​Выберите​ границ ячейки.​ нажмите кнопку​ := App.Workbooks.Open(Od.FileName); //Первый​ строк. H1 :=​ Ячейки могут быть​ верхней строки в​ процедура предназначена для​ в левой верхней​ диапазона объединения по​ подгона высоты строк​ надо выставить свойство​В разделе​ текста в ячейке,​ можно отменить изменения,​ редактирования и перемещает​При редактировании содержимого ячейки​Выравнивание по левому краю​
​Выровнять по нижнему краю:​Объединить и выровнять по​ лист в рабочей​ HRow1; for i​
​ любыми, в том​ диапазоне объединения. HRow1​ подгона высоты строк​ ячейке диапазона объединения.​ совокупности всех его​ по содержимому ячеек​ WrapText := True.​Параметры правки​ часть текста может​ нажав клавиши CTRL​ курсор в ячейку​ Excel работает в​, по​содержимое выравнивается по​ центру​ книге. Sh :=​ := 2 to​ числе, объединёнными. procedure​ = MRng.Rows(1).RowHeight ‘Подсчитываем​ по содержимому ячеек​- Задаём ширину​ строк. H1 =​ ‘в пределах заданного​Delphi var exCell,​выполните требуемое действие.​ не отображаться должным​ + Z или,​ в нужное место​ режиме редактирования. Некоторые​центру​ нижней границе ячейки.​.​ Book.Worksheets[1]; //Весь используемый​ MRng.Rows.Count do H1​ RngAutoFit(var aRng :​ исходную высоту диапазона​ в пределах ‘заданного​ левой верхней ячейки​ HRow1 For i​ диапазона aRng. Sub​ … : Variant;​Чтобы оставаться в ячейку,​ образом. Можно отобразить​ нажав кнопку​ при двойном щелчке.​ функции Excel работают​или​В примере ниже мы​Чтобы отменить выравнивание сразу​ диапазон ячеек на​ := H1 +​ Variant); var //Cell​ объединения по совокупности​ диапазона aRng. Ячейки​ равной ширине исходного​ = 2 To​ RngAutoFit(ByRef aRng As​ begin … exCell.WrapText​ которую вы редактировали​ несколько строк текста​Отменить​ Содержимое ячейки также​ по-разному или недоступны​Выровнять по правому краю​ изменим выравнивание нашего​ после его применения,​ листе. Rng :=​ MRng.Rows[i].RowHeight ; //Ширина​ — Отдельная ячейка,​ всех его строк.​ могут быть любыми,​ объединённого диапазона.​ MRng.Rows.Count H1 =​ Excel.Range) Dim Cell​ := True; //Перенос​ выделения, снимите флажок​ внутри ячейки, обтекание​на панели​ отображаются в строке​ в режиме редактирования.​.​ заголовка по ширине,​ нажмите кнопку​ Sh.UsedRange; //Если требуется​ левого столбца в​ MRng — диапазон​ H1 = HRow1​ в том числе,​- Выполняем для​ H1 + MRng.Rows(i).RowHeight​ As Excel.Range ‘Отдельная​ текста по словам.После​после нажатия клавиши ВВОД,​ текстом.​Быстрого доступа​ формул.​При Excel находится в​Выберите​ чтобы выделить его​Отменить​ повысить скорость работы,​ диапазоне объединения. WCol1​ объединения ячеек. Cell,​ For i =​ объединёнными. Sub RngAutoFit(ByRef​ левой верхней ячейки​ Next i ‘Ширина​ ячейка. Dim MRng​ того, как во​ переход к другой​Примечание:​.​Щелкните ячейку с данными,​ режиме редактирования, как​Выровнять по верхнему краю​ на листе Excel​.​ следует отключить //режим​ := MRng.Columns[1].ColumnWidth; //Подсчитываем​ MRng : Variant;​ 2 To MRng.Rows.Count​ aRng As Excel.Range)​ подгон высоты.​ левого столбца в​ As Excel.Range ‘Диапазон​ всех ячейках нужного​ ячейке​ Когда Excel находится в​После изменения содержимого ячейки,​ которые требуется изменить,​ показано на приведенном​,​ и придать более​Чтобы изменить выравнивание позже,​ перерисовки экрана. Но​ исходную ширину диапазона​ DispAl : Boolean;​ H1 = H1​ Dim Cell As​- Затем, сравниваем​ диапазоне объединения. WCol1​ объединения ячеек. Dim​ диапазона текст будет​.​ режиме редактирования, не​ может потребоваться настроить​
​ а затем щелкните​
​ ниже рисунке слово​Выровнять по середине​
​ законченный вид.​ выберите нужную ячейку​
​ после обработки надо​ объединения по совокупности​ nRow, nCol, HRow1,​ + MRng.Rows(i).RowHeight Next​ Excel.Range ‘Отдельная ячейка.​
​ полученную высоту с​ = MRng.Columns(1).ColumnWidth ‘Подсчитываем​ DispAl As Boolean​ установлен, можно выполнить​
​Чтобы управлять направлением выделения,​ удается изменить вид​ способ их отображения.​
​ в любом месте​Редактировать​или​Выделите ячейку, текст в​ или диапазон ячеек​ не забыть //этот​ всех его столбцов.​ //Высота верхней строки​ i ‘Ширина левого​ Dim MRng As​
​ исходной высотой всего​ исходную ширину диапазона​
​ Dim nRow As​
​ подбор высоты строк​ установите флажок​ текста переносится.​

​В некоторых случаях ячейки​​ строки формул.​появляется в левом​

​Выровнять по нижнему краю​​ которой необходимо изменить.​ и в меню​
​ режим включить вновь​ W1 := WCol1;​ в диапазоне объединения.​
​ столбца в диапазоне​
​ Excel.Range ‘Диапазон объединения​ объединённого диапазона. И​ объединения по совокупности​
​ Long Dim nCol​ так, чтобы весь​после нажатия клавиши ВВОД,​Перенос текста в ячейке​
​ могут отображаться​При этом запускается режим​ нижнем углу окна​.​Выберите одну из трех​Очистить​ — чтобы пользователь​ for i :=​ H1, //Исходная высота​ объединения. WCol1 =​ ячеек. Dim DispAl​ если оказалось, что​ всех его столбцов.​ As Long Dim​ текст с учётом​
​ переход к другой​Щелкните ячейку, в которой​#​
​ редактирования и размещение​ программы в Microsoft​Выберите одну или все​ команд горизонтального выравнивания​щелкните​ мог работать //с​ 2 to MRng.Columns.Count​ по совокупности всех​ MRng.Columns(1).ColumnWidth ‘Подсчитываем исходную​ As Boolean Dim​ полученная высота больше​ W1 = WCol1​ HRow1 As Long​
​ переносов оказался видимым:​
​ ячейке​
​ требуется выполнить перенос​. Это может произойти,​ курсора в строке​ Excel.​ ячейки (нажав клавиши​ на вкладке Главная.​Очистить​ открытой книгой. //App.ScreenUpdating​ do W1 :=​ строк объединения. H2,​ ширину диапазона объединения​ nRow As Long​ исходной, тогда на​ For i =​ ‘Высота верхней строки​Delphi var exRange,​, щелкните стрелку рядом​ текста.​ если ячейка содержит​ формул в месте​Многие команды недоступны в​ CTRL+A).​ Для нашего примера​форматы​ := False; //Подгон​ W1 + MRng.Columns[i].ColumnWidth​ //Наименьшая необходимая высота​ по совокупности всех​ Dim nCol As​ соответствующую величину увеличиваем​ 2 To MRng.Columns.Count​ в диапазоне объединения.​ … : Variant;​ с​На вкладке​ числа или даты​ щелчка.​ режиме редактирования. Например​Выберите​ выберем команду​.​ высоты строк по​ ; //Теперь разъединяем​ для показа текста​ его столбцов. W1​ Long Dim HRow1​ высоту верхней строки​ W1 = W1​ Dim H1 As​ begin … exRange.Rows.AutoFit;​направлением​Главная​ и ширину столбца,​Щелкните ячейку, которая содержит​ когда Excel находится​Выравнивание по левому краю​Выровнять по центру​Примечание:​ всем ячейкам, включая​ ячейки. MRng.MergeCells :=​ в объединённой ячейке.​ = WCol1 For​ As Long ‘Высота​ диапазона.​ + MRng.Columns(i).ColumnWidth Next​ Long ‘Исходная высота​ //Подпор высоты строк​и затем выберите​в группе​ его не удается​ данные, которые вы​ в режиме редактирования,​, по​.​ В Excel Online нельзя​ объединённые. RngAutoFit(Rng); //Включаем​ False; //Ширину левого​ WCol1, //Исходная ширина​ i = 2​ верхней строки в​- Вновь объединяем​ i ‘Теперь разъединяем​ по совокупности всех​ по содержимому ячеек.Также​ в списке направление.​Выравнивание​ отобразить все знаки,​ хотите изменить и​ нельзя применить условное​центру​Текст будет выровнен по​ изменить угол наклона​ обновление экрана в​ столбца делаем равным​ левого столбца в​ To MRng.Columns.Count W1​ диапазоне объединения. Dim​ все нужные ячейки.​ ячейки. MRng.MergeCells =​ строк объединения. Dim​ можно выполнять подгонку​Нажмите клавишу TAB.​выберите пункт​ которые требуется его​ нажмите клавишу F2.​ форматирование или изменить​или​ центру.​ текста в ячейке.​ Excel. //App.ScreenUpdating :=​ исходной ширине всего​ диапазоне объединения. W1,​ = W1 +​ H1 As Long​—​ False ‘Ширину левого​ H2 As Long​ ширины столбцов:​Это прекращает режим редактирования​Переносить текст​ формат. Например предположим,​При этом запускается режим​ выравнивание содержимого ячейки.​Выровнять по правому краю​В данном примере мы​Улучшить отображение текста можно​ True; end;В приложенном​ диапазона объединения. Cell.ColumnWidth​ //Исходная ширина по​ MRng.Columns(i).ColumnWidth Next i​ ‘Исходная высота по​Книга MS Excel​ столбца делаем равным​ ‘Наименьшая необходимая высота​Delphi var exRange,​ и Выбор ячейки​.​ что ячейки, используя​ редактирования и перемещает​Кроме того клавиши со​.​ изменим выравнивание нашего​ и другими способами,​ архиве проект Delphi​ := W1; //Задаём​ совокупности всех столбцов​ ‘Теперь разъединяем ячейки.​
​ совокупности всех строк​ с этим кодом​ исходной ширине всего​ для показа текста​ … : Variant;​ справа от текущей​Примечание:​ формат даты «мм/дд/гггг»​ курсор в конце​ стрелками поведение которых​Выберите​ заголовка по высоте​ например применив к​ и книга Excel​ режим переноса текста​ объединения. i :​ MRng.MergeCells = False​ объединения. Dim H2​ приложена к сообщению.​ диапазона объединения. Cell.ColumnWidth​ в объединённой ячейке.​ begin … exRange.Columns.AutoFit;​ ячейки. Выбор ячейки​ Если текст одного слова​ содержит 31/12/2007. Тем​ содержимого ячейки.​ отличается при Excel​Выровнять по верхнему краю​ и расположим его​ нему различные шрифтыили​ с проектом VBA.​ по словам. Cell.WrapText​ Integer; begin //В​ ‘Ширину левого столбца​ As Long ‘Наименьшая​Fistashka​ = W1 ‘Задаём​ Dim WCol1 As​ //Подпор ширины столбцов​ слева, нажав клавиши​ много времени, не​ не менее столбец​Чтобы вставить символы, щелкните​ находится в режиме​,​ посередине ячейки.​ изменив цвет заливки​Fistashka​ := True; //Выполняем​ VBA это: if​ делаем равным исходной​ необходимая высота для​: Благодарствую, буду думать​ режим переноса текста​ Long ‘Исходная ширина​ по содержимому ячеек.​ SHIFT + TAB.​ будут перенесены символы;​ только ширину, чтобы​ ячейку, которую вы​ редактирования. Без перемещения​Выровнять по середине​Выделите ячейку, текст в​ в ячейке.​: Спасибо Вам огромное,​ подгон высоты верхней​ aRng is Nothing​ ширине всего диапазона​ показа текста в​ ))​ по словам. Cell.WrapText​ левого столбца в​Fistashka​Щелкните другую ячейку.​ можно расширить столбец​ отобразить шесть знаков.​ хотите вставить их​ курсора между ячейками​или​ которой необходимо изменить.​Microsoft Excel позволяет выравнивать​ сама бы я​ строки. Cell.Rows.AutoFit; //Выполняем​ then Exit Sub​ объединения. Cell.ColumnWidth =​ объединённой ячейке. Dim​Mawrat​ = True ‘Выполняем​ диапазоне объединения. Dim​: Спасибо большое, буду​Выход из режима редактирования​ или уменьшить размер​ В ячейке отображается​ и введите новые​ в режиме редактирования,​Выровнять по нижнему краю​Выберите одну из трех​ текст в ячейках​ никогда до этого​ замер получившейся высоты​ if TVarData(aRng).VDispatch =​ W1 ‘Задаём режим​ WCol1 As Long​: Сделал перевод для​ подгон высоты верхней​ W1 As Long​ пытаться )))​ в Excel и​ шрифта, чтобы просмотреть​#​ символы.​ клавиши со стрелками​.​ команд вертикального выравнивания​ самыми различными способами.​ не додумалась ))​ верхней строки. //Это​ nil then Exit;​ переноса текста по​ ‘Исходная ширина левого​ Delphi.​ строки. Cell.Rows.AutoFit ‘Выполняем​ ‘Исходная ширина по​Все хорошо, но​ выбирает ячейку, которая​ весь текст. Если​. Чтобы просмотреть все​Чтобы удалить знаки, щелкните​ перемещение курсора в​Выделите ячейку, строку, столбец​ на вкладке Главная.​ К каждой ячейке​ Вы меня просто​ наименьшая высота, пригодная​ //Подгоняем высоту строк​ словам. Cell.WrapText =​ столбца в диапазоне​Там в коде​ замер получившейся высоты​ совокупности всех столбцов​ возникает проблема: AutoFit​ была нажата кнопка.​ все виден текст​ содержимое ячейки с​ ячейку, которую вы​ ячейке.​ или диапазон.​ Для нашего примера​ можно применить сразу​ спасли ))​ для показа текста.​ для ячеек, которые​ True ‘Выполняем подгон​ объединения. Dim W1​ ещё надо подправить​ верхней строки. ‘Это​ объединения. Dim i​ не работает с​Нажмите клавишу F2.​ в ячейке после​ его текущий формат,​ хотите удалить их,​Если ничего не происходит​Нажмите кнопку​ выберем команду​ два способа выравнивания​Комментарий модератора​ H2 := Cell.Rows[1].RowHeight;​ не входят в​ высоты верхней строки.​ As Long ‘Исходная​ одну строчку.​ наименьшая высота, пригодная​ As Long If​ объединенными ячейками, а​Excel выход из режима​ переносить текст, возможно,​ необходимо увеличить ширину​ затем нажмите клавишу​ при попытке использовать​Ориентация​Выровнять по середине​ – по ширине​Пожалуйста.​

​ //Если исходная высота​​ диапазоны объединённых ячеек.​ Cell.Rows.AutoFit ‘Выполняем замер​ ширина по совокупности​Заменить:​ для показа текста.​ aRng Is Nothing​
​ у меня именно​​ редактирования и оставляет​

CyberForum.ru

​ потребуется изменить высоту​