AutoFit в Excel

[jornand]

Может кто сталкивался...

Как сделать xlAutoFit на ячейку, растянутую на на несколько колонок (Merged)? Помогло бы xlGetColumnWidth, но такой функции нет.
Или хотя бы xlSetActiveCell, чтоб не создавать кучу bas-модулей.

[Tangar]

Нужна функция для использования в випе, или же родная Excel'евская?!
Если из Випа :
xlAutoFit
Function xlAutoFit(RawU : longint; ColL : longint; RawD : longint; ColR : longint) : boolean;
Для ячеек из заданного диапазона (стандартное форматирование Auto Fit)
Возвращает результат операции.
RawU : longint; ColL : longint; RawD : longint; ColR : longint
координаты диапазона

[Maverick]

Нужна функция для использования в випе, или же родная Excel'евская?!
Если из Випа :
xlAutoFit
Function xlAutoFit(RawU : longint; ColL : longint; RawD : longint; ColR : longint) : boolean;
Для ячеек из заданного диапазона (стандартное форматирование Auto Fit)
Возвращает результат операции.
RawU : longint; ColL : longint; RawD : longint; ColR : longint
координаты диапазона

Может быть уважаемый Тангар поделится свежей докой по Экселевским ф-ям? А мы обязуемся обновить ее в ОПЫТе

[Tangar]

Я бы с радостью поделился, но у меня такая же, ка приведена в разделе "ОПЫТ".
Холявят разработчики библиотеки, не обноваляют доку

[jornand]

А кто-нибудь пробовал сделать xlAutoFit(1,1,1,3), когда диапазон A1:C1 объединен в одну ячейку? Какие соображения?

[Tangar]

А по-моему это не сработает на объединенных ячейках ...

Легко проверить, написал маленький макрос на родном для Excel'я VB.
На объединенных ячейках точно не работает автораздвиэка ячейки по ширине и еще каки-то фишки ...
Вобщем много с ними проблем у самого Excel'я

[Алексей]

xlAutoFit раздвигает ячейку по ширие, а есть какая-нибудь функция, которая раздвигала бы ячейку по высоте, не меняя ширины?

[Masygreen]

xlAutoFit раздвигает ячейку по ширие, а есть какая-нибудь функция, которая раздвигала бы ячейку по высоте, не меняя ширины?

считайте символы, делите на сколько там влазит в строчку по ширине и примерно выставляйте ширину функцией )

[Алексей]

Я через матрицу в эксель пишу... ) есть способ нормальный?

[edward_K]

Если у вас высота ячеек авто(не таскали мышкой или не ставили высоту руками) и текст не
объединеных ячейках, то xlWrapText прекрасно работает. Я обычно делаю шаблон, в котором сначала выставляю форматы по столбцам, потом по строкам шапки. После вывода матрицы в файл - xlWrapText, это приводит к автоподбору высоты. Если же есть объединение ячеек, то и автоподбор высоты в Excel не будет работать и приходится выставлять высоту руками. У вас еще есть возможность выполнять/импортировать свои макросы, но если в Excel не найдете инструмента, то вам ничего не поможет.

[Алексей]

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

[Den]

Смотря ,кнч. что на листе там "наверчено".
Но, если просто открыть новую книгу, и вбить там какой то текст разной длины, скажем на первых пяти строках, путь с колонки B
а зачем объединить ячейки с В по F по каждой из этих строчек, и выставить :
- по горизонтали левый отступ
- по вертикали по нижнему краю
- переносить по словам

то запустив макроса :

Код: Выделить всё

Sub Test123()
Dim fromRow, toRow As Long

fromRow = 1
toRow = 5
ActiveSheet.Cells(1, 1).Select
ReDim columnWidths(2 To 6) As Long
colWidth = 0
For colNo = LBound(columnWidths) To UBound(columnWidths):
    columnWidths(colNo) = ActiveSheet.Columns(colNo).ColumnWidth:
    colWidth = colWidth + columnWidths(colNo)
Next
colNo = LBound(columnWidths)
Columns(colNo).ColumnWidth = colWidth
For rowNo = fromRow To toRow
  Set cell = Cells(rowNo, colNo)
  If cell.MergeCells And cell.Address = cell.MergeArea.Cells(1).Address Then
        Set ma = cell.MergeArea
        With ma
            .UnMerge:
           .EntireRow.AutoFit
            .Merge
       End With
    End If
Next
 Columns(LBound(columnWidths)).ColumnWidth = columnWidths(LBound(columnWidths))
End Sub

получаем что нужно