Работа с Excel (формулы) в Delphi

@Z-7000 · Регистрация: 07.02.2012

Author24 — интернет-сервис помощи студентам

Добрый день!
Нужна ваша помощь знатоки! )
Есть шаблон документа, я его заполняю и делаю копию. В этом документе есть несколько листов.
И нужно что одни ячейки листа А были ровны ячейкам листа В. все вроде бы просто!!!!)
Для этого использовал формулы типа:
1) =ЕСЛИ(B!AD9<>"";B!AD9;"")
и
2) =СЦЕПИТЬ(B!AD9)
Пришлось их, т.к. если писать просто (=B!AD9), получаю ноль, заполняемая ячейка будет пуста.
Но пошли проблемы!!! Когда копирую из шаблона листы

Delphi

1	WorkSheet1.WorkSheets[1].Copy(After:=WorkSheet2.WorkSheets[1]);

...
...
формулы теряются (((
Если пытаюсь cоpдать формулу из Delphi в Excel, используя первую формулу:

Delphi

1	WorkSheet2.WorkSheets[2].Cells[13,10].Formula:= '=ЕСЛИ(Z!AD9<>"";Z!AD9;"")';

грязно ругается!!!
Если пытаюсь cоpдать формулу из Delphi в Excel, используя вторую формулу:

Delphi

1	WorkSheet2.WorkSheets[2].Cells[13,10].Formula:= '=СЦЕПИТЬ(Z!AD9)';

не ругается. Но в ячейке стоит #ИМЯ?, нужно зайти в ячейку и нажать Enter что отработала формула.
Как победить это дело нужно чтобы при заполнении B, А становилось равно B и всего!!!

@Mawrat · 03.07.2014, 09:37

Сообщение от Z-7000

Для этого использовал формулы типа:
1) =ЕСЛИ(B!AD9<>"";B!AD9;"")
и
2) =СЦЕПИТЬ(B!AD9)

Достаточно формулы №1.

Сообщение от Z-7000

Когда копирую из шаблона листы
WorkSheet1.WorkSheets[1].Copy(After:=WorkSheet2.WorkSheets[1]);
...
...
формулы теряются (((

Выполнение первой строки не приводит к потере формул. Значит, где-то дальше в коде формулы затираются.

Сообщение от Z-7000

Если пытаюсь cоpдать формулу из Delphi в Excel, используя первую формулу:
WorkSheet2.WorkSheets[2].Cells[13,10].Formula:= '=ЕСЛИ(Z!AD9<>"";Z!AD9;"")';
грязно ругается!!!

Если формула устанавливается программно, то она должна быть записана в варианте для английского языка:

Код

=IF(B!AD9<>"";B!AD9;"")

Сообщение от Z-7000

WorkSheet2.WorkSheets[2].Cells[13,10].Formula:= '=СЦЕПИТЬ(Z!AD9)';
не ругается. Но в ячейке стоит #ИМЯ?, нужно зайти в ячейку и нажать Enter что отработала формула.

Как выше уже упоминалось - в случае программной записи формулы надо задавать в варианте для английского языка. После записи формул надо или выполнить перерасчёт отдельного листа:

Delphi

1	WorkSheetNew.Calculate;

или перерасчёт всех открытых рабочих книг - на случай, если на других листах есть формулы, связанные текущим листом:

Delphi

1	exApplication.Calculate;

---
В общем, надо разобраться с кодом, который идёт после строки:

Delphi

1	WorkSheet1.WorkSheets[1].Copy(After:=WorkSheet2.WorkSheets[1]);

Потому, что выполнение самой этой строки не приводит к потере формул.

Добавлено через 19 минут

Сообщение от Mawrat

После записи формул надо или выполнить перерасчёт отдельного листа:

Вернее, лучше так - если формул много, то перед их записью надо отключить режим автоматического пересчёта. А после записи всех формул, вновь включить автоматический пересчёт:

Delphi

const
  xlManual = -4135;
  xlAutomatic = -4105;
var
  exApp : OleVariant;
...
begin
...
  exApp.Calculation := xlManual; //Переключение на режим ручного пересчёта.
  //Запись формул в ячейки.
  ...
  exApp.Calculation := xlAutomatic; //Вновь включаем автоматический пересчёт.

@Z-7000 · 04.07.2014, 03:41 **[ТС]**

Большое спасибо за такой прекрасный ответ.
Совершенно верно, что нужно писать все функции на английском языке ) я не обратил внимания.
Тут еще я допустил ошибку:

Delphi

1	=IF(B!AD9<>"";B!AD9;"")

Excel использует в формуле ";" - точку с запятой, но для Delphi это ошибка, нужна просто запятая:

Delphi

1	=IF(B!AD9<>"",B!AD9,"")

В Excel уже будет все как нужно!
И точно, копирование не удаляет формулы, это я затирал формулы в процессе заполнения листов.!!!
И получается что цифры:

Delphi

1 2	xlManual = -4135; xlAutomatic = -4105;

это диапазон строк в котором происходит перерасчет?

@Mawrat · 04.07.2014, 08:45

Сообщение от Z-7000

Excel использует в формуле ";" - точку с запятой, но для Delphi это ошибка, нужна просто запятая:

Правильно. Только это не в Delphi дело. Это в Excel такая особенность записи формул через программу - что аргументы надо разделять запятой, а не точкой с запятой.

Сообщение от Z-7000

И получается что цифры:

Delphi

1 2	xlManual = -4135; xlAutomatic = -4105;

это диапазон строк в котором происходит перерасчет?

Это константы, с помощью которых задаётся режим перерасчёта формул. Если мы пишем так:

Delphi

1 2	//Здесь exApp ссылается на интерфейс корневого объекта Excel - Excel.Application. exApp.Calculation := xlAutomatic;

то включается автоматический режим перерасчёта. В этом случае каждый раз, когда мы записываем формулу в ячейку, Excel выполняет перерасчёт. Этот режим чаще всего задействован по начальным установкам.
А если мы пишем так:

Delphi

1 2	//Здесь exApp ссылается на интерфейс корневого объекта Excel - Excel.Application. exApp.Calculation := xlManual;

то Excel не будет автоматически выполнять расчёты по формулам. Расчёт будет выполнен, только, если вызвать метод exApp.Calculate (если exWorkSheet.Calculate для пересчёта отдельного листа). Это бывает полезно, когда на листы надо записать большое количество формул - чтобы Excel во время этого процесса не выполнял перерасчёты.

@Z-7000 · 04.07.2014, 09:38 **[ТС]**

Все предельно ясно )
И еще один маленький вопрос, больше относящийся к Excel.
Есть ячейка с текстом и если текст в ней подчеркнут, то другая ячейка становилась ей ровна.
что-то типа

Код

=IF(лист!N83Font.Underline=true,лист!N83,"")

а найти пример не могу (

@Mawrat · 04.07.2014, 10:38

Вот с этим разбираться надо - возможно ли такое сделать через формулу?

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

@Z-7000 · 04.07.2014, 11:04 **[ТС]**

) Да через программу это легко согласен.!
Но просто программа отработала, а есть необходимость редактировать данные в Excel и только в одном листе,
а в остальных автоматом изменяются значения.
Ладно, буду думать) если у вас есть идеи пишите, буду рад.!

Еще маленький вопрос уже программный, Excel открывается нормально, но почему-то за формой программы, такое заметил с в десятом Excel. Как заставить его открываться поверх, всех окон и в развернутом виде, а не маленьким прямоугольником, что тоже бывает.!.?

@Z-7000 0 / 0 / 0 Регистрация: 07.02.2012 Сообщений: 40
	04.07.2014, 09:38 [ТС]	5
	Все предельно ясно ) И еще один маленький вопрос, больше относящийся к Excel. Есть ячейка с текстом и если текст в ней подчеркнут, то другая ячейка становилась ей ровна. что-то типа Код =IF(лист!N83Font.Underline=true,лист!N83,"") а найти пример не могу ( 0

@Mawrat 13107 / 5888 / 1707 Регистрация: 19.09.2009 Сообщений: 8,808
	04.07.2014, 10:38	6
	Вот с этим разбираться надо - возможно ли такое сделать через формулу? А через программу сделать можно - написать код, который будет проверять свойства шрифта. 0

@Z-7000 0 / 0 / 0 Регистрация: 07.02.2012 Сообщений: 40
	04.07.2014, 11:04 [ТС]	7
	) Да через программу это легко согласен.! Но просто программа отработала, а есть необходимость редактировать данные в Excel и только в одном листе, а в остальных автоматом изменяются значения. Ладно, буду думать) если у вас есть идеи пишите, буду рад.! Еще маленький вопрос уже программный, Excel открывается нормально, но почему-то за формой программы, такое заметил с в десятом Excel. Как заставить его открываться поверх, всех окон и в развернутом виде, а не маленьким прямоугольником, что тоже бывает.!.? 0

Работа с Excel (формулы) в Delphi

Решение