как сделать одну колонку той-же ширины, что и несколько друг

[atom_nb]

Доброго времени суток!

Как сделать в Excel'е одну колонку той-же ширины, что и несколько других идущих подряд колонок?

Суммировал ColumnWidth и присваивал результат в ColumnWidth требуемой колонке.
Полученная ширина почему-то меньше, чем надо (глазами вижу)

Всем заранее спасибо.

[Денис]

Проверьте единицы измерения, в которых задаете ширину.

[alibek]

Нужно учитывать границы (по два пиксела) и разделители.

[atom_nb]

Нужно учитывать границы (по два пиксела) и разделители.

Я тоже так подумал, вопрос только, как. По справке (VBAXL10.CHM) это совсем неочевидно

Чтобы не было недоразумений приведу примерный код:

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

Sub Макрос1()
'
    Dim i, w, count
    w = 0
    count = 30
    For i = 1 To count
        w = w + Worksheets(1).Columns(i).ColumnWidth
    Next
   
    Worksheets(1).Columns(count + 1).ColumnWidth = w
End Sub



[atom_nb]

очень грустно, что так никто путем и не отвечает...

[atom_nb]

Может возникнуть вопрос, а зачем делать "в Excel'е одну колонку той-же ширины, что и несколько других идущих подряд колонок"?
Заранее отвечу:

Делаю отчет в Excel, в котором колонка таблицы захватывает несколько колонок листа (так надо).
При этом автоподбор высоты строк не работает.
При всем моем уважении к Microsoft, не понимаю, что мешало сделать, чтобы работало???

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

[atom_nb]

К данному моменту макрос трансформировался до такого

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

Sub Макрос1()
    ' Определяем коэффициент пропорциональности
    ' между Column.ColumnWidth и Column.Width
    Worksheets(1).Columns(1).ColumnWidth = 200
    Dim k
    k = Worksheets(1).Columns(1).ColumnWidth / (Worksheets(1).Columns(1).Width + 1)
   
    Dim i, w, count
    w = 0
    count = 30
    For i = 1 To count
        ' Column.Width точнее отражает ширину колонки, чем ColumnWidth
        ' но писать в Column.Width нельзя :(
        w = w + Worksheets(1).Columns(i).Width * k
    Next
   
    Worksheets(1).Columns(count + 1).ColumnWidth = w
End Sub


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

Поэтому еще раз задаю вопрос знатокам
как сделать на другом (служебном) листе колонки, равные по ширине колонкам выводимой таблицы
при этом в выводимой таблице колонки захватывают по нескольку (от 5 до 20) колонок листа

Всем заранее спасибо

[Alec]

Делаю отчет в Excel, в котором колонка таблицы захватывает несколько колонок листа (так надо). При этом автоподбор высоты строк не работает.

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

[atom_nb]

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

Не сразу въехал, что имелось в виду .
Надо примерно так

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

Sub Макрос3()
    Range("A1:J1").Select
    With Selection
        .HorizontalAlignment = xlCenterAcrossSelection
        .WrapText = True
        .MergeCells = False
    End With
    ActiveCell.FormulaR1C1 = _
        "sdadsa sadsadsa asdsadsad sadsa dsads ad asda dsad as"
End Sub

Или так

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

Sub Макрос4()
    With Range("A1:J1")
        .HorizontalAlignment = xlCenterAcrossSelection
        .WrapText = True
        .MergeCells = False
    End With
    Cells(1, 1).FormulaR1C1 = _
        "sdadsa sadsadsa asdsadsad sadsa dsads ad asda dsad as"
End Sub

Спасибо! Вполне нормальное решение!
Правда, вопрос с суммированием ColumnWidth, все-таки, остается открытым

[Che]

For i = 1 To Count
a = a + Columns(i).ColumnWidth
Next i
Columns(xxx).ColumnWidth = a + Count / 2

[atom_nb]

А с чего

+ Count / 2

Это получено в результате эвристического анализа?

[Che]

В идеале нужно определить толщину каждой правой границы ячеек (столбцов), ширину которых ты сумируешь, просуммировать и добавить к полученной сумме. По умолчанию толщина границы 0.5 отсюда Count/2. Да, свойства ".ColumnWidth" и ".Width" имеют разную размерность, посему имеет смысл пользовать одно, а не оба сразу (конечно если нет сильного желания посидеть за приведением размерностей к одному значению).

[atom_nb]

По умолчанию толщина границы 0.5 отсюда Count/2.

А как можно получить толщину границы? (Через какие объекты, методы, свойства...)