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

@Fistashka · Регистрация: 02.12.2011

В ячейку вставляется очень длинный текст, который при печати просто не виден. Нужно, чтобы продолжение текста переносилось в сторку ниже.
Пишу на Delphi.

@Mawrat · 19.12.2011, 04:05

Для такой ячейки надо выставить свойство WrapText := True.

Delphi

var
  exCell, ... : Variant;
begin
...
  exCell.WrapText := True; //Перенос текста по словам.

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

Delphi

var
  exRange, ... : Variant;
begin
...
  exRange.Rows.AutoFit; //Подпор высоты строк по содержимому ячеек.

Также можно выполнять подгонку ширины столбцов:

Delphi

var
  exRange, ... : Variant;
begin
...
  exRange.Columns.AutoFit; //Подпор ширины столбцов по содержимому ячеек.

@Fistashka · 19.12.2011, 13:11 **[ТС]**

Сообщение от Mawrat

Для такой ячейки надо выставить свойство WrapText := True.

Delphi

var
  exCell, ... : Variant;
begin
...
  exCell.WrapText := True; //Перенос текста по словам.

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

Delphi

var
  exRange, ... : Variant;
begin
...
  exRange.Rows.AutoFit; //Подпор высоты строк по содержимому ячеек.

Также можно выполнять подгонку ширины столбцов:

Delphi

var
  exRange, ... : Variant;
begin
...
  exRange.Columns.AutoFit; //Подпор ширины столбцов по содержимому ячеек.

Спасибо большое, буду пытаться )))

Добавлено через 1 час 11 минут

Сообщение от Mawrat

Для такой ячейки надо выставить свойство WrapText := True.

Delphi

var
  exCell, ... : Variant;
begin
...
  exCell.WrapText := True; //Перенос текста по словам.

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

Delphi

var
  exRange, ... : Variant;
begin
...
  exRange.Rows.AutoFit; //Подпор высоты строк по содержимому ячеек.

Также можно выполнять подгонку ширины столбцов:

Delphi

var
  exRange, ... : Variant;
begin
...
  exRange.Columns.AutoFit; //Подпор ширины столбцов по содержимому ячеек.

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

@Mawrat · 20.12.2011, 21:20

Сообщение от Fistashka

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

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

Visual Basic

Option Explicit
 
'Эта процедура предназначена для подгона высоты строк по содержимому ячеек
'в пределах заданного диапазона aRng.
Sub RngAutoFit(ByRef aRng As Excel.Range)
  Dim Cell As Excel.Range 'Отдельная ячейка.
  Dim MRng As Excel.Range 'Диапазон объединения ячеек.
  Dim DispAl As Boolean
  Dim nRow As Long
  Dim nCol As Long
  Dim HRow1 As Long 'Высота верхней строки в диапазоне объединения.
  Dim H1 As Long 'Исходная высота по совокупности всех строк объединения.
  Dim H2 As Long 'Наименьшая необходимая высота для показа текста в объединённой ячейке.
  Dim WCol1 As Long 'Исходная ширина левого столбца в диапазоне объединения.
  Dim W1 As Long 'Исходная ширина по совокупности всех столбцов объединения.
  Dim i As Long
  
  If aRng Is Nothing Then Exit Sub
  
  'Подгоняем высоту строк для ячеек, которые не входят в диапазоны объединённых ячеек.
  aRng.Rows.AutoFit
  'Отключаем режим показа предупреждений. Это надо для того, чтобы в следующей части
  'программы не появлялось сообщение с предупреждением о последствиях объединения.
  DispAl = Application.DisplayAlerts
  Application.DisplayAlerts = False
  
  'Перебор всех ячеек диапазона.
  For nRow = 1 To aRng.Rows.Count
  For nCol = 1 To aRng.Columns.Count
    'Берём очередную ячейку.
    Set Cell = aRng.Cells(nRow, nCol)
    'Определяем диапазон объединения, в который входит ячейка Cell.
    Set MRng = Cell.MergeArea
    'Если в самом деле ячейка принадлежит диапазону объединённых ячеек и эта ячейка
    'является левой верхней ячейкой в этом диапазоне, тогда запускаем алгоритм подгона высоты.
    If Cell.MergeCells And (Cell = MRng.Cells(1, 1)) Then
      'Высота верхней строки в диапазоне объединения.
      HRow1 = MRng.Rows(1).RowHeight
      'Подсчитываем исходную высоту диапазона объединения по совокупности всех его строк.
      H1 = HRow1
      For i = 2 To MRng.Rows.Count
        H1 = H1 + MRng.Rows(i).RowHeight
      Next i
      'Ширина левого столбца в диапазоне объединения.
      WCol1 = MRng.Columns(1).ColumnWidth
      'Подсчитываем исходную ширину диапазона объединения по совокупности всех его столбцов.
      W1 = WCol1
      For i = 2 To MRng.Columns.Count
        W1 = W1 + MRng.Columns(i).ColumnWidth
      Next i
      'Теперь разъединяем ячейки.
      MRng.MergeCells = False
      'Ширину левого столбца делаем равным исходной ширине всего диапазона объединения.
      Cell.ColumnWidth = W1
      'Задаём режим переноса текста по словам.
      Cell.WrapText = True
      'Выполняем подгон высоты верхней строки.
      Cell.Rows.AutoFit
      'Выполняем замер получившейся высоты верхней строки.
      'Это наименьшая высота, пригодная для показа текста.
      H2 = Cell.Rows(1).RowHeight
      'Если исходная высота диапазона объединения оказалась меньше, чем наименьшая
      'пригодная высота, то увеличиваем высоту верхней строки на соответствующую величину.
      If H1 < H2 Then
        Cell.Rows(1).RowHeight = HRow1 + (H2 - H1)
      End If
      'Возвращаем левому столбцу диапазона его прежнюю ширину.
      Cell.ColumnWidth = WCol1
      'Объединяем все нужные ячейки.
      MRng.MergeCells = True
    End If
  Next nCol
  Next nRow
  
  'Восстанавливаем прежний режим показа предупреждений.
  Application.DisplayAlerts = DispAl
End Sub
 
'Проверка.
Sub Sub1()
  Dim Rng As Excel.Range
  Dim Sh As Excel.Worksheet
  
  Set Sh = Application.ActiveSheet
  Set Rng = Sh.Range("A1:J5")
  
  RngAutoFit Rng
End Sub

Осталось код процедуры RngAutoFit() перевести на Delphi.
---
Идея этого алгоритма такая:
- Замеряем размеры объединённой ячейки.
- Затем, разъединяем диапазон. При этом, весь текст окажется в левой верхней ячейке диапазона объединения.
- Задаём ширину левой верхней ячейки равной ширине исходного объединённого диапазона.
- Выполняем для левой верхней ячейки подгон высоты.
- Затем, сравниваем полученную высоту с исходной высотой всего объединённого диапазона. И если оказалось, что полученная высота больше исходной, тогда на соответствующую величину увеличиваем высоту верхней строки диапазона.
- Вновь объединяем все нужные ячейки.
---
Книга MS Excel с этим кодом приложена к сообщению.

@Fistashka · 20.12.2011, 21:32 **[ТС]**

Сообщение от Mawrat

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

Visual Basic

Option Explicit
 
'Эта процедура предназначена для подгона высоты строк по содержимому ячеек
'в пределах заданного диапазона aRng.
Sub RngAutoFit(ByRef aRng As Excel.Range)
  Dim Cell As Excel.Range 'Отдельная ячейка.
  Dim MRng As Excel.Range 'Диапазон объединения ячеек.
  Dim DispAl As Boolean
  Dim nRow As Long
  Dim nCol As Long
  Dim HRow1 As Long 'Высота верхней строки в диапазоне объединения.
  Dim H1 As Long 'Исходная высота по совокупности всех строк объединения.
  Dim H2 As Long 'Наименьшая необходимая высота для показа текста в объединённой ячейке.
  Dim WCol1 As Long 'Исходная ширина левого столбца в диапазоне объединения.
  Dim W1 As Long 'Исходная ширина по совокупности всех столбцов объединения.
  Dim i As Long
  
  If aRng Is Nothing Then Exit Sub
  
  'Подгоняем высоту строк для ячеек, которые не входят в диапазоны объединённых ячеек.
  aRng.Rows.AutoFit
  'Отключаем режим показа предупреждений. Это надо для того, чтобы в следующей части
  'программы не появлялось сообщение с предупреждением о последствиях объединения.
  DispAl = Application.DisplayAlerts
  Application.DisplayAlerts = False
  
  'Перебор всех ячеек диапазона.
  For nRow = 1 To aRng.Rows.Count
  For nCol = 1 To aRng.Columns.Count
    'Берём очередную ячейку.
    Set Cell = aRng.Cells(nRow, nCol)
    'Определяем диапазон объединения, в который входит ячейка Cell.
    Set MRng = Cell.MergeArea
    'Если в самом деле ячейка принадлежит диапазону объединённых ячеек и эта ячейка
    'является левой верхней ячейкой в этом диапазоне, тогда запускаем алгоритм подгона высоты.
    If Cell.MergeCells And (Cell = MRng.Cells(1, 1)) Then
      'Высота верхней строки в диапазоне объединения.
      HRow1 = MRng.Rows(1).RowHeight
      'Подсчитываем исходную высоту диапазона объединения по совокупности всех его строк.
      H1 = HRow1
      For i = 2 To MRng.Rows.Count
        H1 = H1 + MRng.Rows(i).RowHeight
      Next i
      'Ширина левого столбца в диапазоне объединения.
      WCol1 = MRng.Columns(1).ColumnWidth
      'Подсчитываем исходную ширину диапазона объединения по совокупности всех его столбцов.
      W1 = WCol1
      For i = 2 To MRng.Columns.Count
        W1 = W1 + MRng.Columns(i).ColumnWidth
      Next i
      'Теперь разъединяем ячейки.
      MRng.MergeCells = False
      'Ширину левого столбца делаем равным исходной ширине всего диапазона объединения.
      Cell.ColumnWidth = W1
      'Задаём режим переноса текста по словам.
      Cell.WrapText = True
      'Выполняем подгон высоты верхней строки.
      Cell.Rows.AutoFit
      'Выполняем замер получившейся высоты верхней строки.
      'Это наименьшая высота, пригодная для показа текста.
      H2 = Cell.Rows(1).RowHeight
      'Если исходная высота диапазона объединения оказалась меньше, чем наименьшая
      'пригодная высота, то увеличиваем высоту верхней строки на соответствующую величину.
      If H1 < H2 Then
        Cell.Rows(1).RowHeight = HRow1 + (H2 - H1)
      End If
      'Возвращаем левому столбцу диапазона его прежнюю ширину.
      Cell.ColumnWidth = WCol1
      'Объединяем все нужные ячейки.
      MRng.MergeCells = True
    End If
  Next nCol
  Next nRow
  
  'Восстанавливаем прежний режим показа предупреждений.
  Application.DisplayAlerts = DispAl
End Sub
 
'Проверка.
Sub Sub1()
  Dim Rng As Excel.Range
  Dim Sh As Excel.Worksheet
  
  Set Sh = Application.ActiveSheet
  Set Rng = Sh.Range("A1:J5")
  
  RngAutoFit Rng
End Sub

Осталось код процедуры RngAutoFit() перевести на Delphi.
---
Идея этого алгоритма такая:
- Замеряем размеры объединённой ячейки.
- Затем, разъединяем диапазон. При этом, весь текст окажется в левой верхней ячейке диапазона объединения.
- Задаём ширину левой верхней ячейки равной ширине исходного объединённого диапазона.
- Выполняем для левой верхней ячейки подгон высоты.
- Затем, сравниваем полученную высоту с исходной высотой всего объединённого диапазона. И если оказалось, что полученная высота больше исходной, тогда на соответствующую величину увеличиваем высоту верхней строки диапазона.
- Вновь объединяем все нужные ячейки.
---
Книга MS Excel с этим кодом приложена к сообщению.

Благодарствую, буду думать ))

@Mawrat · 21.12.2011, 16:41

Сделал перевод для Delphi.
Там в коде ещё надо подправить одну строчку.
Заменить:

Visual Basic

1	If Cell.MergeCells And (Cell = MRng.Cells(1, 1)) Then

на:

Visual Basic

1	If Cell.MergeCells And (Cell.Address = MRng.Cells(1, 1).Address) Then

Потому что в коде

Visual Basic

1	If ... (Cell = MRng.Cells(1, 1)) ... Then

на самом деле сравниваются не ссылки на указанные объекты, а сравниваются значения свойств по умолчанию для этих объектов. Так как Cell и MRng.Cells(1, 1) принадлежат типу Excel.Range, то для них свойством по умолчанию будет Value. Т. е. код:

Visual Basic

1	If ... (Cell = MRng.Cells(1, 1)) ... Then

эквивалентен коду:

Visual Basic

1	If ... (Cell.Value = MRng.Cells(1, 1).Value) ... Then

А это не то что нам нужно. Нам надо не значение ячеек сравнивать, а выяснить, ссылаются ли эти переменные на одну и ту же ячейку. Для этого было решено использовать свойство Address.
---
Окончательный код VBA:

Visual Basic

Option Explicit
 
'Эта процедура предназначена для подгона высоты строк по содержимому ячеек в пределах
'заданного диапазона aRng. Ячейки могут быть любыми, в том числе, объединёнными.
Sub RngAutoFit(ByRef aRng As Excel.Range)
  Dim Cell As Excel.Range 'Отдельная ячейка.
  Dim MRng As Excel.Range 'Диапазон объединения ячеек.
  Dim DispAl As Boolean
  Dim nRow As Long
  Dim nCol As Long
  Dim HRow1 As Long 'Высота верхней строки в диапазоне объединения.
  Dim H1 As Long 'Исходная высота по совокупности всех строк объединения.
  Dim H2 As Long 'Наименьшая необходимая высота для показа текста в объединённой ячейке.
  Dim WCol1 As Long 'Исходная ширина левого столбца в диапазоне объединения.
  Dim W1 As Long 'Исходная ширина по совокупности всех столбцов объединения.
  Dim i As Long
  
  If aRng Is Nothing Then Exit Sub
  
  'Подгоняем высоту строк для ячеек, которые не входят в диапазоны объединённых ячеек.
  aRng.Rows.AutoFit
  'Отключаем режим показа предупреждений. Это надо для того, чтобы в следующей части
  'программы не появлялось сообщение с предупреждением о последствиях объединения.
  DispAl = Application.DisplayAlerts
  Application.DisplayAlerts = False
  
  'Перебор всех ячеек диапазона.
  For nRow = 1 To aRng.Rows.Count
  For nCol = 1 To aRng.Columns.Count
    'Берём очередную ячейку.
    Set Cell = aRng.Cells(nRow, nCol)
    'Определяем диапазон объединения, в который входит ячейка Cell.
    Set MRng = Cell.MergeArea
    'Если в самом деле ячейка принадлежит диапазону объединённых ячеек и эта ячейка
    'является левой верхней ячейкой в этом диапазоне, тогда запускаем алгоритм подгона высоты.
    If Cell.MergeCells And (Cell.Address = MRng.Cells(1, 1).Address) Then
      'Высота верхней строки в диапазоне объединения.
      HRow1 = MRng.Rows(1).RowHeight
      'Подсчитываем исходную высоту диапазона объединения по совокупности всех его строк.
      H1 = HRow1
      For i = 2 To MRng.Rows.Count
        H1 = H1 + MRng.Rows(i).RowHeight
      Next i
      'Ширина левого столбца в диапазоне объединения.
      WCol1 = MRng.Columns(1).ColumnWidth
      'Подсчитываем исходную ширину диапазона объединения по совокупности всех его столбцов.
      W1 = WCol1
      For i = 2 To MRng.Columns.Count
        W1 = W1 + MRng.Columns(i).ColumnWidth
      Next i
      'Теперь разъединяем ячейки.
      MRng.MergeCells = False
      'Ширину левого столбца делаем равным исходной ширине всего диапазона объединения.
      Cell.ColumnWidth = W1
      'Задаём режим переноса текста по словам.
      Cell.WrapText = True
      'Выполняем подгон высоты верхней строки.
      Cell.Rows.AutoFit
      'Выполняем замер получившейся высоты верхней строки.
      'Это наименьшая высота, пригодная для показа текста.
      H2 = Cell.Rows(1).RowHeight
      'Если исходная высота диапазона объединения оказалась меньше, чем наименьшая
      'пригодная высота, то увеличиваем высоту верхней строки на соответствующую величину.
      If H1 < H2 Then
        Cell.Rows(1).RowHeight = HRow1 + (H2 - H1)
      End If
      'Возвращаем левому столбцу диапазона его прежнюю ширину.
      Cell.ColumnWidth = WCol1
      'Объединяем все нужные ячейки.
      MRng.MergeCells = True
    End If
  Next nCol
  Next nRow
  
  'Восстанавливаем прежний режим показа предупреждений.
  Application.DisplayAlerts = DispAl
End Sub
 
'Проверка.
Sub Sub1()
  Dim Rng As Excel.Range
  Dim Sh As Excel.Worksheet
  
  Set Sh = Application.ActiveSheet
  Set Rng = Sh.Range("A1:J5")
  
  RngAutoFit Rng
End Sub

Код Delphi:

Delphi

uses
  ComObj;
 
//Эта процедура предназначена для подгона высоты строк по содержимому ячеек в пределах
//заданного диапазона aRng. Ячейки могут быть любыми, в том числе, объединёнными.
procedure RngAutoFit(var aRng : Variant);
var
  //Cell - Отдельная ячейка, MRng - диапазон объединения ячеек.
  Cell, MRng : Variant;
  DispAl : Boolean;
  nRow, nCol,
  HRow1, //Высота верхней строки в диапазоне объединения.
  H1,    //Исходная высота по совокупности всех строк объединения.
  H2,    //Наименьшая необходимая высота для показа текста в объединённой ячейке.
  WCol1, //Исходная ширина левого столбца в диапазоне объединения.
  W1,    //Исходная ширина по совокупности всех столбцов объединения.
  i : Integer;
begin
  //В VBA это: if aRng is Nothing then Exit Sub
  if TVarData(aRng).VDispatch = nil then Exit;
 
  //Подгоняем высоту строк для ячеек, которые не входят в диапазоны объединённых ячеек.
  aRng.Rows.AutoFit;
  //Отключаем режим показа предупреждений. Это надо для того, чтобы в следующей части
  //программы не появлялось сообщение с предупреждением о последствиях объединения.
  DispAl := aRng.Application.DisplayAlerts;
  aRng.Application.DisplayAlerts := False;
 
  //Перебор всех ячеек диапазона.
  for nRow := 1 to aRng.Rows.Count do
  for nCol := 1 to aRng.Columns.Count do begin
    //Берём очередную ячейку.
    Cell := aRng.Cells[nRow, nCol];
    //Определяем диапазон объединения, в который входит ячейка Cell.
    MRng := Cell.MergeArea;
    //Если в самом деле ячейка принадлежит диапазону объединённых ячеек и эта ячейка
    //является левой верхней ячейкой в этом диапазоне, тогда запускаем алгоритм подгона высоты.
    //Иначе - пропускаем итерацию.
    if not ( Cell.MergeCells and (Cell.Address = MRng.Cells[1, 1].Address) ) then Continue;
 
    //Высота верхней строки в диапазоне объединения.
    HRow1 := MRng.Rows[1].RowHeight;
    //Подсчитываем исходную высоту диапазона объединения по совокупности всех его строк.
    H1 := HRow1;
    for i := 2 to MRng.Rows.Count do
      H1 := H1 + MRng.Rows[i].RowHeight
    ;
    //Ширина левого столбца в диапазоне объединения.
    WCol1 := MRng.Columns[1].ColumnWidth;
    //Подсчитываем исходную ширину диапазона объединения по совокупности всех его столбцов.
    W1 := WCol1;
    for i := 2 to MRng.Columns.Count do
      W1 := W1 + MRng.Columns[i].ColumnWidth
    ;
    //Теперь разъединяем ячейки.
    MRng.MergeCells := False;
    //Ширину левого столбца делаем равным исходной ширине всего диапазона объединения.
    Cell.ColumnWidth := W1;
    //Задаём режим переноса текста по словам.
    Cell.WrapText := True;
    //Выполняем подгон высоты верхней строки.
    Cell.Rows.AutoFit;
    //Выполняем замер получившейся высоты верхней строки.
    //Это наименьшая высота, пригодная для показа текста.
    H2 := Cell.Rows[1].RowHeight;
    //Если исходная высота диапазона объединения оказалась меньше, чем наименьшая
    //пригодная высота, то увеличиваем высоту верхней строки на соответствующую величину.
    if H1 < H2 then
      Cell.Rows[1].RowHeight := HRow1 + (H2 - H1)
    ;
    //Возвращаем левому столбцу диапазона его прежнюю ширину.
    Cell.ColumnWidth := WCol1;
    //Объединяем все нужные ячейки.
    MRng.MergeCells := True;
  end; //for nRow, nCol.
 
  //Восстанавливаем прежний режим показа предупреждений.
  aRng.Application.DisplayAlerts := DispAl;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  App, Book, Sh, Rng : Variant;
  Od : TOpenDialog;
begin
  Od := OpenDialog1;
  if Od.InitialDir = '' then
    Od.InitialDir := ExtractFilePath( ParamStr(0) )
  ;
  if not Od.Execute then Exit;
  if not FileExists(Od.FileName) then begin
    MessageBox(
      0
      ,PChar('Файл с заданным именем не найден. Действие отменено.')
      ,PChar('Предупреждение.')
      ,MB_OK + MB_ICONWARNING + MB_APPLMODAL
    );
    Exit;
  end;
 
  App := CreateOleObject('Excel.Application');
  App.Visible := True;
  Book := App.Workbooks.Open(Od.FileName);
  //Первый лист в рабочей книге.
  Sh := Book.Worksheets[1];
  //Весь используемый диапазон ячеек на листе.
  Rng := Sh.UsedRange;
 
  //Если требуется повысить скорость работы, следует отключить
  //режим перерисовки экрана. Но после обработки надо не забыть
  //этот режим включить вновь - чтобы пользователь мог работать
  //с открытой книгой.
  //App.ScreenUpdating := False;
 
  //Подгон высоты строк по всем ячейкам, включая объединённые.
  RngAutoFit(Rng);
 
  //Включаем обновление экрана в Excel.
  //App.ScreenUpdating := True;
end;

В приложенном архиве проект Delphi и книга Excel с проектом VBA.

@Fistashka · 21.12.2011, 18:30 **[ТС]**

Спасибо Вам огромное, сама бы я никогда до этого не додумалась )) Вы меня просто спасли ))

Комментарий модератора

Пожалуйста.

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

Решение

Решение

@Fistashka 0 / 0 / 0 Регистрация: 02.12.2011 Сообщений: 16
		1
	Выравнивание высоты объединённых ячеек Excel по их содержимому. AutoFit для объединённых ячеек Excel. 19.12.2011, 00:26. Показов 23781. Ответов 6 Метки autofit, excel, ms excel, vba, выравнивание по высоте, выравнивание по ширине, высота ячейки, объединённые ячейки, подбор высоты, подбор ширины, подгон высоты, подгон размера, подгон ширины, размер ячейки, ячейка, ячейки (Все метки) В ячейку вставляется очень длинный текст, который при печати просто не виден. Нужно, чтобы продолжение текста переносилось в сторку ниже. Пишу на Delphi. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0