Скачать: CL | DM;

Соединение ячеек в 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]

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

---

← →
Digitman ©   (2005-06-30 17:48) [3]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c