Соединение ячеек в Excel

← →
Андрей Жук © (2005-06-30 17:27) [0]

При соединении ячеек в Excel выполняется такой код
Range("A2:C2").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Selection.Merge
Это если записать марос в Excel
Если же соединять ячейки в Delphi через TExcelApplication,
то имеем следующий код
with Range["A2:С2", EmptyParam] do begin Mergecells := False; HorizontalAlignment := xlCenter; VerticalAlignment := xlCenter; WrapText := True; Orientation := 0; AddIndent := False; IndentLevel := 0; ShrinkToFit := False; ReadingOrder := xlContext; MergeCells := False; Merge(False); Font.Bold := True; Value := Caption; end;
но получаем не совсем то, что нужно.
Ячейки как бы объединены, но только формально. Можно писать в любую из объединяемых ячеек.
Где ошибка?

← →
Digitman © (2005-06-30 17:38) [1]

> Можно писать в любую из объединяемых ячеек

а что этому должно помешать ?

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

← →
Андрей Жук © (2005-06-30 17:42) [2]

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

значит, в этом случае устанавливать св-во Value для всех объединенных ячеек в указанном диапазоне недопустимо

Соединение ячеек в Excel Найти похожие ветки