| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Соединение ячеек в Excel
Андрей Жук © (2005-06-30 17:27:00)При соединении ячеек в 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:48:00) [1]значит, в этом случае устанавливать св-во Value для всех объединенных ячеек в указанном диапазоне недопустимо
Андрей Жук (2005-06-30 17:42:00) [2]так в том то и дело, что можно интерактивно вводить значения в объединенные ячейки.
Digitman (2005-06-30 17:38:00) [3]
> Можно писать в любую из объединяемых ячеек
а что этому должно помешать ?
объединение - чисто визуальный эффект, объединение не позволяет юзеру интерактивнозаписывать значения в некоторые из объединяемых ячеек , программной же записи при этом ничто мешать не должно
| |
