Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.07.30;
Скачать: CL | DM;

Вниз

Не могу округлить значение поля в EXCEL.   Найти похожие ветки 

 
denmin ©   (2006-06-20 09:08) [0]

Здравствуйте.
Пишу значения БД в EXCEL. Надо чтобы поле округлялось в самом EXCEL. Пишу так
Sheet.Cells[row, 11].formula:="=ROUND((G"+inttostr(row)+"*I"+inttostr(row)+"/1000);2)";
но ругается на OLE ошибку. Если пишу
Sheet.Cells[row, 11].formula:="(G"+inttostr(row)+"*I"+inttostr(row)+"/1000)";
то все нормально, т.е. без округления. пробовал писать ОКРУГЛ вместо ROUND, не помогает. Можно конечно в свойствах ячейки прописать что она числовая с двумя знаками после запятой, но я не знаю как. Последний вариант лучше всего. Буду благодарен любому ответу, а еще больше за фак по работе с EXCEL в Дельфи.
Заранее благодарен.


 
evvcom ©   (2006-06-20 09:17) [1]

Магнитофон (запись макроса) тебе в помощники. В экселе поищи, на закладке VB


 
Kray ©   (2006-06-20 14:26) [2]

http://www.delphikingdom.com/asp/viewitem.asp?catalogid=1270


 
Сергей М. ©   (2006-06-20 14:42) [3]


> благодарен ..за фак


fuck

FormulaLocal vs Formula


 
umbra ©   (2006-06-20 14:54) [4]

можно задать числовой формат ячейки с нужным количеством знаков


 
denmin ©   (2006-06-20 16:34) [5]

-> umbra ©

а как?


 
umbra ©   (2006-06-20 18:05) [6]

примерно так

var
 mybook: variant;
{..................................................}
mybook := XLApp.Workbooks.Item[1];
mybook.Worksheets.Item[1].Range("A1").NumberFormatLocal = "0,000";
{...................................................}
 mybook := Unassigned;



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

Текущий архив: 2006.07.30;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.039 c
4-1145006916
Feg16
2006-04-14 13:28
2006.07.30
Создание расширенного ярлыка


2-1152381945
VitV
2006-07-08 22:05
2006.07.30
Interbase 6.0.1 максиальный размер файла.


2-1152561496
Mr tray
2006-07-10 23:58
2006.07.30
keybd_event


2-1152124636
!_SM_!
2006-07-05 22:37
2006.07.30
Canvas, Image


3-1145022270
Ega23
2006-04-14 17:44
2006.07.30
События TDataLink