Как вставить формулу delphi excel

Вставка формулы в Excel

Bas	Сообщ. #4 , 27.09.04, 05:48
	Замни на FormulaR1C1 как это делает сам Excel ActiveCell.FormulaR1C1 = «=VALUE(RC[-4])»

Miscђka	Сообщ. #13 , 05.10.04, 02:12
	Цитата Jureth, 4.10.04, 08:46 Переустановил бы Офис — ради разработки приложения можно и попотеть немного. офис можно и доустановить, не удаляя его полностью

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

формула в ячейку Excel помещается так:

var
  Range, Sheet, Excel, v: Variant;
    
begin
  Excel := CreateOleObject('Excel.Application');
  Sheet := Excel.Workbooks[1].Sheets[1];
  Sheet.Cells[i, j] := '=(2+2)';                    // занесение формулы
  Sheet.Cells[i, j] := '=СУММ(A1:A8)';        // занесение формулы
  Excel.Visible := true;
end;

вопрос в том, как заставить Excel ее вычислить, потому как вместо результата в ячейке светится #ИМЯ? и подсказка «формула содержит нераспознанный текст» и если после этого установить курсор на строку с форулой и просто нажать Enter то формула прекрасно вычисляется… Как сделать то же самое программным методом?
причем строка «=(2+2)» вычисляется нормально.
насколько я понял распознать оно не может слово «СУММ».
также пытался делать нечто вроде

  Sheet.Cells[y, i].Calculate;

но это ничего не меняет…

… << RSDN@Home 1.1.4 stable SR1 rev. 568>>

Re: передать формулу в Excel

Здравствуйте, A7exander, Вы писали:

A>формула в ячейку Excel помещается так:
A>

A>var
A>  Range, Sheet, Excel, v: Variant;
    
A>begin
A>  Excel := CreateOleObject('Excel.Application');
A>  Sheet := Excel.Workbooks[1].Sheets[1];
A>  Sheet.Cells[i, j] := '=(2+2)';                    // занесение формулы
A>  Sheet.Cells[i, j] := '=СУММ(A1:A8)';        // занесение формулы
A>  Excel.Visible := true;
A>end;    
A>

A> вопрос в том, как заставить Excel ее вычислить, потому как вместо результата в ячейке светится #ИМЯ? и подсказка «формула содержит нераспознанный текст» и если после этого установить курсор на строку с форулой и просто нажать Enter то формула прекрасно вычисляется… Как сделать то же самое программным методом?
A> причем строка «=(2+2)» вычисляется нормально.
A> насколько я понял распознать оно не может слово «СУММ».
A> также пытался делать нечто вроде
A>

A>  Sheet.Cells[y, i].Calculate;    
A>

A>но это ничего не меняет…

Правильно будет написать вот так:

Sheet.Cells[i, j] := '=SUMM(A1:A8)';        // занесение формулы

Имена формул надо писать по-английски. И будет тебе счастье. Причем, неважно — русский или аглицкий ексель у тебя стоит.

… << RSDN@Home 1.1.4 stable SR1 rev. 568>>

Re: передать формулу в Excel

Здравствуйте, A7exander, Вы писали:

Попробуй написать так:

Sheet.Cells[i, j].Formula := '=SUMM(A1:A8)';        // занесение формулы

Re[2]: передать формулу в Excel

Здравствуйте, Horror_Infinity, Вы писали:

H_I>Правильно будет написать вот так:
H_I>

H_I>Sheet.Cells[i, j] := '=SUMM(A1:A8)';        // занесение формулы
H_I>

H_I>Имена формул надо писать по-английски. И будет тебе счастье. Причем, неважно — русский или аглицкий ексель у тебя стоит.

Спасибо за отклик, попробовал, но в результате тот же «#ИМЯ?» вместо результата, та же подсказка, но вдобавок теперь если установить курсор на строку с формулой в ячейке и нажать Enter то ничего не меняется, тоесть похоже «SUMM» эксель не понимает впринципе… Может где то переключить что нибудь нужно, чтоб англоязычные функции понимал? Эксель из пакета «OFFICE 2003»

… << RSDN@Home 1.1.4 stable SR1 rev. 568>>

Re[2]: передать формулу в Excel

Здравствуйте, Danchik, Вы писали:

D>Попробуй написать так:
D>

D>Sheet.Cells[i, j].Formula := '=SUMM(A1:A8)';        // занесение формулы
D>

Как я уже отвечал Horror_Infinity, применение «SUMM» ничего не дает, и Excel понимает только «СУММА»… Применение «.Formula» к сожалению таже ничего не меняет.

… << RSDN@Home 1.1.4 stable SR1 rev. 568>>

Re[3]: передать формулу в Excel

Здравствуйте, A7exander, Вы писали:

H_I>>

H_I>>Sheet.Cells[i, j] := '=SUMM(A1:A8)';        // занесение формулы
H_I>>

A>Спасибо за отклик, попробовал, но в результате тот же «#ИМЯ?» вместо результата, та же подсказка, но вдобавок теперь если установить курсор на строку с формулой в ячейке и нажать Enter то ничего не меняется, тоесть похоже «SUMM» эксель не понимает впринципе… Может где то переключить что нибудь нужно, чтоб англоязычные функции понимал? Эксель из пакета «OFFICE 2003»

Сорри за опечатку!
Конечно же, надо написать вот так:

Sheet.Cells[i, j] := '=SUM(A1:A8)';        // занесение формулы

З.Ы. На будущее. Очень легко подсмотреть, как правильно писать формулы: Включаешь запись макроса в Екселе, пишешь нужную тебе формулу, останавливаешь запись, идешь в редактор макросов и смотришь, как надо тебе в дельфе написать, чтоб все работало.

… << RSDN@Home 1.1.4 stable SR1 rev. 568>>

Re: передать формулу в Excel

Re[4]: передать формулу в Excel

Здравствуйте, Horror_Infinity, Вы писали:

H_I>Сорри за опечатку!
H_I>Конечно же, надо написать вот так:
H_I>

H_I>Sheet.Cells[i, j] := '=SUM(A1:A8)';        // занесение формулы
H_I>

H_I>З.Ы. На будущее. Очень легко подсмотреть, как правильно писать формулы: Включаешь запись макроса в Екселе, пишешь нужную тебе формулу, останавливаешь запись, идешь в редактор макросов и смотришь, как надо тебе в дельфе написать, чтоб все работало.

Спасибо, SUM сработало, причем если SUM набирать в формуле вручную то Excel ее не понимает, что меня и сбило с толку, однако при программном занесении в ячейку конвертирует в «СУММ» и нормально вычисляет.

… << RSDN@Home 1.1.4 stable SR1 rev. 568>>

Re[2]: передать формулу в Excel

Здравствуйте, Dimonka, Вы писали:

D>Тут отвечали на похожий вопрос:
D>http://rsdn.ru/Forum/?mid=1353352&amp;flat=0

Автор: wildwind
Дата: 30.08.05

Спасибо, применение «SUM» помогло

… << RSDN@Home 1.1.4 stable SR1 rev. 568>>

Re[3]: передать формулу в Excel

что бы эксель понимал формулы с кирилическими символами вроде СУММ нодо писать так

Sheet.Cells[i, j].FormulaLocal := '=СУММ(A1:A8)'

Re[4]: передать формулу в Excel

Здравствуйте, NRiS, Вы писали:

NRS>что бы эксель понимал формулы с кирилическими символами вроде СУММ нодо писать так

NRS>

NRS>Sheet.Cells[i, j].FormulaLocal := '=СУММ(A1:A8)'
NRS>

Тогда английский ексель перестает понимать такие формулы. Как быть? У меня (да и не только у меня) стоит именно оригинальная английская версия.

… << RSDN@Home 1.1.4 stable SR1 rev. 568>>

← →
EgorT
 
(2004-01-08 12:24)
[0]

Добрцый день! Есть такая проблема: хочется из Delphi 5 записывать в MS Excel всякие разные формулы, отличные от SUM. Помогите кто знает как это делать!

← →
Романов Р.В.
 
(2004-01-08 12:25)
[1]

cells.Formula := «=МИН(A1:A10)»;

← →
REP
 
(2004-01-08 12:31)
[2]

cells.Formula := «=MIN(A1:A10)»; Вроде как русские формулы он не понимает. Хотя может и от версии зависит.

← →
EgorT
 
(2004-01-08 12:34)
[3]

Не помогает пишет «#ИМЯ?» в той ячейке, то есть результат считать не могу, или если записть формулу «=ЕСЛИ(A1=10;A2+A3;0)» тоже ничего хорошего не получилось

← →
EgorT
 
(2004-01-08 12:35)
[4]

например Сумм понимает замечательно а все остальное нет

← →
Романов Р.В.
 
(2004-01-08 13:00)
[5]

A1 пиши на английской раскладке

← →
REP
 
(2004-01-08 13:06)
[6]

Вместо точки с запятой используй ЗАПЯТУЮ

А в сумм ты не используешь точку с запятой

Типа:

«=ЕСЛИ(A1=10
, A2+A3,0)»

← →
EgorT
 
(2004-01-08 13:10)
[7]

А1 пишу по английски, а на счет запятой попробую

← →
Карелин Артем
 
(2004-01-08 13:26)
[8]

Делай макрос и формулу бери из макроса. К примеру
=ЕСЛИ(H8=12;G3;12) на самом деле будет
"=IF(R[7]C[7]=12,R[2]C[6],12)"

← →
EgorT
 
(2004-01-08 13:39)
[9]

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

← →
REP
 
(2004-01-08 13:45)
[10]

Карелин Артем © (08.01.04 13:26) [8]

Ну не обязательно уж прямо R[7]C[7] Можно и обычно использовать H8, однако с синтаксисом нужно быть поосторожнее. Можно в Екселе находить нужную формулу по русски, а затем в «смотри также»(See also) находить ее англоязычный синтаксис

← →
Карелин Артем
 
(2004-01-08 13:52)
[11]

REP © (08.01.04 13:45) [10]

Не обязательно. Это я через запись макроса получил.

EgorT (08.01.04 13:39) [9]

Именно не понял идею. Через макрос Названия формул надо получать. Хранить из не надо.

← →
REP
 
(2004-01-08 14:03)
[12]

уважаемые посетители блога, если Вам понравилась, то, пожалуйста, помогите автору с лечением. Подробности тут.

Сегодняшняя статья блога  будет целиком посвящена работе с Excel Range или, говоря другими словами — работе с диапазонами ячеек Excel.

Про работу с этими объектами я уже вкратце говорил, а сегодня хотел бы поделиться с вами более полной информацией. Итак, начнем с самого простого.

1. Что такое Range и как его получить?

Согласно официальному определению Microsoft, Range :

представляет собой ячейки, строки, столбцы, набор ячеек, содержащих один или более смежных блоков ячеек, или 3-D диапазон.

Однако это определение не исключает того, что объектом Range может выступать и одна ячейка (Cell) листа.  Таким образом, чтобы получить в свое распоряжение объект Range, можно выполнить следующие операции c объектом Excel в Delphi:

var  MyRange: OLEVariat;
begin
{объект Range, состоящий из одной ячейки}
  MyRange:=MyExcel.ActiveWorkBook.ActiveSheet.Range['A1'];
{объект Range в виде строки из четырех ячеек}
  MyRange:=MyExcel.ActiveWorkBook.ActiveSheet.Range['A1:D1'];
{объект Range в виде столбца из четырех ячеек}
  MyRange:=MyExcel.ActiveWorkBook.ActiveSheet.Range['A1:A4'];
{объект Range в виде таблицы 4х4 ячейки}
  MyRange:=MyExcel.ActiveWorkBook.ActiveSheet.Range['A1:D4'];
end;

Если Вам неудобно в какой-либо ситуации использовать буквенные обозначение ячеек или Вы привыкли до этого момента иметь дело только с отдельными ячейками (Cells), то объект Range можно получить например вот так:

var  MyRange: OLEVariat;
     Cell_1, Cell2: OLEVariant;
begin
{получаем ссылку на объект Cells, соответствующей ячейке A1}
  Cell_1:=MyExcel.ActiveWorkBook.ActiveSheet.Cells[1,1];
{получаем ссылку на объект Cells, соответствующей ячейке C5}
  Cell_2:=MyExcel.ActiveWorkBook.ActiveSheet.Cells[5,3];
{получаем объект Range размером 3х5}
  MyRange:=MyExcel.ActiveWorkBook.ActiveSheet.Range[Cell_1, Cell_2]
end;

Какой из способов Вы будете использовать в Delphi — не важно, так как результат будет один и тот же. Получив в свое распоряжение диапазон Вы можете использовать его далее, например, для того, чтобы установить вид его границ.

2. Свойства объекта Excel Range.

Рассмотрим основные свойства объекта Range и их применение работе в Excel в Delphi.

Вначале перечислю свойства, которые будут далее рассмотрены в статье.

Formula

Возвращает или помещает в диапазон формулу.

Value

Возвращает или устанавливает значение для диапазона.Свойство Value замечательно тем, что с помощью него можно записать в ячейки абсолютно любые данные, особо не задумываясь о формате данных. Например, запишем в ячейки диапазона строку, число типа integer и число типа single: чтобы каждый раз не повторяться в листингах и не писать одни и те же элементы по 100 раз, будем считать, что в переменной Sheet уже содержится ссылка на активный лист (ActiveWorkSheet) активной книги (ActiveWorkBook) Excel (MyExcel)

var i:integer;
    s: single;
    str: string;
    Sheet: OLEVariant;
begin
  i:=100;
  s:=2.12;
  str:='Hello World!';
  Sheet.Range['A1'].Value:=i;
  Sheet.Range['A2'].Value:=s;
  Sheet.Range['A3'].Value:=str;
end;

Как видите, обращение к ячейкам было одно и то же и нигде я не приводил данный к какому-то типу — записал в ячейки всё как есть.

Если Вы хотите записать в весь диапазон Range одно и то же значение, то просто выполните:

Sheet.Range['A1:A10'].Value:=str;

и получите одну и ту же строку «Hello World!» в десяти ячейках Excel, но такие операции очень редко необходимы при работе с Excel в Delphi. Зато очень часто необходимо воспользоваться другой стороной свойства Value — прочитать большой объем данных из книги Excel за один прием и получить весь массив данных в Delphi. Операция чтения данных из Excel в Delphi более проста, чем Вам может показаться на первый взгляд. Проведем обратную операцию — прочитаем данные из Excel:

var  val: Variant;
     Sheet: OLEVariant;
     i:integer;
begin
  Val:=Sheet.Range['A1:A3'].Value;
  for i:=1 to 3 do
    ShowMessage(val[i,1]);
end;

Как видите здесь мы за один прием прочитали данные сразу из трех ячеек Excel и отобразили их в сообщении. Этот прием чтения на порядок более скоростной, чем, например чтение содержимого каждой ячейки (Cells) в отдельности.

Text

Ещё одно простенькое свойство объекта Range — возвращает текст из ячейки. Самое главное отличие от свойства Value — Text возвращает string только для чтения и использовать это свойство для чтения большого объема данных, как в предыдущем примере — ни в коем случае нельзя, так как переменная Val вернет значение Null.

Column

Возвращает номер первого столбца в первой области, в указанном диапазоне. Свойство только для чтения.

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

То есть каждый из диапазонов Range будет содержать по две несвязанные друг с другом области (Area). Причем первая область диапазона Range будет начинаться в столбце А, а первая область второго диапазона (Range 2) — в столбце B.

После того, как диапазоны будут созданы — посмотрим, что вернет нам свойство Column для каждого из диапазонов.

Листинг процедуры создания двух несвязных диапазонов Range следующий:

var Range1,Range2,BigRange: OLEVariant;
begin
{создаем первый диапазон}
  Range1:=Sheet.Range['A1:C4'];
  Range2:=Sheet.Range['E6:H9'];
  BigRange:=Sheet.Range[Range1,Range2];
  ShowMessage(IntToStr(BigRange.Column)); //показываем значение свойства
{создаем второй диапазон}
  Range1:=Sheet.Range['B7:C13'];
  Range2:=Sheet.Range['E1:H3'];
  BigRange:=Sheet.Range[Range1,Range2];
  ShowMessage(IntToStr(BigRange.Column)); //показываем значение свойства
end;

Так, в случае с первым Range Column вернет нам значение 1, а для второго Range — значение 2.

Columns

В отличие от предыдущего свойства, Columns возвращает не простое число, а объект Range, представляющий собой один столбец из всего диапазона.

Посмотрим как, например, используя это свойство можно изменять столбцы во всем диапазоне Range.

Для демонстрации воспользуемся предыдущим примером, изменим только окончание:

...
BigRange:=Sheet.Range[Range1,Range2];
for i:=1 to BigRange.Columns.Count do
  BigRange.Columns[i].Value:='Столбец №'+IntToStr(i);

В итоге в каждый из столбцов диапазона должна записаться строка с номером этого столбца, результат представлен на рисунке. Как видите, в цикле все столбцы обработались «насквозь», хотя Range не содержал в себе столбец D.

Возвращает объект Comment для Range. В данном случае Range должен определять одну ячейку.

Для демонстрации свойства не будем заходить в Excel, поработаем с приложением прямо из Delphi. Для этого воспользуемся методом AddComment. То есть сначала запишем комментарий в ячейку, а потом прочитаем его используя свойство Comment:

Range2:=Sheet.Range['E6'];
{записали комментарий}
Range2.AddComment('Это комментарий ячейки области');
{прочитали}
ShowMessage(Range2.Comment.Text);

Address

Возвращает реальный адрес диапазона Range. Например для диапазона ячеек, заданных вот таким образом:

Range2:=Sheet.Range['A1:E6'];
Свойство Address будет содержать строку "$A$1:$E$6"

Это свойство удобно использовать, когда Вы оперируете в программе только числовыми значениями (номерами столбцов и строк) и появляется необходимость показать пользователю адреса ячеек из диапазона.

Помимо перечисленных выше свойств к объекту Range применимы все свойства, описанный в статье об изменении внешнего вида ячеек Excel, т.е. borders, color и пр.

3. Методы объекта Excel Range.

Теперь рассмотрим несколько полезных методов, которые могут Вам пригодиться при работе с Excel в Delphi.

CheckSpelling

Проверяет грамматику в выбранном диапазоне и при нахождении ошибок выводит окно для замены. Замечательной особенностью этого метода является то, что окно замены появляется даже при скрытом окне Excel, то есть, когда свойство Visible у объекта Excel равно false.

Вызывается метод без каких-либо дополнительных параметров:

Range['A1:H6'].CheckSpelling

PrintPreview

Выводит на экран окно предварительного просмотра перед печатью выбранного диапазона ячеек. Также как и предыдущий метод PrintPreview не имеет дополнительных параметров. Однако при попытке вызвать метод при скрытом окне Excel в лучшем случае возникнет исключительная ситуация, в худшем — зависание Вашего приложения. Так что перед вызовом:

не забывайте включить свойство Visible у Excel:

AutoFill

Автоматическое заполнение диапазона ячеек на основе данных из другого диапазона.

Вызов метода:

Range.AutoFill(Destination, Type)

Рассмотрим применение метода на примере.

Sheet.Range['A1'].Value:=1;
Sheet.Range['A2'].Value:=2;
Source:=Sheet.Range['A1:A6'];
Range2:=Sheet.Range['A1:E6'];
Source.AutoFill(Range2, xlFillDefault)

В результате лист Excel примет следующий вид:

Как видите все столбцы второго диапазона Range заполнились значениями из диапазоны Source.

При использовании этого метода следует иметь в виду, что диапазон-источник (в нашем случае — это source) по одному из измерений должен совпадать с источником назначения. В приведенном примере совпадает размерность по строкам (в обоих диапазонах их шесть). Если размерности диапазонов не совпадают, то возникает исключительная ситуация.

При использовании метода мы использовали одну из констант в параметре Type — xlFillDefault = 0. Используя её мы скопировали данные один-к-одному. Дополнительно Вы можете использовать следующие константы при автозаполнении:

AutoFit

Изменяет ширину или высоту ячеек диапазона для наилучшего представления данных.

Пример вызова:

Sheet.Range['A1'].Value:=1234567891012;
Sheet.Range['A2'].Value:=23456789;
Source:=Sheet.Range['A1:A2'];
Source.Columns.AutoFit

Приведет и изменению ширины столбца А таким образом, чтобы число было полностью видно на листе.

Методы очистки данных диапазона Range

Есть несколько различных методов очистки содержимого диапазона Range при работе с Excel в Delphi.

1. Clear

Удаляет все данные из диапазона.

Пример вызова:

2. ClearComments

Удаляет все комментарии в диапазоне Range.

Пример вызова:

3. ClearContents

Удаляет все формулы из диапазона Range

Пример вызова:

4. ClearFormats

Очищает форматы в диапазоне Range

Пример вызова:

5. ClearNotes

Очищает все заметки в диапазоне Range

Пример вызова:

Методы работы с буфером обмена Excel

1. Copy

Копирует содержимое диапазона Range в буфер обмена или в другой диапазон.

Попробуем реализовать работу метода следующим образом: заполним столбец А некоторыми значениями, а затем скопируем его сначала в буфер, а потом в столбец Е:

Sheet.Range['A1'].Value:=1;
Sheet.Range['A2'].Value:=2;
Sheet.Range['A3'].Value:=3;
Sheet.Range['A4'].Value:=4;
Sheet.Range['A5'].Value:=5;
Sheet.Range['A6'].Value:=6;
Source:=Sheet.Range['A1:A6'];
Source.Copy; //скопировали в буфер
Range2:=Sheet.Range['E1:E6'];
Source.Copy(Range2)//скопировали в новый диапазон

А для того, чтобы вставить данные из буфера обмена существует ещё один метод

2. PasteSpecial

Вызов метода:

MyRange.PasteSpecial(Paste, Operation, SkipBlanks, Transpose)

При определении параметра Paste следует использовать следующие константы:

При использовании параметра Operation следует использовать следующие константы:

Теперь рассмотрим применение метода на примере. В качестве исходных данных возьмем данные из предыдущего примера, но для вставки используем метод PasteSpecial:

...
Range2.PasteSpecial(Operation:=xlPasteSpecialOperationAdd);

После выполнения этой операции все данные вставятся в диапазон Range2, т.к. диапазон до вставки был пуст, то данные скопировались один-к-одному.

3. Cut

Вырезает данные и при необходимости вставляет их в новый диапазон. Метод работает аналогично методу Copy, но с последующим удалением данных из источника.

Merge

Объединение ячеек диапазона.

Для новичков, только начинающих постигать азы работы с excel в Delphi этот метод в какой-то момент становится камнем преткновения :). Дело в том, что очень часто возникает необходимость объединить часть ячеек листа для записи в объединенную область большого количества данных или длинной строки. В Excel есть такой метод Union, который и отвечает за объединение — им-то и пробуют пользоваться многие. А метод Union при вызове из Delphi применительно к диапазону Range вызывает исключительную ситуацию. Про Merge люди либо не знают, либо забывают. А использовать его достаточно просто:

Например, объединим ячейки в диапазоне Range2 из предыдущего примера:

После выполнения этой операции в диапазоне останется только верхнее значение, т.е. 1.

Дополнительные методы автозаполнения ячеек диапазона Range

В отдельную группу методов можно выделить 4 метода автозаполнения ячеек диапазона:

1. FillDown
2. FillUp
3. FillRight
4. FillLeft

Принцип действия этих методов один и тот же за исключением направления автозаполнения.

Например, давайте запишем в ячейку A1 какое-нибудь значение и воспользуемся методами FillDown и FillRight:

Sheet.Range['A1'].Value:=1;
Sheet.Range['A1:A6'].FillDown;
Sheet.Range['A1:F1'].FillRight;

После этого в строк 1 и столбце A появятся числа 1. Аналогичным образом можно заполнять не только строки или столбцы, но и таблицы целиком — достаточно знать в какую сторону двигаться при автозаполнениии и применять соответствующие методы Excel для Range.

Вот в принципе краткий обзор возможностей работы с объектов Range в Excel. В целом можно отметить, что работа с этим объектом в Delphi один из самых эффективных способов организации пресылки/получения данных между Excel и Delphi, не считая работы через XML формат.

Книжная полка

Название:Разработка приложений Microsoft Office 2007 в Delphi Описание Описаны общие подходы к программированию приложений MS Office. Даны программные методы реализации функций MS Excel, MS Word, MS Access и MS Outlook в среде Delphi.

уважаемые посетители блога, если Вам понравилась, то, пожалуйста, помогите автору с лечением. Подробности тут.